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«TITLE CZUDDCO UDA DIAG DATA FILE 
-SBTTL USER DOCUMENTATION 


«REM ~ 


PRODUCT CODE: 
PRODUCT NAME: 
PRODUCT DATE: 


MAINTAINER: 
AUTHOR: 


IDENTIFICATION 


AC=S833C=MC 

CZUDDCO UDA DIAG DATA FILE 
27-AUG~82 
DIAGNOSTIC ENGINEERING 
MATT TEDONE 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT B 


E CONSTRUED AS A COMMITMENT BY DIGITAL 


NOT 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1982 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL 
DEC 


POP UNIBUS MASSBUS 
DECUS DECTAPE 


SEQ 0002 
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SYMBOL TABLE 


- ABS. 000000 000 
000000 001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 8192 WORDS ( ze PAGES) 


DYNAMIC MEMGRY AVAILABLE FOR 72 PAGES 
-B: ZUDDCO=B: ZUDDCO. TTL 


UDAT1 __UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 
TABLE OF CONTENTS 
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2- 22 UDA_DM PROGRAM PARAMETERS 
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19 1 START OF TEST CODE 

19= 31 RDSTAT = GET DRIVE’S REAL TIME DRIVE STATE 

20- 1 HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 

ee 1 FREE MEMORY CHECK 
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«TITLE UDAT1 UNIBUS ADDRESSING 


COPYRIGHT (C) 1981 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ot we ga PR tay Bo 


HER PERSON E T_ FOR E 
WHO AGREES’ TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


| INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
OTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ipaso=0 


UDAS2= 
THIS PROGRAM SHALL BE Gatton te Scie THE PROGRAM DMACRO 
3USING A COMMAND LINE SIMILAR T 


UDAT1.0BJ ,UDAT1/C= run Senemertneh aac ZUDAS 
[THEN LINK USING A COMMAND LINE SIMILAR TO: :UDAS 
UDAT1.BIN/L=UDAT1 SUDAS 


VERSION 1.0 FOR RELEASE 
VERSION 2.0 FOR NEXT UDA 






000600 
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000000 


000001 
000002 


037777 
BI0088 
000000 
000001 
000002 


000000 
000400 











TEST4 == 0 ; THIS 2S NOT TEST4 
.SBTTL MCALLS SUDA5S2 
.MCALL DMCODE ,DMEND ,DMOVLY UDAS2 
-MCALL JMP,BR,BEQ, CALL,BPL,BCC,BNE,BMI ,RETURN UDA A52 
“MCALL DMODT SUDA52 
DMCODE UDADM1,0,1364,3,0, 1000 nats 

.SBTTL UDA DM PROGRAM PARAMETERS 
LIST MEB 

: EQUATES 

BITOO = 1 

BITO1 = 2 

: HIGHEST USABLE LOCATION OF UDA MEMORY + 1 

HIMEM = 37777 

; DUP PACKET VALUE 

DU.QUE = 10000 Z QUESTION 

DU.DFL = 20000 “DEFAULT QUESTION 

DU.INF = 30000 : INFORMATION 

DU.TER = 40000 TERMINATOR 

DU-FTL = 50000 [FATAL ERROR 

DU.SPC = 60000 SPECIAL 

; OFFSETS FOR FORMAT TRACK TABLE 

FT.BUF = 0. ZBUFFER POINTER OFFSET 

FT.HI = 1. SHI ORDER HEADER OFFSET 

FT.LOW = 2: [LOW ORDER HEADER OFFSET 

; OFFSETS FOR FORMAT TRACK BUFFER 

FB.DAT = 0. sFIRST DATA WORD OFFSET 

FB.EDC = 256. SEDC WORD OFFSET 

: OFFSETS FOR READ/WRITE 1/0 CHAIN TABLES 

Rw. STAT = 0. ;STATUS AND NEXT BUFFER POINTER OFFSET 

RW.BUF = - [POINTER TO DATA BUFFER 

RW.LOW = é- THI ORDER EXPECTED HEADER 

RW.HI = ‘ [LOW ORDER EXPECTED HEADER 

RW.CMD = 4: [SDI COMMAND AND HEAD ADDRESS 

RW.SDI = 5. [DUMMY SDI CONTROL BLOCK POINTER 

RW.ANG = é. : THETA FROM INDEX 

; CONSTANTS FOR READ AND WRITE XFC'S 


= 140000 : LAST ENTRY IN CHAIN FOR WRITE 
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8 040000 WCONT = 0000 3 WRITE CONTINUE 
8 100000 RSTOP = 100000 3 LAST pila IN CHAIN FOR READ 
84 000000 RCONT = 3 READ CONTI 
85 100000 FSTOP = 100000 : LAST ENTRY 7 CHAIN FOR FORMAT 
ote WREAL = 122400 ; WRITE REAL_TIME ECOMMAND 
87 013400 EAL = 13400 3 READ REAL TIME COMMAND 
88 010000 ECCFLG = 10000 : ECC ERROR IN BUFFER BIT 
89 100000 oc = 100000 : END CHAIN 
+ 0000 BUFFLG = 40000 ; BUFFER FULL OR EMPTY FLAG 
92 : 
. : HEADER CODES 
95 000000 HD.LBN = 000000 GOOD LBN 
96 060000 HD.RBN = 060000 GOOD RBN, PERHAPS UNUSED 
97 030000 HD.REV = 030000 ;REVECTORED LBN 
98 110000 HD.BAD = 110000 ;BAD BLOCK 
50000 HD.PRV = 050000 PRIMARY RE VECTORED BLOCK 
100 120000 HD.XBN = 120000 ;XBN BLOCK 
1) 140000 HD.DBN = 140000 :DBN BLOCK 
4's ; OFFSETS FOR DATA BUFFERS 
105 000000 BF.DAT = 0. sDATA 
106 000400 ° = 256. sERROR DETECTION CODE 
+ 34 000401 ° = 257. sLAST 17 ECC RESIDUES 
1%} ; BUFFER AND READ/WRITE CHAIN LINK SIZES 
111 WBUFLN = 257. ; WRITE BUFFER SIZE 
112 000415 RBUFLN = WBUFLN+12. : READ BUFFER SIZE 
113 LINKLN = 7. : LINK SIZE 


SEQ 0006 


a 
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; XFC DEFINITION EQUATES 
BREAK = 0. 
FORMAT = Re 
XREAD = ¢: 
XWRITE = . 
END = 4. 
CV = 5. 
COMPARE = 6. 
STATUS = vs. 
ECHO = 8. 
DINIT = 9. 
WAITSI = 10. 
UREAD = y 
UWRITE = 12. 
ECC = 13. 
MRD = 14. 
MWR = 15. 
CVT = 16. 
EXIT = 17. 
3 GET STATUS OFFSETS 
ST.UNT = 0. 
ST.MSK = 0. 
-STA = - 
ST.MOD = Ba 
ST.ERR = 7. 
of = e. 
w . = 7. 
ST.RTY = 3. 
3 STATUS BIT DEFINITIONS 
ST.OA = 200 
eRR = 100 
DR = 40 
= 20 
PS = ¢ 
7 200 
= 100 
= 40 
= 20 
= 10 
= 2000 
= 1000 
= 400 


SDI COMMAND XFC 
TRECEIVE SDI MESSAGE XFC CODE 
COMPARE DATA PATTERN TO BUFFER 
RETURN DRIVE STATUS XFC CODE 
ECHO DATA TO roe. rs CODE 
:DRIVE ie caches on ODE 
WAIT FOR SECTOR 
READ UNIBUS MEMORY XFC CODE 
be TE UN ME 


XFC CODE 
SEND BUFFER TO MAINTENANCE READ COMMAND 
GET BUFFER FROM MAINTENANCE WRITE COMMAND 
CONVERT TO PHYSICAL ADDRESS XFC CODE 
TERMINATE DM PROGRAM XFC CODE 


TERROR BYTE 
:CONTROLLER BYTE 
[RETRY COUNT/FAILURE CODE 


ONLINE TO ANOTHER (SET IF DRIVE UNAVAILABLE) 
READJUSTMENT BIT (SET IF RECALIBRATION REQUIRED) 
DIAGNOSTIC REQUEST (SET IF DIAGNOSTIC REQUESTED) 

PINDLE READY (SET IF SPINDLE READY) 
PORT SWITCH (SET IF PORT SWITCH IN) 
RUN/STOP SWITCH (SET IF RUN/STOP SWITCH IN) 
ERR IF FA ERROR OCCURRED) 
RETRIABLE ERROR (SET TRIABLE ERROR oho ms 


; OTOCOL ERROR OCCURR 
; INITIALIZATION FAILURE (SET IF INIT FAILED) 
; NABLE (SET IF WRT Hg 4 ED ON PROT DISK) 


Ss 
3 F ING (SET IF ENAB 
; tee a eS CYLS “eer of DIAG” CYL oree ss ENABLED? 
; SECTOR SIZE (SE 76 BYTE SECTORS) 


Bete Ge Se Ge Ge Ge Ge Ge Ge Be Se Se & 
wn 
> 
—- = = —s 
= >> 
m “n 
m 
~~ 
“~ 
47 
Zn 


SEQ 0007 
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Resi oan aceoemean —— 
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000010 


177400 
000377 
007777 
170377 





GET COMMON CHARACTERISTICS OFFSETS 
0. sSHORT TIMEOUT <3:0> 
ER <7:4 


e*eesee 
& . 
ao ses 
Se] “2> 
DOL 

nn 

al 

m 

ps) 
4 zo 
22 

“~ 

vom 

A 

= 

w 

So 

Vv 


LD < > 
‘MICROCODE REVISION NUMBER <7:0> 
sHARDWARE REVISION NUMBER <15:8> 
UNIQUE DRIVE ID <47:0> 
sDRIVE TYPE IDENTIFIER <7:0> 
;REVS/SECOND <15:8> 


GET SUBUNIT CHARACTERISTICS OFFSETS 
OFFSETS ARE CURRENTLY GIVEN AS FOLLOWING THE COMMON CHARACTERISTICS 


11. s OFFSET TO PUT SUBUNIT AFTER COMMON; 
sNUMBER OF CYLINDERS IN Lo = <31:0> 


NNESWWNN SS | OO 
a 


a 
= 
rz 
— 
So 
z 
\~J 
m 
Zz 
o 
<= 
ad 
— 
2 
J 
Mm 
» 
@ 
as 
~ 
nn 
A 


; T 

sRBNS PER TRACK <6:0> 

sREMOVABLE MEDIA <7:7> 1=REMOVEABLE 
DATA PREAMBLE SIZE _IN WORDS <7:0> 
HEADER Tee otis SIZE IN WORDS <15:8> 


*eeee#ee#srtee#sse#*# 
s 
= 
nn 
= 
“4 
=m 
2 Zz 
o 
ae 
A 
—_ 
_ 
co 
Vv 


= = ODDOAUUILS SWWWNNIN Oo 
o 


° MEDIA TYPE :0> 
° sFCT COPY SIZE <15: = 
° sLONS PER TRACK <?: 
. ; GROUP pe (sec TORS) “15s 8> 
0. ;LBNS IN HOST AREA 
2. sRCT COPY SIZE <15: 0> 
7. sCYLS IN XBN AREA <15:0> 
8. sCYLS IN DBN AREA <15:8> 
UNIT CODES 
= 1. sUNIT ZERO CODE 
= . sUNIT ONE CODE 
= 4, UNIT TWO CODE 
= 8. sUNIT THREE CODE 


BIT MASK DEFINITIONS 


= 177400 HIGH BYTE MASK 
= 000377 ;LOW BYTE MASK 
= 7777 sHI BYTE, HI NIBBLE MASK 


170377 HI BYTE, LO NIBBLE MASK 
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177417 
177760 


000001 
000002 
000004 


000002 
000004 
000010 


000001 
000002 


000001 
000002 


LBHINB 
LBLONB 
timeout 
ADER 
REVECT 


RGE 
OVERFL 


mM— CLM f£N—- —— 
ees 


:LO BYTE, HI NIBBLE MASK 
:LO BYTE, LO NIBBLE MASK 


sDRIVE TIMEOUT CODE 
;HEADER COMPARE FAILURE CODE 
;REVECTOR NEEDED CODE 


sFIRST WORD = START FRAME CODE 
;FRAMING ERROR CODE 
;CHECKSUM ERROR CODE 


NUMBER OF WORDS EXCEEDS 7064 
DM BUFFER ADDRESS IS LESS THAN 714 


BLOCK NUMBER TOO LARGE 
SECTOR NUMBER LARGER THAN 16 BITS 


SEQ 0009 


zc” 
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SEQ 0010 | 
UDA DM PROGRAM PARAMETERS | 


} sMAINTANENCE READ/WRITE REQUEST NUMBERS 
3 060000 TIMSIZ = 0.+DU.SPC GET FREE MEMORY PARAMETERS 
4 060001 T2DLL = 1.+#DU.SPC DOWNLINE LOAD DRIVE DIAGNOSTIC 
5 060002 T2CMD = 2.+DU.SPC MANUAL INTERVENTION TEST 2 oco 
6 060003 T4MPRM = 3.*DU.SPC GET MASTER PARAMETERS FROM SW QUESTIONS 
4 0004 T4UPRM = 4.+*DU.SPC GET UNIT PARAMETERS HW s 
8 0005 4881 = 5.+DU.SPC GET BAD BLOCKS (1 TH 4) 
9 060006 T48B2_ = 6.+*DU.SPC GET REST OF BAD BLOCKS (15 oe 16) 
10 060007 T4SOFT = 7.+DU.SPC sADD TO SOFT ERROR AND ECC COUNT 
11 0010 T4SEEK = 8.+DU.SPC ADD 1 TO SEEK COUNT 
12 060011 T4MXFR = 9. +DU. SPC ADD TO MEGABITS READ AND WRITTEN 
13 060012 UTOTST = 10.+#DU.SPC ;GET UNITS TO TEST 
14 060013 ERRMES = 11.#DU.SPC PRINT ERROR M 
15 060014 RRMC_ = 12. +DU.SPC sTEST 4 ERROR REPORTING 
16 060015 MESSAG = 13.+DU.SPC 2 INFORMATION MESSAGE 
4 0016 DONE S 14.+DU.SPC sMARK DM PROGRAM AS NO LONGER RUNNING 
} ; OTHER BIT DEFINITIIONS 
21 000001 RCVRDY = 1 ; RECIEVER READY 1 = READY 
22 000002 ATTN = 2 : ATTENTION BIT FOR RETURN DRIVE SIGNALS XFC 
23 000004 RCVERR = 4 ; RECIEVER ERROR 
24 000100 AVAIL. = 100 : AVAILABLE 1 = AVAILABLE 
25 000400 XMTERR = 0 ; TRANSMIT E 
$$ 100000 RWRDY = 100000 : IF SET, UDA IS ASLE TO READ AND/OR WRITE TO DRIVE 
$8 : SDI COMMANDS AND RESPONSES 
30 000204 ISCON = 204 3 DISCONNECT DRIVE 
31 0006 ERECOV = 6 : ERROR RECOVERY 
32 000201 CHGMOD = 201 : CHANGE MODE 
33 000213 DRVONL = 213 : DRIVE ONLINE 
34 000014 DRVRUN = 14 2 DRIVE RUN 
35 000005 DRVCLR = 5 : DRIVE CLEAR OPC re 
000207 GETCHR = 207 : GET CHARACTERISTICS 
37 000210 GETSUB = 210 3 GET Hora MW CHARACTERISTICS 
38 000011 GETSTA = 11 3 GET TUS 
39 000216 IRECLB = 216 : RECA PIBRAT 
40 000012 INSEEK = 12 : INITIATE SEEK 
41 176 COMPLT = 176 3 SUCCESSFUL COMPLETION 
42 000175 UNSSUC = 175 3 UNSUCCESSFUL COMPLETION 
43 000170 CHRRES = 170 3 GET CHARACTERISTICS RESPONSE 
4h 000167 SBCRES = 167 : GET SUBUNIT CHARACTERISTICS RESPONSE 
45 000366 STSRES = 366 : GET STATUS RESPONSE 
$8 000350 ECHOC = 350 : DIAGNOSTIC ECHO COMMAND AND RESPONSE 
1 : ERROR CODES 
50 000000 FILSYS = 3 SYSTEM care ERROR 
51 040000 FILDEV = 40000 3 DEVICE FATAL 
52 100000 ERHARD = 100000 : HARD ERROR 
53 140000 ERSOFT = 140000 ; SOFT ERROR 


= 








UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 6 


TEST 4 SPECIFIC INFORMATION 


FWN $90 CONAOUEWN —O ODONOUSWwh— 


NONNNONY 2 2 2 SS 


25 


000377 


000060 


000000 
000001 
000003 


~SBTTL 


ry 
= 
o 


e*eeteesree##e#e#ee#esee####e#e# 
o Do e2 
£o 
So 
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TEST 4 SPECIFIC INFORMATION 
TEST 4 SPECIFIC INFORMATION 


CONSTANTS 


wn 
& 
Cc 
= 
= 
“~ 


255. 
9 


U.LGRP+1 
HIMEM-TLEN.U 
UNIT PARAMETER OFFSETS 


U.CGRP+1 
U.LCYL+2 


PARAMETER OF FSET 


0. 
S.PARM+1 
$.SDCL+2 


Be Se Ge Ge Ge Se Ge Be Be Ge Be Se Be Ge Ge Ge Ge Ge Ge Ge Se Be Ge Ge Be Se Se Se Ve Be Be Be Ge Se 


NUMBER OF Tr IN SECTOR TO FILL 
INITIAL EDC VALU 

UNIT PARAMETER LENGTH 

LOCATION OF FIRST UNIT PARAMETER BLOCK 


POINTER TO NEXT UNIT (RING LINKED LIST) 
4 WO OF SUBUNIT PARAMETER POINTERS 
“LIREOUT AR ata VALUES 


OUNT 116 (Gor s 
POINTER TO CURRENT TRACK OR GROUP 
RACK COUNT FOR GROUP OPERATIONS 
NUMBER OF SECTORS R/W THIS TRY 
NUMBER OF SECTORS TO BE R/W 
NUMBER OF AU \.. BE ni THIS OP 


; aT OF SR 


W SO FAR 
T MASK FOR XFC CALLS (0001 = 1000) 
WRITE PROTECTION STATUS 

CURRENT ERROR RECOVERY pevet 

MAXIMUM NUMBER OF READ RETRIES 

oes XIMUM NUMBER OF ERROR RECOVERY LEVELS 
SD 
SDI LONG TIMEOUT 
MASK TO WRITE PROTECT READ-ONLY DRIVES 
UNIT PARAMETER WOR 

SUBUNIT OFFSET (0 = 3) 

MASTER _L/DBN 


STER_L 
‘og oy L/DBN FOR START OF CHAIN 
RBN TO BE READ/WRITTEN IF LBN REVECTORED 
R_OF RCT COPIES ON EACH SUBUNIT 
CURRENT RCT COPY THAT WE*RE WORKING ON 
ERROR (IF ANY) ON THE LAST R 


me A DC 
na 
= 
So 
Zz 
~ 
=~ 
— 
a 
eo 
= 


SEQ 0011 


R/W 
ERROR THAT OCCURRED BEFOR THE REVECTOR OPERATION 
4 WORDS THAT HOLD THE SUBUNIT LOGICAL NUMBERS 


CURRENT CYLINDER 


LAST CYLINDER SEEKED TO 
LAST GROUP SEEKED TO 


SUBUNIT PARAMETER WORD 
STARTING DIAGNOSTIC CYLINDER 
PATTERN TO USE FOR WRITES 


zc 
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58 000004 S.TRKL = S.PAT+1 ; NUMBER OF SECTORS IN ONE TRACK 
59 000005 S.SCHR = S.TRKL+1 : POINTER TO wie CHARACTERISTICS 
60 006006 S.MEGR = S.SCHR+1 3 SECTORS READ (UP TO 245) 

61 000007 S.MEGW = $.MEGR+1 : SECTORS WRITTEN (UP TO 245) 

62 000010 S.BADP = S.MEGW+? ; POINTER TO BAD BLOCK AREA 

o 000011 S.BESS = S.BADP+1 3 START OF BEGIN/END SETS 

65 ; IF TRACK/GROUP LIMITS ARE GIVEN, THE SUBUNIT PARAMETERS HAVE THE 
$8 3 FOLLOWING FIELDS ADDED TO THEM 

68 000011 S.MCNT = S.BESS 3 MAXIMUM TRACK/GROUP COUNT 

69 000013 S.1TGOF = S.MCNT+2 : ORIGINAL TRACK/GROUP OFFSET 

70 000015 S.TGSS = S$. TGOF +2 3 START OF TRACK/GROUP SETS 


SEQ 0012 


zo” 


: 
| 
| 


UD 
TE 


ST 4 SPECIFIC INFORMATION 
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DUMMY SDI CONTROL BLOCK OFFSETS | 
1 : DUMMY SDI SEARCH LIMIT ! 
2 DUMMY POINTER TO SUBUNIT CHAR=5 


000001 
000002 


100000 


DROP 


UNIT PARAMETER BITS (U.PARM(RS)) 


1 

2 

3 

4 

5 

6 

7 

: 

10 = 100000 : DROP BIT (SET IF UNIT OR SUBUNIT DROPPED) 

11 040900 INITW = 40000 : INITIAL WRITE (SET IF INITIAL WRITE IN PROG) 
12 020000 RESEEK = 20000 ; IF_1,_ INDICATES THAT A SEEK IS NECESSARY 
13 010000 DIREC = 10000 : DIRECTION (SET IF SEQUENTIAL ACCESSES DECREASING) | 
14 004000 NEWSUB = 4000 : SET IF SEQUENTIAL SEEKS MOVED TO NEW SUBUNIT 
15 002000 SEKINP = 2000 ; SEEK_IN PROGRESS - iV 4 TRUE 
16 001000 FTIME = 1000 : FIRST TIME FLAG = SET FOR INIT CODE 
17 000400 REVEC = 400 : REVECTOR BIT (SET IF BLOCK REVECTORED) | 
18 000200 RBNBN- = 200 : SEE IF WORKING ON RBN 
19 000100 REDWRT = 100 : REDWRT (READ OR WRITE IN PROGRESS SET IF WRITE) | 
20 000040 REVINP = 40 : REVECTORING OPERATION IN PROGRESS | 
21 000020 DATERR = 20 : DATA ERROR IF SET 
e2 000004 RETRY = 4 : IF CLEAR, START RETRIES AT ZERO 

$2 000001 RCLB = 1 ; RECALIBRATION BIT (SET IF RECALIBRATE JUST DONE) 

¢? : SUBUNIT PARAMETER BITS (S.PARM(R4)) | 
27 029000 DCYLS = 20000 : DIAGNOSTIC CYLINDER FLAG (SET IF DBNS) 
28 010000 ECCCHK = 10000 : 1_IF ECC CORRECTION ALLOWED MASTER BITS 
29 094000 ONLY = 4000 : READ ONLY (SET IF READ ONLY) 
30 002000 WONLY = 2000 3 

31 001000 RTRIES = 1000 ; 1_IF RETRIES ALLOW 
32 000200 ONLYCL = 200 : SET IF ONLY cTLINDERS go wear LED | 
33 ; USED DURING SETUP 
bt 000100 SEQSEK = 100 ; SEQUENTIAL SEEK (START UP_TESTING ONLY) | 
35 000040 BEUSED = 40 : BEGIN/END SETS (USED IF SET) 
36 000020 TRACKS = 20 : Mors OR GROUPS (TRACK IF SET) 

37 0000106 WCHECK = 10 ; WRITE CHECK BIT (CIF SET, WRITE CHECK WILL BE DONE 
38 ; 7, 18 ALSO USED FOR THE UNIT PARAMETERS 

39 000004 WCHKAL = SET “ WRITE CHECK ALWAYS TO BE DONE 
40 000002 DATCMP = 2 ; DATA COMPARE (SET IF DATA COMPARE TO BE DONE) 
41 : DATCMP IS ALSO USED FOR THE UNIT PARAMETERS 
62 000001 DCMPAL = 1 ; SET IF DATA COMPARE ALWAYS TO BE DONE 


WRITE ONLY eh IF WRITE ONLY) 
t 





B 2 
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MACRO DEFINITIONS 


} .SBTTL MACRO DEFINITIONS 

; ; DIAGNOSTIC MACRO FOR TEST4 OVERLAYS 
5 .MACRO DIAG$$ 

é TST SS$DIAG+$DIAG$ 

7 BEQ .+ 

R MOV #60000,RO 

9 MOV RO, aS$DIAG+$DIAGS$ 

10 BR +1 
11 SDIAGS = SDIAGS + 1 

12 .ENDM 
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— 


“SODONOUSWwH— 


MESSAGE CONTROL TABLE MACRO 
«MACRO oe * tear CMDSZ,RPLBUF , at to F SUCCOM 


;WORD CMD DDRESS OF COMMAND 

» WORD CMDS? iSIzE OF army IN BYTES 
-WORD RPLBUF ADDRESS OF REPLY 

«WORD RPLSZ sSIZE OF REPLY IN WORDS 

- IF NB NUMBER 

ooe SUCCOM 3 SUCCESSFUL COMPLETION CODE 


a 


SEQ 0015 





Dd 2 
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MACRO DEFINITIONS | 
1 -MACRO BCS LAB.. 
§ BCC +2 
BR LAB.. 
4 ~ENDM 
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4 
5 
6 
? 
8 
9 
0 
1 
2 
3 
4 
5 


bd 4 ad ad 


PUSH REGISTER MACRO 


«MACRO PUSH RO 
IRP X,<R9> 


POP REGISTER MACRO 


~MACRO POP R9 
- IRP X,<R9> 


-ENDM 
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2 
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ZERROR MACROS 
: THESE MACROS ARE CALLED TO REPORT ERRORS TO THE HOST PROGRAM. 
STHE MACRO NAME ERRSF ERRDF, ERRHRD, ERRSFT. EACH RESULTS IN THE HOST 
:BEING REQUESTED A REPORT THE ERROR. 

ARGUMENT MESSAGE POINTER 


RRR RRR RA 
HPAAMAMMMM 


n” 
CONOULSWN— > 


) 
9 (P8$) PARAMETER #8 


3 THE oth poe POINTER MUST POINT TO AN ADDRESS IN THE OVERLAY ‘™S'° — 
sFOLLOWING THE MAIN CODE. ANY ADDRESS MODE MAY BE USED (E.G. #MS1, 
i THE ADDRESS MUST CONTAIN AN ASCII FORMAT STRING ie DETERMINE wTne “MESSAGE 


;THE PARAMETER fete pat ARE OPTIONAL. THEY SHOULD BF SUPPLIED ONLY WHEN 
THERE IS DATA TO BE PASSED TO THE HOST THAT WILL BE USED IN PRINTING THE 
7MESSAGE. yt} PARAMETER ARGUMENTS ARE THE ADDRESS OF DATA TO BE PASSED 
USING ANY ADDRESSING MODE DESIRED. 

zALL REGISTERS ARE RETURNED UNCHANGED. IT SHOULD BE Pat THAT ot 
sCONTAINING SOMETHING OTHER THAN A REGISTER NAME (E.G.*#100 OR MEMADR 
ASSEMBLE TO INSTRUCTIONS THAT SAVE AND RESTORE A REGISTER ON THE STACK. 


«MACRO ERRSF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S 
-NARG ARGS$ 


eRADIX 1 
— FTLSYS .MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$,\ERRN 


«MACRO ERRDF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 
ARG ARGS$ 


-RADIX 10 
a FTLDEV,.MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 


=MACRO ERRHRD MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S 

“NARG ARGS$ 

“RADIX 10 

ERRORS ERHARD ,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S, \ERRN 
END 

=MACRO ERRSFT MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S 


»RADIX 10 
— ERSOFT .MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
28 
29 


NONINONONININIR 2 
~ 


30 
31 
32 
33 
Sa 
35 
36 
37 
38 
39 
40 
44 
42 
43 
44 





sTHE FOLLOWING MACRO ACTUALLY PROCESSES THE ERROR CALL TO THE HOST PROGRAM 


-MACRO i: ETS, MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$S,ERRNS 


ERROR: NOT ” ENOUGH ARGUMENTS IN ERROR CALL 


REGS$==1 

LIF GE,<PRMS-8.>,PARGS. P8$ 
-lIF GE. <PRMS-7. >,PARGS. P7$ 
-IIF GE,<PRMS-6.> *PARGS. P6$ 
IF GE,<PRMS-5.>,PARGS. P5$ 
IF GE,<PRMS-4.> *PARGS. P4$ 
IF GE .<PRMS-3. > *PARGS. P3$ 
IF GE,<PRMS-2.> “PA ARGS. P2$ 
tos GE, A ite > *PARGS. P1$ 


REGS 
Rsts \REGSS 
“RADIX 10 
LIST 


SEQ 0019 


CALL RERROR ERROR # ERRNS*. 


eNLIST 
-RADIX 8 
-LIST 
-WORD ETS+ERRN 
eWORD <PRMS*10000>+mMS$ 


.NLIST 
ERRN=ERRN¢1 
.ENDM 
.MACRO PARGS. ,ADDRS 
.NTYPE PTYPES, ADDRS 
“IF EQ,<PTYPE$&70> 
HE EQ,<PTYPE$&7>-REGSS$,RSTRS \REGSS 


MOV ADDR$,-(SP) 


_gtust 
IF EQ,<PTYPES&7>=1 sPICK A REGISTER TO USE 
_Resus=2 TSELECT Re IF R1 IS USED IN PARAMETER FETCH 
“epegus=t OTHERWISE USE R1 
-IF NE ,<REGUS-REGSS> IF REGISTER NOT ALREADY SAVED 
RSTRE \REGSS ;RESTORE CURRENT SAVED REGISTER 
SAVRS \REGUS ;THEN SAVE SELECTED REGISTER 


GETPS \REGS$,ADDRS 
-ENDC 
-ENDM 
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MACRO DEFINITION 


1 -MACRO_SAVRS$ REGN 
¢ LIST 
& «NLIST 
5 REGSS=REGN 
S -ENDM 
8 «MACRO _RSTRS REGN 
9 LIST 
10 
11 «NLIST 
12 REGS$=-1 
-ENDM 
15 -MACRO_GETP$S REGN,ADDRS 
16 LIST 
17 
18 
19 «NLIST 
20 -ENDM 


SEQ 0020 


MOV R°REGN, SAVREG 


MOV SAVREG,R'REGN 


MOV ADDR$,R*REGN 
MOV R°REGN,=(SP) 


rT 





I 2 
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MACRO DEFINITIONS 


WWIII AIAIAIAIAIRI NI PIP PONONONININ A 2 a So 


ROW 
nNm-—Ooo 


PRIMARY ERROR REPORTING (TEST 4) 


SOFTER NUM,ARGS 
#ERSOF T,NUM,<ARGS> 


REPSFT SFTFLG,ECCFG 
NB, SFTFLG 


NB,ECCFG 


HARDER WNUM,ARGS 
#ERHARD ,NUM, <ARGS> 


DEVFTL NUM,ARGS 
#FTLDEV.NUM,<ARGS> 


SYSFTL_ NUM,ARGS 
#FTLSYS,NUM,<ARGS> 





R5, 
U. SUBU(R5) ,RO 
(R T.01 
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MACRO DEFINITIONS 





-ENDC 
MOV 4#NUM OUT -02 
BIS Ng F OUT.02 
MOV 4, ,OUT -01 
«RADIX 
° DM ' 
«MACRO CERROR STNUM,ARGS 
eRADIX 10 
NUMPTR = STNUM | 
- IRP X, <ARGS> | 
MOVMSG X.\NUMPTR | 
NUMPTR = NUMPTR + 1 
-ENDR | 
eRADIX 
: | 
«MACRO ERRORC ARGS 
eRADIX 10 | 
-IRP X, <ARGS> 
MOVMSG X, \NUMPTR 
NUMPTR NUMPTR + 1 
.ENDR 
RADIX 
~ENDM 


«MACRO MOVMSG ARG, INDX | 
IF LT, INDX-10 


o IFF 
MOV ARG, OUT. * INDX 


MOV — ARG, OUT.0" INDX | 
| 
| 

.MACRO ENDERR POS | 

“IF NB POS | 

NDERR POS 

NDERR \NUMPTR 

NDC 


«MACRO NDERR_ POS 
IF NE ,POS 
BIS #POS ,ERRPOS ; SET THE POSITION 


CLR ERRPOS : CLEAR THE POSITION , 


: MESSAGE REPORTING MACRO 


-MACRO MSSG NUM, ARGS 
eRADIX 10 

NUMPTR = 3 
MOVMSG #MS‘NUM,2 


RWNVASSS VRARAV IO OB NEAR LOO VRP WO ONO UNIO Doo Wa RU oS OOD 


— ss tt SS ss sg ss 





zc 
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MACRO DEFINITIONS 

115 IF NB ,<ARGS> 
116 ° X,<ARGS> 
117 MOVMSG X. \NUMPTR 
118 NUMPTR NUMPTR + 1 
119 -ENDR 
120 . 
121 PUSH 
122 MOV 
123 ADD 
124 ADD 
125 MOV 
126 MOV 
127 CALL 
128 PoP 
129 RADIX 
130 ~ENDM 
131 : 
132 3 
133 eMACRO MSSGE NUM,ARGS 
134 RADIX 10 
135 NUMPTR = 
136 MOVMSG #'NUM,2 
137 IF NB ,<ARGS> 
138 . IRP X,<ARGS> 
139 MOVMSG X,\NUMPTR 
140 NUMPTR = NUMPTR + 1 
141 -ENDR 
4 -ENDC 
14 PUSH 
144 Vv 
145 CALL 
146 POP 
147 RADIX 
148 ~ENDM 


<RO,R1> 
#U.SNUM,R1 


U. SUBUCRS) , R1 
(R1) ,OUT. 01 
me séac, RO 
HOSTR 

<R1 TRO 


<RO,R1> 
#MESSAG,RO 
HOSTRQ 
<R1,R0> 


SEQ 0023 
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MACRO DEFINITIONS | 
sRETURN DRIVE STATUS MACRO WITH ERROR REPORTING 


«MACRO DSTAT,LABS,E1,€2 | 


1 

2 

3 

4 e 
5 eNLIST MEB 
6 eLIST ME 
7 LIST 

8 CALL RDSTAT 3; GET DRIVE STATUS 

9 BIT #10000,R1 3; SEE IF ANY ERRORS 
10 BEQ 3; IF NO ERROR, BRANCH 
11 BIT #4000,R1 ; SEE IF XMIT ERROR | 
12 BEQ 1$ 3; IF SO, BRANCH 

13 ERRHRD €1 3 REPORT 1M 18 STATUS ERROR 
14 LABS :; BRANCH TO DONE 
15 1$: ERRHRD E2 3; REPORT XMIT ERROR 
16 BR LABS ; BRANCH TO DONE 
17 2$: 

18 eNLIST 
19 eNLIST ME 
20 - MEB 
21 LIST 
22 





M2 
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MACRO DEFINITIONS 


Dd 
1 
g 
4 
5 
6 
? 
8 
9 


E 
: XOR THE CONTENTS OF TWO REGISTERS 
‘ .MACRO RXOR _—REG1, REG2 
V REG2,=(SP) ; SAVE REGISTER REG2 
BIC REG1REG2 : CLEAR COORESPONDING 
BIC (SP)+,REG1 + CLEAR COORESPONDING 
BIS REG1,REG2 + OR WHAT'S LEFT 


T 
T 


SEQ 0025 | 


! 


=o 
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MACRO DEFINITIONS 


—SOVOVONOUEWN OC OONOUSwr— 


ROR) et et st ss os 2 es os 


11$: 
12$: 


2 


SDI INTERCHANGE WITH DRIVE WITH ERROR REPORTING 
«MACRO TALKX ERRLAB,E1,E2 


MEB 
«LIS ME 


CALL TALKER 
R3 
it 
ERRHRD €1;SEND COMMAND ERROR 
BR ERRLAB 
ERRHRD E2;RECEIVE COMMAND ERROR 
BR ERRLAB 


; INITIATE SDI INTERCHANGE 
; SEE IF ——— 


; N 
; IF SO, BRANCH 


See. @& 
co 
nm 

nm 
i=) 
4 
s 


N ME 
LIST MEB 


a ee ee ee —— ee 


SEQ 0026 






001364 


WN COVONONWwR— 






NM wees 


oom 


ww WS BE SHE SHE FL PWW 
nw PA) ad ee ed et 


Nm CoO Gn Ou FW W—Oo0OW 


Mrnrvonor 


SSSSSSSSSSSSSSSSSsSsSssssssss 


es ot 2“ = os = SS 2 9 2s SY = SS os SS SS 
S 


BREE REPRESS 





000000 


104206 
000000 


002101 
002102 


000003 


014000 
000400 


001413 
01375 
10000 


001424 
000004 


001424 
001375 
014000 


000000 
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START OF TEST CODE 


-SBTTL 


START OF TEST CODE 





;THE FOLLOWING IS FOR DEBUG PURPOSES ONLY. CAN BE NOP OR BREAKPOINT. 


‘ 


WORD 0 


s INITIALIZE STACK 


- SBTTL 
RDSTAT: 


SRETURN 
STATUS 


MOV 
STATLP: X 


STATOK: 


STATEX: 


MOV wernt: + 
ol -" 


3 FOR DMODT 


;UDAS2 


sSET UP STACK POINTER 
; BRANCH OVER SUPPORT CODE 


RoStal = ° "Ger DRIVE'S REAL TIME DRIVE STATE 


DRIVE STATUS 


RETURNED IN DM REGISTER 1 


PUSH <R3,RO0> 


FC STATUS 
BIC #14000,R1 
BIT #XMTERR,R1 
BEQ STATOK 
“010000, STATOK 
3 a 

BNE TATLP 
“ee STATLP 
#10000, 
STATEX 
200, ST ATEX 
BIT #RCVERR,R1 
BNE STATEX 
“050000, STATEX 
DEC R3 
BNE STATLP 
“050000, STATLP 
Vv #14000, 
POP <RO,R5> 


RETURN 
“00.0 





SAVE R3 AND RO 
MOV R3,-(SP) 
MOV RO,=(SP) 

ALLOW ONLY 3 ERRORS 

GET yh S$ STATUS 

CLEAR aT PASSING BITS 

CHECK XMIT ERROR 

IF NO ERRORS, BRANCH 


: TF these, TRANSMIT ERROR COUNT 


F ERROR COUNT INCOMPLETE, BRANCH 
FLAG AS TRANSMIT ERROR 
BRANCH 
RECIEVER ERRORS 
IF VALID, BRANCH 


DECREMENT ERROR COUNT 
IF ERROR COUNT NON-ZERO, BRANCH 


FLAG AS gavas 10 STATUS ERROR 
RESTORE RO, R 
MOV (SP)+,RU 


MOV (SP)+,R3 
RETURN TO CALLING MODULE 


SEQ 0027 
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HOSTRG = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 









1 sett HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 
: 001430 HOSTRO: 
4 SEND REQUEST BUFFER TO HOST AND WAIT FOR RESPONSE. 
5 [CLEAR ARGUMENT AREA OF OUT BUFFER IN PREPARATION 
6 3FOR NEXT HOSTRQ CALL. 
g INPUTS: 
5 : RO = HOST REQUEST NUMBER 
10 ; OUT BUFFER LOADED WITH DATA 
12 001430 PUSH <RO,R1,R2> 
001430 100467 MOV RO,=(SP) 
001431 100461 mov R1,-(SP) 
001432 100462 V R2,=(SP) 
13 001433 104070 001470 MOV RO,OUT.RQ :STORE REQUEST NUMBER IN'B BUFFER 
14 001435 104207 001470 SNDAGN: MOV #OUT.RQ,RO [SEND BUFFER TO HOST 
15 001437 104201 000043 MOV #BUFSIZ.R1 
16 001441 060016 XFC MRD 
17 001442 115001 :CHECK FOR ERROR 
18 00144 BNE S$ SIF ERROR, TRY AGAIN 
001443 050000 001435 BOS0000 SNDAGN 
19 001445 104207 001533 MOV #IN.RQ,RO :WAIT FOR RESPONSE FROM HOST 
20 001447 104201 000043 mov meuiSii R1 
21 001451 060017 XFC MWR 
22 001452 104207 001471 MOV #0UT.01,RO ZCLEAR ARGUMENT WORDS IN BUFFER 
23 001454 104201 000034 MOV #OUT. ooccuT. 01,R1 
2 001456 114002 CLR R 
§ 001457 10027 CLRBUF: MOV R2,(RO)+ 
26 001460 117401 DEC Ri 
27 001461 CLRBUF 
001461 030000 001457 BO s0000" CLRBUF 
28 001463 POP <R2,R1,R0> 
001463 104262 MOV (SP)+,R2 
001464 104261 MOV (SP)+.R1 
001465 104267 MOV (SP)+.RO 
29 001466 RETURN 
001 “00,0 





SEQ 0028 


Dd 3 
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HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


J STORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 

? OUT BUFFER = DATA TO SEND TO HOST 

5 001470 000000 OUT.RQ: .WORD 0 sHOST REQUEST CODE 
6 001471 OUT.01: .WORD 0 sDATA ARGUMENT 1 
7 001472 000000 OUT.02: .WORD 0 DATA ARGUMENT § 
8 001473 000000 OUT.03: .WORD 0 sDATA ARGUMENT 

9 001474 000000 OUT.04: .WORD 0 sDATA ARGUMENT 4 
10 001475 000000 OUT.05: .WORD 0 sDATA ARGUMENT 5 
11 001476 000000 OUT.06: .WORD 0 sDATA ARGUMENT 6 
12 001477 000000 OUT.07: .WORD 0 sDATA ARGUMENT 7 
13 001500 000000 OUT.08: .WORD 0 sDATA ARGUMENT 8 
14 001501 000000 OUT.09: .WORD 0 zDATA ARGUMENT 9 
15 O01 208 000000 OUT.10: .WORD 0 zDATA ARGUMENT 10 
16 001503 000000 OUT.17: .WORD 0 zDATA ARGUMENT 11 
17 001504 000000 OUT.12: .WORD 0 sDATA ARGUMENT 12 
18 001505 000000 OUT.13: .WORD 0 sDATA ARGUMENT 13 
19 001506 000000 OUT.14: .WORD 0 sDATA ARGUMENT 14 
20 001507 000000 OUT.15: .WORD 0 sDATA ARGUMENT 15 
21 001510 000000 OUT.16: .WORD 0 sDATA ARGUMENT 16 
22 001511 000000 OUT.17: .WORD 3 zDATA ARGUMENT 17 
23 001512 000000 OUT.18: .WORD zDATA ARGUMENT 18 
24 001513 000000 OUT.19: .WORD 0 zDATA ARGUMENT 19 
25 001514 00000U OUT.20: .WORD 0 zDATA ARGUMENT 20 
26 001515 000000 OUT.271: .WORD 0 zDATA ARGUMENT 21 
27 001516 000000 OUT.22: .WORD 0 sDATA ARGUMENT 22 
$8 001517 000000 mn att - WORD 8 sDATA ARGUMENT $2 
9 001520 000000 OUT.24: .WORD zDATA ARGUMENT 24 
30 001521 000000 T.25: .WORD 0 zDATA ARGUMENT 25 
31 Oot 3S8 000000 T. -WORD 0 sDATA ARGUMENT 26 
32 0015235 000000 OUT.27: .WORD 0 sDATA ARGUMENT 27 
33 001524 000000 . -WORD 0 zDATA ARGUMENT 28 
34 001525 000000 OUT. «WORD 0 zDATA ARGUMENT 29 
35 001526 000000 OUT. -WORD 0 zDATA ARGUMENT 30 
36 001527 000000 -31: .WORD 0 zDATA ARGUMENT 31 
37 001530 000000 36 eWORD 0 DATA ARGUMENT $ 
38 001531 000000 T.3 WORD 0 sDATA ARGUMENT 

4 001532 000000 . -WORD 0 zDATA ARGUMENT 34 
$3 3IN BUFFER = DATA RECEIVED FROM HOST 
ri 001533 000000 tN.RQ: WORD HOST REQUEST CODE (ECHO) 
44 001534 000000 IN.01: .WORD zDATA ARGUMENT 1 
45 001535 000000 in.Oe: «WORD sDATA ARGUMENT 

46 O01 336 000000 IN.03: . WORD zDATA ARGUMENT 
47 001537 000000 IN.04: . WORD sDATA ARGUMENT 4 
48 001540 000000 IN.05: . WORD zDATA ARGUMENT 5 
49 001541 000000 iN. 08: - WORD DATA ARGUMENT § 
50 Oot ee8 000000 IN.07: WORD 3DATA ARGUMENT 

51 001543 000000 IN.08: .WORD DATA ARGUMENT 8 
26 001544 000000 IN.09: .WORD zDATA ARGUMENT 

53 001545 000000 IN.10: .WORD sDATA ARGUMENT 10 
54 B21 368 000000 IN.11: WORD zDATA ARGUMENT 11 
55 001547 000000 et # - WORD 3DATA ARGUMENT \¢ 
56 001550 000000 IN.13: WORD zDATA ARGUMENT 1 
57 001551 000000 IN.14: WORD sDATA ARGUMENT 14 





ni ey 
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HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 

58 001552 000000 IN.15: .WORD sDATA ARGUMENT 15 
59 001553 000000 in 18: » WORD sDATA ARGUMENT 16 
60 001554 000000 IN.17: .WORD 0 sDATA ARGUMENT 17 
61 001555 000000 IN.18: .WORD 0 sDATA ARGUMENT 18 
o¢ B01 328 IN.19: .WORD 0 zDATA ARGUMENT 19 
63 001557 000000 IN.20: .WORD 8 sDATA ARGUMENT 20 
64 001560 000000 IN.21: . WORD sDATA ARGUMENT 

65 001561 000000 IN.¢@: «WORD 0 sDATA ARGUMENT 2 
66 OO 306 000000 IN.25: .WORD 0 sDATA ARGUMENT 

67 001565 000000 neg! -WORD 0 sDATA ARGUMENT 24 
68 001564 000000 IN.25: .WORD 8 DATA ARGUMENT 

69 001565 000000 IN.26: .WORD sDATA ARGUMENT 26 
70 901368 000000 IN.27: .WORD 0 zDATA ARGUMENT 2 
71 001567 000000 IN.28: .WORD 0 sDATA ARGUMENT 28 
72 001570 000000 IN.29: .WORD 0 zDATA ARGUMENT 29 
73 001571 000000 IN.30: .WORD 0 zDATA ARGUMENT 30 
74 DELL 000000 IN.31: .WORD 0 sDATA ARGUMENT 31 
75 001573 000000 IN.32: .WORD 0 zDATA ARGUMENT 32 
76 001574 IN.33: .WORD 0 zDATA ARGUMENT 33 
a 001575 000000 at ef DO :DATA ARGUMENT 3 


| 

| 

| 

| 

| 

; | 
z= - = IN.RQ [SIZE OF BUFFER | 
| 

| 

| 

| 

| 

| 


ae 


SEQ 0031 | 
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HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
1 g 
é : TALKER SENDS AND RECEIVES AN SDI INTERCHANGE 
4 : INPUTS: 
5 ; R2 = SDI INTERCONNECT 
é : - TER TO COMMAND TABLE CONTAINING APPROPRIATE COMMANC 
f S ourpuTs seit to/Sbusto SDI LONG AND SHORT TIMEOUTS, RESPECTIVELY 
9 : RO = RETURN OP CODE FROM UNIT 
10 : R3 = ERROR CODE = 0 = NO ERROR, 1 = RECEIVE ERROR, 100001 = SEND ERROR 
12 001576 TALKER: PUSH  <R1,R4> : SAVE REGISTERS 
001576 100461 MOV R1,=(SP) 
001577 100464 MOV R4,=(SP) 
13 001600 104237 MOV (R3)+,RO 3 SET ADR OF SDI COMMAND BUFFER 
14 001601 104231 MOV (R3)+,R1 : SET BUFFER LENGTH 
15 001602 060004 KFC SEND : SEND COMMAND 
16 001603 115001 TST RI : DID UNIT ACCEPT COMMAND 
17 001604 BEQ TALKIA : IF SO, BRANCH 
001604 010000 001612 “010000, TALK1A 
18 001606 104203 100001 MOV #100001,R3 : FLAG AS SEND ERROR 
19 001610 TALK2B + BRANCH TO EXIT 
001610 001652 “00, TALK2B 
20 001612 106203 002102 TALK1A: CMP #LONG,R3 : SEE IF LONG TIMEOUT TO BE USED 
21 001614 BMI 1 ; IF SO, BRANCH 
001614 070000 001622 “070000, 
22 001616 104304 001656 MOV SDISTO,R4 : SET UP SHORT TIMEOUT 
23 001620 BR TALK1B : BRANCH 
001620 001624 “00, TALK1 
24 001622 104304 001657 1$: V SDILTO,R4 : SET UP LONG TIMEOUT 
25 001624 104137 TALK1B: MOV (R3) ,RO : SET DATA BUFFER ADDRESS 
26 001625 104631 090001 MOV 1(R35,R1 : SET BUFFER LENGTH 
27 001627 060005 KFC RCV : SEND RECEIVE SDI COMMAND 
28 001630 115001 TST R1 : DID ERROR OCCUR 
29 001631 BEQ TALK2A : IF NOT, BRANCH 
001631 010000 001651 “010000, TALK2A 
30 001633 106201 1 CMP #1,R1 : SEE IF TIMEOUT 
31 001635 BEQ 1$ : IF SO, BRANCH 
001635 910000 001642 *010000,1$ 
32 001637 10401 MOV R1,R3 : MOVE ERROR TYPE TO R3 FOR REPORTING 
33 001640 BR TALK2B : EXIT 
001640 000000 001652 “00, TALK2B 
3% 001642 117404 1$: C R4 : DECREMENT TIMEOUT VALUE 
5 00164 E TALK1B : IF NOT TIMEOUT, BRANCH 
001643 050000 001624 “050000, TALK1B 
36 001645 104203 V #1,R3 : FLAG AS RECIEVE ERROR 
37 001647 BR TALK2B + BRANCH TO EXIT 
001647 001652 “00, TALK2B 
38 001651 11400 TALK2A: CLR 3 : FLAG AS NO ERRORS 
39 00165 TALK2B: POP <R4,R1> : RESTORE R4, R1 
001652 104264 MOV (SP)+,R4 
001653 104261 MOV (SP)+.R1 
40 001654 RETURN 
= 001654 000000 900000 00,0 
4¢ 001656 000012 SDISTO: .WORD 10. : SDI SHORT TIMEOUT 
43 001657 000024 SDILTO: .WORD 20 : SDI LONG TIMEOUT 
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HOSTRQ = HOST REQUEST 


SEQ 0032 — 
= REPORT ERRORS, MEGABYTES TRANSFERRED, 


sMREAD 

? ZREAD ONE WORD FROM UNIBUS MEMORY 

5 ; 7 ° = ADDRESS OF WORD TO ate (LOW 16 BITS) 

6 (HIGH 2 BITS) 

? OUTPUTS: 

: ; RO = DATA READ 

10 001660 MREAD: PUSH <R2,R3> sSAVE SOME REGISTERS 
001660 100462 a R2,~(SP) 
001661 100463 ay” ——" 

11 001662 104057 MOV R5S,RO PUT UNIBUS ADDRESS IN RO AND 

12 001663 104041 MOV R4,R1 

13 001664 104202 000001 MOV #1,R2 Spey A ONE WORD 

14 001666 104203 001720 MOV #UDATA,R3 sLOCATION TO PUT DATA 

15 001670 060013 XFC UREA :D0_THE A 

16 001671 104307 001720 MOV UDATA,RO 3GET DATA READ 

17 001673 POP <R3,Re> RESTORE *OTHER REGISTERS 
001673 104263 MOV (SP)+,R3 
001674 104262 MOV (SP)+,R2 

18 001675 RETURN 
001675 000000 000000 “00.0 


_ 
SO OONOUESWN— 


ed ed od ed wd wd ed 
NOU wt— 
ssesssssssss 
SLELELLEELLGD 
SAP aNSSSRSSS 


oo 
38 
FS 


Nm 
—OO 
S 
—a 
~ 
~ 
So 


vin 


rr 
oo 
FwWwn-nNo 


oy 
RRR 
Mrorn 
AAW 
Nw 


001720 


000001 
001720 


000000 
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HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


sMURITE 
EWRITE 0 ONE WORD TO UNIBUS MEMORY 


"RS = ~ ADDRESS OF WORD TO ri (LOW 16 BITS) 
R4 HIGH 2 BITS 


RO = = DATA TO WRITE 


SouTPU TS: 


MWRITE: PUSH <RO,R2,R3> 


UDATA: 


MOV RO ee 


POP <R3,R2,R0> 


RETURN 
*00.0 


~WORD 0 


sSAVE SOME REGISTERS 


MOV RO,-(SP) 

MOV R2,-(SP) 

MOV _R3,=(SP) 

zPUT DATA TO BE WRITTEN INTO BUFFER 
PUT UNIBUS ADDRESS IN RO AND R 


; TRANSFER ONE WORD 


OD THE ust OF we WORD 

RESTORE THE REGISTERS 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,RO 


DATA BUFFER FOR TRANSFERS TO AND FROM 
UNIBUS MEMORY 


SEQ 0033 


aa] od 





HOSTRQ = HOST REQUEST - 


~ 
WN Oo 
MW RVUWww 


oa 


NO VUSWN—] COOONOUSWN— 


sssssssssss 


UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 25 


REPORT ERRORS, MEGABYTES TRANSFERRED, 


7XOR 
; PERFORM XOR LOGIC FUNCTION ON TWO REGISTERS 
: "R1, R2 = DATA TO BE KOR'ED 

SOUTPUTS: 

: R1 = UNCHANGED 

: R2 = XOR OF TWO INPUTS 


XOR: PUSH R3 


SAVE R3 


MOV R3,-(SP) 


POP R3 sRESTORE R3 
TST R2 SET CONDITION CODES 


MOV (SP)+,R3 


SEQ 0034 , 


par ee ee er er 
~“ 
rm ~“ 
o 


107201 
030000 
000000 


000001 
000001 


001734 


000011 
001743 
000000 


2$: 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 26 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


su are THE TIMEOUT IN 9SEC INTERVALS (SDI RECEIVE XFC TAKES 


MOV #1,R1 
ROL R1 
BIC #1,R1 
DEC RO 
BNE 1$ 
*050000,1$ 
CLR RO 
INC RO 
SUB #9.,R1 
BPL 
“030000,2$ 
RETURN 


; SET UP hose SHIFTER 
; DOUBLE T E Lov eit VALUE 


F COUNT INCOMPLETE, BRANCH 
CLEAR 9SEC eo rH 
INCREMENT 9 SEC COUNT 
SUBTRACT 9 SEC FROM TIMEOUT 
IF MORE TIME TO GO, BRANCH 


RETURN TO CALLING PROGRAM 





a 
UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 27 SEQ 0036 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
| ;RERROR 
3 ? REPORT ERROR TO HOST PROGRA 
4 1H HIS ROUTINE IS CALLED BY ie ERROR MACROS: 
5 RRSF, ERRDF, ERRHRD AND ERRSFT 
6 00175 OR: 
7 00175 PUSH RO :SAVE ONE REGISTER 
00175¢ 100467 MOV F:0,-(SP) 
8 001753 104067 MOV SP,RO :GET STACK POINTER 
9 001754 PUSH <R1,R2,R3,R4> SSAVE MORE REGISTERS 
001754 100461 MOV R1,=(SP) 
001755 100462 MOV R2.=(SP) 
001756 100463 MOV R3,=(SP) 
001757 100464 MOV R4.=(SP) 
10 001760 115407 INC RO sCHANGE SAVED STACK POINTER TO POINT TO 
11 : ADDRESS OF LOCATION AFTER CALL 
12 001761 104271 MOV (RO)+ 'GET RETURN PC 
13 001762 104202 001471 MOV #OUT. on R2 3GET ADDRESS OF WHERE TO PuT DATA 
14 001764 117401 DEC R1 REDUCE TO PC OF ERROR CAL 
15 001765 100221 MOV R1,(R2)+ <PUT PC IN OUT BUFFER 
16 001766 115401 INC R1 :GET BACK TO RETURN PC 
17 001767 104213 MOV (R1)+,R3 [GET CRROR NUMBER AND TYPE 
18 001770 100223 MOV R3, (R2)+ :PUT IN BUFFER 
19 001771 104303 002037 MOV LUNIT,R3 [PUT UNIT NUMBER IN BUFFER 
20 001773 100223 MOV R3 (Re) 
21 001774 104113 MOV (Ri) :GET MESSAGE POINTER 
22 001775 103203 170000 BIC §20068777, R3 [CLEAR OTHER BIT 
23 001777 oozes MOV R3, (R2)+ :PUT IN OUT FER 
24 002000 104214 MOV Rie Re GET COUNT OF PARAMETERS 
25 1 1S NOW POINTING TO INSTRUCTION AFTER ERROR CALL 
26 002001 110704 SWAB R4 
27 002002 110604 ROR R4 sEXTRACT NUMBER OF PARAMETERS FROM ERROR MACRO 
28 002003 110604 ROR R4 
29 002004 110604 ROR R4 
30 002005 110604 ROR R4 
002006 103204 177760 BIC #177760,R4 
32 002010 104040 002034 MOV Ra SPADJU+1 ZSAVE FOR LATER ADJUSTMENT OF STACK POINTER 
33 002012 BEQ RERRCA ‘BRANCH IF NO PARAMETERS 
002012 010000 002021 °010000 RERRCA 
34 002014 104273 RERRPA: MOV (ROS+,R :GET PARAMETER 
35 002 1002 MOV Ra Oraae > STORE PARAMETER IN OUT BUFFER 
36 00 117404 DEC Ra THE PARAMETERS 


RERRCA: 


SPADJU: 


es0cOG. RERRPA 
MOV R1,-(RO) 

MOV #ERRMES RO 

CALL HOSTRQ 
“020000,HOSTRO 

POP <R4.R3,R2,R1,R0> 


ADD #0,SP 
RETURN 


COUNT 
7GET NEXT IF MORE 


PUT RETURN ADDRESS ON STACK 
zSEND ERROR PACKET TO HOST PROGRAM 


sRESTORE REGISTERS 
MOV (SP)+,R4 


V (SP)+¢, “RO 
sADJUST STACK OVER PARAMETERS 
VALUE CHANGED ABOVE 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 27-1 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


002035 000000 000000 “00,0 
+8 002037 177777 LUNIT: .WORD =1 
48 002040 000000 SAVREG: .WORD 0 


SEQ 0037 | ul 


LOGICAL UNIT NUMBER (-1 FOR NOT AVAILABLE) 
sSTORAGE FOR REGISTER AT CALL TIME 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 28 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


} sSTACK AREA 

3 002041 123456 eWORD 123456 
4 002042 -BLKW 31, 

5 002101 123456 STACK: .WORD 123456 


ZEND MARKER FOR STACK 
[MARKER FOR STACK UNDERFLOW 


ee ee a me ee oe ee tO ee 


SEQ 0038 


UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 29 
FREE MEMORY CHECK 





:START ERROR NUMBERS FROM 1000. 


zASK HOST WHERE FREE MEMORY IS AND TO FILL IT WITH AN ADDRESS PATTERN 


} .SBTTL FREE MEMORY CHECK 
; 001750 ERRN=1000. 
- 
é 
7 002102 LONG: 
8 002102 104207 060000 START: MOV #T1MSIZ,RO 
9 002104 CALL HOSTRO 
002104 020000 001430 “020000,HOSTRQ 
10 002106 104207 001534 MOV #IN.01,RO 
11 002110 104201 003252 MOV #EWADR RI 
12 002112 104202 000010 MOV #8. 
13 002114 104273 FMEMFL: MOV {Roses R3 
14 002315 100213 MOV R3,(R1)+ 
15 002116 117402 DEC Re 
16 002117 
va 002117 050000 002114 2080000. FMEMFL 
18 ;READ ALL OF SPECIFIED MEMORY AND CHECK 
20 002121 104305 003252 MOV FWADR,RS 
21 002123 104304 003253 MOV FWADRH,R4 
22 002125 ACHK1: CALL MREAD 
002125 020000 001660 “020000, MRE AD 
23 002127 115001 
24 002130 BEG HK2 
002130 010000 002157 2510000. ACHK> 
25 002122 117401 DEC R1 
26 002133 $ 
002133 050000 002145 “050000,1$ 
27 002135 ERRHRD MS1000,R5,R4 
002135 100464 
002136 100465 
002137 020000 001752 “020000, RERROR 
002141 101750 
002142 020000 
28 002143 ACHK3 
002143 000000 002172 “00,ACHK 
29 002145 1$: ERRHRD MS1001,R5,R4,R5,RO 
002145 100467 
002146 100465 
002147 100464 
002150 100465 
002151 020000 001752 “020000,RERROR 
002153 101751 
002154 040063 
30 002155 BR ACHK3 
cs 002155 000000 002172 “00, ACHK3 
32 ZCOMPARE DATA READ WITH EXPECTED 
34 002157 106075 ACHK2: CMP RO,RS 
35 002160 B 
002160 010000 002172 “01 
36 002162 
002162 100467 


i ae ee 


Hn a LABEL THAT MUST BE DEFINED 
sGET REQUEST NUMBER 
ASK HOST 


3 TRANSFER DATA FROM HOST 
: TO STORAGE 


FOR DATA SAME AS ADDRESS 
GET STARTING ADDRESS 
READ FROM UNIBUS MEMORY 
WAS IT OK? 
:I1F SO, CONTINUE 
zIF_R1 = 1, NON EXITENT MEMORY 
: IF NOT, CONTINUE 
MOV R4,-(SP) 
MOV R5,-(SP) 
-WORD ERHARD+ERRN 
«WORD <PRMS*10000>+MS1000 
3 CONTINUE 
MOV RO,=(SP) 


MOV R4,=-(SP) 
MOV R5,=(SP) 


«WORD ERHARD+ERRN 
«WORD <PRMS*10000>+MS1001 
: CONTINUE 


COMPARE DATA READ WITH ADDRESS 
;BRANCH IF A MATCH 


K 
0000, ACHK3 
ERRHRD MS1002,R5,R4,R5,RO ;UNIBUS ADDRESSING a per > DATA READ 


SEQ 0039 


zs 


a eRe 





8 | 
UDAT? UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 29-1 SEQ 0040 | 
FREE MEMORY CHECK 
002163 100465 V RS,<(SP) | 
002164 100464 nov RG, rCSP) 
002165 100465 MOV R5.=(SP) | 
605188 ated _— sree ese WORD ERHARD+ERRN 
J + 
; 002171 040170 “WORD <PRMS*10000>+MS1002 
38 INCREMENT TO NEXT LOCATION UNTIL ALL TESTED 
40 002172 106305 003254 ACHK3: CMP LWADR,RS SCHECK IF AT LAST ADDRESS 
41 002174 NE HK 
002174 050000 002202 “050000, ACHK4 
tg $0520 stats emia geO Pat abe — GO TO NEXT TEST IF SO 
002200 010000 002211 *010000,8CHK : 
44 002202 105205 000002 ACHK4 : ADD #25 s INCREMENT TEST ADDRESS 
2206 040000 002125 “040000, ACN 
“i$ $ toeeee seenes tnt ACN ACHK1 STOOP IF STILL ON SPECIFIED MEMORY 
000000 002125 “00,ACHK1 4 






yer UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 30 
FREE MEMORY CHECK 


1 ;CHECK EACH ADDRESS LINE BY LOOKING AT TWO LOCATIONS WITH ONLY T 
; SADDRESS LINE DIFFERENT AND VERIFYING TWO LOCATIONS ARE ACTUALLY MACCESSED 
4 902211 104307 003253 BCHK: MOV FWADRH,RO ;LOAD TEST ADDRESS HIGH BITS 
5 002213 104070 00326 MOV RO, TADRH 
6 002 15 104203 000002 MOV #2.R3 :GET STARTING ADDRESS BIT TO TEST 
002217 10403 BCHK1: MOV R3,R2 [GET ADDRESS BIT TO TES 
8 d02¢8 104301 003252 MOV FWADR,R1 :GET FIRST ADDRESS OF FREE MEMORY 
9 0022 cALL XOR SCHANGE JUST THE ONE BIT IN ADDRESS 
002222 020000 001721 “020000, XOR 
10 002224 104020 003262 MOV R2,TADR :STORE TEST ADDRESS 
11 002226 CALL BCHKM STEST THE MEMORY ADDRESS 
002226 020000 003101 “020000 BCHKM 
12 002230 105033 ADD R3,R :GET NEW ADDRESS BIT TO TEST 
13 002231 BNE BCHK1 SLOOP IF STILL AN ADDRESS BIT TO TEST 
a 002231 050000 002217 “050000, 8CHK1 
15 002233 104307 003252 MOV FWADR,RO :NOW MOVE TO HIGH TWO BITS 
16 002235 104070 003262 MOV RO, TADR :COPY LOW BITS TO TEST ADDRESS 
17 002237 104203 000001 MOV #1.R3 TSTART BIT 
18 002241 104032 BCHK2: MOV R3.R2 :GET TEST BIT 
19 002242 104301 003253 MOV FWADRH,R1 [GET FIRST ADDRESS 
20 002244 CALL XOR SCHANGE ONLY THE ONE BIT 
002244 02 001721 “020000. xOR 
21 002246 104020 003263 mov Re, TADRH :STORE AS TEST ADDRESS 
22 002250 STEST THE MEMORY ADDRESS 
002250 02 003101 056000" BCHKM 
35 90285 10503 ADD R3,R3 :CHANGE TEST BIT 
4 002253 102203 000004 81 iv #4. “R3 [CHECK IF PAST TWO ADDRESS BITS 
25 002255 HK2 SREPEAT FOR OTHER BIT 
00 002241 8570000 BCHK2 





SEQ 0041 





ner UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 31 
FREE MEMORY CHECK 


SEQ 0042 
: TRANSFER LARGE BUFFERS OF DATA TO AND FROM THE HOST MEMORY. 


THE HOST MEMORY WILL BE DIVIDED INTO SEVERAL BUFFERS. ALL BUFFERS WILL 
i WRITTEN WITH PATTERN 0 THEN READ AND THE DATA COMPA E 


‘ara parTems: (EACH_IS A REPETITION OF THREE WORDS) 





4 
5 
. 
? 
ag 
10 
11 : 1 = 177400 2 = 155555 3- 000377 
12 : 044444 007760 133333 170017 
13 3: 022222 000377 066666 177400 
3 :BREAK THE HOST MEMORY INTO BUFFERS 
17 002257 104202 037777 CCHK: MOV #HIMEM,R2 ZCOMPUTE SIZE OF DATA 
18 002261 107202 003314 sue #FREE ,R2 : BUFFER IN M MEMORY 
19 002263 105022 R2,R2 SCHANGE TO BYTE COUNT 
20 j tee FIND. OUT IF WRITABLE HOST SPACE IS LESS THAN AVAILABLE DM SPACE 
21 002264 104304 003254 MOV zR4 = LAST WRITABLE HOST BUFFER WORD LOCATION 
22 002266 104303 003255 MOV LWADRH,R3 :R3 = EXTENDED ADDRESS bits OF SAME 
23 002270 107304 003252 SUB FWADR,R4 [R4 = WRITABLE BUFFER SIZE 
24 002272 BCC 1$ TIF DIDN'T CROSS PAGE BOUNDARY, CONTINUE 
002272 040000 002275 *040000,1$ 
25 002274 117403 DEC sELSE, DECREMENT EXTENDED ADDRESS BITS BY 1 
26 002275 107303 003253 1$: SUB FUADRH, R3 :R3 EXTENDED ADDRESS OF WRITABLE BUFFER SIZE 
27 002277 105203 000000 ADD R RY 
28 z tee DIVIDE URI TABLE REGION SIZE BY waft 
33 002301 110603 ROR ZROTATE EXTENDED ADDRESS BITS INTO CARRY 
002302 110604 ROR 4 SROTATE EXTENDED ADDRESS IN & GET AREA/2 
31 002303 102204 000001 BIT #B1TO0,R4 [MAKE HE BYTE COUNT IS EVEN 
32 002305 E SIF IT IS, CONTINUE 
002305 010000 002310 “010000,2$ 
33 002307 117404 DEC RG zELSE, FORCE BYTE COUNT TO BE EVEN 
34 002310 115003 2$: TST R3 t1S R$ = 0? 
35 002311 BNE 3$ TIF NOT, WRITABLE AREA >>> AVAILABLE DM BUFFER SPACE | 
002311 050000 002317 2030000. 3$ 
002313 106042 R4,R2 zI1S WRITABLE AREA < AVAILABLE DM BUFFER SPACE 
37 002314 gee 3$ :1F NOT, CONTINUE 
002314 040000 002317 304 40000, 3$ 
38 002316 104042 R4,R2 sELSE. _DM, SPACE > HOST WRITABLE SPACE 
40 002317 104205 003314 3$: MOV #FREE,RS [GET ADDRESS OF FIRST TABLE ENTRY 
41 002321 104304 00325 MOV FWADR.R4 3GET ADDRESS OF FIRST 
42 002323 104303 00325 MOV FWADRH,R3 BUFFER IN HOST 
43 002325 114001 CLR R1 tINIT C COUNT OF BUFFERS 
44 0023 6 100254 4$: MOV R4,(RS)+ ; STORE HOST BUFFER ADDRESS 
45 00232 100253 MOV R3,(R5)+ N TABE ENTRY 
46 002330 107202 000004 SUB #4.R2 ?REDUCE BUFFER SIZE BY TABLE ENTRY 
47 00235¢ 105024 ADD R2,R4 - ; INCREADE HOST ADDRESS TO 
48 00233 C5 NEXT BUFFER 
002333 940000 002336 7040000, 58 
49 002335 11540 CR 
50 002336 106303 003255 5$: CMP LUADRH.R3 sCHECK IF BUFFER LARGER 
51 002340 : THEN HOST MEMORY REMAINING 
002340 070000 002355 *070000,7$ 





oa UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 31-1 
FREE MEMORY CHECK 


52 00234 


050000 
106304 


040000 
000000 
115401 
000000 


002352 
003254 


002352 
002355 


002326 


003267 
000000 


003270 
003264 


6$: 


7$: 


E 6$ 
8550000 6$ 
CMP LUADR, R4 


BCC § 
“040000.6$ 
BR 7$ 


MOV RS,DATBUF 
ADD #0,R0 


ROR R2 
MOV R2,SIZBUF 
MOV R1,BUF CNT 


SEQ 0043 


COUNT THE TABLE ENTRY 
:GO BACK AND DO AGAIN 


Hate wie ty OF DATA BUFFER 
; SAVE ones OF DATA BUFFER 


‘SAVE COUNT OF BUFFERS 


——_ 






roy aaa DMACR X04.01 23-AUG-82 13:10:39 PAGE 32 


2410 


Oe eee et 

SOON OUMEw 

ss gasses 
RRR 


Nm Nm 
ae 





003266 
003265 


002445 
003265 


003264 
002371 
002525 
003266 
000004 
002437 
003266 
003265 
002445 


002525 
003265 


003264 
002420 
002406 


sWRITE ALL BUFFERS TO PATTERN 0 


9$: 


10$: 


CLR RO 

MOV RO,CURPAT 
MOV RO, CURBUF 
ALL TE 


INC R 

CMP BUFCNT,RO 
BNE 8$ 
“050000,8$ 
CALL READ 
“020000 .,READ 
MOV CURPAT,RO 
INC RO 

a of. #4, at» 
=010000, DONECD 
MOV RO,CURPAT 


CLR R 
MOV RO, CURBUF 


CMP BUFCNT,RO 
BNE 

“050000, 10$ 
BR 9$ 

“00.98 


LOAD PATTERN 0 
SAVE ag 


Vv 
{SELECT BUFFER 0 
;WRITE THE BUFFER 


zs INCREMENT TO NEXT BUFFER 


s WRITE ast IF 
; NOT ATL 


READ ALL HOST BUFFERS 


z INCREMENT PATTERN NUMBER 


sEXIT SUBTEST IF NO 
: NO PATTERNS REMAINING 


POINT TO BUFFER 0 

WRITE A BUFFER 

READ ALL HOST BUFFERS 

z INCREMENT TO NEXT BUFFER 


CHECK _IF AT LAST 
: WRITE NEXT BUFFER 


: WRITE NEXT PATTERN 


SEQ 0044 | 





tan” 


OSoSCEEVEVOECEVlGCcElrEloeoeseSe se serArAAAAvrAvAvAAvrAerereereMP MP Maw HMM HM MMM MM MM MMH we & > > > = 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 33 
FREE MEMORY CHECK 


1 002437 104207 060016 
ooeel 020000 001430 
002443 000000 002437 


DONECD: MOV #DONE ,RO 
LL_HOSTRQ 
“020000, HOSTRO 
BR DONECD 
“00,DONECD 


sEND OF PROGRAM, TELL PDP-11 


sKEEP SENDING IF RETURNED 


SEQ 0045 





MAMMMNMMNMMNMNMNAMNMNMNMNMNMNMNMNMNMNMDBDBDDBBDBBBwDBDwD we 


oct mie 
















FREE MEMORY CH 


e338 


SARRNOKARS 


of 
seses 
BN 


2523 


S RRRPPALASE 
~“ 


Rw 
on 
—w 


> «= 
So 


— 
xe 
ex 


eek ek ed eb mot ed et et SS 
SESSeeaoeecse 
Ssosacuas 
FWNNNOO—] =] NUM 


& 
Saws 
=—Ooow 





003266 
003062 


003267 
003270 


002477 
002477 
002463 


003265 
003314 


177774 
303 


4 


UDAT1_UNIBUS — DMACR X04.01 23-AUG-82 13:10:39 PAGE 34 


sFILL A te BUFFER BEGINNING AT ADDRESS IN DATBUF AND WHOSE SIZE 
21S IN SIZBUF WITH A DATA PATTERN SPECIFIED BY CONTENTS OF CURPAT. 
:WRITE tune BUFFER TO HOST STARTING AT ADDRESS IN TWO WORDS POI 


T 

HOST ADDRESS 
sFILL BUFFER WITH DATA PATTERN 
WRITE: MOV — 


MOV SIZBUF.R1 
1$: MOV RS, (RO)+ 

DEC R 

BEQ eS 

“010000, 2$ 

MOV R4, (RO)+ 

DEC R1 

BEQ 2$ 

“010000, 2$ 

MOV ate (RO)+ 

DEC R Ri 

2050000,1$ 
ZWRITE THE BUFFER TO HOST MEMORY 
2s: MOV CURBUF ,RS 

ADD R5.R5 

ADD #FREE,RS 

MOV (R5)+ + RO 

MOV (R5) 

BIC 77h ra RI 

MO 


RO, LBUF WL 
MOV 3 oe 


NTED 
RBUF. THEN PLACE THE PATTERN NUMBER IN THE SECOND WORD OF THE 


GET PATTERN NUMBER 
: TIMES FOUR 
sSAVE FOR ADDING TO TABLE ENTRY 


ADD START OF PATTERN TABLES 
ZGET PATTERN WORDS 


2GET ADDRESS OF BUFFER 
2GET SIZE OF BUFFER 
LOAD_ONE WORD 

COUNT THE WORDS 


LOAD_ONE WORD 
:COUNT THE WORDS 


sLOAD ONE WORD 
COUNT THE WORDS 


GET POINTER TO HOST ADDRESS 
: COUNT TIMES TWO 

:__PLUS START ADDRESS 

; OW SS BI 


3 ATTER 
;SAVE LAST BUFFER WRITTEN 
SET IN NEW PATTERN 


6 WOR 
GET _DM AD 
WRITE TO THE HOST MEMORY 


SEQ 0046 





OVEVOSCCSCSCSCSCSSCSCSC SS ALAAMAAAAAMAAAeOArfAOGPAAOGA AAA MUAMAMAAMAAHs.~B.PPPP -M— 


ew 


a) td a ss ts 
Wwe* 


MMIVMIMICIMIUIV 


MrMroronreronnr 
& 
w 


Ssssssssss 
& 


mn 
wu 
UME 
Si a | 


wn SSSR NOR OCONOUMAWR— 
Nm 
wi 


mn fw 


™ 
& 
S 
Nm 
wi 
S 


ed ced ceed eed eed eed od 
SERARERR 
Sa25SaNsS 


esese 
seer 


Oo 2 a aw 
RSRSER S S 
shenkenes : ee 


Sse 
38 


OO 2 et 
wv 
ms 


1 
1 


33 
eS, 





003314 
003264 


003267 
003270 


177774 
003262 
003265 


002620 
002577 
002040 
003270 
003263 


003262 


002040 
001752 


002620 
002040 
003270 
003263 


003262 


002040 
001752 


yar" UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 35 
FREE MEMORY CHECK 


sREAD AND PERFORM A DATA COMPARE ON ALL THE HOST BUFFERS. TWO WORD 


; TABLE ENTRIES beth, AT FREE C 
BUFFERS AND THE PATTE 


IZE OF THE BUFFERS IS IN 


UMBER OF BUF E 
sSIZBUF. THE DATA CAN BE READ INTO THE DM AT ADDRESS IN DATBUF. 


READ: MOV #FREE,RS 
MOV BUFCNT,R4 


GET ADDRESS OF ey ENTRIES 
GET COUNT OF BUFFERS 


sREAD DATA FROM HOST BUFFER INTO DM MEMORY 


1$: MOV DATBUF ,R3 
MOV SIZBUF ,R2 
MOV at + RO 


MOV (R5) 
BIC nr, R1 
MOV 


MOV R1, * TADRH 


XFC UREAD 
TST R1 
BEQ 3$ 
*010000,3$ 
DEC R1 


*050000,2$ 
ERRHRD MS1003,TADR, TADRH,S1ZBUF 


“020000 ,RERROR 


3$ 
“00,38 
2s: ERRHRD MS1004,TADR, TADRH, S1ZBUF 


“020000 .RERROR 


3; *** SET UP OUT BUFFER IN CASE OF ERROR 
3$: PUSH <R5,R4> 





;R3 = ADDRESS OF DATA BUFFER IN DM MEMORY 
SIZE OF BU 
:GET BUFFER ADDRESS 


:PLEAR PATTERN NUMBER 
SAVE ADDRESS IN CASE OF ERROR 


READ THE WOPD 

WAS IT READ PROPERLY? 

:1F SO, GO ON TO DO MORE 
WAS IT AN NXM ERRO 

zIF NOT, REPORT PARITY ERROR 


MOV R1,SAVREG 


MO 
MOV SAVREG, RI 


WORD ERHARD+ERRN 
eWORD <PRMS*10000>+MS1003 


sEXIT 


MOV R1,SAVREG 
BUF ,R 


MOV R1,-(SP) 
MOV TADR,R1 
MOV R1,-(S 


V R1,-(SP) 
MOV SAVREG,R1 
WORD ERHARD+ERRN 
-WORD <PRMS*10000>+MS 1004 


MOV R5,-(SP) 
MOV R4,=(SP) 





MMMmMMMMMMMMMMmMmmmnmoe OooevV°ev°cVv°cCcCcrosOo oc 


ORV WWW HNN HH HHH HMMMM 


31 992 
i Bs ae 


104207 


S2e=39 
Nests 


rors & fr 


: = 


_ 
w 
Pe ee | 


ee a eh a ee at as st td 
Suror 


~~ 
p i em 


=ee «FR FSF 
Ss 


MMMM —WwS 
S 


oouw 
MINN 


RARER 
SSaR 


ee at eh a et st ts ae 
=-—oo 
s 


~Nrw 
my 


003314 
003264 
000004 


002634 
000004 


001475 
003270 


003305 


177774 


177774 
177763 
003062 
003276 
000003 


002753 


003276 
000003 


002753 


003301 


003277 


003263 


003300 


003276 








UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 35-1 
FREE MEMORY CHECK 


MOV #FREE,RS 


MOV BUF CNT, R4 
CHP #G.RG 


4$ 
“540000, 4$ 


SEQ 0048 


:GET ADDRESS OF TABLE ENTRIES 

: COUNT OF BUFFERS 

SIF NOT, SKIP NEXT INSTRUCTION 
F SO, FORCE R4 = 4 


IN OUTPUT BUFFER JUST IN cast! OF ERROR 
#OUT RO 3R 


RO => OUTPUT BUFFER 

+f BUFFER SIZE 

‘GIVE. START OF ALL BUFFERS 
sRESTORE Ré 


; eee STORE 

is: MOV < 
MOV SIZBUF ,R 
MOV R1,¢ ose 
DEC 
MOV BTABLE(R4),R1 
MOV R1,(RO)+ 
INC 

5$: MOV (R5)+,R1 
MOV R1,(RO)+ 
MOV (R5)+,R1 
BIC #177774,R1 
MOV R1, (RO)+ 
DEC 4 
BNE 38 
“050000,5 
MOV 20, OUTPTR 
ADD #6, OUTPTR 
MOV ourPre 
POP pe Fi 


7STORE BUFFER LO ADDRESS 


STORE BUFFER HI ADDRESS 


sDECREMENT (# OF BUFFERS) 
z1F NOT DONE, CONTINUE 


OUT POINTER aaah earn ti PAST ry Ak oy LOCATIONS 


SOUTPRT => P 


A OF FIXED 
sSAVE PREVIOUS POINTER 


:COMPARE DATA READ WITH DATA PATTERN 
MOV SIZBUF , TEMP1 
BUF ,R3 


6$: 
7$: 


MOV DAT 
DEC R 

MOV 

MOV 

MOV (R5)+ 

BIC pierre R2 
ADD #PAT 

CLR ERRN 

MOV #3, TEMP2 
MOV (R$) 

MOV (R2)+,R1 
CMP RO, 

BE 8$ 


Q 
“010000,8$ 


3 *** ERROR HERE 
INC ERRNUM 
CMP 





#3,,ERRNUM 


BMI 
$0700, 8$ 
PUSH 





*<RO, R1> 


5 
(R5)+, TADR 
BIC Hirtre, TADRH 





MOV (SP)+,R4 
MOV (SP)+,R5 


sTEMP1 IS ot nye COUNTER 
3R3 A BUFF 


U 
3R5_=> BACK 10 LO BUFFER ADDRESS 
3GET BUFFER ADDRESS 


MASK _ + + ONLY 


CLEAR ERROR COUNT 

sTEMP2 = pie A ANY PATTERN 
DATA RECEIVE 

DATA EXPECTED 

;COMPARE THE TwO 


zIF EQUAL, NO ERROR 


Se THE ERROR COUNT 
MORE THAN 3 ERROR REPORTS? 
:1F SO, DO NOT ADD ANY MORE TO THE ERROR REPORT 


MOV RO,-(SP) 
MOV R1,=(SP) 


H 
I! 
I 











Kk 4 
UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 35-2 SEQ 0049 T 
FREE MEMORY CHECK | C 
80 002735 104307 003301 MOV OUTPTR,RO zRO => WHERE IN THE OUTPUT BUFFER | 1 
81 : TO PUT ERROR INFO | I 
82 002737 104301 003262 MOV TADR,R1 I 
83 002741 100271 MOV R1, (RO)+ sSTORE ERROR ADDRESS I 
84 002742 104301 003263 MOV TADRH,R1 | I 
85 002744 100271 MOV R1, (RO)+ : I| 
86 002745 104261 MOV (SP)+,R1 *STORE DATA EXPECTED I 
87 002746 100871 MoV = R71, (RO) + | L 
88 002747 104261 MOV (SP)+,R1 rSTORE DATA RECEIVED LI 
89 002750 100271 MOV R1,(RO)+ LU 
002751 104070 003301 MOV RO,OUTPTR ySTORE NEW OUTPUT POINTER | Lu 
92 y *** RESUME NORMAL PROCESSING Lu 
94 002753 105200 000002 003262 8$: ADD #2,TADR Z INCREMENT LO ADDRESS Ll 
95 002756 BNE 9$ ‘IF DID NOT CROSS EXTENDED BOUNDARY, SKIP L 
002756 050000 002762 "050000, 9$ LI 
96 002760 115400 003263 INC TADRH sELSE, INCREMENT EXTENDED ADDRESS LI 
97 002762 117400 003277 9$: DEC TEMP1 ; GONE OVER THE ont RE BUFFER? LI 
98 002764 BEQ 10$ TIF $O, EXIT | LI 
002764 010000 002776 2570000, 108 Ul 
99 002766 117400 003300 DEC TEMP2 ZAT ERD OF PATTERN? | LI 
100 002770 BNE 7$ SIF NOT, LOOP BACK LI 
002770 050000 00271 “050000,7$ LI 
101 002772 107202 $08008 SUB #3,R2 :R2 => START OF PATTERN | L! 
102 002774 BR 63 [LOOP BACK TO RESET TEMP2 M 
ui 002774 000000 002714 *00,6$ m 
104 ; *e® ALL OF THE BUFFER HAS BEEN TESTED | mn 
106 002776 115000 003276 10$: TST ERRNUM ZANY ERRORS OCCURED? M 
107 003000 BEQ 13$ TIF NOT, CHECK IF DONE WITH ROUTINE mM 
003000 010000 003055 “010000, 13$ M 
108 003002 104307 003302 MOV OUTPT2,RO :RO => AFTER BUFFER LOCATIONS STORED M 
109 003004 104021 MOV Re. Rt +R2 => PATTERN mM 
110 003005 107201 003062 SUB ISOLATE “PATTERN 4 | M 
111 003007 103201 177763 BIC ay 76e RI ‘MASK PATTERN NUMBER M 
112 003011 105201 000000 ADD #0,R1 [CLEAR CARRY M 
113 003013 110601 ROR RI M 
114 003014 110601 ROR ZPATTERN NUMBER IN LO 2 BITS Ni 
115 003015 100271 MOV A. (RO)+ SSTORE PATTERN NUMBER Ol 
116 003016 104301 003266 MOV CURPAT R1 | O 
117 003020 100271 MOV ROS+ ZLAST PATTERN WRITTEN Ol 
118 003021 104301 003303 MOV Lh egey Ol 
119 003023 100271 MOV R1, (ROS+ SLAST BUFFER WRITTEN Ol 
120 003024 104301 003304 MOV LBUFWH,R1 Ol 
121 003026 100271 MOV R1, (ROS+ 01 
12 003027 104301 003276 MOV ERRNUM,R1 | Ol 
123 003031 100271 MOV R1, (ROS+ ZERROR COUNT 01 
124 003032 106200 000003 003276 CMP as ERRNUM [DO WE HAVE MORE THAN 3 ERRORS? 01 
125 003035 BCC 11 SIF NOT, CONTINUE 0 
003035 040000 003043 “040009,11$ 01 
126 003037 104202 000002 MOV = “#2, R2 :SET R2 FOR MAX 01 
127 003041 BR 12% : 01 
003041 000000 003046 *00,12$ 01 
128 003043 104302 003276 11$: MOV ERRNUM,R2 :STORE ERROR COUNT IN R2 01 
129 003045 117402 DEC R2 SADJUST R2 








UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 35-3 
FREE MEMORY CHECK 


104621 
100171 


oF0000 
01755 
000560 


117404 
050000 
000000 


003311 


001752 


002531 
000000 


12$: MOV eras ae? oR1 


MOV 
ERRHRD MS1005 
5650000, RERROR 


sCYCLE THROUGH ALL HOST BUFFERS 
13$: DEC R4 

BNE 1$ 

*050000,1$ 
14$: RETURN 


;TABLE ENTRY 


«WORD ERHARD+ERRN 
-WORD <PRMS*10000>+MS1005 


COUNT BUFFERS 
REPEAT FOR ALL BUFFERS 


SEQ 0050 


oc 


0 
Ol 
Ol 
Ol 
Ol 
Ol 
Ol 
Ol 
Ol 
Ol 
Ol 
Ol 
Ol 
Ol 
Ol 
Ol 
Ol 
Ol 
Ol 
Ol 
Ol 
Ol 








mM 4 es , | 
oo UNIBUS POOR SEING DMACR X04.01 23-AUG-82 13:10:39 PAGE 36 SEQ 0051 
FREE MEMORY C 

} sDATA PATTERN TABLES 

3 003062 111111 PATO:  .WORD *B1001001001001001 

4 003063 044444 -WORD *80100100100100100 

5 003064 022222 «WORD *80010010010010010 

g 000000 ~WORD 0 

8 003666 177400 PAT1: .WORD *B1111111100000000 
9 003067 007760 -WORD *80000111111110000 
10 003070 000377 «WORD *80000000011111111 
i} 003071 000000 -WORD 0 
13 003072 155555 PAT2:  .WORD *B1101101101101101 | 
14 003073 133333 »WORD *B81011011011011011 
15 003074 066666 «WORD *80110110110110110 
16 003075 000000 -WORD 0 | 
18 003076 000377 PAT3: .WORD *80000000011111111 | 
19 003077 170017 ~WORD *81111000000001111 
20 003100 177400 «WORD *81111111100000000 








UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 37 
FREE MEMORY CHECK 


o 

So oS 
ooo°oo 

= So 

= 


So 
So 
WAG Ww 
eS cD ced ed ed ed eed ed 
nN eS er TS) 
RR ANAANoCOoSs RR 


VMVIVIM SEER WWW 
St NIVIVIWN AS NN ONS 


Anw 


27 003163 
28 003165 
003165 


29 
30 003167 


36 003202 

003202 
37 003204 
38 003206 

003206 
39 003210 
40 003211 


106300 
010000 
040000 


000000 
106300 


040000 


000000 
106300 


010000 
040000 


000000 
106300 
040000 
000000 


104305 
104304 
104207 


020000 
104305 
104304 


020000 
106201 


010000 
106207 


050000 


104305 
104304 
114007 


020000 
104305 
104304 


020000 
106201 


010000 
115007 


003263 003257 
003112 
003121 


003250 
003262 


003121 


003250 
003261 


003132 
003141 


003250 
003260 


003141 
003250 
003252 
003253 
177777 
001677 
003262 
003263 


001660 
000001 


003250 
177777 


003250 


003252 
003253 


003256 


003263 


003262 


001677 
003262 
003263 


001660 
000001 


003250 


sCHECK IF TEST ADDRESS IS IN BOUNDS OF READABLE MEMORY 


BCHKM: 


1$: 


2$: 


3$: 


4$: 


CMP TADRH,FRADRH 
BEQ 

“010000,1$ 

BCC 2$ 

a acrak y 


BR 

008 

CMP FAR. FRADR 
BCC 2$ 


C 
“040000,2$ 
BR BCHKMX 


“00 ,BCHKMX 

CMP LRADRH, TADRH 
BEQ 

*010000,3$ 

BCC 4$ 
*040000,4$ 

BR BC HK 

“00 ,BCHKMX 

CMP LRADR,TADR 
BCC 4$ 
*040000,4$ 

BR BCHKMX 

“00 ,BCHKMX 

MOV FWADR,RS 


MOV FWADRH,R4 
MOV #177777,RO 


“020000, Ta 


HKMX 
“10000 BCHKK 
#ITTTTR 


BNE 8 
050000 BCHKMX 


MOV FWADR,RS5 
att pynean A 


LL AD 
“020000 ,MREAD 
CMP #1,R1 
BEQ BCHKMX 
“010000,BCHKMX 
TST RO 
BNE BCHKMX 


sBRANCH IF HIGHER OR SAME 
BRANCH IF LOWER 


sCOMPARE TEST ADRESS WITH LAST READABLE ADDRESS 
BRANCH IF EQUAL 


BRANCH IF READABLE ADDRESS HIGHER 
sBRANCH IF READABLE ADDRESS LOWER 


sBRANCH IF HIGHER OR SAME 
sBRANCH IF LOWER 


sWRITE ONES INTO FIRST ADDRESS 


READ FROM TEST ADDRESS 


:DID WE GET A NXM? 
sIF SO, EXIT 


CHECK DATA READ FOR ALL ONES 
:GO TO NEXT BIT IF NOT ALL ONES 


WRITE ALL ZEROS TO FIRST ADDRESS 


READ FROM TEST ADDRESS 


:DID WE GET A NXM? 
sIF SO, EXIT 


CHECK DATA READ FOR ALL ZEROS 
:GO TO NEXT BIT IF NOT ALL ZEROS 


COMPARE TEST ADDRESS WITH FIRST READABE ADDRESS 
BRANCH IF EQUAL 


BRANCH IF TEST ADDRESS HIGHER 
sBRANCH IF TEST ADDRESS LOWER 


SEQ 0052 | 








—_———— SC - 


UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 37-1 SEQ 0053 
FREE MEMORY CHECK 


003211 050000 003250 “050000 ,BCHKMX 


rt} 003213 104301 003252 MOV FWADR,R1 
003215 104052 MOV R5,R2 





COMPUTE XOR OF FIRST ADDRESS 
: AND TEST ADDRESS 


SaaS 
DWNAUN 
sess 
Netetetectete 

At AA AN Arif 

AE EWHIOCO 


100464 


=O 2 ss 


Sou 


001721 
003253 


001721 


002049 
0032." 


003252 
002040 
001752 


000000 


BCHKMX: 


CALL XOP 
“020000, A0R 
MOV R2,R 

MOV FWADRH,R1 
MOV R4,R2 
CALL XO 
“02 


0000,Xx0R 
ERRHRD MS1006,FWADR,FWADRH,R5,R4,RO,R2 ;UNIBUS oe 5 a TWO ADDRESSES READ 


“020000,RERROR 


RETURN 
“00.0 


0 RO 
T FOR HIGH BITS 


«WORD ERHARD+ERRN 
«WORD <PRMS*10000>+MS1006 








UDAT1 UNIBUS ADD 
FREE MEMORY CHEC 


1 
: 003 38 
4 00325 
5 003254 
8 003255 
8 005636 
9 00325 
10 003260 
1) 003261 
13 oosste 
13 00326 
16 003264 
17 003265 
18 003266 
19 003267 
20 003270 
21 
22 
23 
24 
25 
26 
27 
28 oOssTt 
29 003272 
30 003273 
31 003274 
32 003275 
33 
34 
35 goss re 
36 00327 
37 003300 
38 003363 
39 OOF a08 
40 00330 
41 003304 
42 003305 
003310 
43 003311 
44 






— DMACR X04.01 23-AUG-82 13:10:39 PAGE 38 


000000 
001274 


3PROGRAM VARIABLES 


LWADR: 


LRADR: | 
LRADRH: 


TADR: 
TADRH: 


BUF CNT: 


$1ZBUF : 
;HOST BUFFER TABLE ENTRIES ARE STORED AFTER THE PROGRAM AT FREE. 
: TWO WORDS PER TABLE 


CMPSI2Z: 
CMPADR: 


: WORD 
: WORD 
WORD 
WOR 


LWADRH: 


zFIRST ADDRESS CONTAINING ADDRESS DATA 
sLAST ADDRESS CONTAINING ADDRESS DATA 


zFIRST ADDRESS READABLE 
sLAST ADDRESS READABLE 


:TEST ADDRESS 


COUNT OF BUFFERS IN HOST MEMORY 
CURRENT BUFFER BEING WRITTEN {A 


sADDRESS OF PATA BUFFER IN DM MEMORY 
SIZE OF DATA BUFFER IN HOST MEMORY 


FIRST WORD = LOW 16 BITS OF HOST ADDRESS 
SECOND WORD = BITS 1-0 HIGH TWO BITS OF HOST ADDRESS 
BITS 3-2 PATTERN LAST WRITTEN 


1h) ~)~) ~] 
Sooooo 


m 


MISSELENEOUS DATA STORAGE 
«WORD 


55 


% e 

z 

i—) 
Sooooooo 


: .WORD 
LBUF WH: 

001264 001254 BTABLE: 

pot ess 

001357 001332 001305 ETABLE: 


«WORD 
«WORD 61,82,B83,84 
«WORD E1,E2,€3 





TABLE FOR COMPARE DATA PATTERN XFC 


HOLDS NUMBER OF ERRORS DURING COMPARE 
TEMPORARY STORAGE 


SPOINTER INTO OUTPUT BUFFER FOR COMPARE 
[LAST BUFFER WRITTEN SAVED IN WRITE 
: SAME 


FREE MEMORY C 


[=] 
Ss 


—SOOVNOULWN—“OCONGOU FW 
S333ss 
Ssssse 
NOAOVW—O 
Path tele} 


nS 
SiS 


NONI @ 2 
MIMI 
NO 
mon 


nm 
W 
—_ 
~ 


NORD: 
s5888 
Wau 


IAIN 
2S Se 
Fwn— 


SSeeescce 
PRSEVSSSISUE 
RBBESESVERE 


sess sesgeessees 
Ruareses 
g 


Ronen 


3 
4 
4 
“4 
4 
& 
4 
4 
4 
4 
4 
5 
5 
5 
5 
5 
5 
5 


RFR QAI 


CHECK 


WII WINN OWI NOW 
ooo ocooso— oo— 
SNA NNNONM NO 
Soonvim Oooonvo ono 


Beckie teonennes orn 


WNIWN 


y owy ows 
sy &rM 
WrowPn 
~— = Oo 
Noo £ 


& fo 
MNMRIAWE WI 


CO3 eo 


—- 
SIVSY SSE 


“ 
FRRS= 


) eee 
Spfronrororg 
MPORINIWO 


WIAA OWIWIWN 


wom 
fRorororye 
—— eo 
—— me 
awww 





UDAT1 _UNIBUS —— DMACR X04.01 23-AUG-82 13:10:39 PAGE 39 


sMESSAGE STORAGE OVERLAY 


FREE: 


mMS1000: 


MSi001: 


MS1002: 


MS1003: 


MS1004: 


MS1005: 


MS1006: 


; FREE SPACE BEGINS HERE 
OUTPUT EDC FOR THIS OVERLAY 


DMOVLY MS,0 
“NLIST BEX 
ASCIIN' NON-EXISTANT MEMORY ERROR TRYING TO READ FROM UNIBUS.''N\ 


-ASCIIAS2S OCTAL 'S6-HE 
-ASCII\SB "ADDRESS "'S9OTERIROSSH1EN\ 
“ASCII\“PARITY ERROR ON, READ FROM UNIBUS.‘N\ 
“ASCIINS25"OCTAL''S6" HEX’ 
-ASCII\SB"'AD DRESS ‘SOOTBROROS SHI BN\ 
ASCII\SB’ DATA READ''S7016R9S5H16N\ 
-ASCI I\SB"DATA EXPECTED’ SS01GRISSHION\ 
-ASCII\"UNIBUS ADDRESSING ERROR = INCORRECT DATA READ."N\ 
~ASCIIN'MEMORY LOCATION SHOULD CONTAIN OWN ADDRESS."N\ 
DASCII\S25" OCTAL''S6" HEX’ 
-ASCII\SB" ADDRESS "'S9OTBROR9SSH1BN\ 
ASCIIASB’ DATA READ’ 'S7016R9S5H16N\ 
-ASCII\SB DATA EXPECTED S301GR9SSHION\ 
“ASCII\“NONEXISTANT MEMORY ERROR TRYING TO READ FROM UNIBUS WITHIN BUFFER."N\ 
ASCII\S28°DCTAL 'S6 WEX N\ 
ASCII STARTING ADDESS OF BUFFER ‘'O18ROR9SSH18N\ 
“ASCII\SB" BUFFER SIZE"'SB016R9SSHIGN\ 
-ASCII\"PARITY ERROR ON READ FROM UNIBUS WITHIN BUFFER."N\ 
-ASCII\S28 OCTAL "S6°WEX'N\ 
sASCII\" STARTING ADDESS OF BUFFER ''018ROR9SSH18N\ 
-ASCII\SB'BUFFER SIZE"SBO16R9SSH16N\ 
-ASCIIN'DATA COMPARE FAILED, AFTER WRITE THEN READ FROM UNIBUS."W\ 
TASCLIN'" BUFFER SIZE = "O16'0) ROSSHI6'(X) ROSSD16". (D) WA 
“ASCII\" STARTING ADDRESSES OF BUFFERS’ N\ 
“ASCIIAS6 OCTAL S11 "HEX NRTA 
“ASCIIN,, CURRENT DATA PATTERN, READ''S17D6N\ 
SASCIIN' LAST PATTERN WRITTEN’ 'S22D6N\ 
“ASCIIN', STARTING ADDRESS OF LAST BUFFER WRITTEN''S3O18""(0)" RORISSH18"(X)"W\ 
“ASCII\" NUMBER OF ERRORS FOUND''S20D16". (D)'N\ 
-ASCII\SS;LOCATION''S6:DATA EXPECTED 56 DATA RECEIVED’ W\ 
“ASCIINS@ OCTAL —HEX''S6"OCTAL — HEX"'SB"OCTAL —-HEX'N\ 
erie On 
-ASCII\"UNIBUS ADDRESSING ERROR. TWO ADDRESSES READ SAME LOCATION."N\ 
-ASCII\SS3 ‘OCTAL “S6 WEX"N\ 
-ASCII\SB’ KNOWN GOOD. ADDRESS "S601 8ROR9SSHTEN\ 
SASCIIAS8' ERROR ADDRESS 'S11018R9R9SSH1BN\ 
“ASCII\SB™ADDRESS BIT IN ERROR''S4O1BRIRISSH1EN\ 
»ASCIINS5SO18R9R9S10H18N\ 
~ASCII\S5018R9R9S 10H 18N\ 
-ASCII\S5O18R9R981 0H 1BN\ 
-ASCIINS5O18R9R9S10H18N\ 














UDAT1 UNIGUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 39-1 
FREE MEMORY CHECK 


rH 001304 000 -BYTE 0 
59 001305 123 061 117 E3 »ASCIINS1018S2R9R9H18S4016R9S2H16S7016R9S2H16S11N\ 
60 001332 123 061 117 E2 eASCII\S1018S2R9R9H18S4016R9S2H16S7016R9S2H16S11N\ 
61 001357 123 061 117, (E1 eASCII\S1018S2R9R9H18S4016R9S2H16S7016R9S2H16S11N\ 
oe 001404 000 -BYTE 0 
64 001404 DMEND 
001405 000105 » WREDC sOUTPUT EDC FOR THIS OVERLAY 
5 000001 «END 


SEQ 0056 | 





UDAT1 ai ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 39-2 


SYMBOL TABLE 

ACHK1 002125 DRVID = 000004 HDRPRE= 000005 LARGE = 000001 gut .3] 001515 
ACHK 002157 DRVONL= 000213 HD.BAD= 110000 LBHINB= 177417 Ut +s6 tats 

ACHK 002172 DRVRUN= 000014 HD.DBN= 140000 LBLONB= 177760 OUT.235 00151 
ACHK4 002202 DU.DFL= 020000 HD.LBN= 000000 LBNCYL= 000000 OUT.24 001520 
= 000007 TL= 0 HD.PRV= 050000 LBNHST= 000012 OUT.25 001521 
ATTN = 000002 DU. INF= 030000 HD.RBN= 060000 BNTRK= 000011 r-68 001522 
AVAIL = 000100 -QUE= 0 HD.REV= 030000 UF WH 3304 «27 001525 
002¢11 -SPC= 060000 HD.XBN= 120000 LBUFWL 003303 -28 001524 
8 003101 U.TER= 040000 HEADER= 000002 LINKLN= 000007 T.29 001525 
BCHKMX 003250 D.LIMT= 000001 HIBYTE= 177400 LOBYTE= 000377 T.30 001526 
1 002217 D.SCHR= 000002 HICYL = 00000 LONG 0210 -31 001527 
BCHK2 002241 = 000015 HIDBN = 000003 LONGTO= 000001 T.32 0015350 
BEUSED= 000040 ECCCHK= 010000 HILBN = 000002 LOW = 00000 T.33 001531 
BF .DAT= 000000 CCFLG= 010000 HIMEM = 037777 LRA 003260 T.34 001532 
BF ..ECC= 000401 ECCRSH= 000002 HIRBN = 000003 LRADRH 003261 OVERFL= 000002 
F.EOC= 000400 = 010 HIXBN = 000002 LUNI 02037 OVE.MN= 001364 
= 000001 ECHOC = 000350 HOSTRQ 001430 LWADR 03254 VE.MS= 000000 

BITO1 = 000002 0 = 100000 HRDREV= 000003 LWADRH 003255 -MN= 001731 
BREAK = 000000 ERECOV= 000006 Tw = 040 MEDTYP= 000006 OVL.MS= 001406 
BTABLE 003305 ERHARD= 100000 INSEEK= 000012 MESSAG= 060015 eee 003337 
BUFCNT 003264 ERLEV = 000002 INTEDC= 000105 MICREV= 000003 -MN= 001040 
FFLG= 040000 ERRMC = 060014 IN.RQ 001533 D = 000016 OVS.MS= 004722 
BUFSIZ= 000043 ERRMES= 060013 IN.01 001534 MREAD 001660 V... = 003757 
1 001274 ERRN = 001757 IN.02 001535 MS1000 000000 003062 
B2 001264 ERR 0032 IN.03 001536 MS1001 000063 PATI 003066 
83 001254 ERSOFT= 140000 IN.04 37 $1002 000170 PAT2 003072 
001244 ETABLE 00331 IN.05 001540 MS1003 000332 003076 
CCHK 002257 EXIT = p0008 1N.96 Oot ees 1004 00045 PHYSA = 891000 
HECK = 000010 E1 001357 IN.0 ores MS1005 00056 PRMS_ = 06 
= 000201 E2 001332 IN.08 00154 06 001105 PTYPES= 000030 
CHRRES= 000170 ES 001305 IN.09 001544 = 00001 RBNBN = 000200 
CLRBUF 001457 FB.DAT= IN.10 001545 MWRITE 001677 RBNTRK= 000004 
003272 FB.EDC= 000400 IN.11 001546 NEWSUB= 004000 RBUFLN= 000415 

CMPSIZ 003271 FCTSIZ= 0000 IN.12 001547 ONLYCL= 000200 RCLB_ = 000001 
003273 FIRSTU= 037716 IN.1$ 001550 OUTPTR 003501 RCONT = 000000 

CMP2 003274 00211 IN.14 001551 OUTPT2 003302 RCTCPS= 000001 
3 003275 = 00 IN.15 Oo 228 OUT.RQ 001470 RCTCSZ= 000014 
C = RADR 003256 IN.16 00155 OUT.01 001471 vV___= 000005 
COMPLT= 000176 FRADRH 003257 IN.17 $0 1328 Cut. 86 dE RCVERR= 000004 
65 = 000004 IN.18 1555 OUT.03 00147 RCVRDY= 000001 

CURPAT 003266 FREE 003314 IN.19 001556 OUT.04 001474 RDSTAT 001571 
T 20 FSTOP = 100000 IN.20 001557 OUT.05 001475 EAD 002525 
DATBUF 003267 FTIME = 001000 IN.21 001560 out ae 00147 REDWRT= a 
DATCMP= 000002 FTLDEV= 040000 IN.22 001561 OUT.07 00147 REGSS = 17777 
DATERR= 000020 FTLSYS= 000000 IN.23 901266 Ae 001500 REGUS = 000001 
ATPRE= 5 FT.BUF= in.¢¢ 156 OUT. 001501 RERRCA 002021 
DBNCYL= 000022 FT.HI = 000001 IN.25 001564 OUT.10 On 1206 RERROR 1752 
DCMPAL= 000001 FT.LOW= 00000. IN. § 001565 OUT.11 00150 RERRPA 2014 
DCYLS = 020000 FWADR 325 IN. 1368 OUT. 1¢ 001504 RESEEK= 020000 
DINIT = 000011 FWADRH 325 IN.28 138 OUT.15 001505 RETRY = 000004 
DIREC = 010000 GETCHR= sae Ed IN.29 1570 OUT.14 Borage RETS = 000001 
ON= 000204 GETSTA= 11 IN.30 1571 OuT.15 150 REVEC = 000400 

= syed GE TSUB= 10 IN. 31 Bn 1376 out. 18 01510 REVECT= 000004 
DONECD 00243 GRPCYL= 2 IN. § 157 OUT.1 1511 REVINP= sie ie 
100000 GRPOF F = 11 IN. Bolen oT Stalg REVS = 00000 

DRTYPE= 000007 HBHINB= 77 IN. Bhd 75 OUT.19 00151 RM = singe 
DRVCLR= 000005 HBLONB= 170377 IRECLB= 216 OUT.20 001514 RONLY = 0co 





SEQ 0057 | 





G 
ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE 39-3 SEQ 0058 










= ST.C = 443 $.TGOF= 000013 err = 000001 U.REN = 000041 
= ST.CON= 00000 e+ teoes 000015 UNITO = 000001 U.RTRY= 000025 
RTRIES= ST.DB = 001000 S.TRKL= 000004 UNIT? = 000002 U.RVER= 000046 
DY = ST.DF = 000020 TADR ai¢ = 000004 U.RWER= 000045 
RW .ANG= ST.DR = 000040 TADRH 0348 UNITS = 000010 U.RWTO= 00 
RW .BUF= ST.ERR= 000002 TALKER 001576 UNSSUC= 000175 U.SDIL= 000031 
RW. CMD= ST.FE = 000200 TALKIA 001612 EAD 013 U.SDIS= 000030 
RW.HI = ST.FO = 002000 TALK18 1624 UTOTST= 060012 U.SEEK= 00000 
RW. LOW= ST.MOD= 000001 TALK2A 001651 RITE= 000014 U.SNUM= 00004 
RwW.SDI= 000005 ST.MSK= 000000 TALK2B 001652 U.CBN = 000037 U.SUBP= 000001 
RwW.STA= 000000 ST.OA = 000200 TEMP1 ott U.CCNT= 000012 U.SUBU= 000034 
SAVREG 002040 ST.PE = 000040 00 U.CCOP= 000044 U.TIMO= 000005 
SBCRES= 000167 ST.PS = 000002 = 00 U.CCYL= 000053 U.TSEC= 000020 
WRD= 000377 ST.RE = 000100 TIMEOU= 000001 -CGRP= 000055 U.WPRT= 00003 
SDILTO 001657 ST.RR = 000100 TLEN.U= p000e! U.COP 3 U.WRIT= 
SDISTO 001656 ST.RTY= 000003 TO 0017 U.CSEC= 00002 WAITSI= 000012 
= ST.RU = 000001 TOOBIG= 0000 U.CTRK= 00001 WBUFLN= 000401 
SEKINP= 002000 ST.SR = 000020 TRACKS= 000020 U.ECCT= 000027 WCHECK= 000010 
s ST.STA= 000001 TRKGRP= 000003 U.EL 000024 WCHKAL= 000004 
SEQSEK= 000100 $T.S7 = 000400 TIMSIZ= U.LCYL= 000056 WCONT 
SHRTTO= 000000 ST.UNT= 000000 T2CMD = 060002 U.LGRP= 000060 WONLY = 
IZBUF 003270 ST.WE = 000010 T2DLL = 060001 U.MASK= 00002¢ WREAL = 122400 
SNDAGN 001435 Ss = 000013 T4881 = 05 U.MBN = 000035 WRITE 002445 
SPADJU 002033 $.BADP= 000010 T4BB2 = 060006 U.MLEV= 000026 WRONG = 00000 
1 $.BESS= 000011 T4MPRM= 0 U.MSEC= 000017 WSTOP = 140000 
STACK 002101 S.MCNT= 000011 T4MXFR= 060011 U.NEXT= 000000 XBNCYL= 000021 
START 002102 -MEGR= 0000 T4SEEK= 060010 U.NFUN= 000010 XFERRT= 000 
STATEX 001424 S.MEGW= 000007 T4SOF T= 7 U.NSEC= 00001 XMTERR= 000400 
STATLP 001375 S.PARM= 06 T4UPRM= U.PARM= 00003 XOR 
STATOK 001413 -PAT = UDADM1= 001000 G U.PAT = 000011 XREAD = 000002 
STATUS= 000007 $.SCHR= 000005 UDATA 2 U.PCTG= 000014 XWRITE= 000003 
STSRES= 000366 $.SDCL= 000001 UDAS5O = 000000 
- ABS. 007736 


001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY 4 16825 WORDS ( 66 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
-B:UDAT1.L52/C= C30. SODMACSo/M, B:UDAT1 

















UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE S-1 
CROSS REFERENCE TABLE (CREF V04.00 ) 


ACHK1 29-224 29°45 29-47 
ACHK2 29-24 29-348 
ACHKS 29-28 29-30, 9 29*35 29=404 
ACHK4 29-4) 29-448 
ARGSS 29-27 29-27# 29-29 29-29% 29-36 29-36 35-24 
ATTN 5-228 
AVAIL 5-244 
1 30-25 39-564 
B2 ~42 9-554 
83 38-42 39-544 
B4 38-42 39-534 
BCHK 29-45 30-44 
BCHK1 30-7# 30-13 
BCHK2 30-184 30-25 
BCHKM 30-11 30-22 37-34 
BCHKMX 37-6 37-9 37-13 37-16 37-26 37-28 37-38 
BEUSED 7=35# 
BF.DAT 2-1054 
F.ECC 22-1078 
F.EDC 2-106# 
IT00 = 2-284 = 31-31 
B1T01 2-298 
BREAK 3-34 
BTABLE 35-41 38-424 
BUFCNT 31-63* 32-9 32-25 35-8 35-32 38-164 
BUFFLG _2-90# 
BUFSIZ 20-15 20-20 21-78# 
CCHK 31-174 
CHECK 4-674 
HGMOD 5-324 
CHRRES 5-434 
CLRBUF 20-254 20-27 
CMP ~30# 
CMP2 38-314 
CMPS = =—_- 38-324 
CMPADR 38-294 
CMPSIZ 38-284 
COMPAR 3-94 
COMPLT 5-414 
CURBUF 32-5* 32-7 32-20* 32-23 34-32 38-174 
CURPAT 32-4* 32-13 32-17% 34-9 35-116 38-184 
im sy 


34-43 35-12 35-59 38-194 





35-248 


37-40 


35-26 


37-514 


35-264 35-132 


35-1324 37-49 


SEQ 0059 


37-494 


33-3 


29-29 


29-27 
35-244 


35-77% 


34-34 


0-8 


3 
30-19 





29-36 


29-27 
35-26 


35-106* 


35-7 


30-15 
31-26 


35-24 


29-278 
35-26 


35-122 


35-31 


31-23 
31-42 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE S-2 
CROSS REFERENCE TABLE (CREF V04.00 ) 


5-7 5-8 
35-26 35-132 
29-29 29- 


29 
35-26 35-264 
35-124* 35-128 


39-34 


9-36 29-36 
35-1524 37-49 


SEQ 0060 


5-15 


| I J 


SEQ 0061 


J 5 


-01 23-AUG-82 13:10:39 PAGE S-3 
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UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE S=4 
CROSS REFERENCE TABLE (CREF V04.00 ) 


Hi 6 Bre 
sh 21-434 21-78 


0 38-414 
8 38-404 


3 38-54 
0 38-64 





ee ee 


SEQ 0063 
29-29 
29-36 
35-24 
35-132 
37-49 
29-29 
29-368 
35-26 
37-49 


| 
| | 

Aosronr AOOO 
! RBLAS BRAS | 
POA nour 
ANMMM eCUMmMm 
| 
t & 

ROTORD BOsrn 
| NMAUNS BMC 

ooeee eee 

| ACOnnKR Bann 
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| & oolod 

ROTOM BOTA 
| NQMANEK Mass 

ooeeo beens 

| GOonnnmn Aner 
| NNMMM eCUMmmMm 
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= 
w 
o 
i 
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39-44 


39=4 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE S-5 


CROSS REFERENCE TABLE (CREF V04.00 ) 








5 


UDAT1 UNIBUS ADDRESSING DMACR x04. oF 23-AUG-82 13:10:39 PAGE S-6 
CROSS REFERENCE TABLE (CREF V04.00 ) 


RCVRDY 
AT 


31-62* 


32-22 35-74 
29-27 29-27 29-27 29-29 =. 2929 “29 29-29 9-29 29-29% 29-36 
29-368 «= 35=24 -24 35-24 35-24 =24 35-24 5-24 =24 5-24 


37 
35-24 35-24 35-24 35-244 35-244 
37-49 37-49 37-498 37-494 


29-27 29-29 29-36 35-24 35-26 35-132 37-49 


5-26 35-26 35-26 


6-59 
35-24 35-24* 35-26 35-26* 37-49 37-49% 


22-434 
22-424 


22-15 


34-18 34-42 35-13 35-24 35-24 35-26 35-26 35-38 35-58 38-204 


29-36 


35-264 


=—c 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE S-7 
CROSS REFERENCE TABLE (CREF V04.00 ) 


SNDAGN 20-144 20-18 
Nn 27-32e 27-428 


8 
19-4 19-48 19-524 
19-39% 19-44 19-50 
9-474 


30-10* 30-16* 35-17" 35-24 35-24 35-26 35-26 
30-5* 30-21% 35-18% 35-24 35-24 35-26 35-26 


22-23 22-254 22-35 

22-29 = 2.2 = 38 # 

22-19 22-33 22-37 22-394 
22-124 


35-58* 35-97* 38-364 
35-68* 35-99% 38-374 


35-61% 
35-62* 


35-82 
35-63* 


35-94" 
35-84 


37-7 
35-96* 


37-14% 
37-3 


37-22 
37-10« 


SEQ 0065 | 


37-34 
37-23 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE S-8 
CROSS REFERENCE TABLE (CREF V04.00 ) 


ae 6-104 6-11 


Cc 6-414 6-4 
U.CCNT 6-224 6-2 
U.CCOP 6-44# 6-45 
U.CCYL 6-484 =49 
U.CGRP 6-494 6-50 
U.COPY 6-434 6-44 
U.CSEC 6-284 6-29 
U.CTRK 6-244 6-25 
U.ECCT 6-344 6-35 
U.ELEV 6-314 6-32 
U.LCYL 6=50# 6-51 
U.LGRP 6-10 6-514 
U.MASK 6-294 6-30 
U.MBN 6-404 6-41 
U.MLEV 6-354 6-34 
U.MSEC 6-264 6-27 
U.NEXT 6-154 6-16 
U.NFUN 6-204 6-21 
U.NSEC 6-254 6-26 
U.PARM 6-384 6-39 
U.PAT 6-214 6-22 
U.PCTG 6-234 6-24 
U.RBN 6-428 on33 
U.RTRY 6-324 6-3 
U.RVER on~ite 6-47 
U.RWER 6-454 6-46 
U.RWTIO 6-184 6-19 
U.SDIL 6-36" -37 
U.SDIS 6-354 6-36 
U.SEEK 6-198 -20 
U.SNUM 6-474 6-4 
U.SUBP 6-164 6-1 
U.SUBU 6-394 6-40 
U.TIMO 6-174 -18 
U.TSEC 6-274 6-28 
U.WPRT 6-374 6-38 
U.WRIT 6-30" 6-31 
UDASO 1-314 1-4 2-14 2-39 19-10 
UDAS2 1-324 1-3 2-3 2-34 195 1921 38-46 
UDADM1 4-139 
UDATA 25-14 23-16 24-11% 24-15 24-204 
UNITO 4-4 
UNIT 4-478 
UNIT 4-484 
UNIT 4-498 
UNSSUC ~428 
URE AD “148 23-15 35-19 
UTOTST -1 
UWRITE “158 24-16 34-44 
WAITS! 1 


WBUFLN 22-1118 2=112 


SEQ 0066 





C 6 


UDAT1 UNIBUS ADDRESSING DMACR X04.01 23=AUG=82 13:10:39 PAGE S-9 
CROSS REFERENCE TABLE (CREF V04.00 ) 


XREAD 
XWRITE 


32-21 34-94 


19-41 
30- 30-20 37-44 37-48 


mei Fr at | 
UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 13:10:39 PAGE M=1 SEQ 0068 
CROSS REFERENCE TABLE (CREF V04.00 ) | 
BC “8H 29-45 31-24" 31-37 31-48 31-54 «= 35+34 35-125 3795 7B 871257415 


BEQ 34 19=4 2-17 2-29 $673" 7-33 $9-8¢ 9-35 29-43 30-25 31-32 32-16 34-22 34-25 


35-21 35-7 5-98 5-107 7-11 7-26 7-38 

BMI ~8# 22-21 31-51 35-78 

BNE -84 19-44 19-48 19-50 0-18 2-35 6-10 7-37 29-16 9-26 29-41 30-13 31-35 31-52 

oP. 32-10 36-89 om 4 35-23 5-50 5-95 5-100 5-137 37-28 7-40 

BF. e-3f 19-30 13°48 2-19 $57¢° 2-33 2-37 29-28 29-30 29-47 31-55 31-57 32-27 33-3 
35-25 35-102 35-127 7-6 7-9 7-13 7-16 

CALL 2-84 7-40 29-9 29-22 9-27 29-29 9-36 30-9 30-11 30-20 30-22 32-6 32-11 32-21 
32-22 3-2 35-24 35-26 5-132 37-21 7-24 37-33 37-36 37-44 37-48 37-49 

CERROR 15-654 

DEVFTL 15-374 

DIAGSS -5# 

CODE 2-78 2-11 

DMEND 2-74 39-64 

DMODT 2-94 

DMOVLY 2-7# 2-11 39-4 

DSTAT 16-34 

ENDERR 15-934 

RDF 12-334 

ERRHRD 12-394 29-27 29-29 29-36 35-24 35-26 35-132 37-49 

ERROR 15-494 

ERRORS 13-34 29-27 29-29 29-36 35-24 35-26 35-132 37-49 

ERRORC 137538 


14-154 35-24 35-24 35-24 35-26 35-26 35-26 37-49 37-49 
JMP ~84 19-53 20-29 22-40 23-18 24-18 25-17 26-15 27-44 34-45 35-138 37-51 


OVTERM $33 g-ie 2-118 39-4 39-44 39-64 
PARGS. 13-33# 29-27 9-27 $9-29 29-29 9-29 29-29 9-36 29-36 29-36 29-36 35-24 35-24 35-24 
35-26 35-26 5-26 7-49 37-49 7-49 37-49 7-49 37-49 
11-114 19-52 20-28 2-39 3-17 24-17 25-15 27-41 35-54 
-| 4 at 19-37 20-12 22-12 3-10 24-10 25-10 27-7 27-9 35-30 35-79 
ee 19-53 0-29 2-40 23-18 24-18 25-17 26-15 27-44 34-45 35-138 37-51 
RSTRS 14-84 35-24 5-26 7-49 
RXOR 17-48 
SAVRS Sb 35-24 35-26 37-49 
a 15-4 
UDAT UNTBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 
TABLE OF CONTENTS 
> 22 UDA _DM PROGRAM PARAMETERS 
- J TEST 4 eect ets INFORMATION 
9- 1 oe DEFINITIONS 
$3 1 START OF TEST CODE 
O- 31 RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 
$4- 1 HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 
1 FREE MEMORY CHECY 








UDAT1 UNIBUS ADDRESSING DMACR X04.01 23=AUG=82 12:00:45 PAGE 2 
DIAGNOSTIC MACHINE MACROS = OVERLAY VERSION WITH ‘RELOCATION’ 


WONAVSWN—O OONOULSWN 0 OONOUS Wh 


ss” Bete Se Ge Se Se Ge Ge Ge Ge Ge Ge Se Ge Be Ge Se Ge Ge Be Be Ge Ge Ge Se Ge Ge 


QAUVilkWoow 








«TITLE UDAT1 UNIBUS ADDRESSING 


COPYRIGHT (C) 1981 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
OF THE AROVE COPYRIGHT gy fb # THIS SOFTWARE, OR ANY OTHER 
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
TO ANY OTHER PERSON EXCEPT FOR us ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DIGITAL ASSUMES NO RESPONS 


I FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WH 


BILITY 
ICH IS NOT SUPPLIED BY DIGITAL. 


IL 
CH 


DASO=1 
UDAS2=0 
PTHTS PROGRAM SHALL BE Galtae te am THE PROGRAM DMACRO 
;USING A COMMAND LINE SIMILAR T 
UDAT1.BIN,UDAT1/C=C1,2JDMACRO,UDAT1 

VERSION 1.0 FOR RELEASE 


VERSION 2.0 FOR NEXT UDA 


F 6 
UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 PAGE 3 SEQ 0070 | 
DIAGNOSTIC MACHINE MACROS = OVERLAY VERSION WITH ‘‘RELOCATION"' 


J 000000 TEST4 = 0 : THIS IS NOT TEST4 
y 000000 DMCODE UDADM1,0,714,3,0,1000 

22 .SBTTL UDA DM PROGRAM PARAMETERS 

24 .LIST MEB 

36 : EQUATES 

28 000001 BITOO = 1 

29 000002 BIT01 = 2 

3 ; HIGHEST USABLE LOCATION OF UDA MEMORY + 1 

41 010000 HIMEM = 10000 : HIGH MEMORY+1 

42 007774 OVSTRT = 7774 t OVERLAY ADDRESS LOCATION 

4 : DUP PACKET VALUE 

49 010000 DU.QUE = 10000 Z QUESTION 

50 020000 DU.DFL = 20000 *DEFAULT QUESTION 

51 030000 DU.INF = 30000 + INFORMATI 

52 040000 DU.TER = 40000 : TERMINATOR” 

53 050000 DU.FTL = 50000 ATAL ERROR 

34 060000 DU.SPC = 60000 SPECIAL 

3 : OFFSETS FOR FORMAT TRACK TABLE 

58 00 FT.BUF = 0. ;BUFFER POINTER OFFSET 

59 000001 FT.HI = 1. THI ORDER HEADER OFFSET 

60 FT.LOW = 2. ‘LOW ORDER HEADER OFFSET 

62 : 

4 3 OFFSETS FOR FORMAT TRACK BUFFER 

65 000000 FB.DAT = 0. ZFIRST DATA WORD OFFSET 

66 000400 FB.EDC = 256. [EDC WORD OFFSET 

68 : 

$9 ; OFFSETS FOR READ/WRITE 1/0 CHAIN TABLES 

71 000000 Rw.STAT = 0. :STATUS AND NEXT BUFFER POINTER OFFSET 
72 000001 RW. 2 1. :POINTER TO DATA BUFFER 

73 00000. RW.LOW = é- SHI ORDER EXPECTED HEADER 

74 00000 RW.HI == : [LOW ORDER EXPECTED HEADER 

75 000004 RW. 5 : :SD1 COMMAND AND HEAD ADDRESS 
7% 000005 RW.SDI = 5. [DUMMY SDI CONTROL BLOCK POINTER 
a 000006 Rw. = é. : THETA FROM INDEX 

a3 : CONSTANTS FOR READ AND WRITE XFC°S 

81 140000 WSTOP = 140000 : LAST ENTRY IN CHAIN FOR WRITE 
82 040000 WONT = 40000 ; WRITE CONT 

83 100000 RSTOP = 100000 3 LAST ENTRY IN CHAIN FOR READ 
84 000000 RCONT = 0 ; READ C 

85 100000 FSTOP = 100000 : LAST ENTRY IN CHAIN FOR FORMAT 





—— ee sented -4 





G 6 
UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 PAGE 3-1 SEQ 0071 
UDA DM PROGRAM PARAMETERS | 
RK 22400 WREAL = 122400 : WRITE REAL TIME ECOMMAND 
87 013400 RREAL = 13400 : READ REAL TIME COMMAND 
ae 010000 ECCFLG = 10000 : ECC ERROR IN BUFFER BIT 
89 100000 EOC : 100000 + END OF CHAIN 
30 0000 BUFFLG = 0000 : BUFFER FULL OR EMPTY FLAG 
92 : 
93 ; HEADER CODES 
95 000000 HD.LBN = 000000 :G00D LBN 
96 0000 HD.RBN = 060000 [GOOD RBN, PERHAPS UNUSED 
97 030000 HD.REV = 030000 SREVECTORED LBN 
98 110000 HD.BAD = 110000 ‘BAD BLOCK 
99 050000 HD.PRV = 050000 [PRIMARY REVECTORED BLOCK 
00 120000 -XBN = 120000 :XBN BLOCK 
01 140000 -DBN = 140000 :DBN BLOCK 
05 : OFFSETS FOR DATA BUFFERS 
05 000000 BF.DAT = 0. DAT 
06 000400 F.EDC = 256. PRROR DETECTION CODE 
4 000401 BF.ECC = 257. SLAST 17 ECC RESIDUES 
09 : BUFFER AND READ/WRITE CHAIN LINK SIZES 
11 000401 WBUFLN = 257. : WRITE BUFFER SIZE 
12 000415 RBUFLN = WBUFLN+12. + READ BUFFER SIZE 
13 000007 LINKLN = 7. : LINK SIZE 


— St Ss 3 SS YH) YDS 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 PAGE 4 
UDA DM PROGRAM PARAMETERS 


4 
5 
6 
7? 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
54 
35 
36 
37 
38 
39 
40 
41 
42 
43 
64 


XFC DEFINITION EQUATES 


o 
° 


GET STATUS OFFSETS 


STATUS BIT DEFINITIONS 


22 OONOU EIN 
oO 


NOUMLSWN—Oe « 


WWIWNIWIRININININIDININININD) 2 2 ot 


so 
ooo 
i=) 


NS] VF — PN 


-S8 





SORIVE INITIALIZ CoD 

: FOR SECTOR R INDEX PULSE 

READ UNIBUS MEMORY XFC CODE 

; IBUS ME XFC CODE 
ECC ON BUFFER XFC CODE 


:d0 oD 
7SEND BUFFER TO MAINTENANCE READ COMMAND 


;GET BUFFER FROM MAINTENANCE WRITE COMMAND 


CONVERT TO PHYSICAL ADDRESS XFC CODE 
TERMINATE DM PROGRAM XFC CODE 


UNIT NUMBER 

SUBUNIT MASK 

sSTATUS BYTE 

MODE BYTE 

sERROR BYTE 

SS ON TMOLLER BYTE 

sRETRY COUNT/FAILURE CODE 


3 ONLINE TO ANOTHER (SET IF DRIVE UNAVAILABLE) 

: READJUSTMENT BIT (SET IF RECALIBRATION REQUIRED) 
3 DIAGNOSTIC REQUEST (SET IF feos REQUESTED) 
: SPINDLE READY (SET IF SPINDLE eoer? 

3 PORT SWITCH (SET IF PORT SWITCH IN) 

2 RUN/STOP SWITCH (SET IF RUN/STOP SWITCH IN) 

3 FATAL ERROR (SET IF FATAL ERROR OCCURRED) 

2 RETRIABLE ERROR (SET IF RETRIABLE ERROR OCCURRED 
: PROTOCOL ERROR (SET IF PROTOCOL ERROR OCC 

¢ INITIALIZATION FAILURE (SET IF INIT FAILED) 

: WRITE ENABLE (SET IF WRT ATTEMPTED |Z PROT DISK) 
: FORMATTING (SET IF FORMATTING ENABL 

: DIAGNOSTIC CYLS (SET IF DIAG CYL ACCESS ENABLED) 
: SECTOR SIZE (SET FOR 576 BYTE SECTORS) 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 23=AUG-82 12:00:45 PAGE 5 
UDA DM PROGRAM PARAMETERS 


FWN $9 ODBNAUEWN $0 OONOU SW 


FRIRIPOR DIY at ad et et et os ot 


177400 
377 


000 
007777 
170377 





GET COMMON CHARACTERISTICS OFFSETS 


sSHORT TIMEOUT _<3:0> 
SDI VERSION <7:4> 

i TRANSFER RATE <15:0> 
LONG TIMEOUT <3:0> 
;RETRIES <7:4> 

ZF/RCT COPIES <11; = 


eeeteee#eges#s+e+ee#eee#eeee#« 
Se 
a- 
Preowm 
Be3 822255 
RESz>S 
wn 
~— 
~~ 


: E VE ID :0> 
DRIVE TYPE IDENTIFIER <7:0> 
;REVS/SECOND <15:8> 


GET SUBUNIT CHARACTERISTICS OFFSETS 
OFFSETS ARE CURRENTLY GIVEN AS FOLLOWING THE COMMON CHARACTERISTICS 


NNESWWNN ee | OOO 


= 11. sOFFSCT TO PUT SUBUNIT AFTER COMMON; 
= . : R OF CYLINDERS IN LBN AREA <31:0> 
= Be sHI ORDER CYLINDER BITS <15:12> 

= r : S PER CYLINDER <7:0> 

= 2. zsHI STARTING LBN <1 

= 2. 3HI STARTING XBN <15:12> 

= iy s TRACKS PER GR 0> 

= ie sHI STARTING RBN <11:8> 

= 3. 3sHI STARTING DBN <15:12> 

= 4. ;RBNS PER TRACK <6:0> 

= 4. sREMOVABLE MEDIA <7:7> 1=REMOVEABLE 
= 5. ZDATA PREAMBLE SIZE IN WORDS <7:0> 

= 5. SHEADER PREAMBLE SIZE IN WORDS <15:8> 
= 6. ‘MEDIA TYPE <31:0> 

= 8. zsFCT COPY size <15:0> 

= 9. 3;LANS PER TRACK <7:0> 

= 9. : GROUP Orr ser sec rons. <15:8> 

= 10. [LBNS IN HOST AREA Ss 0> 

= 12. :RCT COPY SIZE <1 

= 17. sCYLS IN XBN AREA ate: 0> 

= 18. :CYLS IN DBN AREA <15:8> 

UNIT CODES 

= 1. sUNIT ZERO CODE 

= 2. UNIT ONE CODE 

= 4. sUNIT TWO CODE 

= 8. sUNIT THREE CODE 


BIT MASK DEFINITIONS 


177400 hy a ovre MASK 
YTE MAS 


ooosr? K 
777 cht BYTE, HI NIBBLE MASK 
170377 zh. BYTE. LO NIBBLE MASK 


SEQ 0073 
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UDA DM PROGRAM PARAMETERS 


177417 
177760 


LARGE 
OVERFL 


NM— @GSnm SM —— 


:LO BYTE, HI NIBBLE MASK 
:LO BYTE, LO NIBBLE MASK 


sDRIVE TIMEOUT CODE 
HEADER COMPARE FAILURE CODE 
sREVECTOR NEEDED CODE 


FIRST WORD NOT oe FRAME CODE 


SFRAMING ERROR C 
: CHECKSUM ERROR CODE 


NUMBER OF WORDS EXCEEDS 7064 
3DM BUFFER ADDRESS IS LESS THAN 714 


sBLOCK NUMBER TOO LARGE 
SECTOR NUMBER LARGER THAN 16 BITS 


SEQ 0074 
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UDA DM PROGRAM PARAMETERS | 
:MAINTANENCE READ/WRITE REQUEST NUMBERS 
3 060000 TIMSIZ = 0.+DU.SPC ZGET FREE MEMORY PARAMETERS 
4 060001 T2DLL_ = 1.#DU. SPC SDOWNLINE LOAD DRIVE T 
5 060002 TOCMD = g- sDU. SPC ZMANUAL INTERVENTION TEST 2 OL 
6 060003 T4MPRM = .+DU. SPC 3GET MASTER PARAMETERS FROM SW QUESTIONS 
7 060004 TGUPRM = 4.+DU. SPC [GET UNIT PARAMETERS FROM HW 
R 060005 T4881 = 5.+DU. SPC 7GET BAD BLOCKS (1 TH 
9 0006 T4BB2. = g. #DU. SPC 7GET REST OF BAD BLOCKS (15 AND 16) 
10 060007 T4SOFT = . +DU. SPC [ADD TO SOFT ERROR AND ECC COUNT 
11 060010 T4SEEK = 8. +DU.SPC ADD 1 TO SEEK C 
12 060011 TGMXFR = 9. +DU. SPC TO MEGABITS READ AND WRITTEN 
13 060012 UTOTST = 10. +DU.SPC eer UNITS TO TEST 
14 060013 ERRMES = 11. +DU.SPC SPRINT ERROR MESSAGE 
15 14 ERRMC = 12. +DU. SPC ZTEST 4 ERROR REPORTING 
16 060015 MESSAG = 13. +DU.SPC : INFORMATION MESSAG 
V7 16 DONE = 14.+DU. SPC [MARK DM PROGRAM AS NO LONGER RUNNING 
3 : OTHER BIT DEFINITIIONS 
21 000001 RCVRDY = 1 : RECIEVER READY 1 = READY 
22 000002 ATIN. = 2 : ATTENTION BIT FOR RETURN DRIVE SIGNALS XFC 
23 000004 RCVERR = 4 : RECIEVER 
24 000100 AVAIL = 100 : AVAILABLE 1 = AVAILABLE 
25 000400 XMTERR = 00 : TRANSMIT 
26 100000 RWRDY = 100000 ; IF SET, UDA IS ABLE TO READ AND/OR WRITE TO DRIVE | 
38 ; SDI COMMANDS AND RESPONSES | 
30 000204 DISCON = 204 : DISCONNECT DRIVE 
31 000006 ERECOV = é : ERROR RECOVERY 
32 000201 CHGMOD = 201 > CHANGE MODE 
33 000213 DRVONL = 213 : DRIVE ONL INE 
34 000014 DRVRUN = 14 : DRIVE R 
35 000005 DRVCLR = 5 : DRIVE CLEAR OPCODE | 
36 000207 GETCHR = 207 : GET CHARACTERISTICS 
37 000210 GETSUB = 210 > GET SUBUNIT CHARACTERISTICS 
38 000011 GETSTA = 11 : GET STATUS 
39 000216 IRECLB = 216 : RECALIBRATE 
40 000012 INSEEK = i2 : INITIATE SEEK 
41 176 COMPLT = 176 : SUCCESSFUL COMPLETION 
42 000175 UNSSUC = 175 : UNSUCCESSFUL COMPLETI 
43 000170 CHRRES = 170 : GET CHARACTERISTICS RESPONSE 
44 167 SBCRES = 167 : GET SUBUNIT CHARACTERISTICS RESPONSE 
45 366 STSRES = 366 : GET STATUS RESPONSE 
46 000350 ECHOC = 350 ; DIAGNOSTIC ECHO COMMAND AND RESPONSE 
48 : ERROR CODES 
50 00 FILSYS = 0 : SYSTEM FATAL ERROR 
51 040000 FTILDEV = 40000 : DEVICE FATAL 
52 100000 ERHARD = 100000 : HARD ERROR 
ERSOFT = 140000 + SOFT ERROR 





L 
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TEST & SPECIFIC INFORMATION 


J -SBTTL TEST 4 SPECIFIC INFORMATION 

? J TEST 4 SPECIFIC INFORMATION 

5 : 

§ 3 CONSTANTS 

g 000377 SCTWRD = 255. 3 NUMBER OF WORDS IN SECTOR TO FILL 

9 000105 INTEDC = " 3 INITIAL EDC VALUE 

10 000061 TLEN.U = U.LGRP+1 3 UNIT PARAMETER LENGTH 

1} 007717 FIRSTU = HIMEM-TLEN.U 3 LOCATION OF FIRST UNIT PARAMETER BLOCK 
1? 3 UNIT PARAMETER OFFSETS 

15 000000 U.NEXT = 3 POINTER 19 NEXT UNIT (RING LINKED LIST) 
16 000001 U.SUBP = U.NEXT+1 : 4 WORDS SUBUNIT PARAMETER POINTERS 
17 000005 U.TIMO = U. SUBP+4 3 AREA TO STORE VARIOUS TIMEOUT VALUES 

18 000006 U.RWTO = U.TIMO+1 3 READ/WRITE TIMEOUT AREA 

19 000007 U.SEEK = U.RWTO+1 : NUMBER OF SEEKS ISSUED 

20 0010 U.NFUN = U.SEEK+1 3 NEXT FUNCTION ADDRESS (FOR DEFERRES CALLS) 
21 000011 U.PAT = U.NFUN+1 : PATTERN NUMBER TO WRITE 

22 000012 U.CCNT = U.PAT+1 3 CURRENT COUNT OF yy L 

23 000014 U.PCTG = U.CCNT+2 3 POINTER TO CURRENT TRACK OR GROUP 

24 000015 U.CTRK = U.PCTG+1 3 ck C FOR GROUP OPERATIONS 

25 000016 U.NSEC = U.CTRK+1 : ER OF SECTORS R/W THIS TRY 

26 000017 U.MSEC = U.NSEC+1 3 NUMBER OF SECTORS TO BE R/W 

27 000020 U.TSEC = U.MSEC+1 3 NUMBER OF SECTORS TO BE R/W THIS OP 

28 00002 U.CSEC = U.TSEC+1 3 COUNT OF SECTORS R/W SO FAR 

29 000022 U.MASK = U.CSEC+1 3 UNIT MASK FOR XFC CALLS (0001 = 1000) 
30 000023 U.WRIT = U.MASK+1 3 WRITE PROTECTION STATUS 

31 000024 U.ELEV = U.WRIT+1 : CURRENT ERROR RECOVERY LEVEL 

32 000025 U.RTRY = U.ELEV+1 3 MAXIMUM NUMBER OF READ RETRIES 

33 000026 U.MLEV = U.RTRY+1 3 MAXIMUM NUMBER OF ERROR RECOVERY LEVELS 
34 000027 U.ECCT = U.MLEV+1 : ECC THRESHOL 

35 000030 U.SDIS = U.ECCT+1 : SDI SHORT TIMEOUT 

36 000031 U.SDIL = U.SDIS+1 3: SDI LONG TIMEOUT 

37 000032 U.WPRT = U.SDIL+1 3 MASK TO WRITE PROTECT READ-ONLY DRIVES 
38 000033 U.PARM = U.WPRT+1 : UNIT PARAMETER WORD 

39 000034 U.SUBU = U.PARM+1 3 SUBUNIT OFFSET (0 = 3) 

40 000035 U.MBN = U. SUBU+1 : MASTER L/DBN 

41 000037 U.CBN = U.MBN+2 3 CURRENT L/DBN FOR START OF CHA 

42 000041 U.RBN = U. CBN+2 3 RBN TO BE READ/WRITTEN IF LBN REVECTORED 
43 000043 U.COPY = .RBN+2 3 NUMBER OF RCT COPIES ON EACH SUBUNIT 

44 000044 U. = U.COPY+1 : CURRENT RCT COPY THAT WE'RE WORKING ON 
45 000045 U.RWER = U.CCOP+1 : ERROR (IF ANY) ON THE LAST R/W 

46 000046 U.RVER = U.RWER+1 : ERROR THAT OCCURRED BEFOR THE REVECTOR OPERATION 
47 000047 U.SNUM = U.RVER+1 : 4 WORDS THAT HOLD THE SUBUNIT LOGICAL NUMBERS 
48 53 U.CCYL = . SNUM+4 : CURRENT CYLINDER 

49 000055 U.CGRP = U.CCYL+2 

50 000056 U.LCYL = U.CGRP+1 3 LAST CYLINDER SEEKED TO 

2} 000060 U.LG s U.LCYL+2 3 LAST GROUP SEFKED TO 

27 : SUBUNIT PARAMETER OFFSET 

55 000000 S.PARM = 0. 3 SUBUNIT PARAMETER WORD 

56 000001 S.SDCL = S.PARM+1 3 STARTING DIAGNOSTIC CYLINDER 

57 000003 S.PAT = $.SDCL+2 3 PATTERN TO USE FOR WRITES 








UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 PAGE 7-1 
TEST 4 SPECIFIC INFORMATION 


000011 
000013 
000015 


NUMBER OF SECTORS _IN ONE TRAC 
POINTER TO SUBUNIT CHARACTERISTICS 
E UP TO 245) 


POINT 
START OF BEGIN/END SETS 


IF TRACK/GROUP LIMITS ARE GIVEN, THE SUBUNIT PARAMETERS HAVE THE 
FOLLOWING FIELDS ADDED TO THEM 


3 MAXIMUM TRACK/GROUP COUNT 
: ORIGINAL TRACK/GROUP OFFSET 
: START OF TRACK/GROUP SETS 


wee re ee - 
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TEST 4 SPECIFIC INFORMATION 


1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 


NOR) 3 2 
= 


000001 
000002 


100000 


000001 


020000 


000200 
000100 


000010 


000004 
000002 


000001 


ONLYCL 
SEQSEK 


WCPECK 


WCHKAL 
DATCMP 


DCMPAL 


DUMMY SDI CONTROL BLOCK OFFSETS 


“uu 
= 


2 


UNIT PARAMETER BITS (U.PARM(RS)) 
100000 
40000 


nnnnnnnnnnnnan 
= 
oS 
So 
oS 


wnnnne 2 
@ 
Cc 
2 
= 
o 
mL 
oo 
o 
oO 


PARAMETER BITS (S.PARM(R4)) 


SEQ 0078 


DUMMY SDI SEARCH LIMIT 
DUMMY POINTER TO SUBUNIT CHAR-5 


DROP BIT (SET IF UNIT OR SUBUNIT DROPPED) 

INITIAL WRITE (SET IF INITIAL WRITE IN oo 

IF 1, INDICATES THAT A SEEK IS NECESSARY 

DIRECTION (SET IF SEQUENTIAL ACCESSES DECREASING) 
SET IF SEQUENTIAL SEEKS MOVED TO NEW SUBUNIT 

SEEK _IN PROGRESS = SET IF TRUE 

FIRST TIME FLAG = SET FOR INIT CODE 

REVECTOR BIT (SET IF BLOCK REVECTORED) 

SEE IF WORK BN 


ING 
; REDWRT (READ OR WRITE IN PROGRESS SET IF WRITE) 
; REVECTORING OPERATION IN PROGRESS 
; DATA ERROR IF SET 


IF CLEAR, START RETRIES AT ZERO 
RECALIBRATION BIT (SET IF RECALIBRATE JUST DONE) 


DIAGNOSTIC CYLINDER FLAG (SET IF DBNS) | 
1 IF ECC CORRECTION rye MASTER BITS | 
READ ONLY (SET IF READ ONLY) 
WRITE ONLY (SET IF WRITE ONLY) 

1 IF RETRIES ALLOWED | 
SET IF ONLY ho kere SPECIFIED 
USED DURING SETUP ONL 
SEQUENTIAL SEEK (START UP_TESTING ONLY) | 


IF SET) 
E CHECK BIT (IF SET, tH CHECK WILL BE DONE). 
ARAME TERS 


WRIT 
WCHECK’ 1g ALS USED FOR THE UNIT P 


F WRITE CHECK ALWAYS TO BE DONE | 
PARE (SET IF DATA COMPARE TO BE DONE) | 


; DATA COM 
DATCMP Ri USED FOR THE UNIT PARAMETERS 


IF DATA COMPARE ALWAYS TO BE DONE 





: - 
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MACRO DEFINITIONS 


I 
} -SBTTL MACRO DEFINITIONS 
? H DIAGNOSTIC MACRO FOR TEST4 OVERLAYS 
5 eMACRO DIAGS$ 
6 TST SSDIAG+$D1AG$ 
v4 BEQ + 
8 MoV  #60000,RO | 
9 MOV RO,a$$D1AG+$D1 AGS 
10 BR + 
11 $DIAG$ = SDIAGS + 1 
| 





UDAT1 
MACRO 


— 
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DEF INITIONS 

J ; MESSAGE CONTROL TABLE MACRO 

3 . .MACRO MSG CHOBUF , CMDSZ,RPLBUF , RPLSZ SUCCOM 

4 ;WORD CMDBUF DDRESS OF COMMAND 

5 “WORD CMDSZ etze OF COMMAND | 4 BYTES 

é “WORD RPLBUF SADDRESS OF REPL 

7 ;WORD RPLSZ tSIZE OF REPLY iN WORDS 

8 .1F NB NUMBER 

3 - WORD SUCCOM : SUCCESSFUL COMPLETION CODE 
1 ENDM 


SEQ 0080 | 





UDAT1 
MACRO 


UNIBU 


Dd 
1 
5 
4 


E 


I 
F 


INIT 


Yr — DMACR X04.01 23-AUG=82 12:00:45 PAGE 11 
-MACRO BCS LAB.. 


SEQ 0081 


E " 
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MACRO DEFINITIONS 





: PUSH REGISTER MACRO 


-MACRO PUSH R9 
oIRP X,<R9> 


-ENDR 
-ENDM 


: POP REGISTER MACRO 


»MACRO POP R9 
oIRP X,<R9> 


MOV X,=(SP) 


MOV (SP)+,X 


VISWN Oo OONOUSwh— 
= 


SS st a 










UDAT1 
MACRO 


WN $9 OONOUSWN $0 ODONAUSWN “OC OONOUSWN— oO 


RS IRIN INNS ed ed ad ad ed ed ed 


VISSBVHU 


ae 
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ZERROR MACROS 
STHESE MACROS ARE CALLED TO REPORT ERRORS TO THE HOST PROGRAM. 
STHE MACRO NAMES A ERRSF, ERRDF, ERRHRD, ERRSFT. EACH RESULTS IN THE HOST 
3BEING REQUESTED TO REPORT HE ERROR. 

RGUMENTS: mS$) AGE POINTER 


PARAMETER #6 
PARAMETER #7 
9 (P8$) PARAMETER #8 


3 THE ope POINTER MUST POINT TO AN sg IN THE wrertd oan IMMEDIATELY 
FOLLOWING THE MAIN CODE. ANY ADDRESS MODE MAY BE USED (E.G. 4M R2). 
sTHE ADDRESS MUST CONTAIN AN ASCII FORMAT STRING 10 DETERMINE THE MESSAGE 


310 PRINT. 

:THE PARAMETER ARGUMENTS ARE OPTIONAL. THEY SHOULD BF SUPPLIED ONLY WHEN 
sTHERE IS DATA TO BE PASSED TO THE HOST THAT WILL BE USED IN PRINTING THE 
s MESSAGE THESE octne E Se ettihes. ARE THE ADDRESS OF DATA TO BE PASSED 


R RE 
sALL REGISTERS ARE RETURNED UNCHANGED. IT SHOULD BE NOTED THAT ARGUMENTS 
sCONTAINING SOMETHING OTHER THAN A REGISTER NAME (E.G. #100 OR MEMADR) 

ASSEMBLE TO INSTRUCTIONS THAT SAVE AND RESTORE A REGISTER ON THE STACK. 


ha akesh MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S 


CONAUIE WA 

PP PPP Pn Pn ORO 

vwuvvvvUU m 
OnE WNn— 


eRADIX 1 
— FTLSYS .MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 


«MACRO ERRDF MS$,P1$,P2$,P3$,P4$,P5$,P6$.P7$,P8$ 
RG ARGSS 


»RADIX 10 
— FTLDEV,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 


meee ERRHRD MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 

eNARG ARGS$ 

eRADIX 10 

ERRORS ERHARD ,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 


«MACRO ERRSFT MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S 
G ARGSS 


sRADIX 10 
— ERSOFT,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S, \ERRN 


SEQ 0083 


—- HH 





—w 
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NITIONS 


He 


;THE FOLLOWING MACRO ACTUALLY PROCESSES THE ERROR CALL TO THE HOST PROGRAM 


NONPININIR) 2 2 


sien 7. ETS,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$,ERRNS 


cate 
*,ERROR;NOT ENOUGH ARGUMENTS IN ERROR CALL 


-EN 

REGS$=-1 

- LIF GE,<PRMS-8.>,PARGS. P8$ 
-IIF GE. <PRIS-7.>,PARGS. nes 


FR me Ome be fmt Ome me 
Sis ns Bs Bs Ben) 
a 
m 
> 
A 
wv 
nn zz 
wn = 
mn 
a 
=~ 
s 
v 
. 
wv 
= 
a 
mn 
74 
td 


GE,<PRMS-1.>,PARGS. P1$ 
GE REG 
RSTR$ \REGSS 


SRADIX 10 
LIST 


I 
I 
I 
I 
I 
I 
I 


CALL RERROR ERROR # ERRNS‘. 


-NLIST 
RADIX 8 
LIST 
-WORD ETS+ERRN 
-WORD <PRMS*10000>+MS$ 


eNLIST 
ERRN=ERRN+1 
ENDM 


-MACRO PARGS. ,ADDRS 


SSWWWWWIWwnonononon 


eNTYPE PTYPES,ADDRS 
- IF EQ,<PTYPE$&70> 
HIE EQ, -<PTYPES&7>-REGS$,.RSTRS \REGSS 


MOV ADDR$,-(SP) 


.NLIST 
: +f EQ, <PTYPESE7>=1 sPICK A REGISTER TO USE 
ms: Gus=2 7SELECT R2 IF R1 IS USED IN PARAMETER FETCH 
“eregus=t OTHERWISE USE R1 
-IF NE ,<REGUS-REGSS> IF REGISTER NOT ALREADY SAVED 
RSTRE \REGSS RESTORE CURRENT SAVED REGISTER 
SAVRS \REGUS ;THEN SAVE SELECTED REGISTER 


GETPS \REGS$,ADDRS 
ENDC 
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MACRO DEFINITIONS 


-MACRO_SAVR$ REGN 
«LIST 


»MACRO_RSTR$ REGN 
«LIST 


-MACRO GETP$ REGN,ADDRS 
«LIST 


SOOONOUVUESWN 30 OONOUSWwh— 


FAD et ek sd ed et ts ot a 


MOV R‘REGN, SAVREG 


MOV SAVREG,R‘*REGN 


MOV ADDRS,R*REGN 
MOV R‘REGN,=(SP) 
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MACRO DEFINITIONS 


MEW Oo OONOUSWN $0 OONOUFS wh 


NONINONONND 2 


PRIMARY ERROR REPORTING (TEST 4) 


-MACRO 
ERROR 
~ENDM 
-MACRO 
olf 
 IFF 
-ENDC 
IF 
FF 
-ENDC 





SOFTER NUM,ARGS 
#ERSOF T,NUM,<ARGS> 


REPSFT SFTFLG,ECCFG 
NB,SFTFLG 


NB,ECCFG 


HARDER NUM,ARGS 
#ERHARD , NUM, <ARGS> 


DEVFTL NUM,ARGS 
#FTLDEV,NUM,<ARGS> 


SYSFTL  NUM,ARGS 
#FTLSYS,NUM,<ARGS> 


ROR TYPE,NUM,ARGS 


m ov 


iT ww fl om—m 


NUMPTR + 1 


MOV #ERRMES ,R2 
MOV R2,0UT.RO 


MOV #1,0UT.02 
CLR OUT .02 


MOV #1,0UT.03 


CLR OUT.03 
PUSH RO 

MOV #U. SNUM,RO 
ADD 


ADD U. SUBUCRS) ,RO 


MOV (RO) ,OUT.01 
arasort. RO 
HOSTRQ 


MOV #ERRMC ,R2 
MOV R2,0UT.RQ 


MOV #ERRMC ,R2 
MOV R2,0UT.RQ 


MOV #ERRMC ,R2 
MOV R2,0UT.RQ 


SEQ 0086 
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MACRO DEFINITIONS 


101 


ay 
oo 
Wr 


bt ot 
RWN=COBNRAR 


NUMPTR 


NUMPTR 


NUMPTR 


~ENDC 


»RADIX 
-ENDM 


~MACRO CERROR STNUM,ARGS 
eRADIX 10 

= STNUM 

- IRP X, <ARGS> 

MOVMSG X,\NUMPTR 

= NUMPTR + 1 

-ENDR 

»RADIX 

~ENDM 


«MACRO ERRORC ARGS 
eRADIX 10 
- IRP 
MOVMSG X,\NUMPTR 
= NUMPTR + 1 
-ENDR 


-RADIX 
NDM 


«MACRO MOVMSG ARG, INDX 
IF LT, INDX-10 
oIFF 


-MACRO ENDERR POS 
: NB, POS 
NDERR POS 

NDERR  \NUMPTR 


«MACRO NDERR POS 
IF NE ,POS 


MESSAGE REPORTING MACRO 


«MACRO MSSG NUM, ARGS 
eRADIX 10 

NUMPTR = 3 
MOVMSG #MS‘NUM,2 


MOV 
MOV 


BIS 
CLR 


ARG,OUT.0° INDX 
ARG OUT. * INDX 


#POS ,ERRPOS 
ERRPOS 


SEQ 0087 


; SET THE POSITION 
: CLEAR THE POSITION | 






THe 
—@w 


SRRRRSRR EW 
DONAOULSWN—O”O 
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NITIONS 


NB, <ARGS> 

X,<ARGS> 

X, \NUMPTR 

= NUMPTR + 1 
PUSH 
MOV 
ADD 
ADD 
MOV 
MOV 
CALL 
PoP 

MSSGE NUM,ARGS 

10 

#°NUM,2 

NB, <ARGS> 

x, <ARGS> 

X, \NUMPTR 

= NUMPTR + 1 
PUSH 
MOV 
CALL 
PoP 


<RO,R1> 
#U.SNUM,R1 


R5,R 
U. SUBUCRS) ,R1 
(R1) ,OUT.01 
#MESSAG,RO 
HOSTROQ 
<R1,RO> 


<RO,R1> 
#MESSAG,RO 
HOSTRQ 
<R1,R0> 


NONI et ts 
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MACRO DEFINITIONS 


4 
5 
6 
? 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 


DSTAT,LABS$,E1,E2 
MEB 
ME 
RDSTAT 
#10000,R1 
#4000,R1 
1$ 

E1 

LABS 

E2 

LABS 


sRETURN DRIVE STATUS MACRO WITH ERROR REPORTING 


GET DRIVE STATUS 

SEE IF ANY ERRORS 

IF NO ERROR, BRANCH 

SEE IF XMIT ERROR 

IF SO, BRANCH 

REPORT INVALID STATUS ERROR 
BRANCH TO DON 

REPORT XMIT ERROR 

BRANCH TO DONE 
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MACRO DEFINITIONS 


: XOR THE CONTENTS OF TWO REGISTERS 
«MACRO RXOR REG1,REG2 

MOV REG2,=(SP) 
G1,REG2 
BIC (SP)+,REG1 
BIS REG1 ,REG2 


Bete Se Ge 


OWONOUE Ww 


SAVE REGISTER REG2 
CLEAR COORESPONDING 
CLEAR COORESPONDING 
OR WHAT'S LEFT 


T 
T 


SEQ 0090 





IB 
FIN 
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ITIONS 


ATI 
0 


UN 
DE 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 


PND IND et ek ed et es ot os 2 


SDI INTERCHANGE WITH DRIVE WITH ERROR REPORTING 
-MACRO TALKX ERRLAB,E1,E2 


»NLIST 
-NLIST MEB 
LIST ME 
«LIST 
CALL TALKER 3 INITIATE SDI INTERCHANGE 
TST R3 : Zz aT ERROR OCCURRED 
BEQ 12$ : IF N NCH 
: IF $0, “BRANCH 


BPL 11$ 

ERRHRD E1;SEND COMMAND ERROR 

BR ERRLAB 

ERRHRD E2;RECEIVE COMMAND ERROR 
BR ERRLAB 






START OF TEST 


1 
; 000714 114007 
16 
17 
18 
19 000715 104206 
3 000717 001374 
32 000720 
33 
34 
35 
36 
37 000720 
000720 100463 
000721 100467 
38 000722 104203 
39 000724 060007 
40 000725 103201 
41 000727 102201 
42 000731 010737 
43 000732 117403 
44 0007335 050724 
000734 104201 
6 000736 000746 
47 000737 196601 
48 000741 050746 
49 000742 117403 
50 000743 050724 
51 000744 104201 
52 000746 
000746 104267 
000747 104263 
53 000750 
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001373 


000003 
014000 
000400 


010000 
000004 


014000 






-SBTTL START OF TEST CODE 
:THE FOLLOWING IS FOR DEBUG PURPOSES ONLY. CAN BE NOP OR BREAKPOINT. 


CLR RO CHANGE TO BREAKPOINT FOR DEBUG 
s INITIALIZE STACK 
MOV #STACK,SP :SET UP STACK POINTER 
R TART BRANCH OVER SUPPORT CODE 


-SBTTL RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 
RDSTAT: 


[RETURN DRIVE STATUS 
STATUS RETURNED IN DM REGISTER 1 


PUSH <R3,RO0> SAVE Rb AND RO 


MOV R3,-(SP) 
MOV RO,-(SP) 
ALLOW ONLY 3 per 
GET DRIVE'S STA tus 
; CLEAR ee PASSING BITS 
; see ck La IT ERRORS 


IF RRORS, BRANCH 
; DECREMENT TRANSMIT ERROR COUNT. 

IF ERROR COUNT INCOMPLETE, BRANCH 
; nay TRANSMIT ERROR 
; Fr eenie ERRORS 


IF VALID, BRANCH 
DECREMENT ERROR COUNT 


T NON=Z 
FLAG AS INVALID oTarus 8 ERncn 
RESTORE RO, R3 

MOV (SP)+,RO 


MOV (SP)+,R3 
RETURN 3 RETURN TO CALLING MODULE 


MOV #3, 
STATLP: XFC STATUS 
BIC #14000,R1 
BIT #XMTERR,R1 
‘BEQ _ 


STATLP 
MOV #10000,R1 
B STATEX 
STATOK: BIT #RCVERR,R1 

BNE res 
BNE STATLP 


MOV #14000,R1 
STATEX: POP <RO,R5> 


BRANCH 


SEQ 0092 
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HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


1 .SBTTL HOSTRO = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 
é 000751 HOSTRO: 
4 ?SEND REQUEST BUFFER TO HOST AND WAIT FOR RESPONSE. 
5 [CLEAR ARGUMENT AREA OF OUT BUFFER IN PREPARATION 
£ [FOR NEXT HOSTRQ CALL. 
8 INPUTS: 
9 : RO = HOST REQUEST NUMBER 
19 : OUT BUFFER LOADED WITH DATA 
12 000751 PUSH <RO,R1,R2> 
000751 100467 MOV RO,=(SP) 
00075¢ 100461 MOV R1.=(SP) 
000753 100462 MOV R2.=(SP) 
13 000754 104070 001006 MOV RO,OUT.RQ :STORE REQUEST NUMBER IN BUFFER 
14 000756 104207 001006 SNDAGN: MOV #OUT.RQ,RO [SEND BUFFER TO HOST 
15 000760 104201 000043 MOV #BUFSIZ.R1 
16 000762 060016 XFC MRD 
17 000763 115001 TST R1 :CHECK FOR ERROR 
18 000764 050756 BNE SNDAGN SIF ERROR, TRY AGAIN 
19 000765 104207 001051 MOV #IN.RQ,RO [WAIT FOR RESPONSE FROM HOST 
20 000767 104201 000043 MOV #BUFSIZ,R1 
21 000771 060017 XFC MWR 
22 000772 104207 001007 MOV #0UT.01,RO ZCLEAR ARGUMENT WORDS IN BUFFER 
23 000774 104201 000034 MOV #OUT.29-OUT.01,R1 
24 000776 114002 CLR R 
33 000777 100272 CLRBUF: MOV R2,(RO)+ 
6 001000 117401 DEC R1 
27 001001 030777 BPL CLRBUF 
28 001002 POP <R2,R1,RO> 
001002 104262 MOV (SP)+,R2 
001003 104261 MOV (SP)+.R1 
001004 104267 MOV (SP)+_RO 
29 001005 000000 RETURN 





Dd 
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HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


1 sSTORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 

$ OUT BUFFER = DATA TO SEND TO HOST 

5 001006 000000 OUT.RQ: .WORD 0 sHOST REQUEST CODE 
6 001007 000000 OUT.01: .WORD 0 sDATA ARGUMENT 1 
7 001010 000000 OUT.02: .WORD 0 sDATA ARGUMENT § 
8 001611 000000 OUT.035: .WORD 0 sDATA ARGUMENT 

9 Bh AE 00 OUT.04: .WORD 0 zDATA ARGUMENT 4 
10 001013 000000 OUT.05: .WORD 0 sDATA ARGUMENT 5 
11 001014 0 OUT.06: .WORD 0 sDATA ARGUMENT 6 
12 001015 00 OUT.07: .WORD 0 zDATA ARGUMENT 7 
13 001016 000000 OUT.08: .WORD 0 sDATA ARGUMENT 8 
14 001017 00 OUT.09: .WORD 0 sDATA ARGUMENT 9 
15 001020 00 OUT.10: .WORD 0 sDATA ARGUMENT 10 
16 0C1021 000000 OUT.11: .WORD 0 sDATA ARGUMENT 11 
17 y01022 OUT.12: .WORD 0 sDATA ARGUMENT 12 
18 001023 000000 OUT.13: .WORD 0 sDATA ARGUMENT 13 
19 001024 000000 OUT.14: .WORD 0 sDATA ARGUMENT 14 
20 001025 000000 OUT.15: .WORD 0 zDATA ARGUMENT 15 
21 001026 T.16: .WORD 0 zDATA ARGUMENT 16 
22 001027 000000 OUT.17: .WORD 0 sDATA ARGUMENT 17 
23 001030 000 T.18: .WORD 0 sDATA ARGUMENT 18 
24 001031 T.19: .WORD 0 zDATA ARGUMENT 19 
25 001032 00 OUT.20: .WORD 0 zDATA ARGUMENT 20 
26 001033 000000 OUT.21: .WORD 0 zDATA ARGUMENT 21 
27 001034 000000 1 .$¢: -WORD 0 zDATA ARGUMENT 22 
28 001035 000000 i : oe sDATA ARGUMENT 25 
29 001036 000000 T.24: WORD : ARGUMENT 24 
30 001037 000000 T.25: .WORD 0 sDATA ARGUMENT 25 
31 001040 000000 T.26: .WORD 0 : ARGUMENT 
32 001041 000000 T.27: .WORD 0 zDATA ARGUMENT 27 
33 dha 000000 T.28: .WORD 0 zDATA ARGUMENT 28 
34 001043 000000 i + «WORD 0 zDATA ARGUMENT 29 
35 001044 000000 T.50: .WORD 0 zDATA ARGUMENT 30 
36 001045 000000 T.31: .WORD 0 zDATA ARGUMENT 31 
37 001046 009000 T.32: .WORD 0 3D ARGUMENT § 
38 001047 000000 T.33: .WORD 0 sDATA ARGUMENT 

4 001050 000000 OUT.34: .WORD 0 sDATA ARGUMENT 

es 3 IN BUFFER = DATA RECEIVED FROM HOST 

ri 001051 000000 IN.RQ: WORD 0 sHOST REQUEST CODE (ECHO) 
44 001052 000000 IN.01: .WORD 0 zDATA ARGUMENT 1 
45 0061053 000000 in-Oe: «WORD 0 DATA ARGUMENT 

46 001054 000000 IN.03: .WORD 0 2DATA ARGUMENT 

47 001055 000000 IN.04: . WORD zDATA ARGUMENT 4 
48 P1028 000000 IN.05: . sDATA ARGUMENT 5 
49 001057 000000 iN: - WORD :DATA ARGUMENT § 
50 001060 000000 IN.O7: . :DATA ARGUMENT 

51 001061 000000 IN.08: . 2DATA ARGUMENT 8 
26 Opt Oes sisi IN.09: . sDATA ARGUMENT 

53 00106 00 IN.10: WORD zDATA ARGUMENT 10 
54 001064 000000 IN.11: WORD sDATA ARGUMENT 11 
55 001065 ina et - WORD sDATA ARGUMENT \¢ 
56 Bo 1068 IN.13: . WORD zDATA ARGUMENT 1 
57 001067 000000 IN.14: WORD sDATA ARGUMENT 14 








UDAT1 UNIBUS ADDRES 
HOSTRQ = HOST REQUE 


59 001071 
60 001072 
61 001073 
62 001074 
63 001075 
64 001076 
65 001677 
66 001100 
67 001101 
68 001102 
69 001105 
70 001104 
71 001105 
72 001106 
73 001107 
74 001110 
75 001111 
76 001112 
77 001113 
78 
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HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


TALKER SENDS AND RECEIVES AN SDI INTERCHANGE 


INPUTS: 
: R2 = SDI INTERCONNECT 
: R3 = POINTER TO COMMAND TABLE CONTAINING APPROPRIATE COMMAND 
S ourpurs Sut TO” SD1stO SDI LONG AND SHORT TIMEOUTS, RESPECTIVELY 
: RO = RETURN OP CODE FROM UNIT 
; R3 = ERROR CODE = 0 = NO ERROR, 1 = RECEIVE ERROR, 100001 = SEND ERROR 
TALKER: PUSH  <R1,R4> 3 SAVE REGISTERS 
MOV R1,-(SP) 
MOV R4,=(SP) 
MOV (R3)+,RO : SET ADR OF SDI COMMAND BUFFER 
MOV (R3)+.R1 : SET BUFFER LENGTH 
XFC SEND + SEND COMMAND 
TST R1 : DID UNIT ACCEPT COMMAND 
BEQ TALK1A : IF SO, H 
MOV #100001,R3 : FLAG AS SEND ERROR 
BR TALK2B t BRANCH TO EXIT 
TALK1A: CMP #LONG,R3 + SEE IF LONG TIMEOUT TO BE USED 
BMI 1$ : IF SO, BRANCH 
MOV SDISTO,R4 : SET UP SHORT TIMEOUT 
BR TALK1B + BRANCH 
1$: MOV SDILTO RG : SET UP LONG TIMEOUT 
TALK1B: MOV (R3) ,RO 3 SET DATA BUFFER ADDRESS 
MOV 1(235,R1 : SET BUFFER LENG 
KFC RCV : SEND RECEIVE SDI COMMAND 
TST RI + DID ERROR OCC 
BEQ TALK2A : IF NOT, BRANC 
CMP oR1 : SEE IF TIMEOUT 
BEQ : IF SO, BRANCH 
MOV R1,R3 : MOVE ERROR TYPE TO R3 FOR REPORTING 
BR TALK2B + EXIT 
1$: DEC R4 + DECREMENT TIMEOUT VALUE 
BNE TALK1B8 : IF NOT TIMEOUT, BRANCH 
MOV #1,R3 > FLAG AS RECIEVE ERROR 
BR TALK2B + BRANCH TO EXIT 
TALK2A: CLR : FLAG AS NO ERRORS 
TALK2B: POP <R4,R1> : RESTORE R4, R1 
MOV (SP)+,R4 
MOV ‘SP)+.R1 
RETURN 
SDISTO: .WORD 10. : SDI SHORT TIMEOUT 
SDILTO: .WORD 20. : SDI LONG TIMEOUT 





SEQ 0096 | 
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UDAT1 UNIBUS ADDRESSING DMACR X04.01 23=AUG=82 12:00:45 PAGE 24 SEQ 0097 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 

3 sMREAD 

? 41 he WORD FROM UNIBUS MEMORY 

5 3 RS = ADDRESS OF WORD TO READ (LOW 16 BITS) 

6 : R4 = a (HIGH 2 BITS) 

7? ;OUTPUTS: 

: ; RO = DATA READ 

10 001164 MREAD: PUSH <R2,R3> zSAVE SOME REGISTERS 
001164 9p 4 MOV R2,-(SP) 
001165 10046 MOV R3,-(SP) 

11 p01168 104057 MOV R5S,RO PUT UNIBUS ADDRESS IN RO AND R1 

12 001167 104041 MOV R4,R1 

13 001370 104202 000001 MOV #1,R2 TRANSFER ONE WORD 

14 001172 104203 001222 MOV #UDATA,R3 LOCATION TO PUT DATA 

15 001174 060013 XFC UREAD 3D0_ THE READ 

16 001175 104307 001222 MOV UDATA,RO GET DATA READ 

17 001177 POP <R3,R2> sRESTORE OTHER REGISTERS 
001177 104263 MOV (SP)+,R3 
001200 104262 MOV (SP)+,R2 

18 001201 000000 RETURN 





UDAT1 UNIBUS ADDRESSING D 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


MACR X04.01 23-AUG-82 12:00:45 PAGE 25 SEQ 0098 


} sMWRITE 
? EWRITE ONE WORD TO UNIBUS MEMORY 
5 3 "RS = ADDRESS OF WORD TO WRITE (LOW 16 BITS) 
6 : R4 = (HIGH 2 BITS) 
7? RO = DATA TO WRITE 
: OUTPUTS: 
10 001202 MWRITE: PUSH <RO,R2,R3> sSAVE SOME REGISTERS 
001202 100467 MOV RO,=(SP) 
001203 100462 MOV R2,-(SP) 
001204 100463 MOV _R3,-(SP) 
11 001205 104070 001222 MOV RO,UDATA 3PUT DATA TO BE WRITTEN INTO BUFFER 
12 001207 104057 MOV R5,RO PUT UNIBUS ADDRESS IN RO AND R 
13 001210 10404 MOV R4,R1 
14 001211 104202 000001 V #1,R2 : TRANSFER ONE WORD 
15 001213 104203 001222 MOV #UDATA,R3 sADDRESS OF DATA WORD 
16 001215 060014 UWRIT 200 THE WRITE 
17 001216 POP <R3,R2,R0> sRESTORE THE REGISTERS 
001216 104263 MOV (SP)+,R3 
001217 104262 MOV (SP)+,R2 
001220 104267 MOV (SP)+,RO 
1s 001221 000 RETURN 
20 001222 000000 UDATA: .WORD 0 DATA BUFFER FOR TRANSFERS TO AND FROM 
21 sUNIBUS MEMORY 


HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


| a i a ee | 
UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 PAGE 26 SEQ 0099 


1 :XOR 
$ eer XOR LOGIC FUNCTION ON TWO REGISTERS 
5 ; R1, R2 = DATA TO BE XOR'ED 
6 sOUTPUTS: 
7 : R1 = UNCHANGED 
; : R2 = XOR OF TWO INPUTS 
10 001223 XOR: PUSH R3 sSAVE R3 
001223 100463 MOV R3,-(SP) 
11 007224 104013 MOV R1,R3 
12 001225 103023 BIC R2,R3 
13 001226 103012 BIC R1,R2 
14 001227 101032 BIS R3,R2 
15 001230 POP R3 sRESTORE R3 
001230 104263 MOV (SP)+,R3 
16 001231 115002 TST R2 SET CONDITION CODES 
17 001232 000 RETURN 
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UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 PAGE 27 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


ets THE TIMEOUT IN 9SEC INTERVALS (SDI RECEIVE XFC TAKES 


; SET UP LOG2 SHIFTER 


ROL R1 : DOUBLE THE TIMEOUT VALUE 

BIC #1,R1 : CLEAR THE LOW B 

DEC RO 3 DECREMENT COUNT 

BNE 1$ 3 IF COUNT Pino BRANCH 

CLR RO : CLEAR 9SEC_ COUNT 

INC RO : INCREMENT 9 SEC 

SUB #9.,R1 3 SUBTRACT 9 SEC FROM TIMEOUT 
L 2s : IF MORE TIME TO GO, BRANCH 

RETURN 3 RETURN TO CALLING PROGRAM 


me a ee 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 PAGE 28 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


1 :RERROR 
¢ SREPORT ERROR TO HOST PROGRAM 
4 [THIS ROUTINE IS CALLED BY THE ERROR MACROS: 
5 *ERRSF, ERRDF, ERRHRD AND ERRSFT 
6 001250 RERROR: 
7 001250 PUSH RO ZSAVE ONE REGISTER 
001250 100467 MOV RO,-(SP) 
8 001251 104067 MOV SP,RO :GET STACK POINTER 
9 001252 PUSH <R1,R2,R3,R4> TSAVE MORE REGISTERS 
00125¢ 100461 MOV R1,=-(SP) 
001253 100462 MOV R2,-(SP) 
001254 100463 MOV R3,-(SP) 
001255 100464 MOV R4,=(SP) 
10 001256 115407 INC RO ZCHANGE SAVED STACK POINTER TO POINT TO 
11 : ADDRESS OF LOCATION AFTER CALL 
12 001257 104271 MOV (RO)+,R1 ‘GET RETURN PC 
13 001260 104202 001007 MOV #0UT.01,R2 [GET ADDRESS OF WHERE TO PUT DATA 
14 001262 117401 DEC R1 ZREDUCE TO PC OF ERROR CALL 
15 001263 100221 MOV R1,(R2)+ :PUT PC IN OUT BUFFER 
16 001264 115401 INC R1 :GET BACK TO RETURN PC 
17 001265 104213 MOV (R1)+,R3 ZGET CRROR NUMBER AND TYPE 
18 001266 100223 MOV R3,(R2)+ :PUT IN BUFFER 
19 001267 104303 001331 MOV LUNIT,R3 [PUT UNIT NUMBER IN BUFFER 
20 001271 100223 MOV R3,(R2)+ 
21 001272 104113 MOV (Ri),R3 ZGET MESSAGE POINTER 
22 001273 103203 170000 BIC #*C007777,R3 [CLEAR OTHER BITS 
23 001275 100223 MOV R3,(R2)+ [PUT IN OUT BUFFER 
24 001276 104214 MOV (R1)+,R4 [GET COUNT OF PARAMETERS 
25 :R1 IS NOW POINTING TO INSTRUCTION AFTER ERROR CALL 
26 001277 110704 SWAB R4 
27 001300 110604 ROR R4& sEXTRACT NUMBER OF PARAMETERS FROM ERROR MACRO 
28 001301 110604 ROR R4 
29 001302 110604 ROR R4 
30 001303 110604 ROR R4 
31 001304 103204 177760 BIC #177760,R4 
32 001306 104040 001327 MOV R4,SPADJU+1 ZSAVE FOR LATER ADJUSTMENT OF STACK POINTER 
33 001310 011315 BEQ RERRCA [BRANCH IF NO PARAMETERS 
34 001311 104273 RERRPA: MOV (RO)+,R3 :GET PARAMETE 
35 001312 100223 MOV R3,(R2)+ ZSTORE PARAMETER IN OUT BUFFER 
36 001313 117404 DEC R& [COUNT THE PARAMETERS 
37 001314 051311 BNE RERRPA [GET NEXT IF MORE 
38 001315 100471 RERRCA: MOV R1,-(RO) ZPUT RETURN ADDRESS ON STACK 
39 001316 104207 060013 MOV #ERRMES,RO ZSEND ERROR PACKET TO HOST PROGRAM 
40 001320 020751 CALL HOSTRQ 
41 001321 POP <R4,R3,R2,R1,RO> ZRESTORE REGISTERS 
001321 194264 MOV (SP)+,R4 
001322 104263 MOV (SP)+.R3 
001323 104262 MOV (SP)+.R2 
001324 104261 MOV (SP)+.R1 
001325 104267 MOV (SP)+.RO 
42 001326 105206 000000 SPADJU: ADD #0,SP ZADJUST STACK OVER PARAMETERS 
43 [VALUE CHANGED ABOVE 
4a 001330 000000 RETURN 


46 001331 177777 LUNIT: .WORD -1 LOGICAL UNIT NUMBER (-1 FOR NOT AVAILABLE) 


j 


SEQ 0101 | 


—— 
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UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 PAGE 28-1 sea 0102 


HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
48 001332 000000 SAVREG: .WORD 0 sSTORAGE FOR REGISTER AT CALL TIME 


UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 PAGE 29 SEQ 0103 — 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 





} :STACK AREA 
; 001335 123456 WORD 123456 END MARKER FOR STACK 
§ 001373 123456 STACK: WORD 123456 [MARKER FOR STACK UNDERFLOW 
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UDAT1 UNIBUS ADDRESSING DMACR X04.01 23=AUG-82 12:00:45 PAGE 30 
FREE MEMORY CHECK 


-SBTTL FREE MEMORY CHECK 


ERRN=1000. START ERROR NUMBERS FROM 1000. 

zASK HOST WHERE FREE enore TS AND TO FILL IT WITH AN ADDRESS PATTERN 
LONG: ;UNUSED LABEL THAT MUST BE DEFINED 

START: MOV #TIMSIZ,RO ;GET REQUEST NUMBER 

CALL HOSTRQ ASK HOST 

MOV #IN.01,R0 ; TRANSFER DATA FROM HOST 

MOV #FWADR,R1 ; TO STORAGE 

MOV eR2 
FMEMFL: MOV (ROS+,R3 

MOV R3,(Ri)+ 


DEC R2 
BNE FMEMFL 
sREAD ALL OF SPECIFIED MEMORY AND CHECK FOR DATA SAME AS ADDRESS 


MOV FWADR,RS5S GET STARTING ADDRESS 
MOV FWADRH, oR4 


SEQ 0104 


ACHK1: CALL MREA sREAD FROM _UNIBUS MEMORY 
TST R1 sWAS IT OK? 
BEQ ACHK2 sIF So, CONT INUE 
DEC R1 TIF R1 = 1, NON EXITENT MEMORY 
BNE 1$ 3; NOT, CONTIN NUE 
ERRHRD MS1000,R5,R4 
MOV R4,-(SP) 
MOV R5.-(SP) 
CALL Saotee — # 1000. 
«WORD ERHARD 
WORD EPRMS*10000>+MS1000 
BR ACHK3 3; CONTINUE 
1$: ERRHRD MS1001,R5,R4,R5,R0 
MOV RO,-(SP) 
MOV R5.-(SP) 
MOV R4,-(SP) 
MOV R5,-(SP) 
CALL RERROR jeanon # 1001. 
eWORD ERHARD+ 
“WORD EPRMS+10000>4MS1001 
BR ACHK3 3; CONTINUE 
;COMPARE DATA READ WITH EXPECTED 
ACHK2: CMP RO,RS ;COMPARE DATA ene WITH ADDRESS 
Q H IF A MATCH 


CHK3 BRA 
ERRHRD MS1002,R5,R4,R5,RO ;UNIBUS ADDRESSING sata a eer DATA READ 


; INCREMENT TO NEXT LOCATION UNTIL ALL TESTED 


—_— 


A aaa # 1002. 
«WORD <PRMS*10000>+mMS1002 





8 9 
UDAT1 UNIBUS ADDRESSING DMACR X04.01 23=AUG-82 12:00:45 PAGE 30-1 SEQ 0105 
FREE MEMORY CHECK 
39 : 
40 001451 106305 002420 ACHK3: CMP LWADR,RS sCHECK IF AT LAST ADDRESS 
41 001453 051457 NE ACHK4 
42 001454 106304 002421 CMP LWADRH,R4 
43 001456 011464 BEQ BCHK GO TO NEXT TEST IF SO 
44 001457 105205 000002 ACHK4: ADD #2,R5 z INCREMENT TEST ADDRESS 
45 001461 041415 BCC ACHKI~ 
46 Bote 8s 115404 INC R4 sCARRY TO HIGH BITS 
47 001463 001415 BR ACHK1 ;LOOP IF STILL IN SPECIFIED MEMORY 
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002416 


002426 


002416 
002426 
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FREE MEMORY CHECK 


;CHECK EACH ADDRESS LINE BY LOO 
ADDRESS LINE DIFFERENT AND VER 


mov FWADRH,RO 
Vv RO, TADRH 


ADD 
BNE BCHK1 
MOV FWADR,RO 
MOV Rye TAOR 
V #1,R3 
MOV R3,R2 
MOV FWADRH,R1 
CALL _XOR 
MOV R2,TADRH 
CALL _BCHKM 
ADD R3,R3 


BIT #4,R3 
BEQ BCHK2 


AT_TWO LOCATIONS WITH ONLY THAT 
YING TWO LOCATIONS ARE ACTUALLY ACCESSED 


sLOAD TEST ADDRESS HIGH BITS 


bs tie ie te BIT TO TEST 
2GET ADDRESS BIT 

GET FIRST a oe te OF FREE MEMORY 

i CHANGE JUST T Ohese BIT IN ADDRESS 


EST 
SLOOP IF STILL AN ADDRESS BIT TO TEST 


sNOW MOVE TO HIGH TWO BITS 
:COPY sae TO TEST ADDRESS 


s CHECK _IF PAST TWO ADDRESS BITS 
REPEAT FOR OTHER BIT 
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17 001524 
18 001526 
19 001530 
20 

21 001531 
22 001533 
23 001535 
24 001537 
25 001540 
26 001541 
44 001543 
35 001545 
30 001546 
31 001547 
32 001551 
33 001552 
34 001553 
35 001554 
36 001555 
37 001556 
$ 001557 
40 001560 
41 001562 
$$ 001564 
43 001566 
44 001567 
45 001570 
46 001571 
47 001573 
48 001574 
49 001575 
50 001576 
51 001600 
26 001601 
53 001602 
54 001604 
56 001606 
5 001807 
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002421 


002420 


UDAT1 UNIBUS ADDRESSING DMACR X04.01 23=AUG-82 12:00:45 PAGE 32 
FREE MEMORY CHECK 


; TRANSFER LARGE BUFFERS OF DATA TO AND FROM THE HOST MEMORY. 
‘THE HOST MEMORY WILL BE atyioee me, bo fe a ry Ag SE ALL pe: WILL 
3BE re ri PATTERN O THEN READ OMPA 0 


My ALL S 
THE SEQUENCE REPEATS BY WRITING EACH BUFFER WITH PATTERN 2 AND T 
;W1TH PATTERN 3. 


IDATA PATTERNS: (EACH_IS A REPETITION OF THREE WORDS) 

30 = 111111 1 = 177400 2 = 155555 3 = 000377 
; 044444 007760 133333 170017 
; 022222 000377 066666 177400 


BREAK THE HOST MEMORY INTO BUFFERS 
CCHK: MOV #HIMEM,R2 
SUB #FREE ,R2 


COMPUTE SIZE OF DATA 
BUFFER IN M MEMORY 
ADD R2,R2 sCHANGE TO BYTE COUNT 
; *** FIND OUT IF WRITABLE HOST SPACE IS LESS THAN kone DM _SPAC 
MOV LWADR ,R4 zR4 = LAST W 


WRITABLE 
MOV LWADRH,R3 7R3 = EXTENDED tity BITS OF 
ABLE BUFFER SIZE 


SUB FWADR,R4 iR4 = WRIT 
BCC 1$ IF DIDN'T CROSS PAGE BOUNDARY, CON H ae 
DEC R3 ZELSE, DECREMENT EXTENDED ADDRESS BITS 


1$: su ruADON. oR3 3 7 
3 tee DIVIDE WRI TABLE REGION SIZE BY HALF 


E 
HOST te WORD LOCATION 
SAME 


BY 1 
= ag ADDRESS OF WRITABLE BUFFER SIZE 


SEQ 0107 | 


ZROTATE EXTENDED ADDRESS BITS INTO CARRY 
ROR Re SROTATE EXTENDED ADDRESS IN & GET AREA/2 
BIT #B1T00,R4 :MAKE SURE THE BYTE COUNT IS EVEN 
BEQ 2$ SIF IT IS, CONTI 
DEC RG ZELSE FORCE BYTE COUNT TO BE EVEN 
2$: TST R3 $= 0? 
BNE 3$ t1F NOT. WRITABLE AREA >>> AVAILABLE DM BUFFER SPACE 
CMP R4,R2 [1S WRITABLE AREA < AVAILABLE DM BUFFER SPACE 
BCC 3$ SIF NOT, CONTINUE 
MOV R4,R2 ZELSE, OM SPACE > HOST WRITABLE SPACE 
3S: MOV #FREE,RS 'GET ADDRESS OF FIRST TABLE ENTRY 
MOV FWADR.R& [GET ADDRESS OF FIRS 
MOV FWADRH,R3 ; BUFFER IN HO T 
CLR R1 SINIT COUNT OF BUFFERS 
4$: MOV R4,(RS)+ ; STORE HOST Sureer ADDRESS 


MOV R3,(R5)+ IN TABE ENTRY 

SUB #4,R2 REDUCE BUFFER SIZE BY TABLE ENTRY 
ADD R2,R4 eee: oa wet ADDRESS TO 

ocr 23 T BUFFER 


sCHECK IF BUFFER LARGER 


INC 
5$: CMP LYADRN,R3 
BMI 7$ 3 THEN HOST MEMORY REMAINING 


BNE 6$ 
CMP LWADR,R4 
BCC_6$ 


BR 7$ 
6$: INC R1 COUNT THE TABLE ENTRY 
BR 4$ :G0 BACK AND DO AGAIN 


—— 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 23=AUG-82 12:00:45 PAGE 32-1 
FREE MEMORY CHECK 


58 

59 ooTelg 104050 002433 7$: MOV R5,DATBUF 
60 001612 105207 000000 ADD #0,R0 

61 001614 110602 ROR R2 

62 001615 104020 002434 MOV R2,SIZBUF 
63 001617 104010 002430 MOV R1,BUF CNT 


zSA\S ADDRESS OF DATA BUFFER 
CLEAR CARRY 
sSAVE SIZE OF DATA BUFFER 


:__IN WORDS 
SAVE COUNT OF BUFFERS 


SEQ 0108 





san” 


23 63 69 69 65 65 65 65 69 29 298 2) 298 298 28 ee PP PE Ph Oh OM PO OF OF 8 OP 8 9 9 9 2) 9 9 9 2 ee ee E 





oly UNIBU ae DMACR X04.01 23-AUG-82 12:00:45 PAGE 33 


FREE MEMORY 
1 
g 001621 
4 001622 
5 001624 
6 pot ose 
7 0016 
8 001631 
9 001632 
10 001634 
} 001635 
13 001636 
14 001640 
15 001641 
16 001643 
i? 001644 
19 001646 
20 001647 
21 001651 
22 001652 
23 001653 
24 001655 
25 001656 
26 001660 
27 001661 
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002432 
002431 


002431 
002430 


002432 
000004 
002432 


002431 


002431 
002430 


9 


sWRITE ALL BUFFERS TO PATTERN 0 


9$: 


10$: 


CLR RO 

MOV RO,CURPAT 
MOV RO, CURBUF 
CALL WRITE 
MOV aaa RO 


INC R 

a BUF CNT RO 
CALL READ 

MOV CURPAT,RO 
INC RO 

CMP #4,R0 

BEQ DONECD 
MOV RO,CURPAT 
CLR RO 

MOV RO, CURBUF 
CALL WRITE 
CALL READ 

MOV CURBUF ,RO 


N 
CMP BUFCNT,RO 
BNE 10$ 


+  - -  SCe  e 


LOAD caer ome 

iSELECT wa me 0 

WRITE THE BUFFER 
LINCREMENT TO NEXT BUFFER 
—_ ANOTHER IF 
T AT LAST 

TREAD ALL HOST BUFFERS 
: INCRERENT PATTERN NUMBER 
sEXIT SUBTEST IF NO 
: NO PATTERNS REMAINING 
POINT TO BUFFER 0 

WRITE A BUFFER 

sREAD ALL_HOST BUFFERS 
INCREMENT TO NEXT BUFFER 
CHECK IF AT LAST 


: WRITE NEXT BUFFER 
: WRITE NEXT PATTERN 


SEQ 0109 


PERE MEMEMEMEMEMEMEMEMEMEMEMEMEMEMEMEMEE EEE ee a. l 


.« -_a mm - 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 PAGE 34 
FREE MEMORY CHECK 


1 001662 1oneg! 060016 DONECD: MOV wane RO 
001664 0207 CALL HOSTRQ 
001665 001 662 BR DONECD 


sEND OF PROGRAM, TELL PDP-11 
sKEEP SENDING IF RETURNED 


SEQ 0110 





VVISYV SY SGSG VSG OSVG GV AAOOAOOAAOOOMOOOBDBWVIVWVWVIVVIVIOVVIVIOIVIVIOOIIrs>y>r Yr Kr OC 


1 

2 

3 

4 

5 

6 

7 

8 

9 001666 
10 001670 
11 001671 
12 001672 
13 001673 
14 001675 
15 001676 
16 001677 
17 001700 
18 001702 
20 001704 
21 001705 
22 001706 
23 001707 
24 001710 
25 001711 
26 001712 
27 001713 
28 001714 
29 

30 

31 

32 001715 
33 001717 
34 001720 
35 001722 
36 001723 
37 001724 
38 001726 
39 001730 
40 001732 
41 001733 
42 001734 
43 001736 


44 001740 
45 001741 


pe pert 
_—~ 
WEEMS 


me ed et a = ss 
RRSLSRRARRASR 
Soon —nwnvnow 
== YOUMSUIO 
WRINNOO]2] NUM 


Se 
Ss 
Sarorou 





002432 


002254 


002433 
002434 


002431 
002460 
177774 


002447 
002450 


002434 
002433 





UDAT1 _UNIBUS — DMACR X04.01 23-AUG-82 12:00:45 PAGE 35 
FREE MEMORY C 


L A DATA Ralf BEGINNING AT ADDRESS IN DATBUF AND WHOSE SIZE 

IN SIZBUF WITH A DATA PATTERN SPECIFIED BY CONTENTS OF CURPAT. 
‘WRITE THIS BUFFER TO HOST STARTING AT ADDRESS IN TWO WORDS POINTED 
Set asDRELs’ THEN PLACE THE PATTERN NUMBER IN THE SECOND WORD OF THE 


sFILL BUFFER WITH DATA PATTERN 
WRITE: MOV CURPAT,RO 3GET PATTERN NUMBER 
ADD TIMES FOUR 


— FOR ADDING TO TABLE ENTRY 
ADD START OF PATTERN TABLES 
GET PATTERN WORDS 


GET ADDRESS OF BUFFER 


MOV SIZBUF,R1 sGET SIZE OF BUFFER 


1$: MOV R3,(RO)+ ZLOAD ONE WORD 
DEC RI [COUNT THE WORDS 
BEQ 2$ 
MOV R4,(RO)+ ZLOAD ONE WORD 
DEC R1 [COUNT THE WORDS 
BEQ 2$ 
MOV R5,(RO)+ ZLOAD ONE WORD 
DEC R1 :COUNT THE WORDS 
BNE 1$ 

:WRITE THE BUFFER TO HOST MEMORY 

2$: MOV CURBUF RS :GET POINTER TO HOST ADDRESS 
ADD R5,R5 : JNT TIMES TWO 
ADD #FREE,RS : PLUS START ADDRESS 
MOV (R9)+ gre [GET LOW ADDRESS BITS 
MOV (R5) :GET HIGH ADDRESS BITS 
BIC ee R1 [CLEAR CURRENT PATTERN 
MOV RO, LBUF WL SSAVE LAST BUFFER WRITTEN 
MOV R1,LBUF WH 
BIS R1,R2 :SET IN NEW PATTERN 
MOV R2,(R5) ‘STORE IN TABLE ENTRY 
MOV SIZBUF ,R2 ‘GET WORDS TO TRANSFER 
MOV DATBUF .R3 [GET DM AD 
XFC UWRITE ‘WRITE TO THE AosT MEMORY 
RETURN 


MMMmMMMMMMMMMMMMnase sIoovrVvcvTcVvVvTVvvTn® aa | 


OAR NRTA HMMmen 


-— 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG=82 12:00:45 PAGE 36 
FREE MEMORY CHECK 


1 ;READ AND PERFORM A DATA COMPARE ON ALL THE HOST BUFFERS. TWO WORD 
: STABLE ENTRIES STARTING AT FREE CONTAIN THE HOST ADDRESS OF THE 
[BUFFERS AND THE PATTERN NUMBER LAST WRITTEN TO THE BUFFER. THE 
i [NUMBER OF BUFFERS IS IN BUFCNT AND THE SIZE OF THE BUFFERS IS IN 
2 ;SIZBUF. THE DATA CAN BE READ INTO THE DM AT ADDRESS IN DATBUF. 
7 001742 104205 002460 READ: MOV #FREE,RS :GET ADDRESS OF TABLE ENTRIES 
g 001744 104304 002430 MOV BUF CNT ,R4& 'GET COUNT OF BUFFERS 
10 ;READ DATA FROM HOST BUFFER INTO DM MEMORY 
12 001746 104303 002433 1$: MOV DATBUF ,R3 :R3 = ADDRESS OF DATA BUFFER IN DM MEMORY 
13 001750 104302 002434 MOV SIZBUF .R2 SSIZE OF BUFF 
14 001752 104257 MOV (R5)+,RO [GET BUFFER ADDRESS 
15 001753 104151 MOV (R5),R1 
16 001754 103201 177774 BIC #177776,R1 sPLEAR PATTERN NUMBER 
17 001756 104070 002426 MOV RO, TADR SSAVE ADDRESS IN CASE OF ERROR 
18 001760 104010 002427 MOV R1. TADRH 
19 001762 060013 XFC UREAD :READ THE WORD 
20 001763 115001 TST R1 [WAS IT READ PROPERLY? 
21 001764 012030 BEQ 3$ [IF SO, GO ON TO DO MORE 
22 001765 117401 DEC R1 [WAS :T AN NXM ERROR? 
23 001766 052010 BNE 2$ SIF NOT, REPORT PARITY ERROR 
24 001767 ERRHRD MS1003, TADR, TADRH, $1ZBUF 
001767 104010 001232 MOV R1,SAVREG 
001771 104301 002434 MOV SIZBUF,R1 
001773 100461 R1,-(S 
001774 104301 002427 MOV TADRH,R1 
001776 100461 V R1,-(SP 
001777 104301 002426 TAOR, 
002001 100461 MOV R1,-(SP) 
002002 104301 001332 MOV SAVREG,R1 
002004 021250 CALL RERROR 
002005 101753 .WORD ERHARD+ 
002006 030332 eWORD <PRMS*1 
5 002007 002030 BR 3$ sEXIT 
26 002010 2s: ERRHRD MS1004,TADR, TADRH, S1ZBUF 
002010 104010 001332 MOV R1,SAVREG 
002012 104301 002434 MOV SIZBUF,R1 
002014 100461 MOV R1,-(SP) 
2015 104301 002427 MOV TADRH, 
002017 100461 MOV R1,-(SP) 
002020 104301 002426 MOV TADR,R1 
002022 100461 MOV R1,-(SP) 
002023 104301 001332 MOV SAVREG, 
002025 021250 CALL RERROR 
002026 101754 <WORD ERHARD+ERRN 
a 002027 030452 [WORD <PRMS*10000>+mS1004 
38 ; *** SET UP OUT BUFFER IN CASE OF ERROR 
$ 002030 3$: PUSH <R5,R4> 
002030 100465 MOV R5,=(SP) 
002031 100464 MOV R4.=(SP) 
1 002032 104205 902460 MOV #FREE.RS :GET ADDRESS OF TABLE ENTRIES 
002034 104 002430 MOV BUF CNT, R4 :GET COUNT OF BUFFERS 
33 002036 106204 CMP #45 RG : ? 


Rit Teint Rll tec 


SEQ 0112 


sERROR # 1003. 


ERROR # 1004. 





et feet eet eet eet eet et eet et et eet et et et et tt tt ttt ttt titi itiotitieees SEES SP SSP SP SPST SST STS SS STAT _— 
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U 
FREE MEMOR C 
002040 042043 BCC 4§ iL NOT, SKIP NEXT INSTRUCTION 1 
5 002041 104204 000004 MOV F SO, FORCE R4 = 4 I 
36 : se STORE IN ourbut BUFFER JUST IN case. OF ERROR 1 
37 002043 104207 001013 is: MOV #OUT.05,RO 7RO => OUTPUT BUFFER I 
38 002045 104301 002434 MOV S1ZBU I 
39 002047 100271 MOV uose. :GIVE BUFFER SIZE I 
40 002050 117404 DEC Ra’ L 
41 002651 104641 002451 MOV BTABLE(R4),R1 ‘GIVE START OF ALL BUFFERS L 
42 002053 100271 MOV R1,(RO)+ L 
43 002054 115404 INC RA” ZRESTORE R4 L 
44 002055 104251 5$: MOV (R5)+,R1 SSTORE BUFFER LO ADDRESS L 
45 002056 100271 MOV R1,(RO)+ L 
46 002057 104251 MOV (R5)+,R1 ZSTORE BUFFER HI ADDRESS L 
2 103201 177774 BIC #177774,R1 L 
48 002062 100271 MOV R1, (RO)+ | L 
49 002063 117404 DEC R4 :DECREMENT (4 OF BUFFERS) | L 
002 052055 BNE 54 [IF NOT DONE, CONTINUE L 
51 002065 104070 002445 MOV RO,OUTPTR ;OUT POINTER wis ADDRESS PAST BUFFERS LOCATIONS L 
52 00206 105200 000006 002445 ADD #6,OUTPTR :0U TPRT => PAST DATA OF FIXED LENGTH j L 
53 00207, 104070 002446 MOV RO ourPre + SAVE PREVIOUS POINTER L 
54 002074 POP <R4,R L 
2074 104264 MOV (SP)+,R4 L 
002075 104265 MOV (SP)+.R5 | : 
38 ;COMPARE DATA READ WITH DATA PATTERN | “ 
58 002076 104300 002434 002443 MOV SIZBUF , TEMP1 :TEMP1 IS DECREMENT COUNTER | M 
59 002101 104303 002433 MOV DATBUF ,R3 *R3 — DM DATA BUFFER M 
60 002103 117405 DEC RS :R5 => BACK TO LO BUFFER ADDRESS | M 
61 002104 104250 002426 MOV (R5)+,TADR 3GET BUFFER ADDRESS M 
62 002106 104150 002427 MOV (R5), TADRH M 
63 002110 103200 177774 002427 BIC #177774, TADRH tMASK HI ADDRESS ONLY M 
64 002113 104252 MOV (R5)+,R [R2 = PATTERN M 
65 002114 103202 177763 BIC #177763,R2 :MASK PATTERN M 
66 002116 105202 002254 ADD #PATO,R2 :R2 => PATTERN | M 
67 002120 114000 002442 CLR ERRNUM [CLEAR ERROR COUNT M 
68 002122 104200 000003 002444 6$: MOV #3, TEMP2 :TEMP2 = SIZE 7 ANY PATTERN | M 
69 002125 104237 7$: MOV (R3)+,R0 SDATA RECEIV M 
70 002126 104221 MOV (R2)+.R1 DATA ERBECTED | N 
71 002127 106071 CMP < = COMP TWO 0 
v2 002130 012157 BEQ 8$ ZIF EQUAL, NO ERROR o 
0 : #** ERROR HERE g 
76 002131 115400 002442 > INC ERRNUM i INCREASE THE ERROR COUNT 0 
77 002133 106200 000003 22442 CMP #3, ERRNUM [MORE THAN 3 ERROR REPORTS? 0 
78 002136 072157 BMI 8$ TIF Eo! OO NOT ADD ANY MORE TO THE ERROR REPORT 0 
79 002137 PUSH  <RO,R1> 0 
002137 100467 mov RO,-(SP) 0 
002140 100461 R1.-(SP) 0 
80 002141 104307 002445 MOV OUTPTR,RO :R0 -> WHERE IN THE ouTPur ‘euFFER 0 
81 TO PUT ERROR INFO 0 
£2 002143 104301 002426 MOV TADR R1 0 
83 002145 100271 MOV 1 ¢RO)+ ZSTORE ERROR ADDRESS 0 
84 002146 104301 002427 MOV TAB 0 
85 002150 100271 MOV R1 OtnOne ; 0 
86 002151 104261 MOV (SP)+,R1 *STORE DATA EXPECTED 
| 


87 O01 36 
88 00215 


89 002154 
90 002155 
91 

92 

93 

94 002157 
95 002162 
96 002163 
97 002165 
98 002167 
99 002170 
100 002172 
101 002373 
102 002175 
103 

104 

105 

106 002176 
107 002200 
108 002201 
109 002203 
110 002204 
111 002206 
112 002210 
113 002212 
114 Ooeslz 
115 902214 
116 002215 
117 002217 
118 002220 
119 002222 
120 002223 
121 002225 
122 002226 
123 002230 
124 002231 
125 002234 
126 002235 
127 002237 
128 002240 
129 00224 

130 00224 

131 00224 

132 002246 
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000002 002426 


002427 
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UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 PAGE 36-2 
FREE MEMORY CHE 


MOV R1,(RO)+ 
MOV (SP)+,R1 
MOV R71, (RO)+ 
MOV RO,OUTPTR 
zy *** RESUME NORMAL PROCESSING 
8$: ADD #2, TADR 
BNE 9$ 
INC TADRH 
9$: DEC TEMP1 
BEQ 10$ 
DEC TEMP2 
BNE 
SUB #3,R2 
BR 6$ 
: *** ALL OF THE BUFFER HAS BEEN TESTED 
10$: ‘TST ERRNUM 
BEQ 
MOV OUTPT2,RO 
MOV R2,R1 
SUB #PATO,R1 
BIC #177763,R1 
ADD #0,R1 
ROR 
ROR 
MOV R1,(RO)+ 
MOV CURPAT,R1 
MOV 1, (ROS+ 
MOV LBUFWL,R1 
MOV 1, (ROS+ 
MOV LBUFWH,R1 
MOV R1, (ROS+ 
MOV ERRNUM.R1 
MOV R1, (RO)+ 
CMP #3, ERRNUM 
BCC 11$ 
MOV #2,R2 
BR 1 
11$: MOV ERRNUM, R2 
12$: MOV ETABLE(R2),R1 


MOV (R 
ERRHRD M™S1005 


CYCLE THROUGH ALL HOST BUFFERS 


13$: DEC R4 
BNE 1 
14$: RE TURN 


sSTORE DATA RECEIVED 
sSTORE NEW OUTPUT POINTER 


: INCREMENT LO ADDRESS 

:1F DID NOT CROSS EXTENDED BOUNDARY, SKIP 
sELSE, INCREMENT EXTENDED ADDRESS 

2GONE OVER “— BUFFER? 


; BACK 
3R2_=> START OF PATTERN 
zLOOP BACK TO RESET TEMP2 


zANY ERRORS OCCURED? 

zIF NOT, CHECK IF DONE WITH ROUTINE 
zRO => AFTER BUFFER LOCATIONS STORED 
3R2_ => PATTERN 
ISOLATE PATTERN # 
;MASK PATTERN NUMBER 


CLEAR CARRY 


PATTERN NUMBER IN LO 2 BITS 
STORE PATTERN NUMBER 


zLAST PATTERN WRITTEN 
sLAST BUFFER WRITTEN 


zERROR COUNT 

3D0 WE HAVE MORE THAN 3 ERRORS? 
IF T, CONTINUE 

sSET R2 FOR MAX 

sSTORE ERROR COUNT IN R2 

: ST R2 

3 TABLE ENTRY 


CALL RERROR 
-WORD ERHARD+E 


COUNT BUFFERS 
REPEAT FOR ALL BUFFERS 


SEQ 0114 


a # 1005. 
eWORD <PRMS*10000>+MS1005 
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ood UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 PAGE 37 
FREE MEMORY CHECK 


SOONAOUSWN $0 OONOUS Wh 
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zDATA PATTERN TABLES 


PATO: 


PAT1: 


PAT2: 


PATS: 


*B0000000011111111 
“B1111000000001111 
“B1111111100000000 


SEQ 0115 
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UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 PAGE 38 SEQ 0116 U 
FREE MEMORY CHECK C 
} ZCHECK IF TEST ADDRESS IS IN BOUNDS OF READABLE MEMORY $ 
: 002273 106300 002427 002423 BCHKM: CMP TADRH,FRADRH ZCOMPARE TEST ADDRESS WITH FIRST READABE ADDRESS S 
4 002276 012301 BEQ 1$ [BRANCH IF EQUAL S 
5 002277 042306 [BRANCH IF TEST ADDRESS HIGHER S 
002300 002415 BR BCHKMX ‘BRANCH IF TEST ADDRESS LOWER S 
7 002301 106300 002426 002422 1S: CMP TADR,FRADR S 
8 002304 042306 BCC 2$ ZBRANCH IF HIGHER OR SAME 5 
9 002305 002415 BR BCHKMX ‘BRANCH IF LOWER S 
10 002306 106300 002425 002427 2$: CMP LRADRH, TADRH ‘COMPARE TEST ADRESS WITH LAST READABLE ADDRESS S 
11 002311 012314 BEQ 3$ ‘BRANCH IF EQUAL S 
12 002312 042321 BCC 4$ ‘BRANCH IF READABLE ADDRESS HIGHER S 
13 002313 002415 BR BCHKMX ‘BRANCH IF READABLE ADDRESS LOWER S 
14 002314 106300 002424 002426 3$: CMP LRADR,TADR S 
15 002317 042321 BCC 4$ ZBRANCH IF HIGHER OR SAME S 
16 002320 002415 BR BCHKMX [BRANCH IF LOWER $ 
18 002321 104305 002416 4$: MOV FWADR,RS :WRITE ONES INTO FIRST ADDRESS S 
19 002323 104304 002417 MOV FWADRH,R4 5 
20 002325 104207 177777 MOV #177777,RO S 
21 002327 021202 CALL MWRIT e S 
22 002330 104305 002426 MOV TADR,R5 :READ FROM 7EST ADDRESS S 
23 002332 104304 002427 MOV TADRH,R4 S 
24 002334 021164 CALL MREAD S 
25 002335 106201 000001 CMP #1,P1 :DID We GET x NXM? S 
26 002337 012415 BEQ BCHKMX S 
27 002340 106207 177777 CMP #177777,R0 ‘Cheek “DATA. READ FOR ALL ONES S 
2 002342 052415 BNE BCHKMX :GO TO NEXT BIT IF NOT ALL ONES $ 
30 002343 104305 002416 MOV FWADR,RS ZWRITE ALL ZEROS TO FIRST ADDRESS 5 
31 002345 104304 002417 MOV FWADRH,R4 S 
002347 114007 CLR RO S 
33 002350 021202 CALL MWRITE | Si 
34 002351 104305 002426 OV TADR,RS :READ FROM TEST ADDRESS T 
35 002353 104304 002427 MOV TADRH,R4 T 
36 002355 021164 ALL MREA : T 
37 002356 106201 000001 MP #1,R1 :DID WE GET A NXM? T 
38 002360 012415 BEQ BCHKMX : . EX T 
39 002361 115007 TST RO [CHECK DATA READ FOR ALL ZEROS T 
40 002362 052415 BNE BCHKMX :GO TO NEXT BIT IF NOT ALL ZEROS r 
42 002363 104301 002416 MOV FWADR,R1 :COMPUTE XOR OF FIRST ADDRESS T 
43 002365 104052 MOV RS, : AND TEST ADDRESS T 
44 002366 021223 CALL XOR T, 
45 002367 104027 MOV R2,RO :RESULT TO RO 
46 002370 104301 002417 MOV FWADRH,R1 ‘NOW DO IT FOR HIGH BITS 
47 002372 104042 MOV R4,R2 
48 002373 021223 CALL XOR 
49 002374 ERRHRD MS1006,FWADR,FWADRH,R5,R4,RO,R2 ;UNIBUS ADDRESSING ERROR. TWO ADDRESSES READ 
002374 100462 MOV R2,-(SP) 
002375 100467 MOV RO,-(SP) 
002376 1004 MOV R4.-(SP) 
002377 100465 MOV R5,-(SP) 
002400 104010 001332 MOV R1,SAVREG 
002402 104301 002417 MOV FWADRH,R1 
002404 100461 MOV R1,-(SP) 
002405 104301 002416 MOV FWADR,R1 








UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 PAGE 38-1 
FREE MEMORY CHECK 


002407 10 
002410 10 
002412 02 
0024135 10 

061 


0461 
4301 001332 
1250 

He 
105 


50 
51 002415 000000 BCHKMX: RETURN 


Nn 9 


SEQ 0117 


MOV R1,<(SP) 

VREG,R1 
CALL ge enn aa # 1006. 
«WORD <PRMS*10000>+MS1006 





UDAT1 UNIBUS ADD 
FREE MEMORY CHEC 


OWONAMUE WN $9 ODNAUESWN 0 ODONOUSWh— 
So 





000000 
000000 
000000 
000000 





— DMACR X04.01 23-AUG-82 12:00:45 PAGE 39 


MISSEL 


LBUF WH 
001264 001254 BTABLE 
001332 001305 ETABLE: 


B 10 





3PROGRAM VARIABLES 


-WORD 0 ;FIRST ADDRESS CONTAINING ADDRESS DATA 
“WORD 0 ;LAST ADDRESS CONTAINING ADDRESS DATA 
“WORD 0 

-WORD 0 :FIRST ADDRESS READABLE 

“WORD 0 ;LAST ADDRESS READABLE 

WORD 

«WORD 0 ;TEST ADDRESS 

“WORD 0 

WORD 0 ;COUNT OF BUFFERS IN HOST MEMORY 
“WORD 0 SCURRENT BUFFER BEING WRITTEN IN HOST 
“WORD 0 [CURRENT DATA PATTERN BEING WRITTEN 
“WORD 0 SADDRESS OF PATA BUFFER IN DM MEMORY 
“WORD 0 ?SIZE OF DATA BUFFER IN HOST MEMORY 


HOST BUFFER TABLE ENTRIES ARE STORED AFTER TIiE PROGRAM AT FREE. 
; TWO WORDS 44 TABLE 


FIRST WORD = LOW 16 BITS OF HOST ADDRESS 
SECOND WORD = BITS 1-0 HIGH TWO BITS OF HOST ADDRESS 
BITS 3-2 PATTERN LAST WRITTEN 


TABLE FOR COMPARE DATA PATTERN XFC 


558 


NEOUS DATA STORAGE 


D sHOLDS NUMBER OF ERRORS DURING COMPARE 


TEMPORARY STORAGE 

[POINTER INTO OUTPUT BUFFER FOR COMPARE 
[LAST BUFFER WRITTEN SAVED IN WRITE 

> SAME 


PEELE 


0 
WORD 81,82,83,84 
-WORD E1,€2,€3 


ee ee ee ee eee ea ee ee eS =e 





BEE EERE EEE EE 


WAWWIWINININID 2 oe et 
WwW tS 


S358 
QS RENIAR ALS 


S5s55 
yoy tee 


E 


z 
NUVRRR RRR 


ANN 
Sey 


own 
WERE 


S38 


ES 
S 


AUNSWN 0 OBVNOuUS WN 2ODR aR WN 9 DONO UEWN SO OONOUESWN“"O0ONOUW SW 
NOY es 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
3 
2 
3 
3 
3 
3 
34 
3 
3 
3 
3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
5 
5 
5 
5 
5 


sess sesesesssss 


Rononen 


RFRR GAN 





CK 


000105 


i 


WNWNOWINWN OWWIWIWNIN OWI 


zs 


PRIWWIRIPONPIMIWEPONOPD 


~— = IO 
Mroron 
WWW 


S 


_—— 
fRonororyo 
WAG 


oor 9 OO O-"0O— OOCSO- csoOCoo—- GCOoO— 
NO SN LSSFSOO LSKESOO F£O— 
MVOWESUNIW 2 MWS WON RMRMRUUO formruM— rmuw 


MOF Oo Sw 








C 10 


UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 PAGE 40 
FREE MEMORY CHE 


sMESSAGE STORAGE OVERLAY 


FREE: : FREE SPACE BEGINS HERE 
DMOVLY MS,0 
»WRE sOUTPUT EDC FOR THIS OVERLAY 
“NLIST BEX 

MS1000: .ASCII\'WON-EXISTANT MEMORY ERROR TRYING TO READ FROM UNIBUS."N\ 
SASCIINS25"OCTAL''S6" HEX’ N\ 

-ASCII\SB"ADDRESS''S9O1ERROSSH1EN\ 

MS1001: CASCII\'PARITY ERROR ON READ FROM UNIBUS."N\ 
“ASCIINS25"OCTAL''S6" HEX" NA 
~ASCII\S8:‘ADDRESS''S9018R9R9SSH1 BN\ 
~ASCII\SB' DATA READ''S7016R9S5H16N\ 

-ASCII\SBDATA EXPECTED'S3016R9S9H16N\ 

MS1002: .ASCII\'UNIBUS ADDRESSING ERROR = INCORRECT DATA READ."W\ 
~ASCIIN' MEMORY LOCATION SHOULD CONTAIN OWN ADDRESS."N\ 
-ASCII\S25 OCTAL 'S6 HEX: 
~ASCIIN\S8*‘ADDRESS''S901 8ROR9SSH1 BN\ 
~ASCIINS8' DATA READ''S7016R9S5H16N\ 

“ASCII\SB'DATA EXPECTED’ SS016R9SSH16N\ 

MS1003: .ASCII\'NON-EXISTANT MEMORY ERROR TRYING TO READ FROM UNIBUS WITHIN BUFFER."N\ 
~ASCII\S28" OC TAL''S6" HEX''N 
~ASCIIN" STARTING ADDESS OF BUFFER ‘'018ROR9SSH18N\ 
-ASCII\SB'BUFFER SIZE"'SBO16R9SSHIGN\ 

MS1004: .ASCII\''PARITY ERROR ON READ FROM UNIBUS WITHIN BUFFER."N\ 
~ASCII\S28"OCTAL''S6" HEX’ N\ 
~ASCII\"" STARTING ADDESS OF BUFFER "‘O18ROR9SSH18N\ 
-ASCII\SB'BUFFER SIZE"SBO16R9SSHIGN\ 

MS1005: .ASCII\'DATA COMPARE FAILED AFTER WRITE THEN READ FROM UNIBUS."N\ 
~ASCII\" BUFFER SIZE = '016''(0)"R9SSH16'(X)''ROS3D16"". (D) NA 
~ASCIIN\" STARTING ADDRESSES OF BUFFERS’ N\ 
SASCIINS6'OCTAL''S11°'HEX''NR1\ 

-ASCII\* CURRENT DATA PATTERN READ''S17D6N\ 

“ASCIIN'' LAST PATTERN WRITTEN’ 'S22D6N\ 

~ASCII\ STARTING ADDRESS OF LAST BUFFER WRITTEN''S3018°'(O)ROROS3H18""(X)"'N\ 
-ASCII\" NUMBER OF ERRORS FOUN »(D) NY 

~ASCII\S4"'LOCATION''S6' DATA EXPECTED''S6'DATA RECEIVED’ N\ 

~ASCII\S2"OCTAL = HEX'S6"OCTAL -HEX''SBOCTAL —-HEX''N\ 

ane 

MS1006: .ASCII\"UNIBUS ADDRESSING ERROR. TWO ADDRESSES READ SAME LOCATION. "W\ 
SASCIINS33" OCTAL''S6"'HEX' N\ 

-ASCII\SB"KNOWN GOOD _ADDRESS"'S6018ROR9SSHTEN\ 
~ASCII\S8°ERROR ADDRESS''S11018R9R9SSH1BN\ 
“ASCII\SB'ADDRESS BIT IN ERROR''S4O1ERIRISSH1EN\ 

B4: . ASCII\$5018R9R9S10H18N\ 

B3:  — -ASCII\S5018R9R9S10H18N 

B2: ASCII $5018R9R9S1OH18N\ 

Bi: — LASCII\S5018R9R9S10H18N\ 


SEQ 0119 | 


oe Re pen RR ee Ole ig FF Py i ee 
UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 PAGE 40-1 SEQ 0120 
FREE MEMORY CHECK 


3 001304 000 -BYTE 0 

59 001305 123 061 117 E3 Ree LINS IOI RS enon Dw I BSt01 ORDSENTESTOIERDSEN IES) INN 
60 001332 123 061 117 E2 TI\S1018S2R9R9H18S4016R9S2H16S7016R9S2H16S11N\ 
61 001357 123 061 117 (€1 "ASCII\S 1018S RORGHIBSCOIEROSOHIGS OIGROSSNTEST INA 
6¢ 001404 0 -BYTE 0 

64 001404 DMEND 

001405 000105 ~ WREDC OUTPUT EDC FOR THIS OVERLAY 
5 000001 «END 


cm + ee ee — 


ee ke ie oe oe a | 
DAT UNIBUS ADDRESSING DMACR X04.01 23-AUG-B2 12:00:45 PAGE 40-2 SEQ 0121 


SYMBOL TABLE 
ACHKT 001415 DRVID = 000004 HDRPRE= 000005 LARGE = 000001 OUT.21 001033 
ACHK2 001440 DRVONL= 000213 HD.BAD= 110000 LBHINB= 177417 OUT.22 001034 
ACHKS 001451 _DRVRUN= 000014 -DBN= 140000 LBLONB= 177760 OUT.25 001C35 
ACHK4 001457 DU.DFL= 020000 -LBN= 000000 LENCYL= 000000 UT.24 001036 
ARGS$ = 000007 U.FTL= 00 HD.PRV= 050000 LBNHST= 000012 UT.25 001037 
ATTN = 000002 DU. INF= 030000 HD .RBN= era LBNTRK= 000011 T.26 001040 
AVAIL = 100 U.QUE= 010000 HD.REV= 030000 LBUF 002 T.27 001041 
B 1464 DU.SPC= 060000 -XBN= 120000 LBUFWL 002447 T.28 bby 
BCHKM 002273 DU.TER= 040000 HEADER= 000002 LINKLN= 000007 T.29 00104 
BCHKMX 002415 D.LIMT= 000001 HIBYTE= 177400 LOBYTE= 000377 . 001044 
B 001472 D.SCHR= 000002 HICYL = 000001 LONG 001 ° 001045 
BCHK2 001511 Ecc = HIDBN = 000003 LONGTO= 000001 . 1046 
BEUSED= 000040 ECCCHK= 010000 LBN = 000002 LOW = 2 -33 001 
BF .DAT= 000000 ECCFLG= 010000 HIMEM = 010000 LRADR 002424 OUT. 001050 
BF ..ECC= 000401 ECCRSH= 000002 HIRBN = 000003 LRADRH 002425 OVERFL= 000002 
BF ..EDC= 000400 ECHO = 000010 HIXBN = 000002 LUNIT 001331 OVE.MN= 000714 
= 000001 ECHOC = 000350 HOSTRQ 000751 LWADR 02420 OVE.MS= 000000 
BITO1 = 000002 EOC = 10000 HRDREV= 000003 LWADRH 002421 -MN= 00% 
BREAK = ERECOV= 000006 ITwW = 040000 MEDTYP= 000006 OVL.MS= 001406 
BTABLE 002451 ARD= 100000 INSEEK= 000012 MESSAG= 060015 eee 5 
BUFCNT 002430 ERLEV = 000002 INTEDC= 000105 MICREV= 000003 OVSTRT= 007774 
BUFFLG= 040000 RRMC = 060014 IN.RQ 001051 = 000016 OVS .MN= 
BUFSIZ= 000043 ERRMES= 060013 IN.01 001052 MREAD 001164 OVS.MS= 004352 
81 001274 RN = 001757 IN.02 001053 MS1000 000000 OV... = 003573 
B2 001264 ERRNUM 002442 IN.03 001054 MS1001 000063 PATO 002254 
B3 001254 ERSOFT= 140000 IN.04 1055 MS1002 000170 ATI 002260 
B4 001244 LE 002455 IN.05 001056 MS1003 000332 PA 002264 
cc 001524 EXIT = p000e! iN. 96 57 MS1004 00045 PAT 02270 
CHECK = 000010 1 001357 IN.0 01060 MS1005 00C56 PHYSA = 001000 
= 000201 E2 001332 IN.08 001061 $1006 001105 PRMS_ = 000006 
CHRRES= 000170 ES 001305 IN.09 001062 R = 000017 PTYPES= 000030 
CLRBUF 0007 FB.DAT= 000000 IN.10 001063 MWRITE 001202 RB = 000200 
CMPADR 0024 FB.EDC= 00 IN.11 001 NEWSUB= 004000 R = 000004 
CMPSIZ 002435 FCTSIZ= 000010 IN.12 001065 ONLYCL= 000200 RBUFLN= 000415 
CMP 0024 FIRSTU= 007717 IN.13 001666 OUTPTR 002445 = 000001 
cMP2 002440 FMEMFL 001405 IN.14 001067 OUTPT2 002446 T = 000000 
CMPS 002441 FORMAT= 000001 IN.15 001070 OUT.RQ 001006 RCTCPS= 000001 
COMPAR= 000006 FRADR 00242 IN.16 001071 OUT.01 001007 RCTCSZ= 000014 
COMPLT= 000176 FRADRH 00242 IN.17 001072 OUT.02 001010 = 000005 
URBUF 002431 FRAME = 000004 IN.18 001073 OUT.05 001011 RCVERR= 000004 
CURPAT 002432 FREE 002460 IN.19 001074 T. oo olg Y= 000001 
000020 FSTOP = 100000 IN.20 001075 OUT.05 00101 RDSTAT 000720 
DATBUF 002433 FTIME = 001000 IN.21 001076 T. 001014 0017 
= 000002 FTLDEV= 040000 IN.22 001077 OuT.07 001015 REDWRT= 000100 
DATERR= 000020 FTLSYS= 000000 IN.23 001100 OUT.08 Boats REGSS = 177777 
ATPRE= 000005 FT.BUF= 000000 IN.24 001101 OUT.09 00101 R = 
DBNCYL= 000022 FT.HI = 000001 IN.25 001102 OUT.10 on iose RERRCA 001315 
MPAL= 000001 FT.LOW= 000002 IN.26 001103 OUT.11 001021 RERROR 001250 
DCYLS = 020000 FWADR 00241 in-g? 001104 out. ie Op 1856 RERRPA 001511 
INIT = 000011 FWADRH 00241 IN.28 001105 OUT.15 00102 RESEEK= 020000 
DIREC = 010000 GETCHR= 000207 iN.¢) got 108 OUT.14 boloss RETRY = 00 
CON= GETSTA= 000011 IN.30 00110 OUT.15 001025 RE = 00 
= GETSUB= 000210 IN.31 001110 YS 0010 § REVEC = 000409 
DONECD 00166 GRPCYL= 000002 IN. 36 001111 OUT.17 0010 REVECT= 
DROP =1 GRPOF F = 11 IN.3 bot tis gut. 8 001050 REVINP= 00004 
DRTYPE= 000007 HBHINB= 007777 IN. 34 pet OUT.19 001031 REVS = 00000 
DRVCLR= 000005 HBLONB= 170377 IRECLB= 000216 OUT.20 001052 = 0 








mp ENS I Tee tgs Set. oD eke mee ho Rk) At ee Bae a 
UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 PAGE 40-3 SEQ 0122 
SYMBOL TABLE 


RONLY = 004000 STSRES= 000366 S.SDCL= 000001 UDASO = 000001 U.RBN = 000041 
RREAL = 013400 ST.C_ = 00000 S.TGOF= 000013 UDAS2 = 000000 U.RTRY= 000025 
RSTOP = 100000 ST.CON= 00000 $.TGSS= 000015 UNITO = 000001 «RVER= 000046 
RTRIES= 001000 ST.DB = 001000 ° = 000004 UN’T1 = 000002 «RWER= 000045 
RWRDY = 100000 ST.DF = 000020 TA 002426 UNIT2 = 000004 U.RWTO= 0000 
ANG= 000006 $T.DR = 000040 TADRH 002427 UNITS = 000010 U.SDIL= 000031 
RW.BUF= 000001 ST.ERR= 000002 TALKER 1114 UNSSUC= 000175 U.SDIS= 00 
RW.CMD= 000604 ST.F 02 TALKIA 001126 UREAD = 000013 U.SEEK= 00000 
-HI = 000003 ST.FO = 002000 TALKIB 001136 UTOTST= 060012 -SNUM= 000047 
-LOW= 000002 ST.MOD= 000001 TALK2A 001156 UWRITE= 000014 -SUBP= 000001 
RW.SDI= 000005 ST.MSK= 000000 B 001157 U.CBN = - SUBU= 
TA= ST.OA = 000200 TEMP1 002443 U.CCNT= 000012 U.TIMO= 000005 
SAVREG 001332 ST.PE = 00004 TEMP2 002444 U.CCOP= 000044 U.TSEC= 0000 
SBCRES= 000167 ST.PS = 000002 TESTS = 00 U.CCYL= 000053 U.WPRT= 000032 
D= 00037 ST.RE = 000100 TIMEOU= 000001 U.CGRP= 000055 IT= 
SDILTO 001163 ST.RR = ise TLEN.U= 000061 U.COPY= 000043 WAITSI= 000012 
SDISTO 001162 ST.RTY= 000003 TO 3 U.CSEC= 000021 FLN= 1 
= ST.RU = 001 TOOBIG= 00 U.CTRK= 000015 WCHECK= 000010 
SEKINP= 002000 ST.SR = 000020 TRACKS= 000020 U.ECCT= 000027 WCHKAL= 000004 
ST.STA= 000001 TRKGRP= 000003 U.ELEV= 000024 WCONT = 
SEQSEK= 000100 ST.S7_ = 000400 TIMSIZ= 060000 U.LCYL= 000056 WONLY = 0 
= ST.UNT= 000000 T2CMD = U.LGRP= 00006C WREAL = 122400 
SIZBUF 002434 ST.WE = 000010 T2DLL = 060001 U.MASK= 000022 WRITE 00 
S SUB. = 000013 T4881 = -MBN = 035 WRONG = 00000 
SPADJU 001326 $.BADP= 000010 T4BB2 = 06 U.MLEV= 000026 WSTOP = 14 
$.BESS= 000011 T4MPRM= 060005 -MSEC= 000017 XBNCYL= 000021 
STACK 001373 S.MCNT= 000011 T4MXFR= U.NEXT= 000000 FERRT= 
START 001374 S.MEGR= 800006 T4SEEK= 8 ! U.NFUN= 000010 XMTERR= 000400 
STATEX 000746 $.MEGW= 00000 T4SOFT= 06000 U.NSEC= 00001 OR 
STATLP 000724 -PARM= 000000 T4UPRM= U.PARM= 00003 XREAD = 000002 
STATOK 000737 «PAT = 000003 UDADM1= 001000 G U.PAT = 000011 XWRITE= 000005 
STATUS= 000007 S.SCHR= 000005 UDATA 001222 U.PCTG= 000014 
- ABS. 007366 


000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 4487 WORDS ( 18 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
2B: UDAT1.L50/C=SDMACRO,B:UDAT1 


("oo 












CROSS REFERENCE TABLE (CREF V04.00 ) 

ACHK1 30-224 30-45 30-47 

ae 30-35 30-404 

ARGSS 30-27 30-274 30-29 30-294 30-36 30-364 


BCHKM 8 31=% 31-22 38-34 
BCHKMX 38-6 38-9 38-13 38-16 38-26 38-28 


BF .EDC » 
TOO 7-So0 32-31 
B1T01 298 
BREAK 4-34 
BTABLE 39-424 


36-41 
BUFCNT 32-63* 33-9 33-25 36-8 36-32 39-164 
BUFSIZ 21-15 21-20 22-784 


34 
CLRBUF Abe td 21-27 


COMPL 
CURBUF 33-5* 33-7 33-20* 33-23 35-32 39-174 
CURPAT ee 33-13 33-17* 35-9 36-116 39-184 


36-59 39-194 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 23=AUG-82 12:00:45 PAGE S-1 


36-24 


38-38 


36-244 36-26 36-264 36-132 


38-40 


38-514 


36-1324 38-49 


SEQ 0123 


38-49" 


| H 10 
UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 PAGE S-2 


CROSS REFERENCE TABLE (CREF V04.00 ) 


DROP «B= 108 
DRTYPE 5-154 
DRVCLR 6-358 
DRVID 5-144 
DRVONL 6-334 
DRVRUN at rd 
DU.DFL 3-508 
DU-FIL 5-538 
"INF 3-518 
"QUE 3-498 
DU:SPC 3-54 63 6-4 6-5 6-6 6-7 6-8 
6-16 6-17 
DU.TER 3-528 
E1 35-43 40-614 
E2 39-43 40-608 
ES 39-43 40-598 
ECC 4-168 
ECCCHK 8-284 
ECCFLG 3-884 
ECCRSH 5-114 
CHO 4-114 
ECHOC 6-464 
Oc 3-898 
ERECOV 6-314 
ERHARD 6-524 30-27 30-29 «30-36 «36-24 «3626-36132 
ERLEV 5-108 
ERRMC 6-154 
ERRMES 6-144 8-39 
ERRN 30-38 %0-27 30-27 «30-27 30-27" += 30-29 «30-29 
36-24 36-26 S240 36-26 56-26 36-26 56-26 
ERRNUM 36-67* 36-76% 36-77 36-106" 36-122 36-124" 36-128 
ERSOFT 6-534 
ETABLE 36-130 39-43 
EXIT. 4-208 
FB.DAT 3-654 
FB.EDC 3-664 
FCTSIZ 5-364 
FIRSTU 7-114 
FMEMFL 30-134 30-16 
FORMAT 4-44 
FRADR 38-7* 39-84 
FRADRH 38-3* 39-94 
FRAME 5 
FREE 32-18 32-40 35-34 36-7 3631 «0-34 
FSTOP 5-838 
FT.BUF -584 
FT:HI 3-598 
FT-LOW 3-608 
FTIME 8-164 
FTLDEV 6-514 
ACE oe er ee 
FWADRH 30-21 31-4 31-19 32-26 32-42 38-19 38-31 
ie ae 
GETSTA 6-384 


6-9 


38-49 


30-29 
36-132 


39-354 


38-30 
38-46 


6-10 6-11 
30-294 30-36 
36-132 36-152 
38-42 38-49 
38-49 38-49 


6-12 6-13 6-14 
30-36 30-36 30-364 
36-1524 38-49 38-49 
38-49 39-34 
39-44 


SEQ 0124 


6-15 


36-24 
38-49 


10 
UDAT1 yareus ADDRESSING DMACR X04.01 23=AUG-82 12:00:45 PAGE S=3 ' SEQ 0125 


CROSS ERENCE TABLE (CREF V04.00 ) 
GE TSUB $-378 
GRPCYL -254 
GRPOFF 5-384 
HINB 5-56# 
L 5-574 
HD .BAD £308 
-DBN 1014 
HD.LBN 6 3=S5# 
-PRV 3-994 
-RBN +308 
HD.REV -97# 


HIDBN 5-304 
HILBN 5-264 
HIMEM 3-414 7-11 32-17 
HIRBN 5-294 
HIXBN 5-274 
HOSTRQ 21-24 28-40 30-9 34-2 
HRDREV 5-1 
IN.01 22-444 30-10 
IN.02 22-454 
IN. 22-4 
IN. 22-478 
IN.05 $5208 
IN. 22-4 
IN.07 22-50# 
IN.08 22-514 
IN.09 22-524 
IN.10 22-534 
IN.11 22-544 
IN.12 22-554 
IN.13 22-56# 
IN.14 22-57# 
IN.15 22-5 
IN.16 22-598 
IN.17 22 
IN.18 22-614 
IN.19 22-624 
IN.20 22-634 
IN.21 22-644 
IN.22 22-654 
IN.23 2-664 
IN.24 22-674 
IN.25 fw 
IN.26 98 
IN.27 22-704 
IN.28 § -714 
1N.29 -724 
IN.30 22-734 
IN.31 22-744 
iN. 36 -754 
1N.3 22-764 





22-78 


39-414 
39-404 


32-53 
32-50 


38-24 


38-33 


22-64 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 23=AUG-82 12:00:45 PAGE S-4 
CROSS REFERENCE TABLE (CREF V04.00 ) 


39-54 
39-64 


38-36 


28-13 


_" 
S 

te 

im mmo 


r 4 
zac 


POMININININNoPUPoPonononoefnorys 
DON MIPINMINPINPININNNINNP 





S ADDRESSING DMACR X04.01 23-AUG=82 12:00:45 PAGE S-5 
ENCE TABLE (CREF V04.00 ) 


22-348 


23-27 
20-47 


40-644 


30-27 


36 
36-132 


38-494 


cc 





L 


UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG-82 12:00:45 PAGE S-6 
CROSS REFERENCE TABLE (CREF V04.00 ) 


RCVRDY 


6-214 


38 
36-24 36-24 36-24 36-244 36-244 36-244 
38-49 38-49 38-494 38-494 


30-27 30-29 30-36 36-24 36-26 36-132 


9 
36-24 36-24* 36-26 36-26* 38-49 38-49 


23-434 
23-424 


23-15 


35-18 35-42 36-13 36-24 36-24 36-26 





10 


36-26 


36-38 


30-294 
36-24 


36-58 


36-26 


39-204 


36-264 


SEQ 0128 











SNDAGN 
SPADJU 


21-148 
28-32 


21-18 
28-424 


UDAT1 UNIBUS ADDRESSING DMACR x04. ’ 23-AUG-82 12:00:45 PAGE S-7 
CROSS REFERENCE TABLE (CREF V04.00 ) 


36-17* 
36-18* 


36-24 
36-24 


36-24 
36-24 


36-26 
36-26 


36-26 
36-26 


36-61* 
36-62* 


23-35 
23-37 


39-364 
39-374 


23-394 





36-82 
36-63* 


36-94" 
36-84 


38-7 
36-96" 


38-14% 
38-3 


38-22 
38-10* 


SEQ 0129 


38-34 
38-23 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG=82 12:00:45 PAGE S-8 
CROSS REFERENCE TABLE (CREF V04.00 ) 


7-108 7-11 
27-14 
5-694 
8-364 
5-284 
7-414 7-42 
7-224 7-23 
7-448 7-45 
7-484 7-49 
7-494 7-50 
7-434 7-44 
7-284 7-29 
7-248 7-25 
7-344 7-35 
7-314 7-32 
7-50# 7-51 
7-10 7-514 
7-298 7-30 
7-404 7-41 
7-334 7-34 
7-268 7-27 
7-154 7-16 
7-204 7-21 
7-254 7-26 
7-384 7-39 
7-214 7-22 
7-234 7-24 
7-424 7-43 
7-324 7-33 
7-464 7-47 
7-454 7-46 
7-184 7-19 
7-364 7-37 
7-354 7-36 
7-194 7-20 
7-478 7-48 
7-164 7-17 
7-394 7-40 
7-174 7-18 
7-274 7-28 
7-37# 7-38 
7-304 7-31 
2-314 2-46 3-14 3-39 20-10 
‘ise 2-37 3-3 3-34 20-5 20-21 39-46 
24-14 24-16 25-11% 25-15 25-20# 
5-464 
5-474 
5-484 
5-494 
6-424 
4-148 24-15 36-19 


a 
at ~ 25-16 35-44 
35-1114 3-112 


SEQ 0130 
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UDAT1 UNIBUS ADDRESSING DMACR X04.01 23-AUG=82 12:00:45 PAGE S-9 
CROSS REFERENCE TABLE (CREF V04.00 ) 


a 8-378 


WRITE 33-6 33-21 35-94 
WR # 


TOP 3-814 
XBNCYL 5-414 
XFERRT 5=- 


54 
XMTERR (6-254 20-41 
XOR at bad 31-9 31-20 38-44 38-48 


SEQ 0131 


= 
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TABLE OF CONTENTS 
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UDA_DM errant PARAMETERS 
NITIONS 


S_USED FOR id 2 
COMMAND BUFFERS FOR SEND XFC 
Ly pg on FOR MAINTENANCE WRITE AND READ BUFFERS 


STA 
TOLL oth ine THEN GET UNITS TO TEST 


THE DIAGNOSTICS TO ALL UNITS SELECTED 
Foun ok fp onive™ LOOK AT DRIVE SIGNALS 


TUS COMMAND 
GET DRIVE CHARACTERISTICS 
CHECK va ICH COMMAND HAS BEEN GIVEN 
RERORT WRITE 
SEND NOSE COMMAND 
TEST 3 SPECIFIC yo et 
DIAGNOSE COMMAND PROCESSING 
DIAGNOSE/READ MEMORY TO = IF ERROR OCCURRED 
DIAGNOSE/DO A DRIVE CLEAR 
BAetE AED PROGRAM NAME SPECIFIED BY DRIVE AND DOWNLINE LOAD 
DIAGNOSE/REPORT ERROR == NO DOWNLINE LOAD PROGRAM 
DIAGNOSE/SET UP RESPONSE TO HOST AND EXIT 
READ MEMORY SUBROUTINE 
ot Ad | MEMORY se 


RUN (OR SPIN UP) COMMAN 
eet STATUS 


STORE STA TINE 
CONVERT MEMORY == SKEWED BY BYTE 
3 y OUNT 


; . 
TYPE WHAT KIND OF RECEIVE ERROR 
DIVIDE ey OCTAL 50 AND FIND ASCII EQUIVALENT 
RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 


ee rt oo ee cre ae a | 
UDAT2 DISK RESIDENT DMACR X04.01 19-AUG=82 13:07:09 PAGE 1 SEQ 0133 | 


~TITLE UDAT2 DISK RESIDENT 


COPYRIGHT (C) 1981 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 


YF OWNERSHIP OF 
; THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
; EQUIPMENT CORPORATION. 


DIGITAL _ASSUMES NO RESPONSIB 


IL FOR THE USE OR RELIABILITY OF 
; ITS SOFTWARE ON EQUIPMENT WHICH 


| 
Y 
S NOT SUPPLIED BY DIGITAL. 
| 
| 
| 
| 
| 
| 
i 


NO CONOULSWN 0 VDONOUS Wh 


IT 
I 


000000 ipaso=0 


000001 UDAS2=1 
sTHIS PROGRAM SHALL BE ASSEMBLED WITH THE PROGRAM DMACRO 
USING A COMMAND LINE SIMILAR TO: 


$ UDAT2,UDAT2/C=C30, 30]DMAC52,UDAT2 

[LINK USING A COMMAND LINE SIMILAR TO: 

$ UDAT2.BIN/L=UDAT2 
-MCALL DMCODE ,DMEND ,DMOVLY :UDAS 
“MCALL JMP,BR.BEQ,CALL,BPL,BCC,BNE,BMI,RETURN :UDAS 
“MCALL DMODT UDAS2 


000000 DMCODE UDADM2,0,1364,3,0,1000 
~SBTTL UDA DM PROGRAM PARAMETERS 


NWOWNWE WM oOo 


003720 ERRN=2000. START ERROR NUMBERS AT 2000. 
EQUATES 
HIGHEST USABLE LOCATION OF UDA MEMORY + 1 

IMEM = 37777 


G0 00 00 SIN NAA GUI ES BE SB WWII NNIWNIAINIIDI NINN NI NINID) 2 2 
SRAVeSsaNo ws —SOOONOulew 


037777 
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UDA DM PROGRAM PARAMETERS 


98 : 

99 : 

100 ; OFFSETS FOR FORMAT TRACK TABLE 

102 000000 FT.BUF = 0. ZBUFFER POINTER OFFSET 

103 000001 FT.HI = a. SHI ORDER HEADER OFFSET 

104 000002 FT.LOW = 2. [LOW ORDER HEADER OFFSET 

106 : 

107 : OFFSETS FOR FORMAT TRACK BUFFER 

109 000000 FB.DAT = 0. ZFIRST DATA WORD OFFSET 

110 00 FB.EDC = 256. ‘EDC WORD OFFSET 

112 : 

113 ; OFFSETS FOR READ/WRITE 1/0 CHAIN TABLES 

115 000000 RW.STAT = 0. :STATUS AND NEXT BUFFER POINTER OFFSET 
116 000001 W.BUF = F [POINTER TO DATA BUFFER 

117 000002 W.LOW = 2. SHI ORDER EXPECTED HEADER 

118 000003 RW.HI = 3. ‘LOW ORDER EXPECTED HEADER 

119 000004 RW.CMD = 4. :SDI COMMAND AND HEAD ADDRESS 
120 000005 RW.SDI = 5. ‘DUMMY SDI CONTROL BLOCK POINTER 
121 000006 RW.ANG = é. S THETA FROM INDEX 

123 : CONSTANTS FOR READ AND WRITE XFC'S 

125 140000 WSTOP = 140000 : LAST ENTRY IN CHAIN FOR WRITE 
126 040000 = 40000 : WRITE CONT 

127 100000 RSTOP = 100000 : LAST ENTRY IN CHAIN FOR READ 
128 000000 RCONT = + READ CONTINUE 

129 100000 FSTOP = 100000? : LAST ENTRY IN CHAIN FOR FORMAT 
130 122400 = 122400 : WRITE REAL TIME ECOMMAND 

131 013400 RREAL = 13400 : READ REAL TIME COMMAND 

132 010000 ECCFLG = 10060 : ECC ERROR IN BUFFER BIT 

133 100000 EOC = 100000 : END OF CHAIN 

134 040000 BUFFLG = 40000 : BUFFER FULL OR EMPTY FLAG 
136 ; 

137 ; HEADER CODES 

139 000000 HD.LBN = 000000 :GO0D LBN 

140 060000 HD. = 060000 :GOOD RBN PERHAPS UNUSED 

141 030000 HD.REV = 030000 SREVECTORED LB 

142 110000 : = 110000 [BAD BLOCK 

143 050000 : = 050000 [PRIMARY REVECTORED BLOCK 

144 120000 : = 120000 :XBN BLOCK 

165 140000 HD.DBN = 140000 :DBN BLOCK 

167 ; OFFSETS FOR DATA BUFFERS 

149 BF.DAT = 0. :DATA 

150 000400 BF.EDC = 35 ; TERROR DETECTION CODE 

131 000401 BF.ECC = 57. SLAST 17 ECC RESIDUES 

138 3 BUFFER AND READ/WRITE CHAIN LINK SIZES 
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UDA DM PROGRAM PARAMETERS 


155 000401 WBUFLN = 257. 
156 000415 RBUFLN = WBUFLN¢12. 
157 000007 LINKLN = 7. 


WRITE BUFFER SIZE 
} READ oyren SIZE 
; LINK SIZE 


SEQ 0135 
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UDA DM PROGRAM PARAMETERS 


1 
2 
3 
4 
5 
6 
7? 
8 
9 
0 
1 
2 
3 
4 
5 
6 
4 
8 
9 
0 
1 
2 
3 
4 
5 


XFC DEFINITION EQUATES 


St BOO NOUL WH 


NOUSWIN—Oe « 


GET STATUS OFFSETS 


NMONMORONOI RORY) a 2 ss es 


STATUS BIT DEFINITIONS 


ST 

ST.P 

ST 
T 
T 
T 
T 
T 
T 
T 
T 





BREAKPOINT XFC CODE 
FORMAT TRACK XFC CODE 
;READ_N SECTORS XFC CODE 
:WRITE N SECTORS XFC CODE 

SDI COMMAND XFC COD 
SRECEIVE SDI MESSAGE XFC CODE 
COMPARE DATA PATTERN TO BUFFER 


CODE 
[SEND BUFFER TO MAINTENANCE READ COMMAND 
3GET BUFFER FROM MAINTENANCE WRITE COMMAND 
SCONVERT TO PHYSICAL ADDRESS XFC CODE 
ZTERMINATE DM PROGRAM XFC CODE 


UNIT NUMBER 
: SUBUNIT MASK 
ZSTATUS BYTE 
2 MOD : art 


sERROR BYTE 
; CONTROLLER BYTE 


RETRY COUNT/FAILURE CODE 


3 ONLINE TO ANOTHER (SET IF DRIVE UNAVAILABLE) 

: READJUSTMENT BIT (SET IF ap pt et a REQUIRED) 
: DIAGNOSTIC REQUEST (SET IF DIAGNOSTIC REQUESTED) 
: SPINDLE READY (SET IF SPINDLE READY) 

: PORT SWITCH (SET IF PORT SWITCH IN) 

3 RUN/STOP SWITCH (SET IF RUN/STOP SWITCH IN) 

: FATAL ERROR (SET IF FATAL ERROR OCCURRED) 

: a A ERROR (SET IF RETRIABLE ERROR So it 
3 PROTOCOL ERROR (SET IF PROTOCOL ae Atty RED) 

: phe Ee FAILURE (SET IF INIT FAILED) 

; WRITE ENABLE (SET IF WRT ATTEMPTED ON PROT DISK) 
3 FORMATTING (SET IF FORMATTING ENABLED) 

3 DIAGNOSTIC CYLS (SET IF DIAG CYL occas ENABLED) 
: SECTOR SIZE (SET FOR 576 BYTE SECTORS) 


H 11 
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UDA DM PROGRAM PARAMETERS 


} : GET COMMON CHARACTERISTICS OFFSETS 
3 000000 SHRTTO = 0. ;SHORT TIMEOUT oz! 0> 
i 000000 SDIVER = 0. SDI VERSION <7:4> 
5 000000 XFERRT = 0. s TRANSFER RATE <15 0> 
6 000001 LONGTO = * [LONG TIMEOUT <3 
7 000001 RETS = } # sRETRIES <7:4> 
8 0001 RCTCPS = 1. SF/RCT COPIES <11:8> 
9 000001 Ss = Be sSECTOR SIZE <15 
10 000002 ERLEV = Be sERROR RETRY LEVELS <7:0> 
11 opnte ECCRSH = ie sECC THRESHOLD <15:8> 
12 00000 MICREV = z tMICROCODE REVISION NUMBER <7:0> 
13 000003 HRDREV = . * : HARDWARE REVISION NUMBER <15:8> 
14 000004 RVID = = [UNIQUE DRIVE ID <47:0> 
15 000007 DRTYPE = ie sDRIVE TYPE IDENTIFIER <7:0> 
1g 000007 REVS = ?. >REVS/SECOND <15:8> 
1g 3 GET SUBUNIT CHARACTERISTICS OFFSETS 
$9 3; THESE OFFSETS ARE CURRENTLY GIVEN AS FOLLOWING THE COMMON CHARACTERISTICS 
22 000013 SUB = ie sOFFSCT TO PUT SUBUNIT AFTER COMMON; 
23 LBNCYL = 0. NUMBER OF CYLINDERS IN LBN AREA <31: 0> 
24 000001 HICYL = 1. SHI ORDER CYLINDER BITS <15:12> 
35 000002 GRPCYL = 2. GROUPS PER CYL 
26 000002 HILBN = 2. sHI STARTING LBN <11:8> 
27 000002 HIXBN = a. HI STARTING XBN <15:12> 
28 000003 TRKGRP =  * s TRACKS PER GR < 
29 000003 HIRBN = 3. : STARTING RBN <11:8> 
30 000003 HIDBN = | m sHI STARTING DBN <15:12> 
31 000004 RBNTRK = 4. :RBNS PER TRACK <6:0> 
32 000004 RM = 4. {REMOVABLE MEDIA <7:7> 1=REMOVEABLE 
33 5 DATPRE = 7% sDATA PREAMBLE SIZE IN WORDS <7: 
34 000005 HDRPRE = , a *HEADER PREAMBLE SIZE IN WORDS tS: 8> 
35 006 MEDTYP = 6: [MEDIA TYPE <31:0> 
000010 FCTSIZ = 8. FCT COPY SIZE <15:0> 
37 000011 LBNTRK = 9. [LBNS PER TRACK <7:0> 
38 000011 GRPOFF = 9: [GROUP OFFSET (SECTORS) <15:8> 
39 12 LBNHST = 10. *LBNS IN HOST ane ots 0> 
40 000014 RCTCSZ = 12. sRCT COPY 
41 21 XBNCYL = 17. sCYLS IN XBN AREA ats: 0> 
42 000022 DBNCYL = 18. ?CYLS IN DBN AREA <15:8> 
re} : UNIT CODES 
46 000001 UNITO = 1, UNIT ZERO CODE 
47 000002 UNIT] = 2: [UNIT ONE CODE 
4 000004 UNIT = 4. sUNIT TWO CODE 
49 000010 UNITS = 8. [UNIT THREE CODE 
31 ; BIT MASK DEFINITIONS 
53 : 
54 177400 HIBYTE = 177400 HIGH BYTE MASK 
55 000377 LOBYTE = 000377 *LOW BYTE MASK 
56 007777 HBHINB = 7777 HI BYTE, HI NIBBLE MASK 
57 170377 HBLONB = 170377 HI BYTE. LO NIBBLE MASK 








UDAT2 DISK RESIDENT orene X04.01 19-AUG-82 13:07:09 PAGE 3-1 
UDA DM PROGRAM PARAMETERS 


177417 
177760 


000001 

000002 
000004 
000002 
000004 
000010 


000001 
000002 


000001 
000002 


REVECT 
WRONG 
FRAME 
CHECK 


TOOBIG 
LOW 
LARGE 
OVERFL 


Nm @GSlnm SM —— 


I 11 


3LO BYTE, HI NIBBLE MASK 
:LO BYTE, LO NIBBLE MASK 


sDRIVE TIMEOUT CODE 
HEADER COMPARE FAILURE CODE 
sREVECTOR NEEDED CODE 


sFIRST WORD NOT START FRAME CODE 
FRAMING ERROR CODE 
: CHECKSUM ERROR CODE 


sNUMBER OF WORDS EXCEEDS 7064 
:DM BUFFER ADDRESS IS LESS THAN 714 


BLOCK NUMBER TOO LARGE 
SECTOR NUMBER LARGER THAN 16 BITS 


SEQ 0138 









AUSWN =O OONAUSWN—ODONOUSWwh— 


NONONONONONNY 2 2 2 


27 
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UDA DM PROGRAM PARAMETERS 


sMAINTANENCE READ/WRITE REQUEST NUMBERS 


TIMSIZ = 0.+DU.SPC 
T2DLL_ = 1.+DU.SPC 
TOCMD = g- +DU. SPC 
T4MPRM = . +DU. SPC 
T4UPRM = 4.+DU.SPC 
14881 = 5. +DU. SPC 
T4BB2. = 6.+DU. SPC 
T4SOFT = 7.*DU.SPC 
T4SEEK = 8.+DU.SPC 
T4MXFR = 9. +DU. SPC 
UTOTST = 10.+DU. SPC 
ERRMES = 11.+#DU.SPC 
RRMC = 17. +DU. SPC 
MESSAG = 13. +DU.SPC 
DONE = 14. +DU. SPC 
: OTHER BIT DEFINITIIONS 
RCVRDY = 1 

TIN = 2 
RCVERR = 4 

VAIL = 100 
XMTERR = 400 

RWRDY = 100000 

: SDI COMMANDS AND RESPONSES 
ISCON = 204 
ERECOV = 6 

CHGMOD = 201 
DRVONL = 213 

RVRUN = 14 
DRVCLR = S 
GETCHR = 207 
GETSUB = 210 
GETSTA = 11 

IRECLB = 216 

INSEEK = 12 

OMPLT = 176 
UNSSUC = 175 

CHRRES = 170 

SBCRES = 167 

STSRES = 366 
ECHOC = 350 

: ERROR CODES 
FILSYS = 0 
FTLDEV = 40000 
ERHARD = 100000 
ERSOFT = 140000 





SEQ 0139 | 


GET FREE MEMORY PARAMETERS 


;DOWNLINE LOAD DRIVE Cc 

sMANUAL_ INTERVENTION TEST 2 PROTOCOL 

GE TER PA TERS FROM SW QUESTIONS 
GET UNIT PARAMETERS F HW QUESTION 
3GET BAD BLOCKS (1 TH 

2GET REST OF BAD BLOCKS (15 AND 16) 

ZADD TO Seren Cho a 


TO K_COUN 
TO MEGABITS READ AND WRITTEN 
Ger UNITS TO TEST 
PRINT ERROR MESSAGE 
sTEST 4 ERROR REPORTING 
2 INFORMATION MESSAGE 
sMARK DM PROGRAM AS NO LONGER RUNNING 


RECIEVER READY 1 = READY 

ATTENTION BIT FOR RETURN DRIVE SIGNALS XFC 
RECIEVER ERROR 

AVAILABLE 1 = AVAILABLE 

ar ERR 


DISCONNECT DRIVE 
ERROR RECOVERY 
CHANGE MODE 
DRIVE ONLINE 


DRIVE RUN 

DRIVE CLEAR OPCODE 

GET CHARACTERISTICS 

GET tw CHARACTERISTICS 


E SEEK 
SUCCESSFUL COMPLETION 
UNSUCCESSFUL COMPLETION 
GET Smit cokaitten RESPONSE 
GET SUBUNIT CHARACTERISTICS RESPONSE 


GET STATUS RESPONS 
DIAGNOSTIC ECHO COMMAND AND RESPONSE 


Be Se Ge Se Ge Fe Ge Se Ge Ge Ge Se Se Be Se Be Se 
a 


SYSTEM ee ERROR 
DEVICE FATAL 

HARD ERROR 

SOFT ERROR 





F SET, UDA IS ABLE TO READ AND/OR WRITE TO DRIVE 


zr 
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VMI SWN $9 OONOUSWN $0 COONOUSWwh— 


NMORONORONOTY 


K 11 





DUMMY SDI CONTROL BLOCK OFFSETS 


= 1 3 DUMMY SDI SEARCH LIMIT 
= 2 : DUMMY POINTER TO SUBUNIT CHAR-5 
DUP MESSAGE TYPES 
10000 
$0000 
0000 
40000 
50000 
60000 


MACRO DEFINITIONS 
MESSAGE CONTROL TABLE MACRO 
-MACRO MSG CMDBUF ,CMDSZ,RPLBUF ,RPLSZ,SUCCOM 


-WORD CMDBUF ADDRESS OF COMMAND 

eWORD CMDSZ sSIZE_OF Se neee IN BYTES 
WORD RPLBUF | ADDRESS OF LY 

-WORD RPLSZ :SIZE OF REPLY IN WORDS 

- IF NB NUMBER 

oor SUCCOM 3 SUCCESSFUL COMPLETION CODE 


SENDM 
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MACRO DEFINITIONS 
1 «MACRO BCS LAB.. 
2 BCC +2 
3 BR LAB.. 
4 .ENDM 


DC 
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MACRO DEFINITIONS 


; PUSH REGISTER MACRO 


«MACRO PUSH R9 
-IRP X,<R9> 


-ENDR 
-ENDM 


; POP REGISTER MACRO 


«MACRO POP RO 
~IRP X,<R9> 


-ENDR 
NDM 


VEWN—O OONOUSWwr- 
s 


— ss SS I 


MOV X,=-(SP) 


MOV (SP)+,X 


poe 
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4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 


NR 2 ss 


22 


ERROR MACROS 


; THESE MACROS ARE CALLED TO wy ERRORS TO THE HOST PROGRAM. 

ZTHE MACRO NAMES ARE : aot th F, ERRHRD, ERRSFT. EACH RESULTS IN THE HOST 
BEING REQUESTED TO REPORT T 
; ARGUMENT S: (MS$) MES SAGE POINTER 


(P6$) PARAMETER #6 
(P7$) PARAMETER #7 
(P8$) PARAMETER #8 


THE MESSAGE POINTER MUST POINT TO AN ADDRESS IN THE wry ane — 
FOLLOWING THE MAIN CODE. ANY ADDRESS MODE MAY BE USED (E.G. #MS1, @ 
THE ge MUST CONTAIN AN ASCII FORMAT STRING TO DETERMINE THE “WE SSAGE 


THE PARAAETER ARGUMENTS ARE oe tie cal THEY SHOULD BF SUPPLIED ONLY WHEN 
;THERE IS DATA TO BE PASSED THE HOST THAT WiLL BE USED IN PRINTING THE 
; MESSAGE. THESE PARAMETER ARGUMENTS ARE THE ADDRESS OF DATA TO BE PASSED 
USING ANY ADDRESSING MODE DESIR 

ZALL_REGISTERS ARE RETURNED UNCHANGED. IT SHOULD BE NOTED THAT ARGUMENTS 
CONTAINING SOMETHING OTHER THAN A REGISTER NAME (E.G. #100 OR MEMADR) 
ASSEMBLE TO INSTRUCTIONS THAT SAVE AND RESTORE A REGISTER ON THE STACK. 


-MACRO ERRSF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 
a ARGS$ 


— FTLSYS,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 


WOONAULS WA 
~ 
uv 
. > 
wn a 
— 
v 
Poa 
=z 
> 
= 
mm 
~ 
m 
Zz 
os 
=~ 


«MACRO ERRDF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 
ARG ARGS$ 


eRADIX 10 
— FTLDEV,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 


«MACRO ERRHRD MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 
"NARG. ARGS$ 
els ERHARD, MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$,\ERRN 
“ENON 
«MACRO ERRSFT MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 

ARG ARGS$ 


»RADIX 10 
enny ERSOFT ,MS$,P1$,P2$,P3$,P4$,P5$,P6$.P7$,P8$, \ERRN 


SEQ 0143 
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MACRO DEFINITIONS 


\ ;THE FOLLOWING MACRO ACTUALLY PROCESSES THE ERROR CALL TO THE HOST PROGRAM 
; -MACRO ERRORS ETS,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, ERRNS 
5 PRMS=ARGS$=1 
6 IF LT,<PRMS> 
f eiigRROR:NOT ENOUGH ARGUMENTS IN ERROR CALL 
9 REGS$==1 
10 LIF GE,<PRMS=8.>,PARGS. P8$ 
11 S1IF GE.<PRMS-7.>,PARGS. P7$ 
12 -1IF GE.<PRMS=6.>, PAGS. P6$ 
13 -1IF GE,<PRMS=5.>,PARGS. P5$ 
14 “LIF GE.<PRMS=4.>,PARGS. P4$ 
15 SIIF GE.<PRMS-3.>,PARGS. P3$ 
16 SIIF GE.<PRMS=2.>,PARGS. P2$ 
17 S1IF GE.<PRMS=1.>,PARGS. P1$ 
18 IF GE REGS$ 
19 RSTRS \REGSS 
20 .ENDC 
21 “RADIX 10 
22 LIST 
23 CALL RERROR  ;ERROR # ERRNS'. 
24 .NLIST 
25 [RADIX 8 
26 LIST 
27 .WORD ETS+ERRN 
$8 eWORD <PRMS*10000>+mMS$ 
9 .NLIST 
30 ERRN=ERRN¢+1 
31 .ENDM 
33 .MACRO PARGS.,ADORS 
34 .NTYPE PTYPES, ADDRS 
35 IF £Q,<PTYPE$& 70> 
36 - TIE EQ,<PTYPESE7>-REGSS, RSTRS \REGSS 
38 ; MOV ADDRS,=(SP) 
39 .NLIST 
41 *" LIF EQ, <PTYPES&7>=1 ;PICK A REGISTER TO USE 
4 Recub=e SSELECT R2 IF R1 IS USED IN PARAMETER FETCH 
44 “Regus? SOTHERWISE USE R1 
46 IF NE,<REGUS-REGS$> :1F REGISTER NOT ALREADY SAVED 
48 *"RSTRE \REGSS ZRESTORE CURRENT SAVED REGISTER 
50 SAVRS \REGUS ;THEN SAVE SELECTED REGISTER 
51 sENDC 
5 GETPS \REGSS,ADDRS 
5 .ENDC 
34 .ENDM 
5 .MACRO DEVFTL NUM, ARGS 


5 ERROR FTLDEV,NUM,<ARGS> 





a 
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TYPE ,NUM, ARGS 


m ov 


“ “xe Tz om—m 


MOV 


MOV 
MOV 


#ERRMC ,OUT.RQ 
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1 »MACRO_SAVRS REGN 

2 »LIST 

3 MOV R°REGN, SAVREG 
& eNLIST 

5 REGSS$=REGN 

§ «ENDM 

8 ~MACRO_RSTRS REGN 

9 «LIST 

10 MOV SAVREG,R'REGN 
11 -NLIST 

12 REGS$=-1 
~ENDM 
15 -MACRO_GETPS REGN,ADDRS 
16 «LIST 
17 MOV ADDR$,R‘REGN 
18 MOV R°REGN,=(SP) 
19 «NLIST 
20 ~ENDM 


| 


san 
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MACRO DEFINITIONS 
1 -MACRO MSSGE NUM,ARGS 
¢ RADIX 10 
z NUMPTR = 3 
5 MOVMSG #'NUM,2 
6 IF NB, <ARGS> 
7 . IRP X,<ARGS> 
8 MOVMSG X,\NUMPT 
9 NUMPTR = NUMPTR + 1 
10 -ENDR 
11 ~ENDC 
12 
13 
14 
15 
16 RADIX 
i -ENDM 
i «MACRO MOVMSG ARG, INDX 
21 IF LT, INDX=10 
22 
23 w1FF 
24 
25 -ENDC 


nN 
o 
. 

m 
2 
So 
=z 


MOV 


MOV 
MOV 


LUNIT,OUT.01 


<RO,R1> 
#MESSAG,RO 
HOSTRQ 
<R1,R0> 


ARG ,OUT.0° INDX 
ARG, OUT. ° INDX 


SEQ 0147 
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MACRO DEFINITIONS 


sASSUME MACRO 
_— ASSUME ” ace 


; THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 


Oufwnr— 


G 12 
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UDAT2 DISK RESIDE 
MACRO DEFINITIONS 
1 sRETURN DRIVE STATUS MACRO WITH ERROR REPORTING 
§ «MACRO DSTAT,LABS,E1,E2 
4 eNLIST 
5 eNLIST MEB 
6 eLIST ME 
7 LIST 
8 CALL RDSTAT 3 GET DRIVE STATUS 
9 BIT #10000,R1 ; SEE IF ANY ERRORS 
10 BEQ 2$ g iF ERROR, BRANCH 
11 BIT #4000,R1 3; SEE IF XMIT ERR 
12 Q 1$ 3: IF SO, BRANCH 
13 ERRHRD €1 ; REPORT INVALID STATUS ERROR 
14 LABS : BRANCH TO DONE 
15 1$: ERRHRD €E2 ; REPORT XMIT ERROR 
16 BR LABS : BRANCH TO DONE 
17 2$: 
18 e-NLIST 
19 eNLIST ME 
20 eLIST MEB 
21 LIST 
22 ~ENDM 


mm a a i a nn ee 





SAVE REGISTER REG2 
CLEAR COORESPONDING 
CLEAR COORESPONDING 
OR WHAT'S LEFT 


1 
BIC (SP)+,REG1 
BIS REG1,REG2 


ae eC + ae 


T 
T 


SEQ 0150 


I 12 
SEQ 0151 | 





; CONVERT .BLKW CALLS TO ACTUAL WORDS GENERATED 
er ~-BLKW COUNT 


eREPT COUNT 
WORD 0 
-ENDR 

«LIST 


D 
D 
4 
5 NLIS 
6 
7 
x 
9 
0 





Mm 
4) 
as 
rr + ] 


“SOON OUVUSWN“OCDONOUFSWIN— oOo 


PRDIND ak st ed et nd ot os 2 
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SDI INTERCHANGE WITH DRIVE WITH ERROR REPORTING 
eMACRO TALKX ERRLAB,Ei,E2 


eNLIST 

-NLIST MEB 

° izt ME 

CALL TALKER 3 INITIATE SDI INTERCHANGE 
TST R3 : SEE IF ERROR OCCURRED 
BEQ 12$ ; i. + i BRANCH 


BPL 11$ 

ERRHRD iy ay COMMAND ERROR 
ERRHRD €E2;RECEIVE COMMAND ERROR 
BR ERRLAB 


-NLIST 
eNLIST ME 
LIST MEB 
«LIST 

- ENDM 


SEQ 0152 | 


| 
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START OF TEST CODE 


1 -SBTTL_ START OF TEST CODE 

sTHE FOLLOWING IS FOR DEBUG PURPOSES ONLY. CAN BE NOP OR BREAKPOINT. 

¢ 001364 114007 CLR RO CHANGE TO BREAKPOINT FOR DEBUG 

$ s INITIALIZE STACK 

8 001365 104206 002320 MOV #STACK, Po 3SET UP STACK POINTER 

18 001367 BR STA : BRANCH OVER SUPPORT CODE 
001367 000000 002321 *00,START 


L 12. | 
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PROGRAM VARIABLES 


1 -SBTTL PROGRAM VARIABLES 

¢ ;PROGRAM VARIABLES 

¢ ;UNIT NUMBER STORAGE FOR DISK DRIVES TO TEST 

6 gots?! errr 177777 177777 ~UNITS: .WORD <-1,-1,-1,-1 sLOGICAL UNIT NUMBER IF POSITIVE 

7 001375 177777 177777 177777 «WORD -1,-1,-1,-1 sDISK DRIVE NOT TO BE TESTED IF NEGATIVE 

001400 177777 
8 001401 177777 177777 177777 «WORD -1,-1,-1,-1 
001404 177777 

9 001405 177777 177777 177777 eWORD -1,-1,-1,-1 

10 001410 177777 

11 001411 000000 UNITNB: .WORD 0 ;NUMBER OF UNIT CURRENTLY UNDER TEST 
ie sPOINTER INTO TABLE ABOVE 

Ly 001412 000000 SDI: -WORD 0O 3SDI INTERCONNECT CODE FOR XFC CALLS 
16 001413 000000 SAVSTA: .WORD 0 ;SAVE STATUS 

i 001414 000000 SAVRID: .WORD 0 7SAVE REGION ID 

19 ;DRIVE RESPONSE BUFFERS 

20 000200 STSIZE = 00 

$3 001415 ST: -BLKW 200 

23 : 
24 001615 0600000 DIAG.1: .WORD 0 wor’ _1ST DIAGNOSE COMMAND 

25 = 0, DRIVE TESTED BEFORE 

26 001616 000000 NAM.1: .WORD 0 {HOLD PROGRAM NAME 

27 001617 000000 NAM.2: .WORD 0 

28 001620 000000 NAM.3: .WORD 0 

4 001621 000000 -WORD 0 

31 001622 000000 SENDHR: eWORD 0 zI1F 0, DON'T SEND HOSTROQ IN TALKER 
3 TIF NOT 0, SEND HOSTRQ => DOING DIAGNOSE COMMAND 
$e 001623 177777 LUNIT: ~WORD -1 ;LOGICAL UNIT NUMBER (-1 FOR NOT AVAILABLE) 
36 001624 000000 SAVREG: .WORD 0 : STORAGE ont REGISTER AT CALL TIME 
37 001625 000012 SDISTO: .WORD 10. ; SDI SHO TIMEOUT 

38 001626 000024 SDILTO: .WORD 20. : SDI tone. TIMEOUT 

+4 001627 000000 SAFWRD: .WORD 0 3; SAFE WORD TO USE IN DO.DCL 

41 001630 004212 SER18E: .WORD SER18A ; FOR MULTIPLE SUBUNIT ERROR REPORTING 
42 001631 004206 -WORD SER18B 
43 001632 004202 -WORD SER18C 
re 001633 004176 -WORD SER18D 
46 001750 MAXSND = 1000. 3; MAXIMUM # OF SENDS 
48 000017 WRM.OP = 17 3; WRITE MEMORY COMMAND 

49 000215 RDM. = 215 3; READ MEMORY COMMAND 

50 000003 DIA. = 3 ; DIAGNOSE COMMAND 

51 000207 GETCHR = 207 3; GET COMMON CHARACTERISTICS COMMAND 
52 000162 RDM.EN = 162 3; READ MEMORY RESPONSE 

53 000374 DIA.EN = 374 3; DIAGNOSE RESPONSE 
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PROGRAM VARIABLES 


54 


000170 


100000 
040000 


177774 
177775 
177776 


GCC.EN 
ERRTYP 
DATAVL 


= 170 
DIAGNOSE ET AND DA 
= 100000 
= 40000 
REGION ID'S 
FFFD = 1 


177775 
FFFD + 1 


M12 


SEQ 0155 | 


; GET COMMON CHARACTERISTICS 


ERROR TYPE ET 
zDATA AVAILABLE 


NOC DONOUSWwh— 


ne 


0 
000000 
000000 


002100 


000000 


002116 


000000 


011 


005 
017 
000000 


000000 


215 
000000 
000000 


000000 
000000 


000000 
000000 


ECHOD: 


CR.GST: 


GETST: 


CR.DRC: 


DRC: 
DRCBYT: 
CR.WRM: 


WRM: 


BUF 1: 


CR.RDM: 


RDM: 


CR.GCR: 


years DISK RESIDENT DMACR X04.01 19-AUG-82 13:07:09 PAGE 19 
SDI COMMANDS USED FOR TEST 2 


SDI C 

377 ,ECHOC 
000,ECHOC 
252,ECHOC 
360,ECHOC 
hee 





SEQ 0156 


OMMANDS USED FOR TEST 2 


ECHO DATA TO SEND TO DRIVE 


END MARKER 


-SBTTL COMMAND purrens FOR SEND XFC 
;COMMAND BUFFERS FOR SEND XFC 


GETST,1,ST,7 
GETST 


ST 
7 


0,GETSTA 
DRC,2,S1,7 
DRC 
ST 
7 


0,DRVCLR 
177777 


WRM,7,ST,7 
RM 


RDM,6,ST,STSIZE 
RDM 


ST 
STSIZE 
0,RDM.OP 


evVveve 


0,0,0,0 


GCR,1,ST,12. 


GCR 
1 
18 
1 


wm 


; GET STATUS SDI a 
ADDRESS OF COMMA 
SIZE OF ores IN BYTES. 
SSIZE 0 sabe TT OF REPLY 


Y_IN WORDS 
; SUCCESSFUL COMPLETION CODE 


: DRIVE y gn INFORMATION 


ADDRESS 
SIZE OF _ COMMAND IN BYTES 
sADDRESS OF REPLY 
;SIZE OF REPLY IN WORDS 
; SUCCESSFUL COMPLETION CODE 


3 MEMORY WRITE COMMAND INFO 
OF COMMAND 


; ADDRESS 
;SIZE OF COMMAND IN BYTES 
sADDRESS . oe 
:SIZE OF REPLY IN WORDS 
: SUCCESSFUL COMPLETION CODE 


3 MEMORY READ COMMAND INFO 
COMMAND 


REPL 
33 OF REPLY IN WORDS 
; SUCCESSFUL COMPLETION CODE 


; GET CHARACTERISTICS 
ADDRESS OF COMMAND 
SIZE OF _ COMMAND IN BYTES 
sADDRESS OF REPL 
SIZE OF REPLY IN WORDS 
; SUCCESSFUL COMPLETION CODE 


“ve 


50 
46 002151 


000 


002124 


207 


213 


003 


014 


216 


GCR: 


CR.ONL: 


ONL : 


LONG: 


CR.DIA: 


DIA: 


CR.RUN: 


RUN: 
CR.INR: 


INR: 
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COMMAND BUFFERS FOR SEND X 


31 002116 
32 


-BYTE 0,GETCHR 
MSG ONL,2,ST,7 
«WORD ONL 

“WORD 2 

“WORD ST 

“WORD 7 

WORD 

-BYTE 0,213 
<WORD 77 

MSG DIA,3,ST,7 
«WORD DIA 

“WORD 3 

;WORD ST 

;WORD 7 

WORD 

-BYTE 0,DIA.OP 
<WORD 0 

<WORD 0 

MSG RUN,1,$T,7 
«WORD R 

SWORD 1 

WORD sT 

WOR 

WORD 

-BYTE 0,DRVRUN 
MSG INR,1,ST, 
«WORD INR 

-WORD 1 

“WORD ST 

;WORD 7 

WORD 

-BYTE 0,1IRECLB 








: GET CHARACTERISTICS 
3 ONLINE COMMAND 


sADDRESS OF COMMAND 
sSIZE OF COMMAND IN BYTES 

eee OF REPLY 
sSIZE 0 REPLY DS 


IN WOR 
i SUCCESSFUL COMPLETION CODE 


: ALL LONG TIMEOUT COMMANDS FOLLOW 
3 DIAGNOSE COMMAND INFORMATION 
OF COMMAND 


sSIZE 0 Y_IN WORD 
: SUCCESSFUL” COMPLETION CODE 


sADDRESS OF COMMAND 
SIZE OF COMMAND IN BYTES 
sADDRESS 1” REPLY 
;SIZE OF REPLY IN WORDS 
3 SUCCESSFUL COMPLETION CODE 


sADDRESS OF COMMAND 
SIZE OF Spontes IN BYTES 


sADD 
2 SIZE OF REPLY IN WO 
: SUCCESSFUL COMPLETION CODE 


iit amma ac iat pase eh da ee 


! 
t 
Ee 
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STORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 


SssossosesseoS 


norurororerorononurorononunonnnn 
NSN NSA AAAAAAOMUIVIVIUIG 


MIMIMIPONYD 
NMR ea 
~~ 
SISOS 


2201 


WN $9 OBNOUSWA) =O OONOUSWN CO VONOUSwh— 


2205 


SssssossoesosSsSososess 


oo 
Morr 


a) 





3 IN BUFFER = DATA RECEIVED FROM HOST 


wn 


ae 
22 222222222222 
s*seeeeseeeseesetee#esee#se#te#*@ 


WS OONOW 


I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 


~~) ~ i) 
Sooooooooooo 


-SBTTL STORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 
sSTORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 


OUT BUFFER = DATA TO SEND TO HOST 
sHOST REQUEST CODE . 
; R NT 


sDATA ARGUME 


;DAT T 3 
zDATA ARGUMENT 3 
sDATA ARGUMENT 34 


sHOST prt (ECHO) 


DATA ARGUME 


ATA ARGUMENT 
zDATA ARGUMENT 
zDATA ARGUMENT 





SWVDSNAOULSWN OC VOnaunlwhrs— 


WO DONOULSWN— 


Se ee <4 


SEQ 0158 | 
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STORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 


C22222 2222222222 222222 


“Tie © @ 6 
— EWN SO OO NAULSWN =O OONOUS 
ee 2 Ge Ge G8 G6 Ge 68 G6 G6 86 66 66 88 68 88 88 68 Se Ge oe 


(OD tea te tt et at Be ae ed en) et ee De Pd Dene fo Penn Peed Dad fed Bnd Bt 
AWWIWIWWNIRINININININNNNIN 3 2 ee os 


«WORD 


iw Aw] 
CSooooooooooooooooocooo 


SIZE OF BUFFER 
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STACK AREA 





-SBTTL STACK AREA 
sSTACK AREA 


1 
: 

4 002260 123456 -WORD 123456 END MARKER FOR STACK 

6 002320 123456 STACK: .WORD 123456 ‘MARKER FOR STACK UNDERFLOW 


aa a 
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STACK A 


uw FW MO OD NO VEWOOONOUSWwh— 
POPQPIPONSNONMINDNYNPPoPoPofmononoefny 


Nm ROM TORN 22 SS to 
Ssosooossoosessosss 


26 00235 
3 


rMmror 


45 002410 


000000 
114003 
020000 
102201 
050000 
117403 


000001 
001371 


006027 
010000 


002343 
003772 
000001 
002563 
006027 
000001 
002363 
002344 
004005 
000001 
002563 
000100 
002375 
004215 
000001 


002563 
001750 


-SBTTL GETU 


:GET WHICH UNITS TO TEST 


START: 


5$: 


a 


20$: 


258: 
30$: 


GET THE UNITS TO TEST 


- POLL ALL PORTS, THEN GET UNITS TO TEST 


POLL ALL PORTS AND FILL IN A UDA PORT INFORMATION TABLE (UNITS) 


MOV #1,R5 

MOV #UNITS RG 
PUSH RG 

OV R5,R2 
CALL __RDSTAT 
“020000, RDSTAT 
BIT #10000, 
BEQ 10$ 
“010000, 10$ 
MOV #SER10,R3 
MOV R3,1(R4) 
BR 85$ 
“00,85$ 

CLR 3 

CALL __ RDSTAT 


BNE 
“050000, 20$ 
DEC R3 
BNE 15$ 
“050000, 15$ 
MO #SER11.R3 
R3,1(R4) 
85$ 


BIT’ — #AVAIL,R1 
8 25$ 


000,25$ 
MOV #SER4O,R3 
MOV R3,1(R4) 
BR 85$ 
“00,85$ 
MOV #MAXSND,R2 
MOV #CR.GST.R3 
MOV (R3 
MOV 1(R35,R1 
PUSH R2 
MOV R5,R2 
KFC SEND 
POP R2 
TST R1 


MOVE INITIAL MASK TO R5 
R4 POINTS TO UNIT TABLE 
SAVE R4 


MOV R4,-(SP) 


; MOVE MASK TO R2 


GET DRIVE’S STATUS 


SEE IF ERROR 
IF NOT, BRANCH 


; NO DRIVE ATTACHED 


SAVE ERROR MESSAGE 
REPORT 

SET UP TIMEOUT COUNT 
GET STATUS 


SEE IF RECEIVER READY ASSERTED 
IF SO, BRANCH 


DECREMENT COUNT 
IF INCOMPLETE, BRANCH 


RECEIVER READY NEVER ASSERTED 
SAVE ERROR MESSAGE 

REPORT 

SEE IF DRIVE IS AVAILABLE 

IF SO, BRANCH 


GET SECONDARY ERROR 
SAVE 


: EXIT 


; SET UP MAXIMUM TRIES AT SENDING 
; R35 POINTS TO GET STATUS COMMAND 
OMMAND BUFF 


SET ADR OF SDI C 
SET BUFFER LENGTH 
SAVE R2 
MOV R2,-(SP) 
SETUP FOR SEND 
SEND COMMAND 
RESTORE COUNT 


MOV (SP)+,R2 
DID UNIT ACCEPT COMMAND 


SEQ 0161 


| 






010000 002424 


414 050000 002401 
49 002416 104203 004023 
50 002420 100643 000001 


51 002422 

002422 000000 002563 
52 002424 

002424 100464 
53 002425 104204 000003 
54 002427 104637 000002 
55 002431 104631 000003 
56 002433 104052 

002434 060005 
58 002435 115001 
59 002436 

002436 002511 
60 002440 106201 000001 
61 002442 

00244 002454 
62 002444 117404 
63 002445 

0024 050000 002427 
64 002447 

0024 
65 002450 104203 004035 
66 002452 

002452 000000 002505 
67 002454 

002454 104264 
68 0024 110601 
69 002456 110601 
70 002457 

0024 040000 002465 
71 002461 104203 004050 
72 002463 

002463 002505 
73 002465 110601 
74 002466 

002466 002474 
75 002470 004076 
76 002472 


002507 000000 002563 
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GETU = POLL ALL PORTS, THEN GET UNITS TO TEST 


35$: 


40$: 


45$: 


50$: 
55$: 


60$: 
65$: 


5$ 
2510000, 5$ 
DEC R2 
BNE 30$ 
“050000, 30$ 
MOV 


"#SER12,R3 
R3,1(R4) 
85$ 
“00,85$ 
PUSH 4 
MOV #3,R 
MOV g(R3) RO 
MOV (R3).R1 
MOV R5,R 
XFC RCV 
TST 1 
BEQ 70$ 
“010000, 70$ 
CMP #1,R1 
BNE 45$ 
*050000,45$ 
DEC RG 


BNE _— 40$ 
*050000,40$ 
POP “RG 


MOV #SER13,R3 


BR 65$ 
“00,65$ 
POP R4 
ROR R1 
ROR R1 
BCC 50$ 
“040000,50$ 
MOV #SER14,R3 
R 65$ 
*00.65$ 
ROR 1 
BCC 5 


5$ 
“040000,55$ 
MOV #SER15,R3 
BR 65$ 
ane 858 
ROR 
BCC 0s 


“040000,60$ 
MOV “#SER16,R3 
BR 6 


BR 
“00,85$ 




















IF SO, BRANCH 


DECREMENT COUNT 
IF UNEXPIRED, BRANCH 


GET ERROR NUMBER 
SAVE 


SAVE R4 


SET UP_SHORT TIMEOUT 
SET DATA BUFFER ADDRESS 
SET BUFFER LENGTH 

SETUP FOR RECEIVE 
RECEIVE SDI COMMAND 

DID ERROR OCCUR 

IF NOT, BRANCH 


: iF IF TIMEOUT 


F NOT, BRANCH 


DECREMENT TIMEOUT VALUE 
IF NOT TIMEOUT, BRANCH 


RESTORE R4 


GET ERROR NUMBER 
BRANCH TO EXIT 


; RESTORE R4 
ROTATE INTO POSITION TO TEST 


MOV R4,-(SP) 


MOV (SP)+,R4 


MOV (SP)+,R4 


iF IF FIRST WORD NOT START FRAME 


F NOT, BRANCH 


GET ERROR NUMBER 
BRANCH TO END OF LOOP 


SEE IF FRAMING ERROR 
IF NOT, BRANCH 


GET ERROR NUMBER 
BRANCH TO END OF LOOP 


SEE IF CHECKSUM ERROR 
IF NOT, BRANCH 


GET ERROR NUMBER 
BRANCH TO END OF LOOP 


GET ERROR NUMBER 
BRANCH TO END OF LOOP 


SEQ 0162 | 


—SOOOnouw Swi 


a 


tess 
NO WS wr 


om 
BSeee Ses 
Mrrr~n 


Ow 

=—™ 
© 
MOR 


ee De ed eh et 
~ 
~ 


300233 4 IO 


& 
% 


MM 
w 
32 
_ 
nM 
os 


sassssesesesesses 


ror 
oa 
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GETU = POLL ALL PORTS, THEN GET UNITS TO TEST 


177777 


006027 
000002 


002540 
010000 


040000 


177760 


002563 


002554 


000004 


000020 
002325 


SEQ 0163 





NOW FILL IN THE TABLE WITH ALL THE SUBUNIT NUMBERS 


POP R4 3; RESTORE R4 
MOV (SP)+,R4 
MOV #-1,R0 ; GET "NO UNITS® FLAG 
MOV RO, 1(R4) 3; CLEAR ANY ERRORS THAT ARE FLAGGED 
MOV RO,2(R4) 3; CLEAR ANY ERRORS THAT ARE FLAGGED 
MOV ST,RO 3; RO HAS UNIT NUMBER 
MOV RO,R2 3; COPY TO 
BIC #*CHBHINB,RO ; RO HAS UNIT NUMBER 
PUSH <R1,R2> 3; SAVE R1 AND R2 
MOV R1,-(SP) 
MOV R2. -(SP) 
af R2 3; MOVE UDA PORT MASK TO R2 
RDSTA AT 3; GET STATUS 
“026000, RDSTAT 
#ATITN,R1 3 SEE IF SPINABLE 
BN NE 3; IF SO, BRANCH 
*050000,75$ 
BIS “#19000, RO 3 SET "NOT SPINABLE® FLAG 
POP <R2,R 3; RESTORE 


MOV (SP)+,R2 
MOV (SP)+,R1 
; FLAG UNIT ay “a TESTED 


BIS #40000,R0 3 

SWAB R2 3 SWAP R2°S BYTES 
ROR R2 : MOVE SUBUNIT MASK TO LO NIBBLE 
ROR R2 : MOVE SUBUNIT MASK TO LO NIBBLE 
ROR Re ; SUBUNIT MASK TO LO NIBBLE 
ROR R2 : MOVE SUBUNIT MASK TO LO NIBBLE 
BIC #LBLONB,R2 : CLEAR ALL BUT SUBUNIT BITS 
MOV RO, (R4) : T ER INTO UNITS 
ROR : MOVE SUBUNIT BIT TO CARRY 

cc : IF NO MORE SUBUNITS, BRANCH 


B 85$ 
*040000.85$ 
MOV RO, (R4)+ : MOVE SUBUNIT NUMBER TO TABLE 
RO ; en ad SUBUNIT NUMBER 


~ 
2 
o<= 

2 


BR 80$ ; 
“00,80$ 
POP R4 : R4& POINTS TO START OF UNIT ne ie, a 
+ 
ADD #4 ,R4 3 R4 WILL 4 a TO NEXT UNIT (CLEAR CARRY FOR ROL) 
ROL R5 ; RS_HAS NEXT UNIT PORT MASK 
CMP #20,R5 : SEE IF ALL PORTS TESTED 


BNE 5$ IF NOT, BRANCH 
“050000,5$ 


060012 
006066 
002216 
001371 
002634 


170000 


002620 


002754 
001371 
000003 
010000 002633 
002607 
000004 
001411 
002603 


100$: 


105$: 


110$: 
115$: 
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GETU = POLL ALL PORTS, THEN GET UNITS TO TEST 


I 13 


NOW GET THE PLUG NUMBERS TO TEST AND FIND THEM IN THE TABLE 
3 GET WHAT SUBUNIT NUMBERS TO TEST REQUEST 


V #UTOTST,RO 
CALL _ _HOSTR 
“020000,HOSTRO 
MOV #1N.01,R0 
MOV #UNITS.R1 
MOV (R1) RO 
BMI 115$ 
“070000,115$ 
PUSH ‘R1 
BIC #170000,R2 
CMP (RO) ,R2 
BNE 
“050000, 105$ 

Re, (R1) 
POP 
BR 160$ 
“00, 160$ 
INC R1 
MOV R1,R2 
SUB #UNITS R2 
BIT #3,R2 
BEQ 110$ 
“010000, 110$ 
MOV (R1) ,R2 
BPL 00$ 
“030000, 100$ 
POP R1 
ADD #4,R1 
CMP #UNITS#+16. ,R1 


BNE 
“050000,95$ 





GET THE PLUG NUMBERS 


RO POINTS TO UNIT NUMBERS TO TEST 
Ri POINTS TO UDA PORT INFORMATION 
R2 HAS UNIT 

IF NONE, BRANCH 


SAVE R1 

MOV R1,-(SP) 
CLEAR "NOT TESTED’, DO NOT LEAVE ‘UNSPINABLE’ SET 
AY IS A UNIT TO TEST 


SAVE UNIT AS ONE TO TEST 
RESTORE STACK 


LOOK FOR THE NEXT ONE 
at sd TO NEXT SUBUNIT 
SUBTRACT STARTING ADDRESS 
SEE IF STILL ON SAME UNIT 
IF NOT, BRANCH 


SEE IF ANY MORE SUBUNITS 
IF SO, BRANCH 


RESTORE R1 
LOOK AT NEXT UNIT 


SEE IF ENTIRE TABLE SEARCHED 
IF NOT, BRANCH 


MOV (SP)+,R1 


MOV (SP)+,R1 


SEQ 0164 — 


J 13 
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GETU = POLL ALL PORTS, THEN GET UNITS TO TES 


1 3 
¢ : DIDN'T FIND THE REQUESTED UNITS == DUMP ALL KNOWLEDGE OF THE 
: : UDA PORTS AND DIE 
5 002642 104170 002155 MOV (RO) ,OUT. 03 : SAVE UNIT NUMBER IN REQUEST BUFFER 
6 002644 104204 002157 MOV #OUT.05,R : R4 POINTS TO OUTPUT BUFFER 
7 002646 104205 001371 MOV #UNITS as : RS POINTS TO UNIT TABLE 
8 002650 104157 120$: MOV (R5) RO : GET FIRST WORD OF UNIT 
9 002651 PL 125$ : IF VALID UNIT WAS FOUND, BRANCH 
002651 030000 002660 “030000, 125$ 
10 002653 104657 V 1(R5) RO : GET POINTER TO ERROR MESSAGE 
11 002655 100247 MOV RO, (R4)+ : SAVE IN OUTPUT BUFFER 
12 002656 BR 155$ : EXIT 
002656 000000 002720 “00,155$ 
13 002660 125$: PUSH RS 3: SAVE POINTER TO UNIT TABLE 
002660 100465 MOV R5,=(SP) 
14 002661 102207 010000 eI #10000,R0 : SEE IF DRIVE UNSPINABLE 
15 002663 130 : IF SPINABLE, BRANCH 
002663 010000 002671 2570000, 130$ 
16 002665 104207 004237 MOV #S5ER41,R0 : REPORT DRIVE(S) UNSPINABLE 
17 002667 BR 135$ : BRANCH 
002667 00 002673 “00,135$ 
18 002671 104207 004170 130$: MOV #SERIB RO : GET POINTER TO ERROR MESSAGE 
19 002673 100247 135$: MOV R4S+ : SAVE 
20 002674 114007 CLR So : CLEAR COUNT 
21 002675 104251 140$: MOV (R5)+,R1 : GET UNIT NUMBER 
22 002676 BMI : IF INVALID, BRANCH 
002676 070000 002705 “070000, 145$ 
23 002700 115407 INC RO : INCREMENT COUNT 
24 002701 106207 000004 CMP #4,RO : SEE IF MAX 
25 002703 BNE 14 $ : IF NOT, LOOP 
002703 050000 002675 ~050000.1 40$ 
26 002705 104671 001627 145$: SERIBE=1 (RO), R1 ; GET POINTER TO CORRECT ERROR MESSAGE 
27 002707 100241 MOV R1,(R4)+ : MOVE INTO OUTPUT BUFFER 
28 002710 POP RS" : RESTORE RS 
002710 104265 MOV (SP)+,R5S 
29 002711 PUSH = RS : SAVE RS 
002711 100465 MOV R5S,-(SP) 
30 002712 104251 150$: MOV (R5)+,R1 : GET SUBUNIT NUMBER 
31 002713 100241 MOV R1,(R4)+ : SAVE 
32 002714 117407 DEC RO” : DECREMENT COUNT 
33 002715 BNE 150$ : IF COUNT INCOMPLETE, BRANCH 
002715 050000 002712 “050000, 150$ 
34 002717 POP R5 : RESTORE RS 
002717 104265 MOV (SP)+,R5 
35 002720 105205 000004 155$: ADD #4,R5 : POINT TO NEXT UNIT TABLE 
36 002722 106205 001411 CMP WUNITS+16..R5 : SEE IF ENTIRE TABLE SEARCHED 
37 002724 BNE 120$ : IF NOT, BRANCH 
so ae Dearne 3508 REPORT FATAL ERROR (WILL SHOW UP_AS A 5000) 
002726 104200 003653 002156 MOV #ER5000,0U 
002731 104202 051610 MOV #5000:F TLDEV, R2 
002733 104020 002154 MOV R2,0UT.02 
002735 104200 002735 002153 MOV #..OUT.01 
002740 104200 060014 002152 MOV #ERRMCOUT.RO 
39 002743 104307 002152 MOV OUT.RQ,RO : SET UP FOR REPORT 


40 002745 CALL HOSTRQ ; REPORT ERROR 








oats Of DISK i hie DMACR_X04.01_ 19-AUG-82 13:07:09 PAGE 25-1 


- POLL 


002745 
41 002747 
42 002751 
002751 
‘3 002753 


4 

45 002754 

46 002755 

47 002756 
002756 


L PORTS, THEN GET UNITS TO TEST 


020000 
104207 
020000 
060021 


115407 
104172 


030000 


006066 
060016 


006066 


002601 


160$: 


“020000,HOSTRQ 
MOV #DONE ,RO 


CALL HOSTRQ 
“020000,HOSTRQ 
XFC EXIT 


INC 


RO 
MOV (RO) ,R2 
BPL $ 
“030000,90$ 


END TEST 
SEND END-OF=TEST TO HOST 
TERMINATE DM 


POINT TO NEXT UNIT TO TEST 
CHECK NEXT 


UN 
; FIND IN UDA PORT INFORMATION 


SEQ 0166 


L 13 iia | 
UDAT2_DISK RESIDENT DMACR X04.01 19-AUG-82 13:07:09 PAGE 26 SEQ 0167 
TEST 2 START TESTING | 


! .SBTTL TEST 2 START TESTING 
sa* 
8 : FIND OUT IF HOST HAD TO INIT UDA TO GET A PROGRAM FROM AN ATTACHED DRIVE. 
4 : THE PROGRAM WAS REQUESTED BY THE DRIVE TO BE DOWNLINE LOADED INTO ITS MEMORY. 
2 ; THE INDICATION COMES FROM THE UTOTST RESPONSE. 
7 : A WORD WITH MSB IS SET TO INDICATE THE LAST UNIT ENTRY. AFTER THAT WORD | 
8 : ANOTHER WORD INDICATES WHEATHER OR NOT A FILE WAS SUPPOSE TO BE DOWN LINE LOADED. | 
9 : A 'O' MEANS NORMAL PROCESSING, NO FILE WAS EXPECTED OR REQUESTED. | 
10 : A '1" MEANS A FILE WAS EXPECTED AND IS AVAILABLE. 
i : A ‘2° MEANS A FILE WAS EXPECTED AND IS NOT AVAILABLE. 
13 ; RO IS A POINTER TO THE WORD BEYOND THE LAST TABLE ENTRY | 
14 ; (RO) = 100000 
16 002760 104671 000001 T3STRT: MOV 1(RO),R1 :WAS A FILE EXPECTED? 
17 002762 BEQ PORTO [IF NOT, GO TO NORMAL PROCESSING 
002762 010000 003056 “010000,PORTO 
18 002764 115407 INC RO :POINT TO INDICATOR IN IN.RQ BUFFER 
19 002765 104075 MOV RO,RS [R5 => INDICAT 
20 002766 104151 MOV (R5),R1 [1ST WORD D CONTAINS INDICATOR TO SEE IF A FILE WAS EX! 
21 002767 106201 000001 CMP #1,R1 [WAS THE EXPECTED FILE AVAILABLE? 
22 002771 BNE DO.DI7 iTF NOT AVAILABLE, GO TO REPORT ERROR 
002771 050000 004522 “050000,D0.D17 
23 : *** FILE WAS THERE , NOW SEE WHERE IN THE TABLE IT WAS SO PORT INDICATOR IS THE SAME? 
24 002773 104207 001371 MOV #UNITS,RO zRO => UNIT TABLE 
25 002775 104651 000001 MOV 1(R5),R1 :R1 = UNIT E 
26 002777 104202 000001 MOV en. R2 i = 1ST PO T 
27 003001 114003 CLR = UNIT TABLE INDICATOR 
28 003002 114004 1$: CLR Ra KEEPS TRACE oF WHICH SUBUNITS 
29 003003 104270 001624 2$: MOV FRO) +, SAVREG TSTORE UNIT IN S G | 
30 003005 BMI 4$ Z1F NEGATIVE VALUES DON'T COMPARE 
003005 070000 003040 “070000,4$ 
31 003007 103300 177400 001624 BIC HIBYTE, SAVREG :CLEAR EXTANEOUS BITS 
32 003012 106301 001624 CMP SAVREG,R1 [DID WE FIND THE DRIVE? 
33 003014 BEQ 5$ SIF IT IS, WE HAVE FOUND IT 
003014 010000 003045 7010000, 5$ 
34 003016 115404 INC ZELSE, INCREMENT SUBUNIT POINTER 
35 003017 106204 000004 CMP a. R4 SENDED WITH THIS UNIT ENTRY? 
36 003021 2$ z1F NOT, CONTINUE 
003021 050000 003003 2550000, 2$ 
37 003023 105022 3$: ADD = ‘R2,R2 ZELSE, NEXT PORT SET IN R2 
38 003024 115403 INC R3 ZINCR EMENT UNIT TABLE INDICATOR 
39 003025 106203 000004 CMP #4 ,R3 ‘DONE? 
40 003027 BNE 1$ TIF THIS GETS TO 4, THEN ERROR(UNIT NOT FOUND) 
050000 003002 “050000, 1$ 
41 003031 ERRHRD °MS2000,R1 
003031 100461 MOV R1,-(SP) 
003032 020000 006261 “020000,RERROR 
003034 103720 .WORD ERHARD+ERRN 
003035 010000 .WORD <PRMS*10000>+MS2000 
42 003036 BR PORTO ;START REGULAR TESTING 
003036 000000 003056 “00,.PORTO 
43 ; ; eee TF AHERE. NEGATIVE ENTRY, GO TO NEXT UNIT ENTRY. ADJUST RO TO PROPER POINTER 
44 003040 105207 000003 4s: #3,R0 zRO => INTO NEXT UNIT\INCREMENTED BY (RO)+ 
45 003042 107047 SUB R4-RO SREALIGN TO POINT TO SREGINNING OF POINTER 


46 003045 BR 3$° 3G0 BACK INTO THE LOO 
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UDAT2 DISK RESIDENT DMACR X04.01 19-AUG-82 13:07:09 PAGE 26-1 
TEST 2 START TESTING 


47 003043 000000 
48 003045 104650 
49 003050 104020 
50 003052 104050 
51 003054 

003054 000000 


003023 “00, 3$ 
» eee IF HERE, FOUND THE ENTRY, SAVE PERTINENT VALUES, GO DOWN LINE LOAD PROGRAM 
000001 007623 5s: MOV 1(R5),LUNIT :SAVE LOGICAL UNIT NUMBER 
001412 MOV Ro. yo :SAVE PORT VAL UE 
001411 MOV R3.UNITNB :SAVE UNIT NUMBER OFFSET IN TABLE 
BR D0. G0 DOUN LINE LOAD PROGRAM 
004350 “00,D0.D12 


i a ce ~ a 


SEQ 0168 | 





UDAT2 DISK RESIDENT DMACR_ X04.01 19-AUG-82 13:07:09 PAGE 27 
SEQUENCE THE DIAGNOSTICS TO ALL UNITS SELECTED 


1 

2 

3 

4 
5 

6 

7 
8 
9 
0 003056 
10 
2 

3 

4 
5 

6 

7 

8 

9 


— > — — sd I 


Noo 


NONIN INI @ 2 SS OO 
MUI = 2 NIA LS SW ON 


34 

35 003 
00 

36 

003127 

39 003131 


42 
45 003144 
003144 


114001 
104207 
105017 
104173 


030000 
102201 


050000 
105201 


000000 
102203 


050000 


070000 
110202 
103202 


000000 
104020 


000000 
104206 
104301 
115401 
106201 


050000 
104207 


020000 
000000 





001371 


003075 
000003 


003133 
000003 


003133 
040000 


003133 


000001 


177760 


003123 
000001 


003113 
001412 


003146 
002320 
001411 
000020 


003057 
060016 


006066 
003140 


SBTTL 
;SEQUENCE THE DIAGNOSTIC 
TEST CODE WILL BE 
UNIT WILL CONTAIN LOGICAL UNIT NUMBER OF 
SDI WILL CONTAIN SDI INTERCONNECT wrt FOR SELECTED 
UNITNB WILL CONTAIN AN EVEN NUMBER FOR 
AN ODD NUMBER FOR TESTING SECOND SUBUNIT OF A 


semerics. 
CALLED 


3; *** NORMAL PROCESSING 
PORTO: 


PORT2: 


1$: 


PORTS: 


PORT4: 


TESTX: 


PORTS: 


DONECD: 


CLR R1 
MOV #UNITS,RO 
ADD 

MOV (RO) ,R3 


BPL 
*030000,1$ 
BIT #3,R1 


*00,PORTS 

aM roe es at R3 

— PORTS 
1,UNITNB 


MOV R3,LUNIT 
MOV + Neate oR2 


ROR R1 

BIC #LBLONB,R1 
DEC R1 

BMI PORT4 
“070000, PORTS 
ROL R2 

BIC #1,R2 
R PORT 
“00,PORTS 

MOV R2,SD1 
R TEST 


MOV #STACK,SP 
MOV {hla 
es 4 F R1 


ORT 
2050000, PORT2 
MOV #DONE ,RO 


CALL RQ 
“020000, HOSTRQ 
BR DONECD 
“00,DONECD 








N 13 Aa BEL | [ 
SEQ 0169 | | 


HE DIAGNOSTICS TO ALL UNITS SELECTED 
TO ALL UNITS SELECTED. 

FOR EACH DISK SUBUNIT TO BE TESTED. 

DRIVE FOR R ERROR’ REPORTS 


TESTING FIRST SUBUNIT OF : DRIVE 
DRIVE 


sSTART WITH UNIT 0 INDEX 
GET POINTER TO UNITS TABLE 
ADD INDEX 


GET CONTENTS OF TABLE 
; IF THIS UNIT IS PRESENT, BRANCH 


; SEE IF ON SUBUNIT O OF UNIT 
: IF NOT, TEST NEXT SUBUNIT 


: IF NO SUBUNIT Or — NO UNIT = SKIP OTHER SUBUNITS 
: BYPASS IF NG U 


: SEE IF THIS UNIT IS TO BE TESTED 
; IF NOT, BRANCH 


3 STORE UNIT INDEX 
3 STORE LOGICAL UNIT NUMBER FOR DRIVE 


GET UNIT 0 INTERCONNECT CODE 
; DIVIDE UNITNB BY FOUR 


: CLEAR UNUSED BITS 
: FOR EACH DRIVE OVER O SHIFT R2 LEFT 


CLEAR CARRY ROTATED INTO REG (IF ANY) 


STORE SDI_ INTERCONNECT CODE 
PERFORM TEST ON THIS DRIVE 


; TEST RETURNS TO TESTX 
ESET STACK DO TO JUMPS OUT OF 
UTINES 


is 


; CHECK IF 16. DRIVES ALREADY SELECTED 
; REPEAT FOR ALL DRIVES 


END OF PROGRAM 


Bete Se Sete See 
anw 
m 
“+ 


REPEAT IF RETURNED 


UDAT2 
INITIA 


1 
2 
3 
4 
5 
6 
? 
8 
9 
0 
1 
2 
3 003 
: 003151 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 


ro 
aaa 


MORON ROMO 8) eee oe oo a 
Wenn 


™ 


~ 
~N 


Nm 
Oo 


114003 


104302 
060011 


114005 


020000 
102201 


010000 
102201 
117403 


050000 


103721 


103722 


114003 
102201 


717403 


050000 


070000 
10372 
000165 


001412 


006027 
010000 
003202 
004000 
003153 
006261 


003140 
006261 


003140 


000001 
003216 


003153 
006261 
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SK R=S.DENT DMACR X04.01 19-AUG=82 13:07:09 PAGE 28 
ZE DRIVE AND LOOK AT DRIVE SIGNALS 


eSBTTL INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
sSTART OF TEST CODE 


INPUTS: 
; LUNIT = LOGICAL UNIT NUMBER OF DRIVE UNDER TEST 
: SDI = SDI INTERCONNECT CODE FOR DRIVE 


s INITIALIZE THE DRIVE 

TEST: CLR R3 
MOV SD1,R2 
XFC DINIT 


sWAIT FOR DRIVE TO ASSERT RECEIVER READY 
TIME OUT AFTER ...? 


:R3 IS A DECREMENT COUNTER TO CHECK IF THE 
ND HAS BEEN RECEIVED BY THE DRIVE 
GET SDI S$ CODE 


ELECT 
sINITIALIZE THE DRIVE 


sGET TIMEOUT COUNTER 
GET DRIVE STATUS 


SEE iF ANY ERRORS 
:1F NO ERROR, BRANCH 


sSEE IF XMIT ERROR 
30N SEND ERROR, DID WE DEPLETE THE COUNTER? 


CLR R5 
ILOOP: CALL Rstay 


B i . TIF NOT, TRY AGAIN 
ERRHRD ‘MS2001 ;REPORT INVALID STATUS ERROR 
“020000,RERROR 
“WORD <PRMS*10000>+HS2001 
. * + 
_ ped DONE CD :BRANCH TO DONE 
1$: ERRHRD MS2602 ;REPORT XMIT ERROR 
“020000, RERROR 
“UORD ERRMS + 1OC00> mS2002 
‘ + 
BR DONE CD ;BRANCH TO DONE 
- “00,DONECD 
_ ww 8 IR OMAAND HAS BEEN RECEIVED OY THe Uaevee 
ONE ECHO SEER RECEIVER RABY LINE om 
*050000,£¢H0 
DEC R :DECREMENT TIME OUT C 


1LOoP ;STAY IN LOOP UNTIL SIONAL SETS OR TIMEOUT 
ERRURD HE 3003 atest ERROR 
“020000, RERROR . 
.WORD ERHARD+ERRN 


«WORD <PRMS*1 >+MS2003 


a 













wr -|$9O OCONOUSWN “OC VOONOUSWwhN— 


Sssssssosss 


Ww WWW wW 
PORIRIRORGRGRORORORY 
We = NS 


Nm 
&* 


32 
0032 


115001 
010000 
102201 
010000 
117403 
050000 
100467 
020000 
103724 
010235 


Se 
Saal 
=== 


aS 
“I 
Ex8 
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ECHO DATA TO DRIVE 


001634 
177400 


003254 
000001 
003245 
003220 


006261 


003272 


006261 


003272 


003272 
001624 


001624 
006261 


C 14 


-SBTTL ECHO DATA TO DRIVE 


SEQ 0171 


sECHO THE FOLLOWING DATA PATTERNS TO THE DRIVE THEN CHECK THE 


rs FOR THE PROPER DATA RECEIVED: 


Sete Se tee 
nN 
wi 
nm: 


ECHO1: MOV #ECHOD RS 

ECHO1A: MOV ), 

ECHO2: BIC #HIBYTE,RO 
XFC ECHO 


CHECK FOR TIMEOUT ERROR 
BEQ ECHO4 
“010000,ECHO4 
BIT #1,R1 
BEQ ECHOS 
“010000,ECHOS 
DEC R3 
BNE ECHO1A 
“050000,ECHO1A 
ERRHRD MS2004,R0 
“020000 ,RERROR 


ECHOS 
*00,ECH 
ECHO3: ERRHRD MS2005,R0 
“020000 ,RERROR 
ECHOS 
60, ECHO5S 
CHECK DATA RECEIVED 
ECHO4: ee (R5) ,RO 


EQ Vee 
“010000,E 
ERRHRD “hS2006, (R5),RO 


“020000 ,RERROR 


MOVE TO NEXT DATA PATTERN 


‘Get Seno BATA TO ECHO DATA 
:CLEAR COMMAND FROM WORD 
;PERFORM THE ECHO COMMAND 


CHECK FOR ERROR 
BRANCH IF NONE 


CHECK IF SEND ERROR 
BRANCH IF RECEIVE ERROR 


3I1F SEND ERROR, IS THE COUNTER BEEN DEPLETED 
:IF NOT, TRY AGAIN 


sREPORT SEND ERROR 


MOV RO,-(SP) 


WORD ERHARD+ERRN 
-WORD <PRMS*10000>+MS2004 


sREPORT RECEIVE ERROR 


MOV RO,-(SP) 


«WORD ERHARD+ERRN 
«WORD <PRMS*10000>+MS2005 


3 COMPARE a RECEIVED WITH 
: DATA SENT 


sREPORT DATA eons ae 


MO ) 
MOV SAVREG,R1 


«WORD ERHARD*ERRN 
«WORD <PRMS*10000>+MS2006 
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ECHO DATA TO DRIVE 


36 

37 003272 114003 ECHOS: CLR R3 
38 003273 115405 INC R5 BUMP TO NEXT DATA TO SEND 
4 Ooesog 104157 MOV (R5) ,RO sCHECK_IF AT END OF TABLE 


5 BMI ECHO sSEND THIS DATA IF NOT 
003275 070000 003221 “070000,ECHO2 


SEQ 0172 





pS ee --— 
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GET STATUS AND 
.SBTTL GET STATUS COMMAND 
z ISSUE GET STATUS COMMAND AND CHECK THAT IT PERFORMS PROPERLY 


003277 104200 000002 001413 MOV #2,SAVSTA : COUNTER 
003302 GTSTAT 'GET STATUS 


1 
2 | 
3 | 
4 
5 
6 00330 CALL 
: 003302 020000 005242 “020000, CrStat 
8 CLEAR DRIVE ERRORS 

10 003304 DRCLR1: CALL CLRDRV ; CLEAR DRIVE | 

ve 003304 020000 005343 “020000, CLRORV | 

12 

1? ; ISSUE GET STATUS COMMAND AND CHECK THAT IT PERFORMS PROPERLY 

15 003306 GSTS3: 

16 003306 CAL GTSTAT ;GET STATUS 

ve 003306 020000 005242 £956000, GTSTAT 

8 ;LOOK AT DATA IN RESPONSE PACKET 

20 003310 104307 001416 GSTS6: MOV ST+1,R0 sGET TWO WORDS FROM PACKET 

21 003312 104301 001417 MOV ST+2.R1 

22 003314 102201 000250 BIT #ST.WE+ST.PE+ST.FE,R1 ;CHECK ERROR BITS 

23 003316 BEQ sBRANCH IF ALL CLEAR 

003316 010000 003332 “010000, 10$ 
24 003320 117400 001413 DEC SAVSTA sTRY ONCE MORE? 
25 003322 BNE DRCLR1 ‘IF OK, TRY AGAIN 
003322 050000 003304 "050000, DRCLRI 
26 003324 CAL STOSTA :GO STORE STATUS 
003324 020000 005437 «996000, STOSTA 
27 003326 ERRHRD °MS2007 
003326 020000 006261 “020000, RERROR 
003330 103727 .WORD ERHARD+ERRN 

a 003331 000421 “WORD <PRMS*10000>+MS2007 

23 003332 104070 001413 10$: MOV RO, SAVSTA ;SAVE STATUS TO CHECK IF DIAGNOSTIC REQUEST BIT IS s| 

3 s ISSUE ONLINE COMMAND AND CHECK THAT IT PERFORMS PROPERLY | 

33 003334 104203 002117 mov #CR.ONL,R3 ;R3 => COMMAND 

34 003336 TALKER sSEND TO DRIVE 

003336 020000 006131 ‘920000, TALKER 

35 003340 115003 R3 ALL OK? 

36 003341 Bea SOs SIF SO, CHECK RESPONCE CODE 

37 po secs ee sae Ml aes | ELSE, IS MSB SET?/IF NOT. RECEIVE ERROR 

003343 030000 003353 “030000, 20$ 
38 003345 ERRHRD M™S2008 sREPORT SEND ERROR | 
003345 020000 006261 “020000, RERROR 
003347 103730 .WORD ERHARD+ERRN 
003350 000500 “WORD <PRMS*10000>+MS2008 

39 003351 BR gsts? : 
003351 000000 003421 *00,GST 

40 003353 20$: CALL — TYPERR 
003353 020000 005674 “020000, TYPERR 




















46 003373 
373 

47 003375 
3375 

48 003377 
77 


00 
51 003420 
52 003421 


100463 
100467 
020000 
103731 
020530 


000000 
106207 


010000 
106207 


006261 


003421 
000176 


003421 
000175 


003405 
005437 
006261 


003421 
001624 
000176 


001624 
006261 


30$: 


35$: 


F 14 


ERRHRD MS2009,R0,R3 


“020000 ,RERROR 
BR STS? 
“00,6 


CMP #COMPLT,RO 

BEQ GSTS 

“010000,GSTS7 

CMP #UNSSUC ,RO 

BNE $ 

“050000,35$ 
STO 


GSTS7 


B 
a 


“020000 ,RERROR 





00,GSTS7 
ERRHRD MS2011,#COMPLT,RO zIF NOT, REPORT a-~ 


sREPORT RECEIVE ERROR 


MOV R3,~(SP) 
MOV RO,=<SP) 


WORD ERHARD+ERRN 


-WORD <PRMS*10000>+MS2009 
sCHECK RESPONSE CODE 
sIF OK, CONTINUE 


zI1F NOT CORRECT RESPONSE, UNSSUC? 
:I1F NOT, UNRECOGNIZED RESPONSE 


sCHECK STATUS 


WORD ERHARD+ERRN 


«WORD <PRMS*10000>+MS2010 


WORD ERHARD+ERRN 


-WORD <PRMS*10000>+MS2011 


SEQ 0174 
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UDAT2 DISK RESIDENT 
GET DRIVE CHARACTERISTICS 
1 .SBTTL GET DRIVE CHARACTERISTICS 
: :GET DRIVE CHARACTERISTICS 
4 003421 104200 000012 001625 MOV #10. .SDISTO : SET UP TEMPORARY SHORT TIMEOUT VALUE 
5 003424 104203 002111 MOV #CR. GCRRS ;POINT TO GET CHARS COMMAND 
6 003426 TALKER : INITIATE SDI INTERCHANGE 
003426 020000 006131 ‘020000, TALKER 
7 003430 115003 R3 :See IF ERROR OCCURRED 
8 003431 Bea 12$ F NOT, BRANCH 
003431 010000 003455 “010000, 12$ 
9 003433 BPL 11$ y1F SO, BRANCH 
003433 030000 003443 “030000,11$ 
10 003435 ERRHRD °MS2012 :SEND COMMAND ERROR 
003435 020000 006261 “020000,RERROR 
003437 103734 .WORD ERHARD+ERRN 
3440 000674 [WORD <PRMS*10000>+S2012 
11 003441 BR T00 
003441 000000 003511 “00,T00 
12 003443 11$: CALL TYPERR :CHECK WHAT TYPE OF RECEIVE RROR 
003443 020000 005674 <996000,1 
13 003445 ERRHRD MS201S, RO,R3 
003445 100463 MOV R3,-(SP) 
003446 100467 MOV RO.=(SP) 
003447 020000 006261 “020000, RERROR 
003451 103735 .WORD ERHARD+ERRN 
003452 020735 “WORD <PRMS*10000>+MS2013 
14 00345 T00 
003453 000000 003511 “00,T00 
15 005455 106207 000170 12$: cM #CHRRES RO ZCHECK FOR SUCCESSFUL RESPONSE 
003457 010000 003511 “010000, 100 
17 003461 106207 000175 CMP #UNSSUC, RO ZIF NOT CORRECT RESPONSE, UNSSUC? 
18 003463 BNE 13$ SIF NOT, UNRECOGNIZED RESPONSE 
003463 050000 003475 “050000, 13$ 
19 003465 CALL STOSTA :CHECK STATUS 
003465 020000 005437 “020000, STOSTA 
20 003467 ERRHRD °MS2014 ; 
003467 020000 006261 “020000, RERROR 
003471 103736 .WORD ERHARD+ERRN 
003472 001001 [WORD <PRMS*10000>+mS2014 
21 003473 T00 
3473 000000 003511 “00,700 
13$:  ERRHRD MS2015,#CHRRES,RO GET CHARACTERISTICS COMMAND f FAILED 
MOV R1 SAVREG 
MOV #CHRRES.R1 
MOV R1,-(SP 
MOV SAVREG,R1 
“020000,RERROR 
.WORD ERHARD+ERRN 
“WORD <PRMS*10000>+MS2015 
MOV ST+SHRTTO,RO : GET SHORT TIMEOUT 
BIC #LBLONB, RO + CLEAR UNUSED BITS 
CALL ‘ : SET UP TIMEOUT 


00,70 
MOV RO, SDISTO : SAVE IN SHORT TIMEOUT 





EE SS eo 4 
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UDAT2 DISK RESIDENT DMACR X04.01 19-AUG=82 13:07:09 PAGE 31-1 SEQ 0176 
GET DRIVE CHARACTERISTICS 
28 003521 104307 001416 MOV ST+LONGTO,RO : GET LONG TIMEOUT 
29 003523 103207 177760 BIC #LBLONB,RO : CLEAR UNUSED BITS 
30 003525 CAL 0 ¢ SET UP TIMEOUT 
003525 020000 006241 “26000, TO 
31 003527 104070 001626 RO, SDILTO : SAVE IN LONG TIMEOUT 













UDAT2 DISK RESIDENT DMACR X04.01 19 
CHECK EN 


WHICH COMMAND HAS BEEN GIV 


S SSBNeARW NoSowonow swe— 
s 32 sessssees sse8 


mr 
wn 


104307 
102207 


050000 


. 
3 


REERE 
Nm Sss 
SSsss 


a el ee ee | 
~m 


001413 
000040 


004257 
177774 


004751 
000007 


002153 
002154 
001615 
002217 
003737 


060002 


006066 
002216 


003773 
003633 
003701 
003765 


001624 
002216 


001624 
006261 


003575 


001665 
001667 


001660 


001660 


I 14 


“AUG-82 13:07:09 PAGE 32 


#ST -DR-RO 
+5 bis 

CLR uh 

MOV #4,URME3 

CLR WRM+4 

CLR WRM+5 

“rh As TP oWRM+1 


WRT 
‘020000, ae 
#7, 


CR.WRM+1 
3 s** NOW ¢o DIAGNOSE “REGION ZERO 
CLR OuT.01 


CLR OUT .02 

CLR DIAG.1 
- IN.02 
DIAGNS 

260, DIAGNS 


+ s** RETURN HERE TO GET NEW COMMAND 
G6T.CMD: 


MOV #T2CMD,RO 
cat HOSTRQ 
“020000,HOSTRQ 
MOV I e 2 0 
BEQ TESTEX 
“010000, TESTEX 
DEC RO 
BEQ WRITE 
“010000 WRITE 

DEC RO 
BEQ READ 
“010000,READ 

DEC RO 

EQ DIAGNO 
“010000,DIAGNO 
ERRHRD MS2016,1N.01 


“020000 ,RERROR 


BR GT.CMD 
“00,GT.CMD 


-SBTTL CHECK WHICH COMMAND HAS BEEN GIVEN 
ST.DIA: ary SAVSTA,RO 3GET 


STORED STATUS WORD 
zuAS THE DR BIT SET? 


SEQ 0177 © 


F $O, GO HANDLE IT WITHIN DIAGNOSE CODE 


*05000 DIX 
33 *** DO AN INittat yb MEMORY TO CLEAR THE REGION (ONLY 4 BYTES) 
MOV rec M+1 oeeiey N ID 


A 
;SET COMMAND BYTE COUNT 
;CLEAR BUFFER 


3SET COMMAND BYTE COUNT 


ET 
BYTE COUNT AND 1ST DATA BYTE 


CLEAR OUT BUFFER TO INITIAL DIAGNOSE COMMANDS 
{MAKE SURE DIAGNOSE COMMAND whee OP-CODE = 0 


:_ (FOR 1ST TIME THROUGH ONL 


CLEAR REGION ID FOR 1ST DIAGNOSE COMMAND 


D0 DiAGNOSE COMMAND, 1ST T 


[SET REQUEST NUMBER 
TASK HOST FOR PORTS 


RO = ehifee cori i. 02 
3; O = EX iu 1 = WRITE 
: 2.= READ ; 3 = DIAGNOSE 
3; OP = O /EXIT 

1? 


RO = 3? 

IF SO, DIAGNOSE 

ELSE, ERROR=INVALID INPUT 
MOV R 


MOV SAVREG,R1 


-WORD ERHARD+ERRN 
«WORD <PRMS*10000>+MS2016 






J 14 
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MEMORY 
} .SBTTL MEMORY WRITE 
se* 

3 3 

4 : INPUT IN.02 = REGION ID 

5 3 IN.03 = OFFSET 

6 ; IN.04 = DATA BYTE 

8 ; OUTPUT OUT.RQ HAS DAT SET FOR T2CMD 

10 003633 WRITE 

11 003633 104300 002217 001665 MOV IN.02,WRM+1 REGION ID 

12 003636 104300 002220 001666 MOV IN.03,WRM+2 SOFFSET 

13 003641 104307 002221 MOV IN.04,RO :RO = BYTE wif DATA IN LO BYTE 
14 003643 110707 SWAB OR ‘RO IS IN HI BYTE 

15 003644 103207 000377 BIC #LOBYTE ,RO [CLEAR LO BYTE 

16 003646 101207 000001 BIS #1, :SET BYTE COUNT 

17 003650 104070 001667 MOV RO, WRM+3 [SET WORD IN PACKET 

18 003652 114000 001670 CLR WRM+4 

19 003654 114000 001671 CLR WRM+5 
20 003656 104200 000007 001660 MOV #7,CR.WRM+1 :SET COMMAND BYTE COUNT 
22 003661 WRTMEM 

003661 020000 004751 “020000, WRITER 
23 003663 104200 000001 002154 #1,0UT.0 :RO = OP CODE 
24 003666 104300 001623 002153 MOV LUNIT,OUT.01 ‘DRIVE NUMBER 
25 003671 114000 002155 CLR T.03 : 
26 003673 114000 002156 CLR OUT .04 ; 
27 003675 114000 002157 CLR T.05 : 
28 003677 BR GT.CMD 'GO SEND REQUEST 
0036 003575 “00,GT.CMD 





SEQ 0178 


WW 
| 
oO 
= 


WWW WW 
NN 


VW FWNOCOONOU SWC OCONOUFSWwhR— 
S888s 8s Ssss 


~ Pononny—ee eS a a es 


104300 
104300 
104200 


020000 
104300 
104 


002217 
002220 
000001 
004642 
001623 
000002 
001415 


177400 


002157 
003575 


002153 
002154 


(Ties 
>i 
J 


INPUT 
IN.03 HAS OFFSET 

OFFSET 

MOV IN.02,RDM+1 

MOV IN.03,RDM#2 

MOV #1,RDM+3 

CALL. RDMEM 

“020000, RDMEM 

: **® SET UP RESPONSE PACKET 

MOV LUNIT,OUT.01 

MOV #2,0UT.02 

MOV T,RO 

SWAB OR 

BIC #HIBYTE,RO 

MOV RO,OUT.03 

CLR OUT .04 

CLR OUT .05 
GT.CMD 

B00. GT.CMD 


-SBTTL MEMORY READ 
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IN.02 HAS REGION ID 





K 14 


SETS UP OUTBUFFER FOR T2CMD 


aaetact ID 
2 OFFSET 
BYTE COUNT 


SET UP REQUEST 
;RETURN QTE. CUNT set as —— 


RO = 
DATA aN LO 


BYT 
;CLEAR BYTE COUNT (1 BYTE ONLY SENT) 


; STORE IN BUFFER FOR HOST 


60 SEND REQUEST 


SEQ 0179 | 





2 003737 
742 
















1 

14 003763 
003763 
15 003765 
16 003765 
17 003767 
767 
18 003771 
003771 

9 

20 

21 
22 003773 
003773 


102200 
010000 


104302 
102200 


050000 
020000 
104302 
020000 
000000 


020000 
104302 
020000 
000000 


000000 


000001 
003765 


001412 
000020 


003763 
003775 
001412 
005052 
003765 


005146 
001412 
003775 
003575 


003127 
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SEND DIAGNOSE COMMAND 


L 14 






-SBTTL SEND opus COMMAND 


001413 DIAGNS: BIT #ST.RU,SAV 


001413 


“010000, 3$ 
; *** DRIVE IS SPINNABLE 


BIT #ST.SR,SAVSTA 
BNE 


“050000,2$ 
; #* DRIVE HAS NOT BEEN SPUN UP 
i$: DIAG 


“020000, DIAGDR 
MOV SDI 


i 


CALL RUNDR 
“020000,RUNDR 
BR 3$ 


*00,3$ 
_" DRIVE HAS BEEN SPUN UP 


3$: 
DIAGNO: 


zsEND OF 
TESTEX: 





CALL 
“020000,RECAL 

MOV SD1,R2 
CALL _ DIAGDR 
5020000, DIAGDR 
“00,GT.CMD 
TESTING THIS DRIVE 


BR TESTX 
“00, TESTX 





SEQ 0180 | 


sCHECK IF DRIVE IS SPINNABLE (RUN SWITCH IN?) 
sONLY DO DIAGNOSE ONCE IF NOT SPINNABLE 


sR2 HAS CURRENT SDI ae INDEX 
HAS THE DRIVE BEEN P? 
7 IF NOT ALREADY SPUN UP. DO DIAGNOSE TWICE 


:D0 A DIAGNOSE COMMAND 
RESTORE PORT INDEX 


SPIN UP THE DRIVE 
sELSE DO A RECAL 
sRESTGRE PORT INDEX 


D0 A DIAGNOSE COMMAND 
:GET COMMAND 


GO BACK TO DRIVE SEQUENCER 





M14 
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TEST 2 SPECIFIC 


ooooo 
EREERS 
[ssss 
NNW 


83 
o 


RR 
oo 


Nn -O OCON CUSWNY—OCOONOU Sw 
ooooo oo 
So So 
Ww 
~N“N 
“ 
vw 


NN AON ae oe tte 


053 

37 004055 
004055 

38 sing 48 
004057 


ROUT I 


104200 


115003 


010000 
110203 


040000 
020000 
103741 
001224 


000000 


020000 
100463 


021255 
000000 


106207 


010000 
106207 


010000 
106207 


050000 
020000 
020000 


177777 +=001622 
002217 002134 
00212 


6 
001412 
006131 
001622 
004041 
004027 


006261 


004101 


005674 
006261 


004101 


000374 


004107 
000176 


004107 
000175 


004065 
005437 
006261 


«SBTTL TEST 2 SPECIFIC ROUTINES 


~SBTTL DIAGNOSE COMMAND PROCESSING 


3ST SENDHR NONZERO FOR DIAGNOSE COMMAND 
SE: UP MEMORY REGION ID 
;R3=>i TAGNOSE PACKET 


; INPUT _IN.02 HAS REGION ID 
: OUTPUT OUT.RQ IS SET UP FOR T2CMD 
: IF ERROR, R2 = 1 
3 SE. R2 = 0 
DIAGDR 
MOV #177777, SENDHR 
MOV IN.02,DIA+1 
MOV #CR.DIA,R3 
MOV SDI.R2 


CALL TALKER 
“eee 
CLR SENDHR 


SEQ 0181 


:R2 = PORT 
: SEND COMMAND AND RECEIVE RESPONSE FROM DRIVE 


SEE IF ERROP OCCURRED 


2$ 
£51000, 2$ 
ROL R3 


*040000,1$ 
3 *** REPORT TRANSMISSION ERROR 
ERRHRD MS2017 
“020000,RERROR 
4$ 
*00,4$ 
3. *** REPORT RECEPTION ERROR 
1$: ALL TYPER 
“020000, TYPERR 
ERRHRD MS2618,R0,R3 
“020000 ,RERROR 


4$ 
00,4$ 
g"** CHECK’RESPONSE OP=CODE FROM DRIVE 
; CMP #DIA.EN,RO 


0,5$ 
#COMPLT,RO 


0000,5$ 
CMP #UNSSUC ,RO 


BN 

“050000,3$ 
CALL STOSTA 
“020000,STOSTA 
ERRHRD “MS2019 : 
“020000, RERROR 


71F NO ERRORS, BRANCH 


SHIFT HIGH BIT INTO CARRY BIT 
:IF CARRY CLEAR (RECEIVE ERROR) BRANCH 


eWORD ERHARD+ERRN 
«WORD <PRMS*10000>+MS2017 


MOV R3,-(SP) 
MOV RO,-(SP) 


eWORD ERHARD+ERRN 
«WORD <PRMS*10000>+MS2018 


CHECK RESPONSE CODE 
IF EQUAL, BRANCH 


: WAS IT COMPLETED? 
: IF SO, BRANCH 


:1F NOT CORRECT RESPONSE, UNSSUC? 
:IF NOT, UNRECOGNIZED RESPONSE 


CHECK STATUS 


| ie OO 
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DIAGNOSE COMMAND PROCESSING 


103743 
00131 


0041 021336 
41 004101 

004101 020000 
42 004103 104202 
43 004105 

004105 000000 


004101 
001624 
000374 


001624 
006261 


005343 
000001 


000000 


BR 4$ 
“00,48 

3$: ERRHRD MS2020,#D1A.EN,RO 
“020000,RERROR 

4$: CALL CLRORV 


“020000, CLRDRV 
MOV #1,R2 


-WORD ERHARD+ERRN 
«WORD <PRMS*10000>+MS2019 


MOV RO,=-(SP) 
MOV R1,SAVREG 


«WORD ERHARD+ERRN 
«WORD <PRMS*10000>+MS2020 


SEQ 0182 


B 15 
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DIAGNOSE/READ MEMORY TO SEE IF ERROR OCCURRED 
1 .SBTTL DIAGNOSE/READ MEMORY TO SEE IF ERROR OCCURRED 
é : #* DO A READ MEMORY SDI COMMAND 
004107 114000 001622 : CLR SENDHR 
4 004111 104300 001415 002101 MOV ST,RDM+1 :REGION ID SET 
§ 004114 114000 00210 CLR RDM+2 [CLEAR OFFSET 
6 004116 104200 000010 MOV #8. ,ROM+3 ‘BYTE COUNT = 8 
7 004121 CALL RDMEM [READ THE MEMORY | 
004121 020000 004642 “020000, RDMEM 
8 004123 115002 TST R2 ALL OK? 
9 004124 BNE DO.DC4 SIF NOT, DO DRIVE CLEAR/TRY NEXT DRIVE | 
004124 050000 004216 “050000,D0.DC4 
10 004126 104302 001412 MOV 4 ;RESTORE PORT INDICATOR | 
11 004130 104204 002157 MOV #OUT.05,R4 :R4 => OUT BUFFER 
12 004132 CALL CONMEM [CONVERT MEMORY 
004732 020000 005472 “020000, CONMEM 
13 : *** DATA NOW IN OUT.RQ 
14 004134 104303 002160 MOV OUT.06,R3 :R3 HAD ET & DA FLAGS 
15 ; **® CHECK IF DATA IS AVAILABLE FOR INFORMATION 
16 004136 102203 040000 BIT #DATAVL,R3 31S DATA AVAILABLE? 
17 004140 BEQ 6$ SIF NOT, CONTINUE WITH THIS DRIVE 
004140 010000 004162 “010000,6$ 
18 004142 104200 000010 MOV #8. ,RDM+2 ;PREVIOUS BYTE COUNT 
19 004145 CALL _ GETBCN 3GET NEW BYTE COUNT | 
004145 020000 005536 “020000, GETBCN 
20 004147 CALL D ;READ MEMORY XFC | 
004147 020000 004642 “020000, RDMEM 
33 ike aaner BNE 3 Dc4 tt Nor DO DRIVE CLEAR/ELSE, DROP DRIVE 
RES: 05 004216 2050000.b0: pea 
33 004154 104302 00141 MOV SDI,R2 ;RESTORE PORT INDICATOR 
% 004156 104204 00216 MOV #OUT.09,R4 'R4 => OUT BUFFER 
25 004160 CALL CONMEM [CONVERT MEMORY 
004160 02 005472 “020000, CONMEM 
26 004162 102203 100000 6$: BIT HERRTYP,R3 :WAS ET SET? WITH NO ERROR NUMBER??? 
27 0041; EQ SIF NOT, CONTINUE 
004104 010000 004174 “010000, 7$ 
28 ; *** REPORT AN ERROR 
29 004166 ERRHRD MS2021 

004166 020000 006261 “020000, RERROR 

004170 103745 .WORD ERHARD+ERRN | 

004171 001424 “WORD <PRMS*10000>+MS2021 

30 004172 BR D0. DC4 :GO DO DRIVE CLEAR | 

00417, 00421 *00,D0.DC4 

31 004174 102203 0400 7$: BIT #DATAVL,R3 sIS DATA AVAILABLE? 

32 004176 BEQ ; SIF NOT, DO DRIVE CLEAR 
004176 010000 004216 “010000,00.DC4 

33 904200 MSSGE ‘MSG1 

004200 104300 001623 002153 MOV LUNIT,OUT.01 

004203 104200 003242 002154 MOV #MSG1,0UT.02 

004 06 10046 MOV RO,=(SP) 

004207 100461 MOV Ri.=(SP) 

004 19 104207 060015 MOV #MESSAG,RO 

004 if ° 61 . ete anaattere MOV (SP)+,R1 

+, 

004918 104967 MOV (SP)+-RO | 
| 
| 
| 
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DIAGNOSE/DO A DRIVE CLEAR 


1 
§ 004216 
4 004221 
5 604223 

004223 
6 004225 
7 004226 
004226 
8 004230 
9 004232 
004232 
10 004234 
004234 
11 004236 
004236 
12 004240 
13 006241 
004241 
14 004243 
15 004245 
004245 
16 004247 
004247 

17 004251 

18 004253 

19 004255 

004255 

20 

21 004257 

22 004262 

23 004264 

24 004267 

004267 

25 004271 

26 004272 

004272 

27 004274 

28 004976 

5 004500 

30 004502 

31, 00450 

32 004304 

$3 004507 

004311 
004311 
35 004313 
36 004315 
004315 





020000 
115003 


010000 
117400 


050000 
000000 
104307 
102207 
010000 
104200 
114000 
104200 
020000 
115002 
010000 
000000 
104302 
104204 
020000 


104300 
115000 


050000 
115000 


010000 


900004 001627 bo. DCG: 


412 
005343 
0162? 
004221 
004607 
005242 


004251 
001627 
004221 
004607 
001416 
000040 
004607 
177775 
00210 

000006 
004642 


004276 
004607 
001412 
001415 


005472 


001415 
001416 


004317 
001417 


004515 


002101 
002103 


001414 


~SBTTL DIAGNOSE/DO A DRIVE CLEAR 
* DO DRIVE CLEAR, 3 STATUS AND cone 4 DR A, i. 
MOV #4, SAFWROD AFWR 


DO.DCL: MOV 


1$: 


2$: 


cau CLRORV 
“020000, CLRORV 
TST R3 
BEQ 1$ 
*010000,1$ 
DEC SAF WROD 
BNE DO.DCL 
eee yt 
“00,D0.D10 
CALL GTSTAT 
qegreee- _ 
2$ 
2510000, es 
DEC Ober 


BNE DO.DCL 
” eee Nt) 


610000, 


SET 
AX IMUM od CLEAR TRIES 


D= 
;RESTORE PORT INDICATO 
CALL DRIVE CLEAR 


3 ERROR? 

:IF NOT, CONTINUE 

REACHED MAXIMUM # OF DRV CLR TRIES? 
z1F NOT, TRY AGAIN 

: ELSE, ERROR 


sCALL GET STATUS 


7 ERROR? 

:IF NOT, CONTINUE 

REACHED MAXIMUM # OF DRV CLR TRIES? 
sI1F NOT, TRY AGAIN 

: ELSE, ERROR 


sGET STATUS WORD 
sDR SET? 


iI 


F NOT, EXIT 


3; eee IF “OR BIT 18. SET READ 6 BYTES roe" Her ID FF 
MOV »ROM+1 


0.DIX: 


3$: 


R 
“026000, eat 


BO 3$ 
ay 0008. 3$ 


FD 
4 I Ne ID) STORED IN READ MEM PACKET 


OFFSET 
BYTE COUNT = 6 
READ MEMORY 


zWAS THERE AN ERROR? 
31F THERE WAS NOT, CONTINUE 


*DO.D10 7D0 A DRIVE CLEAR 
200,D0.D10 
MOV SD1,R2 ZRESTORE PORT INDICATOR 
Con en zn o> ST MEMORY 
£56000. CON MEM 
jo tee GET REGION ” AND PROGRAM NAME IF ANY 
MOV ST, SAVRID ;SAVE REGION ID 
BNE HY * ‘F $0.60 GET rite ra FROM HOST 
“050000,D0.011 
TST ST+2 zIF 1ST WORD 0, IS THE SECOND? 
BEQ D0.D13 [IF $0, GO DIAGNOSE REGION 
*010000,D0.D13 


' 
— 








WAWw YVNAAIAAAI AAI AWW 
KE FFERAAAGERNR SS 
cD ee ce ee ed ed ceed ed ed od od 


Vivi 
fF Fwnoe 


Sy 


ODONOW FSW OVOWD NOUSWN—OCVONOUFSwhR— 
—~m 


MPORONMININD NORONOPUNA St tO OS 


ssaeesesese33 Sees F SEPEREPPEPEEESEE 


egestas 
Sacrntsd 


UDAT2 DISK RESIDENT DMACR x04 
DIAGNOSE/GET PROGRAM NAME SPE 


oS ooo-ooo 

SFOROFOLOREE 
MWNWMWNONMWNW 
WOWOWOWOWOOS 
NAN NNN NNO 


104207 


7 
117407 
050000 
198637 


Poaaescare 
WSSS 
WWW 


ee eee ey 
SOVEVoe 
Rh 


00 
20 
04 


¢ 


006066 
002216 
001666 


004525 
000004 


0 
I 


001665 


001660 
001665 


001415 


1 19*AUG=82 13:07:09 PAGE 39 
FIED BY ons AND DOWNLINE LOAD 


SEQ 0185 


D 15 


-SBTTL_ DIAGNOSE/GET PROGRAM NAME SPECIFIED BY DRIVE AND DOWNLINE LOAD 
; edd GET THE PROGRAM WHICH NAME WAS SPECIFIED BY THE DRIVE 


ee nov SAVRID wane 


:STORE REGION 1D IN THE WRITE PACKET 
MOV UT.01,R :R3 => INPUT DAT 
MOV CONTR Row 
MoV RO. (R3)+ :SET UNIT NUMBER 
MOV RO, (R3)+ :CLEAR VALUE 
MOV ST.RO 
MOV RO; (R3)+ ;SAVE REGION ID 
MOV $T+1,RO 
MOV RO, (R3)+ :1ST HALF NAME SAVED 
MOV $T+2,R0 
MOV RO, (R3)+ :2ND HALF NAME SAVED 
MOV fasts" [SET RO = TEST 2 DOWNLINE LOAD 


* 020000,H 
3 tee IF HERE, SION : OREINIT UDA TO GET DATA 
MOV #1N.01,R5 


3R5 => INPUT BUFFER 
;_*** DOWN LINE LOAD. PROGRAM 


60.012: CLR :CLEAR OFFSET 
MOV 0 RO 71S THE PROGRAM THERE? 
0.018 zIF NOT, REPORT ERROR 
2550000,p 018 
; see GET THE PROGRAR FROM THE HOST 
i$: OV 4(R5),RO ZUNIBUS ADDRESS PA 
MOV 5(R5)-R1 ;UNIBUS ADDRESS EA 
6(R5) .R2 YTE COUNT 
2$ [IF BYTE COUNT IS NOT ZERO, CONTINUE 
“050000, 2$ 
ERRHRD “MS202 ZELSE, REPORT THE ERROR 
“020000, RERROR 
.WORD ERHARD+ERRN 
.WORD «<PRMS*10000>+MS2022 
2$: MOV #ST,_R3 :POINTER TO INPUT BUFFER 
CMP #STSIZE,R2 :R2 > MAX BUFFER SIZE? 
BP 00 SIF NOT, CONTINUE 


0,3$ 
we #STSIZE ,R2 SET MAX BUFFER size IN R2 
;D0 A UNIBUS READ 


3$: XFC UREA 
3 *** SET UP SDI COMMAND PACKETS 
MOV R2,CR.WRM+1 SET BYTE COUNT IN WRM PACKET 
ADD #6,CR.WRM+1 3ADD TO COUNT TO INCLUDE PACKET Reg pe 
3 SDI OPCODE(1), REGION 1D(2), AND OFFSET(2) 
MOV 3(R5) ,WRM+1 7SET REGION 


MOV R2,WRA+3 [SET BYTE COUNT IN, BUFFER 
V ST.R3 [1ST DATA WORD IN 
SWAB SR £1ST DATA WORD IN GPPER BYTE 
BIC aL oByTE R3 [CLEAR LOW BY 
BIS +8 3SET DATA IN 1ST BUFFER WORD OF WRT MEM PACKET 
MOV R2.SAVREG SAVE BYTE COUNT 
DEC ‘AD YUST BYTE COUNT 
BIC #LOBYTE ST [CLEAR LOW BYTE OF 1ST DATA WORD OF PROGRAM 
BIS T SREPLACE IT By THE BYTE COUNT OF THE REST 
MOV #WRM+4 RG :R4 => OUT BUFFER 


| 
| 
| 
| 
| 
: 
| 
— 

























51 004436 
004436 


020000 
104302 


020000 
115002 


UDAT2 DISK RESIDENT DMACR x04. 
DIAGNOSE/GET PROGRAM NAME SPE 


005472 
001412 
004751 
004216 
001624 
001666 
000006 
000006 
004503 
004503 
000004 
000004 
004356 
000005 
000005 
004356 
001666 
000007 
000003 
003775 


001414 
003775 
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At: IED BY DRIVE AND DOWNLINE LOAD 


cab CONMEM 
0000, CONMEM 
; *** SEND TO THE DRIVE 
arth 4 Pa 
<090000,URTHEM 
TST R2 
DO.0C4 
*050000,D0.0C4 
SAVREG,R2 
ADD R2,WRM+2 
o5ne2 Ae 


4$: 


; see SET UP DIAGNOSE COMMAND 
S$; CLR M+2 
MOV ih CR.WRM+1 


UB R2,R 
MOV —— 
*010000, 3$ 


BMI 
“070000,5$ 
MOV "4 (RS) ,RO 


ADD R2,RO- 
MOV RO.4(R5) 
a R2,RO 
2070000, 1$ 

MOV 5(R5),R0 
INC 


MOV RO,5(R5) 
BR 1$ 
“00,1$ 


MOV 3(R5), 
BR DI 
“00,DIAGDR 


3 *** JUST RECEIVED THE REGION ID TO DIAGNOSE TO. 
002217 60.013: MOV  pprit t 


“00,DIAGDR 


E 15 


SEQ 0186 | 


CONVERT MEMORY 


RESTORE PORT INDICATOR 
;SEND TO DRIVE 

sALL OK? 

:IF NOT, GO CLEAR DRIVE 
:R2 = BYTE COUNT 
ZADJUST OFFSET 


ae tat BYTE COUNT/DONE? 


zIF NEG, EXIT 


sELSE, ADJUST UNIBUS ADDRESS TO READ FROM 
21S PA ADDRESS LESS THAN BUFFER SIZE? 
zIF IT IS NOT, CONTINUE 


sELSE, INCREMENT EA ADDRESS (CROSSED 0 BOUNDARY) 
READ IN NEXT BUFFER 


sREINIT OFFSET 
;REINIT BYTE COUNT OF INSTRUCTION 
REGION ID 


IN.02 SET UP 


SEND DIAGNOSE COMMAND 


GO DIAGNOSE IT. 


IN.02 : STORE aante ID FOR DIAGNOSE COMMAND 


360 DIAGNOS 





— 


UDAT2 DISK RES 
DIAGNOSE /REPOR 


1 


W 
[=] 
R 
uw 
~m 
™~ 


2 
4 
5 
6 
? 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 


004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004601 
004603 
004 
004 


MON OPORTO 3S eee ee 
MAMAAAM AIA IIA UII IU 


SUIS SSSSRARARARALL LER LAIN 





WEWEWO 
oaoo=— 
= =O 


BESSASe 





: 8 
000001 001411 DO. 


; ##* NO DOWN LINE LOAD PROGRAM, REPORT ERROR 
60.018: MOV 7(R5) RG ; 


000007 
005747 
001617 
005747 
001620 
005764 
001620 
000010 
005747 
001616 
005747 
001616 


005764 
001617 
001624 
001620 
001617 
001616 


001624 
006261 
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ROR == NO DOWNLINE LOAD PROGRAM 


~SBTTL DIAGNOSE/REPORT ERROR == NO DOWNLINE LOAD PROGRAM 
** NO DOWN LINE LOAD PROGRAM AFTER REINITED UDA 
DI7: MOV 1¢R5) ,UNITNB SET UP LOGICAL UNIT NUMBER 


3R4 = 1ST WORD OF PROGRAM NAME 
sDIVIDE BY 50 AND GET 3RD CHARACTER 


CALL DIV50 
*020000,D1V50 
SW PUT IN PROPER BYTE 


ra S1isa get 2 GARACER 
*020000,D1V50 q 

MOV RO,NAM.3 zSET 2ND CHARACTER 

MOV R4,RO : = RADSO OF 1ST CHARACTER 


CALL FNDASC GET ASCII EQUIVALENT 
“020000, FNDASC 

SWAB RO PUT IN PROPER BYTE 
BIS RO,NAM.3 zSET 1ST CHARACTER 


MOV 10(R5) ,R4 3R4_= 2ND WORD OF PROGRAM NAME 
CALL DIV50 GET 6TH CHARACTER 
“020000,D1V50 

CALL DIVO” GET STH CHARACTER 
*020000,D1V50 

SWAB RO PUT IN PROPER BYTE 

BIS RO,NAM.1 sSET STH CHARACTER 

MOV ° zRO = RADSO OF 4TH CHARACTER 
CALL FNDASC sFIND ASCII EQUIVALENT 
“020000, FNDASC 


BIS RO,NAM.2 3SET 4TH CHARACTER 

ERRHRD MS2023,NAM.1,NAM.2,NAM.3 ;REPORT ERROR 
MOV R1,SAVREG 
MOV NAM.3,R1 


MOV R1,-(SP) 
MOV NAM.2,R1 
MOV R1,-(SP) 
MOV -1,R1 
MOV R1,-(SP) 
MOV SAVREG,R1 


-WORD ERHARD+ERRN 


“020000 ,,RERROR 


WORD <PRMS*10000>+MS2023 
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DIAGNOSE/REPORT ERROR == NO DOWNLINE LOAD PROGRAM 


SBTTL_ DIAGNOSE/ 


oer UP RESPONSE TO HOST AND EXIT 


; #* SET UP RESPONSE PAC 
: MOV 


sss 


MUO 
SNE RNOAO Lewy 

Ss 83 

OO =O OOS 


HRAXADRAAAAAAAAAO 
RERETOSAS 
oo 
28 
nv Of” Vit —f— 
NOuw WN SS VW 


ws 
oN F 
Noe 


=-oS 
NO 
nN 


UT. 
#177777,DIAG.1 


3 SOESESEEEEEES 


Sa at ot a a es 
Oo NOUSWN=—0O OD NOUSwh— 


oa 
> 
So 





RESTORE PORT INDICATOR 
UNIT NUMBER 


7 SAV 
sIF DIAG.1 = 0? 
zI1F NOT, SKIP 


3SET_UP PROPER OP-CODE VALUE 
; CONTINUE 


:SET UP REQUEST 
sREGION ID SET 


[MAKE SURE DIAG.1 HAS NONE ZERO VALUE IN IT 
: FOR NEXT TIME THROUGH 


“SO DONAOUSWN OC OONOUSWwh— 


NOR) et 2 ot ot os ss ot es 


703 
39 002705 


020000 
103751 
021653 


000000 
106207 


010000 
106207 





002073 
001412 
006131 
004701 
004667 


006261 


004742 


005674 


006261 


004742 
000162 


004737 
000175 


oe 
=z 
m 
=z 


*00,4$ 
. eee REPORT RECEPTION ERROR 
i$: VPERR 


BEQ 
“010000, 3$ 
CMP #UNSSUC ,RO 


H 15 
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READ MEMORY SUBROUTINE 


~SBTTL READ MEMORY SUBROUTINE 
ROUTINE NAME: RDMEM 


DESCRIPTION: 

THIS ROUTINE at “ XFC_READ MEMORY (FROM A Te tate —_ 
AND OFFSET) OF DATA FROM THE DRIVE. THIS ROUTINE CALLS THE 
SEND AND RCV (TA — ROUTINE AND JUDGES IF THE SDI COMMAN D 
WAS PROPERLY SENT 


INPUT: ALL_PARAMETERS FOR THE READ MEMORY 7 

MUST BE SET. Hip MEANS REGION ID, THE OFFSET, 

AND THE BYTE COUNT MUST BE GIVEN THE APPRORIATE VALUES 
AND STORED IN THE RDM PACKET 


OUTPUT: R2 = 0 MEANS ALL IS OK 
R2 NOT = 0, READ A, me (EITHER SEND OR RECIEVE OF THE COMMAND) 
ST HAS THE READ DATA 


PUSH <RO,R1,R3> sSAVE THESE REGISTERS 


MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R3,-(SP) 
#CR.ROM,R3 sR3 => RDM PACKET 
SDI, zR2 = PORT 
TALKER SEND COMMAND AND RECEIVE RESPONSE 
“026000, TALKER 
R3 ERRORS? 
2$ IF NONE SO FAR, CONTINUE 
=010000,98 
ROL R3 sERROR ON S 


END? 
IF CARRY CLEAR (RECEIVE ERROR) BRANCH 


*040000,1$ 
3 *** REPORT TRANSMISSION ERROR 
RRHRD_ MS2024 


“020000 ,RERROR 
WORD ERHARD+ERRN 


-WORD <PRMS*10000>+MS2024 


4$ sERROR EXIT 


CAL 3GO CHECK TYPE OF ERROR 
«036000, 1 


ERRHRD “mS2025, RO,R3 


MOV R3,-(SP) 
MOV RO,-(SP) 
“020000 ,RERROR 
WORD ERHARD+ERRN 
«WORD <PRMS*10000>+MS2025 
4$ sERROR EXIT 


*00,4$ 
; wee CHECK RESPONSE OP-CODE FROM DRIVE 
bs: CMP R 


#RDM.EN,RO sCHECK RESPONSE 
:IF IT MATCHES, OK, EXIT 


zIF NOT CORRECT RESPONSE, UNSSUC? 


AD MEMORY SUBR 
40 004707 
004707 050000 
41 004711 
004711 020000 
42 004713 
004713 020000 
004715 103752 
004716 001712 
3 004717 
004717 000000 
44 004721 
004721 100467 
004722 104010 
004724 104201 
004726 100461 
004727 104301 
004731 020000 
004733 103753 
004734 021737 
45 004735 
004735 000000 
46 004737 114002 
47 004740 
004740 000000 
48 004742 104202 
49 004744 
004744 104263 
004745 104261 
004746 104267 
00474 


004721 
005437 
006261 


004742 
001624 


000162 


001624 
006261 


004742 


004744 
000001 
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6$: 








BE 0000, 6$ :IF NOT, UNRECOGNIZED RESPONSE 
STOSTA sCHECK STATUS 
«056000, § STOSTA 


ERRHRD 'MS2026 : 
“020000,RERROR 
«WORD ERHARD+ERRN 
‘3 «WORD <PRMS*10000>+MS2026 


*00,4$ 
ERRHRD MS2027,#ROM.EN,RO 
MOV RO,-(SP) 


MOV SAVREG,R1 


“020000,,RERROR 
WORD ERHARD+ERRN 
«WORD <PRMS*10000>+MS2027 
BR 4$ ERROR EXIT 
*00,4$ 
CLR R2 sALL GK, EXIT 
BR 5$ : 
*00,5$ 
MOV ERROR OCCURED, SET R2 


1,R2 
POP <R3,R1,RO> 
MOV (SP)+,R3 
mY 
, 
RETURN 
“00,0 


SEQ 0190 | 


J 15 Peel, 
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URite MEMORY SUBROUT IN 
.SBTTL WRITE MEMORY SUBROUTINE 
e WRTMEM 
DESCRIPTION: 


THIS ROUTINE 3 THE re WRITE gr = A_SPECIFIED 
REGION ID AND OFFSET WITH A BYTE COUNT AND DATA. 

THIS ROUTINE CALLS THE SEND AND RCV TALKER) ROUTINE 
AND JUDGES IF THE SDI COMMAND WAS PROPERLY SENT. 


N= SVONOUVUEWN—“OOONOUSWwN— = 


1 
1 INPUT: ALL PARAMETERS FOR THE WRITE MEMORY COMMAND MUST BE SET. 
1 REGION ID, OFFSET, BYTE COUNT AND THE DATA MUST BE STORED 
i IN THE PACKET. 
1 OUTPUT: R2 = 0 MEANS WRITE MEMORY COMMAND WAS PROCESSED SUCCESSFULLY 
R2 NOT = 0, WRITE FAILED (EITHER SEND OR RECEIVE OF THE COMMAND) 
18 004751 104203 001657 RTMEM: MOV #CR.WRM,R3 :R3->MEM WRITE PACKET 
19 004753 104302 001412 MOV DI,R2 :R2 = PORT 
20 004755 CALL _ TALKER SEND COMMAND AND RECEIVE RESPONSE FROM DRIVE 
004755 020000 006131 “020000, TALKER 
21 004757 115003 TST R3 :SEE IF ERROR OCCURRED 
22 004760 BEQ 2$ :I1F NO ERRORS, BRANCH 
004760 010000 005005 “010000,2$ 
23 004762 110203 ROL R3 :SHIFT HIGH BIT INTO CARRY BIT 
24 004763 BCC 1$ TIF CARRY CLEAR (RECEIVE ERROR) BRANCH 
004763 040000 004773 “040000, 1$ 
25 : *** REPORT TRANSMISSION ERROR 
26 004765 ERRHRD MS202 
004765 020000 006261 “020000, RERROR 
004767 103754 .WORD ERHARD+ERRN 
004770 002027 “WORD <PRMS*10000>+MS2028 
27 004771 BR 4$ 
004771 000000 005046 -00,4$ 
: ## REPORT RECEPTION ERROR 
29 004773 i$: CALL VPERR zFIND OUT WHAT TYPE OF ERROR OCCURED 
004773 020000 005674 <956000.1 
30 004775 ERRHRD “mS0605, RO,R3 
004775 100463 MOV R3,-(SP) 
004776 100467 _ MOV RO,-(SP) 
004777 020000 006261 “020000,RERROR 
005001 103755 .WORD ERHARD+ERRN 
005002 022062 SWORD <PRMS*10000>+mS2029 
31 00500 BR 4$ 
005003 000000 005046 *00,4$ 
32 ; #* SET UP RESPONSE PACKET 
33 005005 106207 000176 5$: CMP #COMPLT, RO :D1D IT COMPLETE 
34 005007 BEQ 3$ :IF SO CONTINUE 
005007 010000 005043 “010000, 3$ 
35 005011 106207 000175 CMP #UNSSUC,RO z1F NOT CORRECT RESPONSE, UNSSUC? 
36 005013 BNE 6$ SIF NOT, UNRECOGNIZED RESPONSE 
005013 050000 005025 “050000,6$ 
37 005015 CALL STOSTA :CHECK STATUS 
005015 020000 005437 “020000, STOSTA 
38 005017 ERRHRD °MS2030 : 
005017 020000 006261 “020000, RERROR 


005021 103756 -WORD ERHARD+ERRN 
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WRITE MEMORY SUBROUTINE 


002121 


000000 
104202 


000000 


005046 
001624 
000176 


001624 
006261 


005046 


005050 
000001 


000000 


6$: 


4$ 
“00,48 
ERRHRD MS2031,#COMPLT,RO 


“020000,RERROR 
BR 
“00,48 
CLR 


BR 
*00,5$ 
M 


OV #1,R2 
RETURN 
“00,0 


-WORD <PRMS*10000>+MS2030 


MOV R1,-(S 
MOV SAVREG,R1 


«WORD ERHARD+ERRN 
-WORD <PRMS*10000>+MS2031 


sERROR OCCURED, SET R2 


SEQ 0192 


Lis SONGS A a 
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RUN (OR SPIN UP) COMMAND | 


1 .SBTTL RUN (OR SPIN UP) COMMAND 
¢ zISSUE RUN COMMAND AND CHECK THAT IT PERFORMS PROPERLY 
4 005052 104203 002136 RUNDR: MOV #CR.RUN,R3 :R3 => COMMAND 
5 005054 CALL _ TALKER :SEND TO DRIVE 
005054 020000 006131 “020000, TALKER 
6 005056 115003 Ts! *R3 ZALL OK? 
7 005657 60$ SIF SO, CHECK RESPONCE CODE 
005057 010000 005103 “510000, 60$ 
8 005061 BPL 50$ ZELSE, IS MSB SET2?/IF NOT, RECEIVE ERROR 
005061 030000 005071 "030000, 50$ 
9 005063 ERRHRD *i199032 sREPORT SEND ERROR 
005063 020000 006261 “020000,RERROR 
005065 103760 -WORD ERHARD+ERRN 
005066 902237 {WORD <PRMS*10000>+MS2032 
10 005067 BR 70$ : 
005067 000000 005137 00, 7 
11 005071 50$: 
005071 020000 005674 ‘ 036000, 1 
12 005073 ERRHRD “MS208s, RO,R3 ;REPORT RECEIVE ERROR 
005073 100463 MOV R3,=(SP) 
005074 100467 MOV RO,=(SP) 
005075 020000 006261 “020000,RERROR 
005077 103761 .WORD ERHARD+ERRN 
005100 022265 WORD <PRMS*10000>+MS2033 
13 005101 BR 70$ : 
5101 000000 005137 “00,70$ 
14 005103 106207 000176 60$: CMP #COMPLT,RO ZCHECK RESPONSE CODE 
15 005105 BEQ 75$ SIF OK, CONTINUE 
005105 010000 005143 “010000,75$ 
16 005107 106207 000175 CMP #UNSSUC , RO 3; IF NOT CORRECT RESPONSE, UNSSUC? 
17 005111 BN :IF NOT, UNRECOGNIZED RESPONSE 
005111 050000 005123 “050000,65$ 
18 005113 CALL STOSTA sCHECK STATUS 
005113 020000 005437 “020000,STOSTA 
19 005115 ERRHRD ‘MS2034 ; 
005115 020000 006261 “020000,RERROR 
005117 103762 eWORD ERHARD+ERRN 
005120 002317 “WORD <PRMS*10000>+MS2034 
20 005121 70$ 
005121 000000 005137 “00,70$ 
21 005123 65$:  ERRHRD MS2035,#COMPLT.RO zIF NOT, REPORT ERROR 
005123 100467 MOV RO,-(SP) 
005124 104010 001624 MOV R1.SAVREG 
005126 104201 000176 MOV #COMPLT,R1 
005130 100461 MOV R1,-(SP5 
005131 104301 001624 MOV SAVREG,R1 
005133 020000 006261 “020000,RERROR 
005135 103763 = WORD ERHARD+ERRN 
005136 022340 WORD <PRMS*10000>+MS2035 
22 005137 104202 000001 70$: MOV #1,R2 :R2 IS NOT ZERO MEANING ERROR 
23 005141 BR 80$ 
005141 000000 005144 “00,80$ 
24 005143 114002 75$: CLR R2 :R2 1S ZERO, NOT ERROR 
25 005144 80$: RETURN 
005144 000000 000000 “00,0 
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RECALIBRATE COMMAN 
1 .SBTTL RECALIBRATE COMMAND 
: yISSUE RECALIBRATE COMMAND AND CHECK THAT IT PERFORMS PROPERLY 
4 005146 104203 002144 RECAL: MOV #CR.INR,R3 :R3 => COMMAND 
5 005150 ALL ___ TALKER [SEND TO DRIVE 
005150 020000 006131 “020000, TALKER 
6 00515¢ 115003 TST R3 ZALL OK? 
7 00515 BEQ 90$ :I1F SO, CHECK RESPONCE CODE 
005153 010000 005177 “010000,90$ 
8 005155 sELSE, IS MSB SET?/IF NOT, RECEIVE ERROR 
005155 030000 005165 “030000, 80$ 
9 005157 ERRHRD M™S2036 sREPORT SEND ERROR 
005157 020000 006261 “020000, RERROR 
005161 103764 .WORD ERHARD+ERRN 
005762 002424 “WORD <PRMS*10000>+MS2036 
10 005163 BR 100$ : 
005163 000000 005233 700,100 
11 005165 80$: CALL 
005165 020000 005674 *020000,T 
12 005167 ERRHRD MSODST, RO,R3 sREPORT RECEIVE ERROR 
005167 100463 MOV R3,=(SP) 
005170 100467 MOV RO.-(SP) 
005171 020000 006261 “020000, RERROR 
005173 103765 -WORD ERHARD+ERRN 
005174 022456 [WORD <PRMS*10000>+MS2037 
13 005175 BR 100$ : 
005175 000000 005233 “00, 
14 005177 106207 000176 90$: CMP #COMPLT,RO :CHECK RESPONSE CODE 
15 005201 BEQ 105$ SIF OK, CONTINUE 
005201 010000 005237 “010000, 105$ 
16 005203 106207 000175 #UNSSUC,RO :1F NOT CORRECT RESPONSE, UNSSUC? 
17 005205 95$ SIF NOT, UNRECOGNIZED RESPONSE 
005205 050000 005217 #050006, 95$ 
18 005207 ALL STOSTA ;CHECK STATUS 
005207 020000 005437 ‘ 020000, STOSTA 
19 005211 ERRHRD ‘MS2038 ; 
005211 020000 006261 5650000, RERROR 
005213 103766 -WORD ERHARD+ERRN 
005214 002514 “WORD <PRMS*10000>+MS2038 
20 005215 BR 100$ 
005215 000000 005233 “00,100$ 
21 005217 95$:  ERRHRD MS2039,#COMPLT,RO z1F NOT, REPORT ERROR 
005217 100467 MOV RO,-(SP) 
005220 104310 001624 MOV R1.SAVREG 
005222 104201 000176 MOV #COMPLT,R1 
005224 100461 MOV R1,-(SP) 
005225 104301 001624 MOV SAVREG,R1 
005227 020000 006261 “020000, RERROR 
005231 103767 7 .WORD ERHARD+ERRN 
005232 022541 .WORD <PRMS*10000>+MS2039 
22 005233 104202 000001 100$: MOV #1,R2 
23 005235 BR 110$ 
005235 000000 005240 250.1108. 
24 005237 114002 105$: CLR R2 
25 005240 110$: RETURN 


005240 000000 000000 “00.0 
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UDAT2 DISK RESIDENT DMACR X04.01 19-AUG-82 13:07:09 PAGE 46 SEQ 0195 
GET STATUS SUBROUTINE 
J .SBTTL GET STATUS SUBROUTINE 
; ; GET STATUS 
5 : OUTPUT R3 = 0 IF OK 
6 ; R3 = 1 IF ERRO 
g ; R4 USED AS A DECREMENT COUNTER 
9 005242 114004 GTSTAT: CLR R4 
10 005243 104203 001642 3$: MOV #CR.GST,R3 :POINT TO GET STATUS COMMAND 
11 005245 CALL _ TALKER > SEND AND RECEIVE COMMAND 
005245 020000 006131 “020000, TALKER 
12 005247 115003 TST R3 : SEE IF ERROR OCCURED 
13 005250 "EQ 2$ : IF NOT, BRANCH 
005250 010000 005300 “010000, 2$ 
14 005252 110203 ROL R3 : SEE IF RECEIVE ERROR 
15 005253 BCC 1$ ; IF SO, BRANC 
005253 040000 005266 "040000, 1$ 
16 005255 117404 DEC RG : IF SEND ERROR, COUNTER DONE? 
17 005256 BNE 3$ : IF NOT, TRY AGAIN 
005256 050000 005243 “050000, 3$ 
18 005260 ERRHRD ©MS2040 
005260 020000 006261 “020000,RERROR 
005262 103770 .WORD ERHARD+ERRN 
005263 002631 “WORD <PRMS*10000>+MS2040 
19 005264 BR ER.END 
000000 005334 700 -ER-END 
20 005266 1$: CAL Tye ERR 
005266 020000 005674 £056000,1 YPERR 
21 005270 ERRHRD *mS2064 RO,R3 
005270 100463 MOV R3,-(SP) 
005271 100467 MOV RO,=(SP) 
005272 020000 006261 “020000,RERROR 
005274 103771 .WORD ERHARD+ERRN 
005275 022663 “WORD <PRMS*10000>+MS2041 
22 005276 BR ER.END 
005276 000000 005334 “00,ER.END 
; ** LOOK AT RESPONSE OP-CODE FROM DRIVE -- SHOULD BE DATA RESPONSE 
24 005300 106207 000366 2$: CMP ASTSRES,RO SCHECK OP=CODE 
25 005302 OK .END ‘BRANCH IF A MATCH 
005302 010000 005340 “510000, OK .END 
26 005304 106207 000175 CMP #UNSSUC,RO :1F NOT CORRECT RESPONSE, UNSSUC? 
27 005306 BNE 4$ :1F NOT, UNRECOGNIZED RESPONSE 
005306 050000 005320 “050000,4$ 
28 005310 CALL STOSTA 
005310 020000 005437 020000, STOSTA 
005312 ERRHRD ‘MS2042 F 
005312 020000 006261 “020000,RERROR 
005314 103772 .WORD ERHARD+ERRN 
005315 002721 “WORD <PRMS*10000>+MS$2042 
30 005316 ER.END 
005315 000000 005334 “00,ER.END 
31 005320 _ 4$: ERRHRD MS2043,#STSRES,RO ZWRONG RESPONSE FROM DRIVE 
005320 °00467 MOV RO,-(SP) 
005321 .04010 001624 MOV R1.SAVREG 
005323 104201 000366 MOV #STSRES,R1 


005325 100461 MOV R1,=(SP) 


a 
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GET STATUS SUBROUTINE 


005326 104301 001624 
005330 020000 006261 “020000 ,RERROR 
005332 103773 
005333 022746 
32 005334 104203 000001 ER.END: MOV #1,R3 
33 005336 EX.END 
005336 000000 005341 “00,EX.END 
34 005340 114003 OK.END: CLR 
35 005341 EX.END: RETURN 
005341 000000 000000 “00,0 


B 16 


MOV SAVREG,R1 


eon ERHARD+ERRN 
ORD <PRMS*10000>+MS2043 
aT NONE ZERO vale WHEN DONE (ERROR) 


:R3 = 0 WHEN DONE (NO ERROR) 


SEQ 0196 
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— =) — —>) —— — 
ONO AEF WH SBOCMNOUSWRR 
WAWWNWNOIW 
AAT ARTA 
ARRW=O 


SSSsssssssssssssso 


= 
We ew 


Na he hd lh th ge te hh a ht 
RRO 


CLEAR DRIVE SUBROUTI 


114004 
104203 
020000 
115003 
010000 
110203 
040000 
117404 
050000 


020000 
103774 
003035 


001650 
006131 


005401 
005367 
005344 
006261 


005334 
005674 


006261 
005334 


000176 
005340 
000175 


005421 
005437 
006261 





-SBTTL CLEAR DRIVE SUBROUTINE 


; DRIVE CLEAR 
: OUTPUT R3 = 0 IF Ok 
: R3 = 1 IF ERRO 
: R4 USED AS A SECREMENT COUNTER 
CLRDRV: CLR RG : CLEAR DECEMENT COUNTER 
3$: MOV #CR.DRC,R3 : POINT TO DRIVE CLEAR COMMAND 
CALL _ TALKER : SEND AND RECEIVE COMMAND 
“020000, TALKER 
i ORR : TF wor. BRANC oe 
“010000, 2$ 
aces : iFso. oraven One 
“040000, 1$ 
DEC R4 : ON SEND ERROR, IS COUNTER DONE? 
: IF NOT, TRY AGAIN 
“050000, 3$ 
ERRHRD “MS2044 
*020000,RERROR 
.WORD ERHARD+ERRN 
-WORD <PRMS*10000>+MS2044 
BR ER.END 
“ 0, R.E 
1$: CAL TYPERR 
«056000, TYPERR 
ERRHRD °MS2045,R0,R3 
MOV RO. = (SP) 
“020000, RERROR 
«WORD ERHARD+ERRN 
“WORD <PRMS*10000>+MS2045 
ER.END 
“00,ER.END 
: eee CHECK RESPONSE love 
5$: CMP #COMPLT,RO : SEE IF CORRECT RESPONSE CODE RECEIVED 
BEQ OK.E ND : IF SUCCESSFUL, BRANCH 
*010000, OK .END 
So SIF NOT. UNRECOGNIZED RESPONSE 
est CHECK STATUS 
: U 
“020000, STOSTA 
ERRHRD ‘MS2046 : 
“020000, RERROR 
"WORD EPRMS©10000>+HS2046 
. * + 
BR ER.END 
“00,ER.END 
ERRHRD MS2047,#COMPLT,RO :CLEAR ERROR FAILED 
MOV RO,-(SP) 


MOV #COMPLT,R1 
MOV R1,-(SP5 
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CLEAR DRIVE SUBROUTINE 


005427 104301 001624 


005431 020000 006261 “020000 ,RERROR 
005433 103777 
005434 023152 

32 005435 ER.END 


BR 
3 005435 000000 005334 “00,ER.END 


D 16 


MOV SAVREG,R1 


~WORD ERHARD+ERRN 
«WORD <PRMS*10000>+MS2047 


SEQ 0198 


oS Ses 
Oo NOUESWN—O0ON 
So 


005466 
005467 
19 005470 
005470 


106201 
050000 
104262 
104261 
104267 


000000 


002157 
004252 


001412 
077270 
001424 


001415 
005457 


000000 


STOSTA: 


1$: 
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STORE STATUS ROUTINE 


E 16 


-SBTTL STORE STATUS ROUTINE 


STORE STATUS 


MOVE WHAT DATA IS IN ST AND PUT IT IN OUTPUT BUFFER 


PUSH <RO,R1,R2> 


MOV #0UT.05,R0 


MOV RO,=(SP) 

MOV R1,=(SP) 

MOV R2,-(SP) 
:RO => OUTPUT BUFFER 


nea #STATO RI ;MOVE FORMAT ADDRESS IN OUTPUT BUFFER 
MOV erate ; R2 PORT INDICATOR 

XFC TUS ; US 

BIC #100507, R1 : CLEAR UNUSED BITS 

MOV R1,(RO)+ 3_ST 


BNE 1$ 
— 1$ 
Ro, R1,R0> 


RETURN 
“00.0 


3R1 => INPUT BUFFER 
SAVE 


;DONE? 
:1F NOT, CONTINUE 


MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,R0 


SEQ 0199 | 


F 16 
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CONVERT MEMORY == SKEWED B 


-SBTTL CONVERT MEMORY == SKEWED BY BYTE 
ROUTINE NAME: CONMEM 
DESCRIPTION: 
MEMORY IS SENT TO THE DM ROUTINE STARTING ON THE ODD BYTE oy gt 


THIS ROUTINE SHIFTS THE DATA TO START ON THE EVEN BYTE BOUND AND 
he Aaa WORD INTO A SPECIFIED BUFFER AREA. THE DATA IS STORED AS 


—SODONOUVUESWN 0 OONOUSWwh— 


1 : ST: DATA BYTE 0 BYTE COUNT 

1 : DATA BYTE 2 DATA BYTE 1 

1 ; DATA BYTE 4 DATA BYTE 3 

: ° eeecse DATA BYTE 5 

1 : AFTER EXECUTION, THD DATA IS STORED LIKE THIS: 

1 ; OUT.XX: DATA BYTE 1 E 0 

1 : A BYTE 3 PATA BYTE 2 

1 : PATA BYTE 5 DATA BYTE 4 

j : anne DATA BYTE 6 

2 ; INPUT: R4 => BUFFER AREA'S FIRST LOCATION 

32 : ST HAS INPUT DATA 

36 ; OUTPUT: OUTPUT BUFFER HAS SHIFTED DATA 

26 iio 

27 005472 CONMEM: PUSH _ <RO,R1,R2,R3,R4> 
005472 100467 MOV RO,-(SP) 
005473 100461 MOV R1.-(SP) 
005474 100462 MOV R2.=(SP) 
005475 100463 MOV R3,~(SP) 
005476 100464 MOV R4,=(SP) 

28 005477 104203 001415 MOV #ST,R3 :R3 => byte COUNT 

29 005501 104137 MOV (R35 ,RO [RO = BYTE COUNT 

30 005502 103207 177400 BIC #HIBYTE RO STRIP. OFF EXTRANEOUS 

31 005504 104231 1$: MOV )+,R1 ‘R1 = EVEN BYTE OF DATA 

32 005505 103201 000377 BIC Rare. R1 :STRIP OFF EXTRANEOUS 

33 005507 117407 DEC RO 

34 005510 BEQ 2$ TIF ‘ES, GO STORE LAST BYTE 
005510 010000 005525 “010000,2$ 

35 005512 104132 MOV (R3),R2 :R2 = ODD BYTE 

36 005513 103202 177400 BIC #HIBYTE ,R2 efRIP’ OFF EXTRANEOUS 

37 005515 101021 BIS R2,R1 [R1 HAS WHOLE WORD(BYTES REVERSED) 

38 005516 110701 SWAB sé ‘SWITCH BYTES 

39 005517 100241 MOV R1,(R4)+ [STORE DATA 

40 005520 117407 DEC RO DONE? 

41 005521 BEQ 3$ TIF SO, EXITCEVEN # OF BYTES) 
005521 010000 005527 “010000, 3$ 

42 005523 BR 1$ sELSE, CONTINUE 
005523 000000 005504 *00,1$ 

43 005525 110701 2s: SWAB :0DD # BYTES TO GET HERE 

44 005526 100141 MOV R1, (R4) SSTORE LAST BYTE 

45 005527 3$: POP <R4,R3,R2,R1,RO> 
005527 104264 MOV (SP)+,R4 
005530 104263 MOV (SP)+.R3 
005531 104262 MOV (SP)+.R2 
005532 104261 MOV (SP)+.R1 





eg 





G 16 


re DISK RESIDENT DMACR X04.01 19-AUG-82 13:07:09 PAGE 49-1 SEQ 0201 | 
ONVERT MEMORY == SKEWED BY BYTE 


46 005534 RETURN 
“00,0 


| 
005533 104267 MOV (SP)+,RO | 
005534 000000 000000 | 


| 
| 
| 
| 
| 
| 
| 
| 
| 
} 
| 
| 
| 
| 


| 
| 
| 


a ee + + 


H 16 ee | 
UDAT2 DISK RESIDENT DMACR X04.01 19-AUG-B2 13:07:09 PAGE 50 SEQ 0202 
GET BYTE COUNT 


-SBTTL GET BYTE COUNT 
ROUTINE NAME:  GETBCN 


eek ts ates 

DATA IS READ BY THE DM PROGRAM AFTER THE DIAGNOSE COMMAND. 
WITHIN THIS DATA, THE DRIVE SPECIFIES IF MORE DATA NEEDS TO 
BE READ. IF IT THE BYTE COUNT MUST BE CONVERTED FROM 
ITS PRESENT FORM WHICH FOLLOWS THIS FORMAT: 


cat 


GIT 15 BIT 0 
nm ASCII COUNT ; BINARY COUNT ! 


THE TOTAL BYTE ae 1's the a FORMULA: 
OR THE i biwlay Chant ee THE ASCII is tH PLUS FOUR , 


OUN THE te 
32 BIT BINARY VALUES INCLUDED IN THE REPORT. THE ASCII 
yl THE NUMBER OF ASCII CHARACTERS INCLUDED IN THE 


NONRINIR) A ot 
WN =O OONOUSWN—ODOONOUSWwh— 


24 INPUT: OUT.O8 = ASCII COUNT AND BINARY COUNT IN THE FORM STATED ABOVE 

4 OUTPUT: RDM+3 HAS UPDATED BYTE COUNT. 

28 

29 005536 ETBCN: PUSH <RO,R1,R2,R3,R4,R5> 
005536 100467 MOV RO,=(SP) 
005537 100461 MOV R1,-(SP) 
005540 100462 MOV R2,-(SP) 
005541 100463 MOV R3.-{5P) 
005542 100464 MOV R4.~<SP) 
005543 100465 MOV RS,-<SP) 

30 005544 114007 CLR RO 

31 005545 110207 ROL RO :CLEAR CARRY 

32 005546 104307 002162 MOV OUT.08,RO ‘GET BYTE COUNT 

33 005550 103207 177400 BIC #HIBYTE,RO :RO = BINARY COUNT= # 32 BIT WORDS 

34 005552 110207 ROL RO 

35 005553 110207 ROL RO ?RO = BINARY COUNT IN BYTES 

36 005554 104301 002162 MOV OUT.08,R1 :R1 = BYTE 

37 005556 110701 SWAB sé 3ASCII COUNT IN LO BYTE 

38 005557 103201 177400 BIC #HIBYTE,R1 "R1 = ASCII COUNT 

39 005561 104012 MoV R1,R2 *SAVE IN Re = ASCII COUNT 

40 005562 105017 R1.RO :RO = TOTAL BYTE COUNT 

41 po tee 1s" SIZE OF THE PACKET TOO BIG FOR BUFFER AVAILABL LE? 

42 005563 104201 000052 MOV 42.,R1 742. IS THE MAX XIMUM # oF BYTES LEFT 

43 005565 106017 CMP R1,RO [1S TOTAL BYTE COUNT 

44 BPL 5 :1F NOT, GO STORE TOTAL sive COUNT 

030000 005662 “030000, 5$ 
; *** SAVE OUT.RQ DATA 

46 005570 104204 002153 MOV #OUT.01,R4 :R4=> OUT.RQ DATA 

47 005572 104205 001555 MOV #ST+140.R5 [R5=>SAVE AREA 

48 005574 104241 1$: MOV (R4)+,R1 3SA VE 

49 005575 100251 MOV R1,(R5)+ 

50 005576 106204 002214 CMP #OUT. 34,R4 ‘DONE? 








UDAT2 DISK en DMACR X04.01 19-AUG-82 13:07:09 PAGE 50-1 
GET BYTE COUNT 


51 005600 
005400 


52 
53 005602 
005602 


62 005632 
63 005633 


64 

65 005635 

66 36 

67 005637 
637 


050000 


104073 
104207 


107023 
106073 


070000 
105032 


107020 
000000 
103200 
107073 
117400 
107203 


030000 


104070 


005574 


00162 
00334 


TOW 


002214 
005624 


000052 


005650 


002162 
005662 
177400 


002162 
000004 
005654 


002103 


000000 


OV #42. ,RO 
; *** ADJUST ASCII COUNT IF TOO LARGE 
SUB R2,R3 


* &e&e 
002162 3s: 
4$: 


s ket 


S$: 


RESTORE OUT.RQ DATA 
MOV #OUT. 


BNE 
050000,18 
MSSGE MSG2 


“020000 ,HOSTRQ 


1,R4 
MOV #ST+140,R5 
MOV (R5)+,R1 
MOV at (R4)+ 
CMP #OUT.34,R4 
BNE 
“050000, 2$ 


MOV RO,R3 
M 


CMP RO, RS 
BMI 3$° 


SUB RO,R2 
SWAB R2 

SUB R2,0UT.08 
BR 5s 


SUB RO, 
DEC ouT.08 
SUB #4 ,R3 


MOV RO,RDM+ 


M+3 
POP <R5,R4,R3,R2,R1,RO> 


RETURN 
“00,0 





*070000,3$ 
ASCII COUNT_IS > 42. TO GET HERE 
ADD R3,R2 


SEQ 0203 


s1F NOT, CONTINUE 


MOV LUNIT,OUT.01 
MOV #MSG2 ,0UT.02 
MOV RO,-(SP) 
MOV R1,-(SP) 
MOV #MESSAG RO 


, MOV (SP)+,R1 
. MOV (SP)+,RO 


7R4=> OUT. am DATA 
3R5->SA AVE AREA 
; RESTORE 


; DONE? 
sIF NOT, CONTINUE 


SAVE ASCII COUNT + 4*BINARY COUNT IN R3 
ELSE, MAXIMUM BYTE COUNT IS STORED. 


3R3 = BINARY COUNT 
iI tec COUNT ALONE > 


zR2 = TOTAL BYTE COUNT 
ie = ASCII COUNT ADJUSTMENT 

ASCII COUNT ADJUSTMENT IN UPPER BYTE 
SUBTRACT FROM OUT.08 FOR HOST 


*00,5$ 
ADJUST — COUNT IF TOO LARGE/CLEAR ~~ ASCII COUNT 
BIC #HIBYTE ,OUT.08 7 CLEAR 


HI BYTE OF OUT.08 
7R3 = BINARY COUNT ALONE 
ADJUST BINARY COUNT 


030000,4$ 
STORE IN READ MEMORY PACKET AND EXIT 
STORE IN READ MEMORY PACKET 


MOV (SP)+,R5 





> 42.7 
O, TO CLEAR ASCII COUNT AND ADJUST BINARY COUNT 





ee ee ee 


J 16 
UDAT2 DISK RESIDENT DMACR x04 Pt 19=AUG=82 13:07:09 PAGE 51 SEQ 0204 
TYPE WHAT KIND OF RECEIVE ERRO 
-SBTTL TYPE WHAT KIND OF RECEIVE ERROR 
TYPE ERROR 
DESCRIPTION: 
THIS ROUTINE PRINTS A REPORT TO TELL WHAT KIND OF ERROR OCCURED IF A 
RECEIVE XFC DID NOT SUCCESSFULLY COMPLETE. 


INPUT: R3 = — WAS menor THE XFC SAVED IN TALKER ROUTINE SHIFTED LEFT ONCE 


+ 


— 


dhe Se Se Se Be Be Se Se Ge Se Be Se Se Se 
. 


1 005745 6$: RETUR 
5745 000000 000000 “00.0 


; 
2 
$ 
4 
5 
é 
? 
8 
10 
i IF = 2 1ST WORD WAS NOT A START FRAME 
12 IF = 4 FRAMING ERROR ON SDI LEVEL 0 READ 
13 IF = 10 CHECKSUM ERROR ON SDI LEVEL 0 READ 
14 IF = 20 BUFFER SIZE WAS SMALLER THAN RESPONSE 
16 005674 110603 YPERR: ROR — RB READJUST R3 | 
17 005675 114001 CLR RI 
18 005676 110201 ROL R1 ZCLEAR CARRY | 
19 005677 104031 MOV —s R33, RI “STORE IN RI 
20 005700 110601 ROR RJ TERROR? 
51 005701 ace is SIF NOT, CONTINUE 
005701 040000 005707 *040000,1 
22 005703 104207 003374 MOV aRSRO,RO : TIMEOUT 
53 005705 BR 6$ TEXIT 
5705 000000 005745 *00,6$ 
24 005707 110601 18: ROR RI S ERROR? 
55 005710 Bcc «2S SIF NOT, CONTINUE 
$710 040000 005716 “040000, 2$ 
26 005712 104207 003423 MOV. “#MSR1,RO :1ST WORD WAS NOT A START FRAME 
57 005714 BR 6$ TEXIT 
005714 000000 005745 *00,6$ 
28 005716 110601 28: ROR S ERROR? 
59 005717 acc 3S tIF NOT, CONTINUE 
005717 040000 005725 *040000, 3$ 
30 005721 104207 003453 MOV #MSR2,RO ;FRAMING ERROR ON SDI LEVEL 0 READ 
31 005723 BR 6$ tEXIT 
005723 000000 005745 *00,6$ 
32 005725 110601 38: ROR” RI S ERROR? 
33 005726 Bcc «4S tIF NOT, CONTINUE 
005726 040000 005734 *040000,4$ 
34 005730 104207 003514 MOV A#MSR3,RO ; CHECKSUM ERROR ON SDI LEVEL 0 READ 
35 005732 R 6$ tEXIT 
005732 000000 005745 *00,6$ 
36 005734 110601 4$: ROR’ RI sERROR? 
37 005735 Bcc «SS :IF NOT, CONTINUE 
005735 040000 005743 *040000,5$ 
38 005737 104207 003555 MOV #MSR4.RO ;BUFFER SIZE SMALLER THAN RESPONSE | 
39 005741 R as tEXIT | 
005741 000000 005745 “00,68 | 
40 005745 104207 003612 S$: MOV" AMSRS.RO ZERROR WASN'T PROPERLY SPECIFIED 
| 
| 
| 
| 
| 
} 
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UDAT2 DISK RESIDENT DMACR X04.01 19-AUG-82 13:07:09 PAGE 52 


DIVIDE BY OCTAL 50 AND FIND ASCII EQUIVALENT 


4 -SBTTL DIVIDE BY OCTAL 50 AND FIND ASCII EQUIVALENT 
ss 
? 3 DIVIDE BY 50 
5 3 DESCRIPTION: RAD a VALUE IN R4 IS DIVIDED BY SOCOCTAL) 
6 3 TO STRIP OFF A SINGLE CHARACTER INTO 
4 : JUMP TO FNDASC TO FIND THE ASCII EQUIVALENT 
16 : INPUT: R4& HAS RADSC VALUE 
\ H OUTPUT: RO HAS ASCII CHARACTER 
13 005747 DIV50: PUSH <R1> 
005747 100461 MOV R1,-(SP) 
14 005750 114001 CLR a ;R1 = QUO 
15 005751 115401 1$: INC sKEEP TRACK OF # OF LOOPS 
16 005752 107204 000050 a ag i530, R4 $ ? 
17 005754 ;IF NOT, LOOP 
005754 030000 005751 #930000, 1$ 
18 005756 105204 000050 #50,R 3R4 = REMAINDER 
19 005760 104047 mov 4, eo + STORE REMAINDER IN RO 
20 005761 117401 DEC R1 ‘R1 H HAS 1 MORE THAN IT SHOULD 
21 5762 104014 MOV R1,R4 7QU0 IN R4 
22 005763 PoP <R1> 
33 005763 104261 MOV (SP)+,R1 
24 s3¢ 
$2 3 FIND ASCII 
44 : INPUT: RO HAS RAD 50 CHARACTER 
29 005764 115007 FNDASC: TST RO 31S = 0? 
30 005765 BNE 2$ :1F NOT, CONTINUE 
0057 050000 005773 *050000,2$ 
31 005767 104207 000040 MOV 40,R0 3IF SO, SPACE SET 
005771 RETURN 
005771 000000 000000 “00, 
33 005773 106207 000032 2$: CMP #32,R0 3: > LARGEST LETTER 
34 005775 BMI 3$ TIF SO, CONTINUE 
005775 070000 006003 *070000,3$ 
35 005777 105207 000100 #100,R0 3SET ASCII LETTER 
006001 000000 000000 *00, 
37 006003 106207 000033 3$: <4 #33,R0 3 = 33? 
38 006005 IF NOT, CONTINUE 
006005 050000 006013 2550000, 4$ 
006007 104207 000044 MOV “#44,R0 SET ‘$° 
40 006011 RETURN 
006611 . 000000 000000 00,0 
41 006013 106207 000034 4$: a #34,R0 = 34? 
42 006015 TIF NOT, CONTINUE 
006015 050000 006023 2050000, 5$ 
43 006017 104207 000056 MOV “#56,R0 sSeT °.° 
44 006021 RETURN 
006021 000000 000000 *00, 
45 006023 105207 000022 5$: ADD #22,R0 sELSE ADD 22(OCTAL)FOR NUMERAL CHARACTER 
46 006025 RETURN 





SEQ 0205 


e f 
M 16 












UDAT2 DISK RESIDENT DMACR X04.01 19-AUG-82 13:07:09 PAGE 53 
RDSTAT = GET DRIVE’S REAL TIME DRIVE STATE 





















1 -SBTTL RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 
§ 006027 RDSTAT: 
4 ;RETURN DRIVE STATUS 
2 sSTATUS RETURNED IN DM REGISTER 1 
7 006027 PUSH <R3,RO> ; SAVE R3 AND RO 
006627 100463 MOV R3,-(SP) 
006030 100467 MOV RO,-(SP) 
8 006031 104203 000003 MOV #3,R3 3; ALLOW ONLY 3 ERRORS 
9 006033 060007 STATLP: XFC STATUS 3; GET DRIVE'S STATUS 
10 006034 103201 014000 BIC #14000,R1 : CLEAR ERROR PASSING BITS 
11 006036 102201 000400 BIT #XMTERR, R1 ; CHECK XMIT ERRORS 
12 006040 BEQ STATOK 3; IF NO ERRORS, BRANCH 
006040 010000 006051 *010000,STATOK 
13 006042 117403 DEC R3 ; DECREMENT TRANSMIT ERROR COUNT 
14 006043 BNE STATLP ; IF ERROR COUNT INCOMPLETE, BRANCH 
006043 050000 006033 *050000,STATLP 
15 006045 104201 010000 MOV #10000,R1 3; FLAG AS TRANSMIT ERROR 
16 006047 BR STATEX 3 BRANCH 
006047 000000 006062 *00,STATEX 
17 006051 102201 000004 STATOK: BIT #RCVERR,R1 ; RECZEVER ERRORS 
18 006053 NE STATEX 3; IF VALID, BRANCH 
006053 050000 006062 Fee STATEX 
19 006055 117403 R3 3; DECREMENT ERROR COUNT 
20 006056 of f STATLP ; IF ERROR COUNT NON-ZERO, BRANCH 
006056 050000 006033 *050000,STATLP 
21 006060 104201 014000 MOV *#14000,R1 3; FLAG AS INVALID STATUS ERROR 
22 006062 STATEX: POP <RO, R3> ; RESTORE RO, R3 
006062 104267 MOV (SP)+,RO 


006063 104263 MOV (SP)+,R3 
23 006064 RETURN ; RETURN TO CALLING MODULE 
006064 000000 000000 “0 


SEQ 0207 | 


006066 


— 
NMS OONOUS wr 
oS 


nonronorn— — st od 
M900 GNOULW 
o i=] 
Ss =] So 
oa 
_ 
So 
So 


100467 


115001 
050000 


1 
100272 
117401 


030000 
104262 
104261 
104267 


000000 


002152 
002152 
000043 


006073 
002215 
000043 


177777 
002153 
000042 


006120 


000000 


002152 


eats DISK RESIDENT DMACR X04.01 19-AUG=-82 13:07:09 PAGE 54 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


poets HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 





;SEND REQUEST BUFFER TO HOST AND WAIT FOR RESPONSE. 
CLEAR ARGUMENT AREA OF OUT BUFFER IN PREPARATION 
FOR NEXT HOSTRO CALL. 


+ INPUTS: 


SNDAGN: 


CLRBUF : 


RO = HOST REQUEST NUMBER 
OUT BUFFER LOADED WITH DATA 


PUSH <RO,R1,R2> 


MOV RO,OUT.RQ 
MOV #OUT.RQ,RO 
MOV #BUFSIZ,R1 
MRD 
TST R1 
BNE SNDAGN 
— aon ae 
#IN.RQ,RO 
MOV meuFst?, R1 
MOV ei ,OUT.RQ 
MOV #OUT.01,R0 
oy | QUE SEE=T 6m" 
pe Ree (RO)+ 


Hy RBUF 
#030000, CLRBUF 
<R2,R1,R0> 


RETURN 
A 


MOV RO,=-(SP) 
fon R1,-(SP) 
V R2,-(SP) 
STORE REQUEST NUMBER IN. BuF FER 
SEND BUFFER TO HOST 


CHECK FOR ERROR 
IF ERROR, TRY AGAIN 


WAIT FOR RESPONSE FROM HOST 


MAKE REQUEST ILLEGAL 
CLEAR ARGUMENT WORDS IN BUFFER 
CLEAR ENTIRE BUFFER 


MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,R0 


SEQ 0208 


a 


UDAT2 DISK RESIDENT DMACR X04.01 19-AUG-82 13:07:09 PAGE 55 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


1 
2 
3 
4 
5 
6 
4 
8 
9 
10 
11 
12 006131 
006131 
006132 
13 006733 
14 006134 
15 006135 
16 006136 
17 006137 
006137 
18 006141 
19 006143 
006143 
20 006145 
21 006147 
006147 
$¢ 006151 
23 006153 
006153 
24 006155 
25 006157 
26 006157 
27 006161 
006161 
28 006163 
29 006166 
30 006170 
31 006172 
32 006174 
006174 
33 006176 
34 006177 
35 006201 
36 006202 
37 006203 
006203 
38 006205 
39 006207 
006207 
40 006211 
41 12 
42 Dosa 
43 006 3 
44 006217 
45 006221 


115000 
010000 


S 


Sere 
3s 


25D) 3 ee 
Mm 
S nw 
So 
N 


S853 
Ssuu 


& 
NM 
So 
— 


és 
ae 


006145 
100001 


006224 
002126 


006155 
001625 


006157 
001626 


002153 


INPUTS: 


OUTPUTS 


TALKER: 


TALK1A: 


1$: 
TALK1B: 


1$: 


2$: 


TALKER SENDS AND RECEIVES AN SDI INTERCHANGE 


Re = SDI INTERCONNECT 


RS = POINTER TO COMMAND TABLE CONTAINING APPROPRIATE COMMAND 
SDILTO/SDISTO SDI LONG AND SHORT TIMEOUTS, RESPECTIVELY 


RO = RETURN OP CODE FROM UNIT 
R3 = ERROR CODE = 0 = NO ERROR, 1 = RECEIVE ERROR, 100001 = SEND ERROR 


PUSH  <R1,R4> 
MOV (R3)+,RO 
MOV (R3)+_R1 
XFC SEND 
TST 1 
BEQ TALK1A 
“010000, TALK1A 
MOV #100001,R3 
BR TALK2 
“00, TALK2B 
CMP #LONG,R3 
BMI 
“070000, 1$ 
MOV SDISTO,R4 
BR TALK1B 
“00, TALK1B 

V SDILTO,R4 
TST SENDHR 
“010000,1$ 
MOV LUNIT,OUT.01 
CLR ouT.02 
CLR OUT.03 
MOV #TGMXER,RO 
CALL __ HOSTRO 
“020000, HOSTRO 
MOV (R3),R 
MOV 1(R35,R1 
XFC V 
TST R1 
BEQ TALK2A 
“010000, TALK2A 
CMP #1,R1 
BEQ 
“010000, 2$ 
MOV R1,R3 
BR TALK2B 
“00, TALK2B 

C RG 
BN TALK1B 
“050000, TALK1B 

V #1,R 


BR TALK2B 





; SAVE REGISTERS 


MOV R1,-(SP) 
MOV R4,-(SP) 
SET ADR OF SDI COMMAND BUFFER 
SET BUFFER LENGTH 
SEND COMMAND 
DID UNIT ACCEPT COMMAND 
IF SO, BRANCH 


3 FLAG AS SEND ERROR 
: BRANCH TO ExIT 


SEE IF LONG TIMEOUT TO BE USED 
IF SO, BRANCH 


; SET UP SHORT TIMEOUT 
; BRANCH 


SET UP LONG TIMEOUT 


; DO WE SEND HOSTRQ? 


IN NOT, CONTINUE 
SEND UNIT NUMBER 
NO 


NO ME ES 
SEND SOMETHING TO HOST 
SO HOST WON'T TIMEOUT DM PROG 


ET DATA BUFFER ADDRESS 
ET BUFFER LENGTH 

END RECEIVE SDI COMMAND 
ID ERROR OCCUR 

F NOT, BRANCH 

EE | 


E IF TIMEOUT 
IF SO, BRANCH 


oovt ERROR TYPE TO R3 FOR REPORTING 
DECREMENT TIMEOUT VALUE 
IF NOT TIMEOUT, BRANCH 


FLAG AS RECIEVE ERROR 
BRANCH TO EXIT 


SEQ 0209 | 


a 





: _ a 
tH DISK RESIDENT DMACR X04.01 19-AUG=82 13:07:09 PAGE 55-1 SEQ 0210 
~- HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


006221 000000 006224 org ane 
46 006223 114003 TALK2A: CLR R 3 FLAG AS NO ERRORS 
47 006224 TALK2B: POP <R4,R1> ; RESTORE R4, R1 
006224 104264 MOV (SP)+,R4 
5 104261 MOV (SP)+,R1 


48 006226 RETURN 
006226 000000 000000 “00,0 


— a C.-C + Cie > ee 


tdadedadeds 


ON AVEWN —CVOONOUSWwhR— 
vw 


at a ed mb nd et —_ —2 


° 
& 


SS 


° 
& 


000000 000000 





UDAT2 DISK RESIDENT DMACR X04.01 19-AUG-82 13:07:09 PAGE 56 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


i PERF ORM KOR LOGIC FUNCTION ON TWO REGISTERS 
"R1, R2 = DATA TO BE XOR'ED 


R1 = UNC 


HANGED 
R2 = XOR OF TWO INPUTS 


PUSH R3 


SET CONDITION CODES 


SEQ 0211 


~ 
& 
= 


z 


g 


z 


z 


PIII IU ES BS 


~ 
NNUVIWN =| NINO Ew 


BE 


233 


| 
NMorororfnoreryd 


WV FWN— COVOONOUSWwR— 
$5 


et 





000001 
000001 


006243 


000011 
006252 
000000 


UDAT2 DISK RESIDENT DMACR X04.01 19-AUG-82 13:07:09 PAGE 57 
HOSTRQ = HOST REGUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


SATE THE TIMEOUT IN 9SEC INTERVALS (SDI RECEIVE XFC TAKES 


MOV #7,R1 : SET UP LOG2 SHIFTER 

ROL R1 ; DOUBLE THE at VALUE 
BIC #1,R1 3 CLEAR THE LOW B 

DEC RO : chee COUNT. 

BNE 1$ : IF COUNT INCOMPLETE, BRANCH 
*050000,1$ 

CLR RO 3 CLEAR 9SEC COUNT 

INC RO ; INCREMENT 9 SEC CO 

UB #9. ,R1 3 SUBTRACT 9 SEC FROM TIMEOUT 
BPL 2$ ; IF MORE TIME TO GO, BRANCH 
*030000,2$ 

RETURN 3 RETURN TO CALLING PROGRAM 


| 


me ore eer or Be ee 
UDAT2 DISK RESIDENT DMACR X04.01. 19-AUG=82 13:07:09 PAGE. 58 SEQ 0213 | 


TRQ = HOST REQUEST ~ REPORT ERRORS, MEGABYTES TRANSFERRED, 


} :RERROR 
5 ‘REPORT ERROR TO HOST PROGRAM 
4 [THIS ROUTINE IS CALLED BY THE ERROR MACROS: 
2 TERRSF, ERRDF, ERRHRD AND ERRSFT 
7 006261 RERROR: PUSH RO ZSAVE ONE REGISTER 
006261 100467 MOV RO,=(SP) 
8 006262 104067 MOV SP,RO :GET STACK POINTER 
9 00626 PUSH <R1,R2,R3,R4> SSAVE MORE REGISTERS 
006263 100461 MOV R1,=(SP) 
006264 100462 MOV R2,-(SP) 
006265 100463 MOV R3,-(SP) 
006266 100464 MOV R4.=(SP) 
10 006267 115407 INC RO :CHANGE SAVED STACK POINTER TO POINT TO 
11 ADDRESS OF LOCATION AFTER CALL 
12 006270 104271 mov (RO) + RI iGET RETURN PC 
13 006271 104202 002153 #0uT.61,R 3GET ADDRESS OF WHERE TO PUT DATA 
14 006273 117401 DEC Rie SREDUCE TO PC OF ERROR CALL 
15 006274 100221 MOV R1,(R2)+ T PC IN OUT BUFFER 
16 006275 115401 INC R1 {GET BACK TO RETURN PC 
17 006276 104213 MOV (R1)+,R3 [GET CRROR NUMBER AND TYPE 
18 006277 100223 MOV R3, (R2)+ [PUT IN BUFFER 
19 006300 104303 001623 MOV LUNIT,R3 [PUT UNIT NUMBER IN BUFFER 
20 006302 100223 MOV RS (Re}+ 
21 006303 104113 MOV 3GET MESSAGE POINTER 
22 006304 103203 170000 BIC anc067777, R3 SCLEAR OTHER BITS 
3 0063 100203 MOV R3,(R2)+ [PUT IN OUT BUFFER 
4 006307 104214 MOV Ripe RG GET COUNT OF PARAMETERS 
5 1 IS NOW POINTING TO INSTRUCTION AFTER ERROR CALL 
26 006310 110704 SWAB R4 
27 006311 110604 ROR R4 ZEXTRACT NUMBER OF PARAMETERS FROM ERROR MACRO 
28 006312 110604 ROR R4 
29 006313 110604 ROR R4 
30 006314 110604 ROR R4 
31 006315 103204 177760 BIC #177760,R4 
32 006317 104040 006343 MOV R4,SPADJU+1 ZSAVE FOR LATER ADJUSTMENT OF STACK POINTER 
33 006321 BEQ RERRCA ‘BRANCH IF NO PARAMETERS 
006321 010000 006330 “010000,RERRCA 
34 006323 104273 RERRPA: MOV (ROS+,R3 :GET PARAMETER 
35 006324 100223 MOV R3,(R2)+ STORE PARAMETER IN OUT BUFFER 
36 006325 117404 EC R& [COUNT THE PARAMETERS 
37 006326 BNE RERRPA [GET NEXT IF MORE 
006326 050000 006323 “050000, RERRPA 
38 006330 100471 RERRCA: MOV R1,-(RO) yPUT RETURN ADDRESS ON STACK 
39 006331 104207 060013 MOV #ERRMES RO 7SEND ERROR PACKET TO HOST PROGRAM 
40 006333 CALL WOSTRO 
006333 020000 006066 020000 
41 006335 POP <R4.R3, Roe R1,R0> ZRESTORE REGISTERS 
006335 104264 MOV (SP)+,R4 
006336 104263 MOV (SP)+.R3 
006337 104262 MOV (SP)+_R2 
006340 104261 MOV (SP)+.R1 
006341 104267 MOV (SP)+-RO 
42 006342 105206 000000 SPADJU: ADD #0,SP : ADJUST STACK OVER PARAMETERS 
ALUE CHANGED ABOVE 
44 006344 RETURN 








G 1 
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HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


006344 000000 000000 “00,0 
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HOST REQUEST = REPORT ERRORS, sree TRANSFERRED, 


1 


SEQ 0215 | 
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HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


sMESSAGE STORAGE OVERLAY 


FREE: 


MS20 0: 
MS2001: 


MS2002: 
MS2003: 
MS2004: . 


MS2005: 


MS2006: 


mS2007: ; 


MS2008: 
MS2009: ; 
MS2010: 
MS2011: ; 


MS2012: 
MS2013: 
MS2014: 
MS2015: 


MS2016: 


MS2017: 
MS2018: 





3 FREE AREA STARTS HERE 
Erbe MS,0 
dC OUTPUT EDC FOR THIS OVERLAY 


“NLIST BEX 
-ASCII\"HOST SPECIFIED UNIT #*'D16"* THAT CAN'T BE FOUND."'N\ 
oASEHIV’ ‘TEST2 RESTARING' W\ 


ASCII“ CANNOT RECEIVE VALID DRIVE STATE FROM DRIVE AFTER DRIVE WAS INITED'N\ 
eye os IF DRIVE IS POWERED ON."'N\ 
-ASCII\"DRIVE STATE RECEIVED HAS BAD PARITY AFTER DRIVE WAS INITED'N\ 


oo 


-ASCII\"DRIVE IS NOT ASSERTING RECEIVER READY IN DRIVE STATE AFTER DRIVE WAS INITED 


So 


‘TIMEOUT ON SEND OF ECHO COMMAND TO DRIVE’'N\ 
* ECHO DATA ‘‘H8N\ 


‘ERROR DURING RECEIVE OF ECHO RESPONSE FROM DRIVE’'N\ 
* ECHO DATA ‘‘H8N\ 


‘ECHO COMMAND RESPONDED WITH DIFFERENT DATA'N\ 


s 

> 

un~< 
aon 

me 

oe 

“ 


ECHO DATA SENT''S6H16N\ 
ECHO DATA RECEIVED ‘‘H16N\ 


RROR BIT SET IN GET STATUS RESPONSE AFTER DRIVE CLEAR COMMAND’ 'N\ 
GET STATUS RESPONSE ‘'NR1\ 


“*TIME-OUT ON SEND OF ONLINE COMMAND TO DRIVE''N\ 

“ERROR DURING RECEIVE OF ONLINE RESPONSE FROM DRIVE''R1\ 

‘ONLINE COMMAND WAS UNSUCCESSFUL''NR1\ 

‘ONLINE COMMAND DID NOT RETURN EXPECTED RESPONSE CODE''N\ 

| EXPECTED RESPONSE = ‘'H8N\ 

“AF * ACTUAL RESPONSE''S4H8N\ 

“ASCII\"'TIME-OUT ON SEND OF GET UNIT CHARACTERISTICS COMMAND TO DRIVE''W\ 

oBSe LEN ERROR DURING RECEIVE OF GET UNIT CHARACTERISTICS COMMAND FROM DRIVE’'R1\ 

7 a ‘GET UNIT CHARACTERISTICS COMMAND WAS UNSUCCESSFUL''NR1\ 

ASCIIN''GET UNIT CHARACTERISTICS COMMAND DID NOT RETURN EXPECTED RESPONSE CODE’W\ 
ASCII\'* EXPECTED RESPONSE *H8N\ 

“ASCLIN" ACTUAL RESPONSE*'S4H8N\ 

"ASCIIN" HOST PROGRAM GAVE DM CODE IMPROPER DATA'N\ 

eASCII\'’ EXPECTED VALUE SHOULD ~ BETWEEN 0 AND 3°'W\ 

A ACTUAL VALUE WAS ‘‘O8N\ 

eASCII\’'TIME-OUT ON SEND OF DIAGNOSE COMMAND TO DRIVE''N\ 


-BYT 
“acts! CAROR DURING RECEIVE OF DIAGNOSE RESPONSE FROM DRIVE''R1\ 


cme bee Dae tet bay, tag bee oon] 
7 bl 
“ni 


m 
, ee te eh eh el eh a a 


ees 
>> 

<Annm 
ASOLO 
ts ts tee FTV 
fey feet tow 
~~ 

. — — 


m 
So 
jodionto 


SEQ 0216 | 


HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
34 Oot ste 042 104 111 MS2019: a7 ee ‘DIAGNOSE COMMAND WAS UNSUCCESSFUL''NR1\ 


UDAT2 DISK RESIDENT DMACR X04.01 19-AUG-82 13:07:09 PAGE 60-1 SEQ 0217 | 


001335 000 ° 
59 001336 042 104 111 MS2020: "ASCII DIAGNOSE COMMAND DID NOT RETURN EXPECTED RESPONSE CODE’'N\ 
60 001372 042 040 040 eASCII\’’ EXPECTED RESPONSE ‘'H8N\ 

001407 042 040 040 eASCII\"’ ACTUAL RESPONSE''S4H8N\ 
62 001423 000 -BYTE 0 
63 001424 042 104 122 MS2021: .ASCII\' DRIVE grt le 1 A HARD ERROR''WN\ 
64 001450 042 040 040 eASCIIN'' TEST wee “HION\ 
635 001462 04 040 040 -ASCII\" DRIVE T YPE  *"H8N\ 
66 001474 042 040 040 eASCIIN\’' ERROR NUMBER sHION\ 
67 001507 122 062 eASCII\R2\ 
68 001510 000 -BYTE 0 
4 potent 93 110 117 MS2022: =" famed PROGRAM DOWN LINE LOADED A DIAGNOSTIC WITH A ZERO BYTE COUNT’'N\ 
a Solesn 93 104 111 MS2023: y ~" shal ommpagaes *"A6"’ REQUESTED BY THE DRIVE COULD NOT BE SUPPLIED BY HOST."N\ 
e paige! 23 124 111 MS2024: a. ON SEND OF MEMORY READ COMMAND TO DRIVE'W\ 
es Oo1e33 083 105 122 MS2025: wt he DURING RECEIVE OF MEMORY READ PESPONSE FROM DRIVE’'NR1\ 
As tre 933 115 105 MS2026: -ASCIIN" MEMORY READ COMMAND WAS UNSUCCESSFUL’'NR1\ 
79 001737 042 115 105 MS2027: .ASCII\’ MEMORY READ COMMAND DID NOT RETURN EXPECTED RESPONSE CODE''N\ 
80 001775 042 040 040 ~ASCII\"' EXPECTED RESPO NSE ‘'HEN\ 
81 002012 042 040 040 eASCII\'’ ACTUAL RESPONSE*'S4H8N\ 
82 002026 000 -BYTE 
34 gosvet 93 124 111 MS2028: “ASCII\’ ‘TIME-OUT ON SEND OF MEMORY WRITE COMMAND TO DRIVE''N\ 
7H ates Boe 105 122 MS2029: “ASCII\ERROR DURING RECEIVE OF MEMORY WRITE RESPONSE FROM DRIVE''R1\ 
44 On5 Se 93 115 105 M™S2030: vst hl MEMORY WRITE COMMAND WAS UNSUCCESSFUL''NR1\ 
89 002147 042 115 105 MS2031: .ASCII\'’ MEMORY WRITE COMMAND DID NOT RETURN EXPECTED RESPONSE CODE’'N\ 
90 002205 042 040 040 eASCII\'' EXPECTED RESPONSE ''H8N\ 
91 002222 042 040 040 “ASCII\" ACTUAL RESPONSE’ 'S4HBN\ 
92 002236 000 -BYTE 0 
93 002237 042 124 111 MS2032: .ASCII\’TIME-OUT ON SEND OF RUN COMMAND TO DRIVE''W\ 
94 002264 C00 -BYTE 0 
44 oo6e62 Bae 105 122 MS2033: ats t) wane DURING RECEIVE OF RUN RESPONSE FROM DRIVE''R1\ 
44 OoSsty 3 122 125 MS2034: ar, COMMAND WAS UNSUCCESSFUL''NR1\ 
99 002340 042 122 125 MS2035: .ASCII\’'RUN COMMAND DID NOT RETURN EXPECTED RESPONSE CODE’'N\ 
100 002372 042 040 040 ASCII\’’ EXPECTED RESPONSE ‘'H8N\ 
101 002407 042 040 040 “ASCII\" ACTUAL RESPONSE’ 'S4H8N\ 
102 002423 000 -BYTE 
162 op eese a3 124 111 MS2036: oneal) VINE-GUT ON SEND OF RECALIBRATE COMMAND TO DRIVE''W\ 
<4 apes 93 105 122 MS2037: -ASCIIN“ERROR DURING RECEIVE OF RECALIBRATE RESPONSE FROM DRIVE''R1\ 
44 Oo5ea6 23 122 105 MS2038: “ASCII\"RECALIBRATE COMMAND WAS UNSUCCESSFUL’'NR1\ 
109 002541 042 122 105 MS2039: .ASCII\"'RECALIBRATE COMMAND DID NOT RETURN EXPECTED RESPONSE CODE''W\ 
110 002577 042 040 040 -ASCII\’’ EXPECTED RESPON 
111 002614 042 040 040 ASCII\"* ACTUAL RESPONSE*'S4H8N\ 
112 002630 000 “BYTE 0 . 
113 002631 042 124 117 MS2040: .ASCII\'’TIME-OUT ON SEND OF GET STATUS COMMAND TO DRIVE''W\ 





114 00266 

115 00266 

116 002720 
117 002721 
118 002745 
119 002746 
120 003003 
121 003620 
122 003034 
123 003035 
124 003066 
125 003067 
126 003124 
127 003125 
128 003351 
129 003152 
130 003210 
131 003225 
132 003241 
133 003242 
134 003243 
135 003301 
136 003313 
137 003325 
138 003340 
139 003341 
140 003342 
141 003373 
142 003374 
143 003422 
144 003423 
145 003452 
146 003453 
147 003453 
148 003513 
149 003514 
150 003514 
151 003554 
152 003555 
153 003555 
154 003611 
155 003612 
156 003612 
157 003652 
158 003653 
159 003701 
160 00372 

161 003736 
162 003747 
163 003760 
164 003771 
165 003772 
166 004004 
167 004005 
168 004022 
169 004023 
170 004034 





MS2041: 
MS2042: 


MS2043: 


MS2044: 
MS2045: 
MS2046: 
MS2047: 


MSG1: 


MSG2: 
MSRO: 
MSR1: 
MSR2: 


MSR3: 


MSR4: 


MSRS: 


ER5000: 


UDAT2 DISK RESIDENT DMACR X04.01 19-AUG=82 13:07:09 PAGE 60-2 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


“ASCII\"ERROR DURING RECEIVE OF GET STATUS RESPONSE FROM DRIVE''R1\ 
-ASCII\"GET STATUS COMMAND WAS UNSUCCESSFUL''NR1\ 
“ASCIIN"GET STATUS COMMAND DID NOT RETURN EXPECTED RESPONSE CODE'W\ 
-ASCII\"’ EXPECTED RESPONSE ‘‘H8N\ 
-ASCII\" ACTUAL RESPONSE’ 'S4H8N\ 
“ASCII\"*TIME~OUT ON SEND OF DRIVE CLEAR COMMAND TO DRIVE''N\ 
“ASCII\" ERROR DURING RECEIVE OF DRIVE CLEAR RESPONSE FROM DRIVE''R1\ 
“ASCII\"DRIVE CLEAR COMMAND WAS UNSUCCESSFUL''NR1\ 
SASCII\'DRIVE CLEAR COMMAND DID NOT RETURN EXPECTED RESPONSE CODE’'N\ 
~ASCII\'’ EXPECTED RESPONSE ‘‘H8N\ 
-ASC ** ACTUAL RESPONSE’ 'S4H8N\ 
: \AGN\ 
\""INFORMATION SENT BACK FROM THE DRIVE IS BEING PRESENTED.'W\ 
\'"" TEST NUMBER ‘'H16N\ 

DRIVE TYPE ‘‘H8N\ 
ERROR NUMBER ‘'H16N\ 
-ASCII\R2\ 
-ASCII\"FOLLOWING REPORT HAS BEEN TRUNCATED DUE TO SIZE"'N\ 
ASCII\N' TIMEOUT ERROR OCCURED DURING RECEIVE XFC''N\ 


“ASCIINN IST WORD NOT START FRAME DURING RECEIVE XFC’W\ 


o-oo 


SASCIIAN\ 

“ASCIIN" FRAMING ERROR OCCURED ON SDI LEVEL 0 READ DURING RECEIVE XFC'W\ 
“ASCIIAN\ 

“ASCIIN"'CHECKSUM ERROR OCCURED ON SDI LEVEL 0 READ DURING RECEIVE XFC'W\ 
SASCIINN\ 

-ASCIIN'BUFFER SIZE SMALLER THEN RESPONSE DURING RECEIVE XFC''N\ 
“ASCII\N\ 

-ASCIIN"CODE FROM RECEIVE XFC WAS UNINTELLIGIBLE FROM SUBSYSTEM ‘‘H16N\ 
“ASCII \"UNABLE TO FIND REQUESTED DRIVE FOR TESTING'N\ 

-ASCII \"THE FOLLOWING 1S VISIBLE ON THE PORTS N\ 

“ASCII \"UDA PORT 0 == 'RI\ 

“ASCII \"UDA PORT 1 == "'RI\ 

“ASCII \"UDA PORT 2 == “RI\ 

ASCII \"UDA PORT 3 == "RI\ 

“ASCII \"NO DRIVE ATTACHED''N\ 

ASCII \"'RCVR RDY NEVER ASSERTED’ 'N\ 

“ASCII \""TIMEQUT OF SEND'N\ 

"BYTE 0 


SEQ 0218 


| ties ae 
UDAT2 DISK RESIDENT DMACR X04.01 19-AUG=82 13:07:09 PAGE 60-3 SEQ 0219 


TRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
171 004035 042 124 111 SER13: . ASCII \"TIMEOUT OF RECEIVE''N\ 


172 006047 000 “BYTE 0. 
173 004050 042 106 111 SERI4: ‘ASCII \"FIRST WORD RECEIVED WAS NOT START FRAME‘N\ 
174 006075 000 “BYTE 0, ; 
175 004076 042 106 122 SERIS: ‘ASCII \"FRAMING ERROR ON LEVEL 0 RECEIVE'N\ 
176 004117 000 “BYTE 0. 
177 004120 042 103 110 SERI16: ASCII \"CHECKSUM ERROR ON LEVEL 0 RECEIVE'N\ 
178 004142 000 “BYTE 0, 
179 004143 042 «= 122, =S 105s SERI7: ASCII \"'RESPONSE LONGER THAN EXPECTED FOR CMD''N\ 
180 004167 000 “BYTE 0. 
181 004170 042 106 122 SERI8: ‘ASCII \"DRIVE "'R1\ 
182 004175 000 -aYT al 
183 004176 104 += 0061S «062s SERTBD: SASCIZ \D12", '"\ ; NOTE: THE STRING WITHIN THE \\"S <cHUST>> 
184 004202 106 061 062 SERI8C: <ASCII \DI2" '\ ; BE AN EVEN NUMBER OF CHAR, BECAUSE THE 
185 004206 106 061 062 SERI8B: :ASCII \D12". ‘\ ; LABELS WILL FORCE WORD ALINGMENT, LEAVING 
186 004212 104 061 062 SERI8A: :ASCII \D12N\ ; JUNK IN THE LAST BYTE. (SER18A Ok TO BE ODD) 
187 004214 000 “BYTE 
188 004215 042 1046 122 SERGO: ‘ASCII \"DRIVE NOT AVAILABLE TO THIS UDA'N\ 
189 004236 000 “BYTE 0. 
190 004237 9 042, 125°=Ss«116 «SERGI: ASCII \"'UNSPINABLE DRIVE ‘'R1\ 
191 004251 000 “BYTE ; 
192 004252 9042S 122,105 STATO: SASCII\"'REAL TIME STATE"S2HI6ON\ 
193 004265 042 123 124 ~ASCLIN''STATUS (R TO L)''S2H16S2H16S2H16S2H16S2H16S2H16S2H16N\ 
194 004320 000 “BYTE 0 
195 004320 DMEND 
004321 013364 »WREDC OUTPUT EDC FOR THIS OVERLAY 
96 000001 “END 








UDAT2 DISK RESIDENT DMACR x04.01 19-AUG-82 13:07:09 PAGE 60-4 
SYMBOL TABLE 


ARGS$ = 000003 
ATTN = 000002 


DRVCLR= 000005 


—b 


GCR 116 
GETBCN 005536 
GETCHR= 000207 
GETST 001647 


HIBYTE= 17740 
HICYL = 000001 
IDBN = 000003 
HILBN = 000002 
HIMEM = 037777 
HIRBN = 000003 
IXBN = 000002 
HOSTRA 006066 
HRDREV= 000003 
ILOOP 003153 
INR 002151 
INSEEK= 000012 
IN.RQ 002215 
IN.01 002216 
IN.02 002217 
IN.03 002220 
IN.04 002221 
IN.05 002202 
IN.06 002223 
IN.07 002206 
IN.08 002225 
IN.09 002226 
IN:10 002227 
IN.11 002230 
IN-1g 002851 
IN.13 002232 
IN.14 002233 
IN.15 002234 
IN.16 002235 
IN.17 002236 
IN.18 002237 
IN.19 002240 
IN.20 002241 
IN-21 002248 
IN.22 00224 
IN.23 002244 
IN.24 002245 


Pat few bs ot Png Sn me at an 
FPBZSZZZSZSZZZZSS]! 
eeeeeseeeeese 
WWIWnononononyg 
SWIM OVOOnawn 

i=) 

o 

Im 


0 
IRECLB= 0002 
R 00 


MRD = 6009) 
MSG1 00324 
MSG2 003342 
MSRO 003374 
MSR1 003423 
MSR2 003453 
MSR3 003514 
MSR4 003555 
SR5 003612 
MS2000 000000 
MS2001 000043 
MS2002 000126 


MS2010 0005 

MS2011 000607 
mseol¢ 000674 
MS2013 000735 
MS2014 001001 
MS2015 001035 
MS2016 001133 
MS2017 001224 
MS2018 oat ees 
msn) 001312 
MS2020 001336 


me 2021 


T.07 


Nie Seat ty 2 tet #4 oO 
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| Svr@OL TABLE 
OUT.23 RDM 002100 SEND = 000004 ST.DIA 003531 T2STRT 002760 
OUT.24 002202 RDMEM 00464 SENDHR 001622 ST.DR = 000040 14881 = 060005 
0U1.25 002203 RDM.EN= 00016 SER10 003772 ST.ERR= 000002 T4BB2 = 060006 
OUT.26 002204 RDM. OP= 900215 SER11 004005 ST.FE = 000200 T4MPRM= 06000 
OUT.27 002205 ROSTAT 0060 SERIE 004023 ST.FO = 002000 T4MXFR= 060011 
OUT.28 002206 rED sted SER13. 004035 ST.MOD= 000001 T4SEEK= 060010 
OUT.29 002 RECAL 005146 SER14 004050 ST.MSK= 000000 T4SOFT= 060007 
|QuT.30 002¢10 REGS$ = 177777 SER15 004076 $T.0A = 000200 T4UPRM= 060004 
'OUT.31 00 REGUS = 000001 ER16 004120 ST.PE = 000040 UDADM2= 001000 G 
|QUT.32 00 RERRCA 006339 SER17 004143 ST.PS = 000002 UDASO = 600000 
7.33 002213 RERROR 006261 R18 004170 ST.RE = 000100 UDA52 = 000001 
7.34 002214 RERRPA 006323 SER1BA 004212 ST.RR = 000100 UNITNB 001411 
OVERFL= 00 ETS = 000001 ER188 0042 ST.RTY= 000003 ITS 001371 
OVE .MN= 001364 REVECT= 000004 SER18C 004202 ST.RU = 000001 UNITO = 000001 
OVE .MS= 0000 REVS = 000007 SER18D 004176 $T.SR = 000020 UNIT1 = 02 
OVL.MN= 004763 = 000004 SER18E 001630 ST.STA= 000001 1T2 = 000004 
OVL.MS= 004322 RREAL = 013400 SER4O 004215 ST.S7 = 000400 1T3 = 000010 
OVS.MN= 001040 002143 SHRTTO= 0000 ST.WE = 000010 EAD = 000013 
OVS.MS= 013006 RUNDR 005052 SNDAGN 006073 5 = 000013 UTOTST= 060012 
vee = 0119725 RWRDY = 100000 SPADJU 006342 TALKER 006131 ITE= 000014 
PHYSA = 001 RW.ANG= 000006 SS = 0001 TALKIA 6145 WAITSI= 000012 
PORTO 3056 RW.BUF= 000001 ST 01415 TALK1B 6157 WBUFLN= 000401 
PORT2 003057 RW.CMD= 000004 STACK 002320 TALK2A 006223 WCONT = 0400 
PORTS 003113 W.HI = 000003 START 002321 TALK2B 006224 WREAL = 122400 
PORT4 003123 RwW.LOW= 000002 STATEX 006062 EST 003146 Write 002632 
PORTS 003133 RW.SDI= 000005 STATLP 006033 TESTEX 003773 WRM 001 
MS = 000002 RwW.STA= 000000 STATOK 006051 TESTX 003127 WRM.OP= 000017 
PTYPES= 000020 SAFWRD 001627 STATUS= 000007 TIMEOU= 000001 WRONG = 
RENTRK= 0 SAVREG 001624 STATO 004252 TO 006241 WRIMEM 004751 
RBUFLN= 000415 SAVRID 001414 STOSTA 005437 TOOBIG= 000001 WSTOP = 14 
RCONT = 000600 SAVSTA 001413 STSIZE= 000200 TRKGRP= 000003 XBNCYL= 000021 
RCTCPS= 000001 SBCRES= 000167 STSRES= 000366 TYPERR 005674 XFERRT= 
RCTCSZ= 000014 SDI 1412 ST.C = 000002 003511 XMTERR= 000400 
RCV = 000005 SDILTO 001626 ST.CON= 000602 TIMSIZ= 060000 XOR 006230 
RCVERR= 000004 SDISTO 001625 $T.DB = 001000 T2CMD = 060002 XREAD = 000002 
RCVRDY= 000001 SDIVER= 000000 ST.DF = 000020 T2DLL = 060001 XWRITE= 000003 


- ABS. 023652 000 
000000 001 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 16193 =} mi 64 PAGES) 


DYNAMIC MEMORY AVAILABLE FOR 
|B: UDAT?.052,8:UDAT2.L52/C=[30, 30 JDMAC52/M,B:UDAT2 








+ 
SEQ 0222 | 
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CROSS REFERENCE TABLE (CREF V04.00 ) 


44-14 44-21 44-21 45-14 45-21 45-21 


43-40 


o 
wv 
‘ 
La] 
w 





43-18 


39-76* 


| 
| 


SEQ 0223 


2 
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CROSS REFERENCE TABLE (CREF V04.00 ) 





4-8 4-9 4-10 4-11 4-12 4-13 4-14 


4-7 


47-32 


47-30 








a a ee - — -_— —_ 


0 
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CROSS REFERENCE TABLE (CREF V04.00 ) 


46-214 46-29 46-29 46-29 46-294 46-31 46-31 4 
47-21 3-5) 47-214 47-29 47-29 47-29 47-294 4 


ERSOFT 4=53# 
EX.END 46-33 56-73" 
EXIT OF 25-43 


8 47-18 47-184 47-21 | 


eEDC =: 1=11 
FCTSIZ 3-364 
FFFC 18-634 32-6 
FFFD 18-63 18-644 18-65 38-21 | 
FFFE 18-654 
FNDASC 40-13 40-23 52-29% 
FORMAT 2=4# 
FRAME 3-664 
FREE 60- | 
FSTOP = 1=129# 
FT.BUF 11-1024 
FT.HI 1-1034 
T.LOW 1-104# 
FTLDEV 4-514 25-38 | 
FTILSYS 4-50# 
GCC.EN 18-544 
19-30 19-314 | 
GETBCN 37-19 50-294 
GETCHR 4-364 18-514 19-31 
GETST 19-12 19-134 | 
GETSTA 4-384 19-13 
GETSUB 4-374 
GRPCYL 3-254 | 
POFF 3-384 


GSTS? 39 30-42 30-44 30-49 30-524 
GT.CMD 32-234 32-37 33-28 34-24 5-18 
GTSTAT 30-6 30-16 38-11 46-94 
HINB 9 3-56# 23-10 
ONB 9 3-57# 
HD.BAD 1-1424 
-DBN = 1-1454 
HD.LBN 81-1394 
-PRV 11-1434 
HD.RBN 11-1404 
HD.REV 1-1414 
-XBN «1-144 
HDRPRE .-i36 
HIBYTE “5 26-31 29-13 34-20 49-30 49-36 50-33 50-38 50-75 
HICYL a4 
HIDBN ~ 
HILBN ~26# 
HIMEM 1-884 
HIRBN a 4 
HIXBN _ 
HOSTRQ 24- 25-40 25-42 27-44 32-25 37-33 39-17 50-53 54-24 55-32 58-40 








2 
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CROSS REFERENCE TABLE (CREF V04.00 ) 








28-208 8-25 8-36 
01 =20=454 4-6 $99 2-36 $-7 $3.39 
. 20-464 =19* “11 4-10 6-1 9-77* 3981+ 
. 20-474 =12 4-11 

20-484 =13 


2222222222222 2222222222222222222222°- 


DAWN WNIDRIDINPINININININDINID 2 A tO Oo 
SRUN=SS 


54-19 





emg dom Peed Dene fut Samed feng Sg Soa Pay fee Bek Gag feet et Pant md Peed Oma fad Dt md Cd eed bed Pd eed free ad fd Ped bed Senn Dome fem Set Pee 


27-28 31-25 31-29 


39-44 39-48 49-32 


27-24% 33-24 34-16 37-33 39-6 41-5 


50-53 





50-53 


55-28 58-19 


SEQ 0225 
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CROSS REFE 


RENCE TABLE (CREF V04.00 ) 








UDAT2 DISK RESIDENT DMAC 
CROSS REFERENCE TABLE (C 


OUT.11 


NONONONY 2 = so ot oe 


27-30 


1-674 


EF 


9-AUG=82 13:07:09 PAGE S-6 ie 


X04.01 19- 
v04.00 ) 


50-534 

47-25 

32-15* 33-24e 34-16% 37-33% 39-5 41-5* 30-38 
$5_38° 33-23% 34-17% 37-33% 41-8 41-10* 50-53 
33-25% 34-21% 41-12% 55-30* 

33-26% 34-22* 41-13* 

33-27* §=—34-23* 8937-11 48-6 


50-36 50-72 50-75*  50-77* 


50-59 
25-39 54-13% 54-14 54-22 
1-674 60-4 60-4 60-4 60-44 60-195 60-1954 
60-4 60-44 60-195 60-1954 
0-4 60-4 60-44 
60-1954 


1-67 1-67 1-674 
7-10# 





50-53* 
55=29* 


50-55 


54-23 


55=28+ 


SEQ 0227 


58-13 


SEO 0228 | 


04.00 ) 


CROSS REFERENCE TABLE (C 


~ 
a 
” 
uJ 
oO 
<x 
a 
a 
So 
~ 
So 
~ 
- 
~N 
co 
‘ 
o 
P| 
<= 
r] 
o 
- 
- 
So 
e 
Sa 
Pa 
ud 
ca 
rw) 
=< 
= 
So 
fe 
z 
w 
oa 
— 
” 
tu 
e 
4 
” 
eat 
oa 
~~ 
i 
s 


bo a 
pee et oi badd Gy tieh hick act NG 
BOOS ORR ROS SUMMING ODOR 
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CROSS REFERENCE TABLE (CREF V04.00 ) 


RCVRDY 


REGUS 


RERRCA 
RERROR 


4-214 
19-25 
18-524 
18-494 


18-144 


8-33 


38-8* 
26-31* 
40-25 


30-240 


27-34% 


47-21 


38-14% 
26-32 
40-25 


39-81 
30-29 


28-13 


34-12* 


89 


29-33 
42-44 


32-2 
35-5 





374% 


29-33* 
42-44% 


35-2 
35-10 


37-5* 


8-284 


58-7# 


30-50 
43-40 


35-6 
35-16 


37-6* 


36-15 


37-18 


28-374 
29-334 


31-224 
42-44 
46-314 


0-38 
9-30 
45-9 


37-10 


38-21* 


37-23 


38-22* 38-23 


9-24 9-244 
0-27 0-274 
30-50 30-50 
31-22 31-22 
32-364 32- 
36-40 36-40 
40-25 40-25 
42-428 = 42-44 
43-30 43-304 
44-94 44-12 
44-218 44-218 
-21 45-21 
46-31 46-31 
47-29 47-298 
32-36 32-364 
42-448 43-40 
47-31 47-314 
30-48 30-50 
42-30 42-34 
45-19 45-21 


32-36 32 
st U3 


38-4 38-28 


50-82* 


36-40 
46-31 


39-53 


SEQ 0229 


36-40" 
46-31* 


41-4 


' 
| 






42-23 43-19 

SDILTO 18-384 31-51 
SDISTO 18-37# 31-4* 
DIVER 3-48 
SEND goth, 22043 
SENDHR 18-314 36-12% 
SERIO 22-20 60-1654 
SER11 22-29 60-1674 
SERI2 22-49 60-16 
SERI3. 22-65 «60-1714 
SERI4 22-71 60-1734 
SERIS 22-75 60-1754 
SERI6 22-79 «= 60-177 
SER17 22-81 60-1794 
SERIB 25-78 60-1814 
SERI8A 18-41 18 
SER18B 18-42 60-1854 
SERIBC 18-43 60-1844 
SERI8D 18-44 60-18 
SERIBE 18-414 25-26 
SERGO 22-34 60-1884 
SER41 25-16 60-190" 
SHRTTO 3-3# 31-24 
SNDAGN 54-144 54-18 
SPADJU 58-32" 58-42# 
SS 3-94 
ST 18-214 = 19-12 

1-28 34-18 

9-49e 41-12 

2-30# 
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48-9 

55-24 

31-27* 55-22 

55-15 

36-17% 37-3* 55=26* 

Re ee he ee i ie 
= - = - - * =~ we 

48-13 48-16 49-28 50-4 35-86 





19-43 
39-10 


19-45 
39-12 


23-8 
39-14 


30-20 
39-31 


30-21 
39-42 


SEQ 0230 | 


31-24 
39-48+ 






FE 
STATLP 53-98 53-14 
STATOK 53-12 53-178 
STATUS _2-10# 48-1 
STOSTA 30-26 30-47 


TIMSIZ 4-34 
4-54 32-24 
T2DLL 4-48 39-16 


WBUFLN 11-1554 1-156 
64 


53-20 


32-6* 
39-45« 


31-21 


55-474 
42-24 


27-39 
24-19 
36-35 


32-7* 
39-50 


43-184 


42-41 


31-244 


43-20 


32-8* 
39-58* 





SIDENT DMACR X04.01 19-AUG-82 13:07:09 PAGE S=-10 
CE TABLE (CREF V04.00 ) 


43-37 


44-5 


44-11 
17-10 


25-7 
43-35 


32-9 
39-75* 












44-18 


45-5 


45-11 
58-46 


25-36 
44-16 


32-10* 


45-18 


46-11 


46-20 


33-11* 


46-28 


47-11 


47-20 


27-13 
46-26 


33-12* 


47-28 


55-124 


51-164 


47-26 


33-17% 


48-44 


33-18* 33-19 


39-48 


SEQ 0231 


39-219 





UDAT2 DISK RESIDENT DMACR X04.01 1 
CROSS REFERENCE TABLE (CREF V04.00 


XBNCYL aby 


XFERRT 
XMTERR 4-254 53-11 
xOR 56-114 

EAD 2-54 


viwe-se 13:07:09 PAGE S-11 


SEQ 0232 


SEQ 0233 | 
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CROSS REFERENCE TABLE (CREF V04.00 ) 





51-33 
46-31 
52-36 


51-29 
45-21 
52-32 


51-25 
44-21 


51-21 
43-40 


47-15 
45-8 
42-44 


46-15 
44-8 
40-25 


43-24 
39-33 
40-25 


42-28 
31-9 
40-25 


36-21 
30-37 
36-40 


23-27 
32-36 


21-5 
22-78 
31-22 





aaceenenmeapener oe ee re 
ion DISK RESIDENT DMACR X04.01 19-AUG-82 13:07:09 PAGE M-2 


CROSS REFERENCE TABLE (CREF V04.00 ) 
a 5-178 19-12 19*15 19-19 19-25 19-30 19-33 19=39 19=43 
OVTERM 1-67 1-674 1-674 60-4 60-44 60-195 


PARGS. _9-33# 26-41 $2.53 9-26 9-33 29-33 30-41 30-41 30-50 
24-78 36-27 6-27 6-40 6-40 40-25 40-25 40-25 42-34 
43-40 43-40 44-12 44-12 44-21 44-21 45-12 45-12 45-21 
47-21 47-21 47-31 47-31 

POP 7-118 = §=—22=44 22-64 22-67 23-4 23-17 23-34 24-15 4-24 
49-45 50-53 90-83 52-22 53-22 54-29 55-47 56-16 8-41 

PUSH 7-34 22-15 22-41 22-52 23-11 24-10 25-15 25-29 37-33 
52-13 53-7 54-12 55-12 56-11 58-7 58-9 

RETURN 11-58% 36-43 41-17 42-50 43-45 44-25 45-25 46-35 48-19 
52-40 52-44 52-46 53-23 54-30 55-48 56-18 57-15 58-44 

diy ivte 29-33 30-50 31-22 32-36 36-40 40-25 42-44 43-40 


SAVRS 10-14 29-33 30-50 31-22 32-36 36-40 40-25 42-44 43-40 
Tt LKX 1 6-34 


UDAT2 DISK RESIDENT DMACR X04.01 19-AUG-82 13:10:12 
TABLE OF CONTENTS 


2- 76 UDA DM PROGRAM PARAMETERS 
IONS 


DIVIDE BY OCTAL 50 AND FIND ASCII CouivaLent 
RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 


6- 13 MACRO DEF INIT 
18- 1 START OF TEST CODE 
19- 1 PROGRAM VARI 
20-1 SDI COMMANDS USED FOR Me 2 
20- 9 OMMAND BUFFERS FOR SEND XFC 
$3: i by A REA FOR MAINTENANCE WRITE AND READ BUFFERS 
es> GETU POLL ALL PORTS, THEN GET UNITS TO TEST 
e7- 1 TEST 2 START TESTING 
28- 1 SEQUENCE THE DIAGNOSTICS TO ALL UNITS SELECTED 
ee 61 INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
30- 1 ECHO DATA TO DRIVE 
Si- (1 GET STATUS COMMAND 
a GET DRIVE CHARACTERISTICS 
3s- 1 CHECK WHICH COMMAND HAS BEEN GIVEN 
34-1 MEMORY WRITE 
 : en | MEMORY READ 
ee SEND DIAGNOSE COMMAND 
37-1 TEST 2 SPECIFIC go ttt: 
37-2 DIAGNOSE COMMAND PROCESSING 
bee | DIAGNOSE/READ MEMORY TO ste IF ERROR OCCURRED 
39-1 DIAGNOSE/DO A DRIVE CLEAR 
40- 1 DIAGNOSE/GET PROGRAM NAME SPECIFIED BY DRIVE AND DOWNLINE LOAD 
4i- 1 DIAGNOSE/REPORT ERROR == NO DOWNLINE LOAD PROGRAM 
42- 2 DIAGNOSE/SET UP ft ge TO HOST AND EXIT 
43- 1 READ MEMORY SUBROUTINE 
44-1 WRITE MEMORY SUBROUTINE 
45- 1 (OR SPIN UP) COMMAND 
46- 1 RECALIBRATE C iD 
47- 1 GET STATUS SUBROUTINE 
48- 1 CLEAR DRIVE SUBROUTINE 
49- 1 STORE STATUS ROUTINE 
50- 1 CONVERT ger! =~ SKEWED BY BYTE 
Si- 1 GET BYTE COUNT 
52- ! TYPE WHAT KIND OF RECEIVE ERROR 
i 
1 


SEQ 0234 


B 3 
UDAT2 DISK RESIDENT DMACR X04.01 19-AUG=82 13:10:12 PAGE 2 SEQ 0235 
DIAGNOSTIC MACHINE MACROS = OVERLAY VERSION WITH ‘RELOCATION’ 


~TITLE UDAT2 DISK RESIDENT 


COPYRIGHT (C) 1981 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


TO E N EPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DIGITAL ASSUMES NO RESPONSIB 
ITS SOFTWARE ON EQUIPMENT WHI 


FOR THE USE OR RELIABILITY OF 


ITY 
IS NOT SUPPLIED BY DIGITAL. 


IL 
CH 


WONAUSWN OO OONAULSWN OC OONOUS Wh 


Wr 


000001 UDASO=1 

000000 UDAS2=0 
sTHIS PROGRAM SHALL BE ASSEMBLED WITH THE PROGRAM DMACRO 
USING A COMMAND LINE SIMILAR TO: 


te ey ie thee ph Ath ah tN gy fr pp ad ad cad ed ed cd ocd 
Ww w 


3 : UDAT2.BIN,UDAT2/C=C1,2]DMACRO,UDAT2 
72 000000 DMCODE UDADM2,0,714,3,0,1000 
26 .SBTTL UDA DM PROGRAM PARAMETERS 
78 LIST MEB 
29 003720 ERRN=2000. ;START ERROR NUMBERS AT 2000. 
81 ; EQUATES 
8s ; HIGHEST USABLE LOCATION OF UDA MEMORY + 1 
93 007774 HIMEM = 7774 : HIGH MEMORY+1 
34 007774 OVSTRT = 7774 : OVERLAY ADDRESS LOCATION 
99 ; 
100 : OFFSETS FOR FORMAT TRACK TABLE 
102 000000 FT.BuF = 0. ;BUFFER POINTER OFFSET 
10 000001 FT.HI = 1. SHI ORDER HEADER OFFSET 
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UDA DM PROGRAM PARAMETERS 








104 000002 FT.LOW = 2. yLOW ORDER HEADER OFFSET 
106 ; 

107 : OFFSETS FOR FORMAT TRACK BUFFER 

109 000000 FB.DAT = 0. sFIRST DATA WORD OFFSET 

110 000400 FB.EDC = 256. TEDC WORD OFFSET 

112 ; 

M13 ; OFFSETS FOR READ/WRITE 1/0 CHAIN TABLES 

115 000000 RW.STAT = 0. zSTATUS AND NEXT BUFFER POINTER OFFSET 
116 000001 RW.BUF = a sPOINTER TO DATA BUFFER 

117 000002 RW.LOW = Z, SHI ORDER EXPECTED HEADER 

118 000003 RW.HI = 3. ZLOW ORDER EXPECTED HEADER 

119 000004 RW.CMD = 4. :SDI COMMAND AND HEAD ADDRESS 
120 000005 RW.SDI = 5. [DUMMY SDI CONTROL BLOCK POINTER 
121 000006 RW.ANG = é. : THETA FROM INDEX 

125 ; CONSTANTS FOR READ AND WRITE XFC'S 

125 140000 WSTOP = 140000 3 LAST ENTRY IN CHAIN FOR WRITE 
126 0000 WCONT = 40000 : WRITE CON 

127 100000 RSTOP = 100000 + LAST ENTRY IN CHAIN FOR READ 
128 00 RCONT = : READ CONTINUE 

129 00000 FSTOP = 00000 : LAST ENTRY IN CHAIN FOR FORMAT 
130 122400 WREAL = 122400 ; WRITE REAL TIME ECOMMAND 

131 13400 RREAL = 13400 : READ REAL TIME COMMAND 

132 010000 ECCFLG = 10000 : ECC ERROR IN BUFFER BIT 

133 100000 EOC = 100000 : END OF CHAIN 

134 040000 BUFFLG = 40000 : BUFFER FULL OR EMPTY FLAG 

136 : 

137 : HEADER CODES 

139 HD.LBN = 000000 7GO0D LBN 

140 0000 HD.RBN = 0000 [GOOD RBN, PERHAPS UNUSED 

141 30000 HD.REV = 030000 3REVEC TORED LBN 

142 110000 HD.BAD = 10000 BLOCK 

143 50000 HD.PRV = 050000 {PRIMARY REVECTORED BLOCK 

144 120000 HD.XBN = 120000 7XBN BLOCK 

145 140000 HD.DBN = 140000 :DBN BLOCK 

467 : OFFSETS FOR DATA BUFFERS 

149 BF.DAT = 0. :DAT 

150 0004 BF.EDC = 356. <PRROR DETECTION CODE 

131 000401 -ECC = 57. SLAST 17 ECC RESIDUES 

138 : BUFFER AND READ/WRITE CHAIN LINK SIZES 

155 000401 WBUFLN = 257. ; WRITE BUFFER SIZE 

156 000415 RBUFLN = WBUFLN+12. : READ BUFFER SIZE 

157 000007 LINKLN = a > LINK SIZE 


SEQ 0236 
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NONI RY a ss es 


2 
3 
4 
5 
6 
? 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
25 
26 
27 
$8 
9 
30 
31 
32 
33 
ze 
36 
37 
38 
39 
40 
$3 
a8 
ah 


ee) 








XFC DEFINITION EQUATES 


3 OO NAOUIS WI 
s. 


NOUSWIOe « « 


GET STATUS OFFSETS 


STATUS BIT DEFINITIONS 


nnnnnnnnnnnnnn 
—_ 
So 
So 


SEQ 0237 


CK _XFC CODE 

TREAD N SECTOR S_XFC CODE 
WRITE N SECTORS XFC CODE 

D SDI COMMAND XFC ae: 
RECEIVE SDI MESSAGE XFC CODE 
;COMPARE DATA PATTERN TO BUFFER 
RETURN DRIVE STATUS XFC CODE 
sECHO DATA _TO DRIVE XFC CODE 
sDRIVE INITIALIZE XFC CODE 


INTENANCE WRITE 
sCONVERT TO PHYSICAL ADDRESS XFC CODE 
;TERMINATE DM PROGRAM XFC CODE 


sERROR BYTE 
CONTROLLER BYTE 
RETRY COUNT/FAILURE CODE 


ONLINE TO ANOTHER (SET IF DRIVE UNAVAILABLE) 
READJUSTMENT BIT (SET IF RECALIBRATION REQUIRED) 
DIAGNOSTIC REQUEST (SET IF DIAGNOSTIC REQUESTED) 
Ss READ IF SPINDLE eee ) 
PORT SWITCH (S PORT SWITCH IN) 
RUN/STOP SWITCH T_IF RUN/STOP ners IN) 
FATAL ERROR FATAL ERROR OC 

- T iF Tes 


; ERROR 
; ye Oe 
; WRITE ENABLE ( 
(SE 
CYL 
(S$ 


LED) 
A) yd oN PROT DISK) 


F 
F TING ENABL 
T if DIAG CYL ACCESS ENABLED) 
R 576 BYTE SECTORS) 


255"s 
=" 2Eo ™ 
3B 
Sen 
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UDA DM PROGRAM PARAMETERS 


} : GET COMMON CHARACTERISTICS OFFSETS 
3 000000 SHRTTO = 0. ;SHORT TIMEOUT <3:0> 
4 000000 SDIVER = 0. SDI VERSION <7:4> 
5 000000 XFERRT = 0. s TRANSFER RATE <15:0> 
6 000001 LONGTO = 1. SLONG TIMEOUT <3:0> 
7 000001 RETS = 1. sRETRIES <7:4> 
8 000001 RCTCPS = 1. SF/RCT COPIES <11:8> 
9 000001 SS = 1. SSECTOR SIZE <15:15> 
10 000002 ERLEV = 2. TERROR RETRY LEVELS <7:0> 
11 ia ta ECCRSH = 2. sECC THRESHOLD <15:8> 
12 MICREV = EMICROCODE REVISION NUMBER <7:0> 
13 000003 HRDREV = 3: SHARDWARE REVISION NUMBER <15:8> 
14 000004 DRVID = i: [UNIQUE DRIVE ID <47:0> 
15 000007 DRTYPE = 7. [DRIVE TYPE IDENTIFIER <7:0> 
000007 REVS = Fe * REVS/SECOND <15:8> 
18 : GET SUBUNIT CHARACTERISTICS OFFSETS 
$9 sTHESE OFFSETS ARE CURRENTLY GIVEN AS FOLLOWING THE COMMON CHARACTERISTICS 
$§ 000013 SUB = 11. sOFFSCT TO PUT SUBUNIT AFTER COMMON; 
v4 000000 LBNCYL = . NUMBER OF CYLINDERS IN LBN AREA <31: :0> 
24 000001 ICYL = 1. sHI ORDER CYLINDER BITS <15:12> 
25 000002 GRPCYL = 2. OUPS PER CYLI R <7:0> 
26 000002 HILBN = 2. SHI STARTING LBN <11:8> 
27 900002 IX8N = 7. : ARTING XBN <15:12> 
28 00000 TRKGRP = 3: ; TRACKS PER GROUP < > 
29 000003 IRBN = * 3 ARTING RBN <11:8> 
30 000003 HIDBN = Be sHI STARTING DBN <15:12> 
31 000004 RBNTRK = i: :RBNS PER TRACK <6:0> 
32 000004 RM = 4. [REMOVABLE MEDIA <7:7> 1=REMOVEABLE 
33 000005 DATPRE = ie ‘DATA PREAMBLE SIZE IN WORDS <7: 
34 000005 HDRPRE = 5: ;HEADER PREAMBLE SIZE IN WORDS 218:8> 
35 000006 MEDTYP = . DIA TYPE <31:0> 
36 000010 FCTSIZ = 8. tFCT COPY SIZE <15 0> 
37 000011 LBNTRK = 9. LBNS PER TRACK <?: 
38 000011 GRPOFF = 9. sGROUP OFFSET (sECiORS) “i351 8> 
39 000012 LBNHST = 10. [LBNS IN HOST AREA 
40 000014 RCTCSZ = Is sRCT COPY SIZE <15 o> 
41 000021 XBNCYL = 17. LS IN XBN AREA <15:0> 
42 000022 CYL = 18. [CYLS IN DBN AREA <15:8> 
re} 3 UNIT CODES 
46 000001 UNITO = 1, UNIT ZERO CODE 
47 000002 UNIT1 = . [UNIT ONE CODE 
48 000004 UNIT2 = 4. UNIT TWO CODE 
49 000010 UNITS = 8. UNIT THREE CODE 
51 : BIT MASK DEFINITIONS 
5 ; 
54 177400 HIBYTE = 177% HIGH BYTE MASK 
55 00037 LOBYTE = 90037 [LOW BYTE MASK 
5 007777 HBHINB = 777 HI BYTE, HI NIBBLE MASK 
5 170377 HBLONB = 170377 HI BYTE. LO NIBBLE MASK 
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177417 
177760 


000001 
000002 
000004 
000002 
000004 
000010 
000001 
000002 


000001 
000002 


LARGE 
OVERFL 


N— Cfrm f£M—- —— 
eee 


:LO BYTE, HI NIBBLE MASK 
:LO BYTE, LO NIBBLE MASK 


sDRIVE TIMEOUT CODE 
sHEADER COMPARE FAILURE CODE 
sREVECTOR NEEDED CODE 


sFIRST WORD NOT START FRAME CODE 
FRAMING ERROR CODE 
;CHECKSUM ERROR CODE 


NUMBER OF WORDS EXCEEDS 7064 
7DM BUFFER ADDRESS IS LESS THAN 7°4 


BLOCK NUMBER TCO LARGE 
SECTOR NUMBER LARGER THAN 16 BITS 


SEQ 0239 


G 3 
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j ZMAINTANENCE READ/WRITE REQUEST NUMBERS 
3 0000 TIMSIZ = 0.+DU. SPC :GET FREE MEMORY PARAMETERS 
4 060001 T2DLL_ = 1.+#DU.SPC [DOWNLINE LOAD DRIV 
5 06000 TOCMD = g- sDU. SPC SMANUAL INTERVENTION TEST 2 PROTOCOL 
é 06000 T4MPRM = .+DU. SPC [GET MASTER PARAMETERS FROM SW QUESTIONS 
? 0004 T4UPRM = 4.+DU. SPC :GET UNIT PARAMETERS FROM HW QUESTIONS 
8 060005 4881 = 5.+DU. SPC :GET BAD BLOCKS (1 THRU 14) 
9 060006 4BB2 = g. *DU. SPC ZGET REST OF BAD BLOCKS (15 AND 16) 
10 060007 T4SOFT = . +DU. SPC ZADD TO $ R 
11 060010 T4SEEK = 8.+DU. SPC ‘ADD 1 TO SEEK C 
12 060011 TGMXFR = 9. +DU. SPC ZADD TO MEGABITS READ AND WRITTEN 
13 060012 UTOTST = 10.+DU. SPC :GET UNITS TO TEST 
14 060013 ERRMES = 11.+DU. SPC [PRINT ERROR MESSAGE 
15 060014 ERRMC = 12. +DU. SPC ZTEST 4 ERROR REPORTING 
16 060015 MESSAG = 13. +DU.SPC S INFORMATION MESSAGE 
7 060016 DONE = 14. +DU. SPC [MARK DM PROGRAM AS NO LONGER RUNNING 
19 ; OTHER BIT DEFINITIIONS 
21 000001 RCVRDY = 1 : RECIEVER READY 1 = READ 
22 000002 ATIN = 2 : ATTENTION BIT FOR RETURN DRIVE SIGNALS XFC 
23 000004 RCVERR = 4 ; RECIEVER ERROR 
24 000100 VAIL = 100 : AVAILABLE 1 = AVAILABLE 
25 000400 XMTERR = 400 : TRANSMIT 
26 100000 = 100000 ; IF SET, UDA IS ABLE TO READ AND/OR WRITE TO DRIVE | 
38 ; SDI COMMANDS AND RESPONSES 
30 000204 DISCON = 204 : DISCONNECT DRIVE 
31 ERECOV = 6 + ERROR RECOVERY 
32 000201 HGMOD = 201 : CHANGE MODE 
33 000213 DRVONL = 213 : DRIVE ONLINE 
34 000014 DRVRUN = 14 : DRI VE RUN 
35 000005 DRVCLR = 5 : DRIVE CLEAR OPCO 
36 000207 GETCHR = 207 : GET CHARACTERIST 1¢cs 
37 000210 TSUB = 210 : GET SUBUNIT CHARACTERISTICS 
000011 GETSTA = 11 : GET STATUS 
39 000216 IRECLB = 216 : RECALIBRATE 
40 000012 INSEEK = 12 : INITIATE SEEK 
41 000176 COMPLT = 1%6 + SUCCESSFUL COMPLET 
42 000175 UNSSUC = 17 : UNSUCCESSFUL C 
43 000170 CHRRES = 170 : GET CHARACTERISTICS RESPONSE 
44 000167 SBCRES = 167 + GET SUBUNIT CHARACTERISTICS RESPONSE 
45 000366 STSRES = 366 + GET STATUS RESPONS 
46 000350 ECHOC = 350 : DIAGNOSTIC ECHO COMMAND AND RESPONSE 
48 ; ERROR CODES 
50 000000 FILSYS = 0 : SYSTEM FATAL ERROR 
51 040000 FTLDEV = 40000 > DEVICE FATAL 
100000 ERHARD = 100000 + HARD ERROR 
140600 ERSOFT = 140000 + SOFT ERROR 
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UDA DM PROGRAM PARAMETERS 


DUMMY SDI CONTROL BLOCK OFFSETS 


1 ; 

: 000001 O.LIMT = 1 : DUMMY SDI SEARCH LIMIT 

4 000002 D.SCHR = 2 : DUMMY POINTER TO SUBUNIT CHAR-5 
6 : DUP MESSAGE TYPES 

7 010000 bu.QUE = 10000 

a 020000 DU.DFL = 2000 

9 030000 DU.INF = 300 

10 040000 DU. TER = 40000 

11 050000 DU.FTL = 50000 

12 0000 DU.SPC = 60000 

13 .SBTTL MACRO DEFINITIONS 

15 3 MESSAGE CONTROL TABLE MACRO 

17 .MACRO MSG CMDBUF . CMDSZ.RPLBUF ,RPL SZ, SUCCOM 

18 ;WORD CMDBUF yADDRESS OF COMMAND 

19 ;WORD CMDSZ 'SIZE OF COMMAND IN BYTES 
20 “WORD RPLBUF TADDRESS OF REPLY 
21 “WORD RPLSZ *SIZE OF REPLY IN WORDS 
22 IF N@ NUMBER 
3 -WORD SUCCOM z SUCCESSFUL COMPLETION CODE 
25 
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MACRO DEFINITIONS 


1 .MACRO BCS LAB... 

§ BCC .42 
BR LAB 

4 ENDM 


ee ei ee 
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UDAT2 


I$ 
MACRO DEF 


23 


: PUSH REGISTER MACRO 


MACRO PUSH R9 
-IRP X,<R9> 


Dd 

) 

3 
MOV X,-(SP) 

6 -ENDR 

7 - ENDM 

8 

9 

0 

1 

2 

3 

4 

5 


POP REGISTER MACRO 


-MACRO POP RI 
~IRP X,<R9> 
(SP)+, 
.ENDR — | 
DM 


— 2 = 4 


a eNO OC _-— 














UDAT2 DISK RE 
MACRO DEFINIT 


NT DMACR X04.01 19-AUG=82 13:10:12 PAGE 9 


sERROR MACROS 

s THESE MACROS ARE CALLED TO REPORT ERRORS TO THE HOST PROGRAM. 

;THE MACRO NAMES AR R a RDF, ERRHRD, ERRSFT. EACH RESULTS IN THE HOST 
BEING REQUESTED TO REPORT Th 


oR. 
yr! POINTER 
ETER #1 


PARAMETER #6 
(P7$) PARAMETER #7 
(P8$) PARAMETER #8 


THE MESSAGE POINTER MUST POINT TO AN ADDRESS IN THE erp ps IMMEDIATELY 
: FOLLOWING THE MAIN CODE. ANY ADDRESS MODE MAY BE USED (E.G. 4m 
THE ADDRESS MUST CONTAIN AN ASCII FORMAT STRING TO DETERMINE THE “MESSAGE 


RINT. 
THE PARAMETER ARGUMENTS ARE OPTIONAL. THEY SHOULD BF SUPPLIED ONLY WHEN 
sTHERE IS DATA TO BE PASSED TO THE HOST THAT WILL BE USED IN PRINTING THE 
sMESSAGE. THESE PARAMETER ARGUMENTS ARE THE ADDRESS OF DATA TO BE PASSED 
USING ANY ADDRESSING MODE DESIRED. 
ZALL REGISTERS ARE RETURNED UNCHANGED. IT SHOULD BE NOTED THAT ARGUMENTS 
CONTAINING SOMETHING OTHER THAN A_REGISTER NAME (E.G. #100 OR MEMADR) 
ASSEMBLE TO INSTRUCTIONS THAT SAVE AND RESTORE A REGISTER ON THE STACK. 


WOONAOULS Ww 
ARR RRR 
vuvvvU 4 
OME WN 
AMMMM o 
eee we 

vo 
> 
=z 
= 
m 
~ 
m 
aD 
2 
7 


MSW $6 OONAUSWN OC OONOUSWh— 


NONINMININUR) @ 2 ot St 


26 

27 -MACRO ERRSF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S 

28 “NARG ARGSS$ 

29 »RADIX 10 

30 ERRORS FILSYS,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S, \ERRN 
32 : 

33 -MACRO ERRDF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S 

34 “NARG ARGS$ 

35 "RADIX 10 

36 ERRORS FTLDEV,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 
38 F 

39 -MACRO ERRHRD MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 

41 “NARG ARGS$ 

42 “RADIX 10 

45 ERRORS ERHARD ,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S, \ERRN 
45 “ENDM 

47 -MACRO ERRSFT MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 

48 =NARG AR ARGSS 


ADIX 10 
cnmons ERSOFT ,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 


Te 


SEO 0244 
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MACKS DEFINITION 


- END 
REGS$=- 
LIF GE. <PRMS-8.>,PARGS. 





VIEWN $C OONOUSWN—O VONOUSwr— 





1 
1 -IJF GE, * <PRMS-7. >,PARGS. 
1 LIF GE.<PRMS-6.>,PARGS. 
1 -IIF GE,<PRMS-5.> *PARGS. 
1 -IIF GE,<PRMS-4.>,PARGS. 
1 “LIF GE.<PRMS-3.>,PARGS. 
4 eIIF GE, * <PRMS-2. > *PARGS. 
1 S1IF GE.<PRMS-1.>,PARGS. 
1 -IF GE REGSS 
1 RSTR$ \REGSS$ 
2 eENDC 
2 “RADIX 10 
§ LIST 
2 -NLIST 
2 RADIX 8 

ASST 

eNLIST 

ERRN=ERRN+1 

~ENDM 


.MACRO PARGS. ,ADDRS 
.NTYPE PTYPES$, ADDRS 
-IF EQ,<PTYPE$& 70> 


.NLIST 
*" LIF EQ,<PTYPE$&7>=1 
REGU$=2 


.1FF 
REGUS=1 
.ENDC 
cIF NE -<REGUS-REGSS> 
*"RSTRE \REGSS$ 
END 
SAVRS \REGUS 
GETPS \REGSS$,ADDRS 
ENDC 


-MACRO DEVFTL NUM,ARGS 
ERROR FTLDEV,NUM, <ARGS> 





SEQ 0245 


sTHE FOLLOWING MACRO ACTUALLY PROCESSES THE ERROR CALL TO THE HOST PROGRAM s 
-MACRO te ETS, MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$S,ERRNS 


<PRMS> 
Oy, ROR;NOT ENOUGH ARGUMENTS IN ERROR CALL 


P1$ 


CALL RERROR sERROR # ERRNS’. 


-WORD ETS$+ERRN 
-WORD <PRMS*10000>+mMS$ 


& 
es £0. <PTYPES&7>-REGS$,RSTRS \REGSS 


MOV ADDR$,-(SP) 
sPICK A REGISTER TO USE 
sSELECT R2 IF R1 IS USED IN PARAMETER FETCH 
sOTHERWISE USE R1 
:1F REGISTER NOT ALREADY SAVED 
sRESTORE CURRENT SAVED REGISTER 
:THEN SAVE SELECTED REGISTER 


ac ne + ee 
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MACRO DEFINITIONS 


m ov 


iT} ett + he —mM 


ROR TYFE,NUM,ARGS 


NUMPTR + 1 


MOV #ERRMC ,OUT.RQ 


MOV #NUM! TYPE ,R2 
MOV R2,0UT.02 
MOV #. ,OUT.01 


SEQ 0246 
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MACRO DEFINI TIONS 


1 ae REGN 

g MOV R'REGN, SAVREG 
4 -NLIST 

5 REGSS$=REGN 

$ -ENDM 

8 -MACRO_RSTR$ REGN 

9 «LIST 

10 MOV SAVREG,R'REGN 
11 »NLIST 

12 REGS$=-1 

1? - ENDM 

15 -MACRO GETPS REGN,ADDRS 

16 «LIST 

17 MOV ADDRS,R*REGN 
18 MOV R*REGN,-(SP) 
19 «NLIST 
20 -ENDM 





B 4 
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MACRO DEFINITIONS sth cts 
«MACRO MSSGE NUM,ARGS 
eRADIX 10 
NUMPTR = 3 ne 17.ouT.01 
Vv ,OUT. 
MOVMSG anya 


#°NUM,2 
IF NB, <ARGS> 
- IRP X,<ARGS> 
MOVMSG X,\NUMPTR 
= 


NUMPTR NUMPTR + 1 
eENDC 
PUSH <RO,R1> 
MOV #MESSAG,RO 
CALL HOSTRQ 
POP <R1,R0> 
eRADIX 
NDM 


«MACRO MOVMSG ARG, INDX 


IF LT, INDX=10 
MOV ARG ,OUT.0° INDX 


MOV ARG,OUT. ° INDX 


AUF WN—“OCVDOBNAUSWN—CDONOUSWN— Oo 


ROMP 2 St 
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sASSUME MACRO 


C 4 


— ASSUME P1,P2 


° 
. 
e 


THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 


SEQ 0249 | 





NT DMACR X04.01 19-AUG=82 13:10:12 PAGE 14 


PIII a st sk tk et es os 2 os es 


sRETURN DRIVE STATUS MACRO WITH ERROR REPORTING 
DSTAT,LABS,E1,E2 


; GET DRIVE STATUS 
; SEE AY ANY ERRORS 


IF NO ERROR, BRANCH 

SEE IF XMIT ERROR 

IF SO, BRANCH 

REPORT INVALID STATUS ERROR 
BRANCH TO DONE 

REPORT XMIT ERROR 

BRANCH TO DONE 


SEQ 0251 


SAVE REGISTER REG2 

CLEAR COORESPONDING BITS I 
CLEAR COORESPONDING BITS I 
OR WHAT'S LEFT 








Dd SEQ 0252 
D 

1 ° 

§ : CONVERT .BLKW CALLS TO ACTUAL WORDS GENERATED 

$ ; -MACRO -BLKW COUNT 

6 ;REPT COUNT 

i -WORD 0 

9 LIST 

10 


SRE RE ARP EERE OEE HE OT 


me 
"Ms 
_ 


=“SVONAOUSWN“ODONOUFSWN— Ooo 


OID at et st et os a es os ss 
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NITIONS 
; SDI INTERCHANGE WITH DRIVE WITH ERROR REPORTING 
-MACRO TALKX ERRLAB,E1,€2 
“NLIST 
"NLIST MEB 
“LIST ME 
CALL =—s*TALKER : INITIATE SDI INTERCHANGE 
TST R3 : SEE IF ERROR OCCURRED 
BEQ 12$ : IF NOT, BRANCH 
: IF SO, BRANCH 


BPL 11$ 

“ee LD COMMAND ERROR 
118: ERRHRD E2;RECEIVE COMMAND ERROR 
128 BR ERRLAB 


ME 
LIST MEB 
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START OF TEST CODE 





1 -SBTTL START OF TEST CODE 

§ THE FOLLOWING IS FOR DEBUG PURPOSES ONLY. CAN BE NOP OR BREAKPOINT. 

: 000714 114007 CLR RO sCHANGE TO BREAKPOINT FOR DEBUG 
$ s INITIALIZE STACK 

8 000715 104206 001647 MOV #STACK,SP SET UP STACK POINTER 

18 000717 001650 BR START ; BRANCH OVER SUPPORT CODE 


I 4 
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PROGRAM VARIABLES 

1 .SBTTL PROGRAM VARIABLES 

§ PROGRAM VARIABLES 

$ JUNIT NUMBER STORAGE FOR DISK DRIVES TO TEST 

6 900720 77777 177777 177777 UNITS: .WORD <=1,-1,1,<1 ZLOGICAL UNIT NUMBER IF POSITIVE 

7 000724 177777. (177777-«177777 «WORD -1,-1,-1,-1 jDISK DRIVE NOT TO BE TESTED IF NEGATIVE 

000727 177777 
8 000730 177777 177777 177777 «WORD -=1,+1,-1,-1 
000733 177777 

9 000734 177777 177777 177777 .WORD =1,=1,-1,<1 
= 000737 177777 

11 000740 000000 UNITNB: .WORD 0 ZNUMBER OF UNIT CURRENTLY UNDER TEST 

le :POINTER INTO TABLE ABOVE 

14 000741 000000 SDI: .WORD 0 zSDI INTERCONNECT CODE FOR XFC CALLS | 
16 000742 000000 SAVSTA: .WORD 0 zSAVE STATUS 
7 000743 000000 SAVRID: .WORD 0 TSAVE REGION ID | 
19 :DRIVE RESPONSE BUFFERS 
20 000200 STSIZE = 200 
21 000744 ST: .BLKW 200 
23 | 
4 001144 000000 DIAG.1: .WORD 0 = 0, st DI DIAGNOSE COMMAND | 

NOT = RIVE TESTED BEFORE 

26 001145 000000 NAM.1: .WORD 0 tHOLD PR DeRAN NAME 
27 001146 000000 : <WORD 0 
28 001147 000000 .3: WORD 0 
29 001150 000000 : 0 

31 001151 000000 SENDHR: .WORD 0 z1F 0, DON'T SEND HOSTRO IN TALKER 

3¢ ZIF NOT 0, SEND HOSTRQ => DOING DIAGNOSE COMMAND 

34 001152 1?7777 LUNIT: .WORD -1 sLOGICAL UNIT NUMBER (-1 FOR NOT AVAILABLE) 

36 001153 000000 SAVREG: .WORD 0 ; STORAGE FOR REGISTER AT CALL TIME 

37 001154 000012 SDISTO: .WORD 10. : SDI SHORT TIMEOUT 

38 001155 000024 SDILTO: .WORD 20. : SDI LONG TIMEOU 
33 001156 000000 SAFWRD: .WORD 0 : SAFE WORD TO OSE IN DO.DCL 
41 001157 004212 SER18E: .WORD SERIBA ; FOR MULTIPLE SUBUNIT ERROR REPORTING 
4@ 001160 0042 .WORD SER18B 
43 001161 00420 .WORD  SERI8C 
44 001162 004176 “WORD SER18D 
46 001750 MAXSND = 1000. : MAXIMUM # OF SENDS 
48 000017 WRM.OP = 17 : WRITE MEMORY COMMAND 
49 000215 RDM.OP = 15 : READ MEMORY COMMAND 

G 000003 .OP = : DIAGNOSE C 

51 000207 GETCHR = 07 > GET » COMMON CHARACTERISTICS COMMAND 

5 000162 RDM.EN = 162 ; READ MEMORY RESPONSE 

5 000374 “EN = 374 : DIAGNOSE RESPONSE 
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000170 


100000 
040000 


177774 
177775 
177776 


= 170 3 GET COMMCN CHARACTERISTICS 
DIAGNOSE ET AND DA 


= 100000 sERROR TYPE ET 
s 40000 zDATA AVAILABLE 


=~ 

as Be | 
~ 
N“N 
wn 





ate DISK RESIDENT DMACR X 


COMMANDS USED FOR TEST 


1 
§ 001163 
001164 
4 001165 
5 001166 
6 001167 
7 001170 
8 
9 
10 
11 
12 001171 
001171 
001172 
001373 
001174 
001175 
1? 001176 
15 001177 
001177 
001200 
001201 
001202 
001203 
16 001204 
4 001205 
19 001206 
001206 
001207 
001210 
001211 
001212 
20 001213 
21 001214 
22 001217 
7 001222 
25 001422 
001422 
001423 
001424 
001425 
001426 
26 001427 
27 001430 
001435 
28 001434 
001437 
29 
30 001440 
001440 
001441 
Sek 
00144 
001444 


011 


005 


000000 
000000 


000000 
000000 


ECHOD: 


-SBTTL 
“BYTE 


-01 19-AUG-82 13:10:12 PAGE 20 


$01 COMMANDS USED FOR TEST 2 
77 ,ECHOC sECHO DATA TO SEND TO DRIVE 
000,ECHOC 
G26 CNOS 
60,ECHOC 
017,ECHOC 
0 END MARKER 


COMMAND ys aes FOR SEND XFC 


-SBTT 
: COMMAND BUFFERS FOR SEND XFC 


CR.GST: 


GETST: 


CR.DRC: 


DRC: 
DRCBYT: 
CR.WRM: 


BUF 1: 


CR.RDM: 


RDM: 


CR.GCR: 


MSG GETST,1,ST,7 : GET STATUS SDI INFORMATION 
.WORD GETST ‘ADDRESS OF COMMAND 
SWORD 1 :SIZE OF COMMAND IN BYTES 
“WORD ST DRESS OF REPLY 
<WORD 7 ;S1ZE oF’ REPLY IN WORDS 
[WORD : SUCCESSFUL COMPLETION CODE 
“BYTE 0,GETSTA 
MSG DRC,2,ST,7 : DRIVE CLEAR SDI INFORMATION 
«WORD DRC SADDRESS OF COMMAND 
“WORD 2 :SIZE OF COMMAND IN BYTES 
“WORD ST ZADDRESS OF REPLY 
“WORD 7 :SIZE OF REPLY IN WORDS 
WORD ; SUCCESSFUL COMPLETION CODE 
-BYTE 0,DRVCLR 
“WORD 177777 
MSG WRM,7,ST,7 : MEMORY WRITE COMMAND INFO 
.WORD WRM SADDRESS OF COMMAND 
“WORD 7 :SIZE OF COMMAND IN BYTES 
“WORD ST ZADDRESS OF REPLY 
“WORD 7 ;SIZE OF REPLY IN WORDS 
WOR : SUCCESSFUL COMPLETION CODE 
-BYTE 0,WRM.OP 
“WORD 0.0,0 
“WORD 0.0.0 
SBLKW 200 
MSG RDM,6,ST,STSIZE : MEMORY READ COMMAND INFO 
.WORD RDM TADDRESS OF COMMAND 
WORD :SIZE OF COMMAND IN BYTES 
“WORD ST ZADDRESS OF REPLY 
“WORD STSIZE ‘SIZE OF REPLY IN WORDS 
WOR : SUCCESSFUL COMPLETION CODE 
-BYTE 0,RDM.OP 
WOR on e e 
«WORD 0,0,0,0 
MSG GCR,1,$T,12. GET CHARACTERISTICS 
«WORD GCR t ADDRESS OF COMMAND 
“WORD 1 :SIZE OF COMMAND IN TES 
“WORD ST ADDRESS OF REPL 
“WORD 12. SIZE OF REPLY iN WORDS 
“WORD ; SUCCESSFUL COMPLETION CODE 


SEQ 0257 







Hs 001445 


46 901500 





000 


001453 
0 


207 


213 


003 


014 


216 


GCR: 


CR.ONL: 


ONL: 


LONG: 


CR.DIA: 


DIA: 


CR.RUN: 


RUN: 
CR.INR: 


INR: 


-BYTE 


wO 
- WORD 
-BYTE 
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COMMAND BUFFERS FOR SEND X 


0,GETCHR 
‘eeeeteed 


DIA,3,ST,7 
DIA 


D3 
D ST 
7 


0,DIA.0P 

0 

0 
RUN,1,ST,7 


0, IRECLB 


3 GET CHARACTERISTICS 


; ONLINE COMMAND 
ADDRESS OF COMMAND 
SIZE OF’ Leet IN BYTES 


ZSIZE OF REPLY IN WO 
; SUCCESSFUL COMPLETION CODE 


3 ALL LONG TIMEOUT COMMANDS FOLLOW 
3 DIAGNOSE COMMAND INFORMATION 
OMMAND 


:SIZE OF REPLY IN WOR 
3 SUCCESSFUL COMPLETION CODE 


zADDRESS OF COMMAND 
sSIZE OF _ COMMAND IN BYTES 
sADDRESS OF REPLY 
+ SIZE OF REPLY IN WORDS 
; SUCCESSFUL COMPLETION CODE 


ADDRESS OF COMMAND 
sSIZE OF _ COMMAND IN BYTES 
;ADDRESS OF REPLY 
:SIZE OF REPLY IN WORDS 
: SUCCESSFUL COMPLETION CODE 


| pe saa SOFT Fee SE ee 
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STORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 


1 «SBTTL_ STORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 
sSTORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 


2 

3 

: OUT BUFFER = DATA TO SEND TO HOST 

6 001501 000000 OUT.RQ: .WORD 0 sHOST REQUEST CODE 
7 Oo epg 000000 OUT.01: .WORD 0 sDATA ARGUMENT 1 
8 001503 000000 OUT.02: .WORD 0 zDATA ARGUMENT ¢ 
9 001504 000000 OUT.03: .WORD 0 DATA ARGUMENT 

10 001505 000000 OUT.04: .WORD 0 zDATA ARGUMENT 4 
11 001506 0 OUT.05: .WORD 0 zDATA ARGUMENT 5 
12 001507 OUT.06: .WORD 0 zDATA ARGUMENT 6 
13 001510 000000 OUT.07: .WORD 0 sDATA ARGUMENT 7 
14 001511 000000 OUT.08: .WORD 0 sDATA ARGUMENT 8 
15 001512 000000 OUT.09: .WORD 0 sDATA ARGUMENT 9 
16 001513 000000 OUT.10: .WORD 0 zDATA ARGUMENT 10 
17 001514 000000 OUT.11: .WORD 0 : ARGUMENT 11 
18 001515 000000 OUT.12: .WORD 0 sDATA ARGUMENT 12 
19 001516 OUT.13: .WORD 0 sDATA ARGUMENT 13 
20 001517 000000 OUT.14: .WORD 0 zDATA ARGUMENT 14 
21 001520 00 OUT.15: .WORD 0 zDATA ARGUMENT 15 
22 001521 000000 OUT.16: .WORD 0 sDATA ARGUMENT 16 
23 001522 000000 OUT.17: .WORD 0 sDATA ARGUMENT 17 
24 001523 00 OUT.18: .WORD 0 zDATA ARGUMENT 18 
25 001524 0000 OUT.19: .WORD 0 zDATA ARGUMENT 19 
26 001525 000000 OUT.20: .WORD 0 sDATA ARGUMENT 20 
27 001526 0000 OUT.21: .WORD 0 zDATA ARGUMENT 21 
28 OO136/ 000000 out -66! -WORD 0 sDATA ARGUMENT $§ 
29 0015 000000 OUT.25: .WORD 0 zDATA ARGUMENT 2 
30 001531 OUT.24: .WORD 0 zDATA ARGUMENT 24 
31 001532 00 OUT.25: .WORD 0 zDATA ARGUMENT 25 
32 001533 000000 OUT.26: .WORD 0 sDATA ARGUMENT 26 
33 001534 OUT.27: .WORD 0 zDATA ARGUMENT 27 
34 001535 000000 OUT.28: .WORD 0 zDATA ARGUMENT 28 
35 001536 00 OUT.29: .WORD 0 zDATA ARGUMENT 29 
36 001537 000000 OUT.30: .WORD 0 sDATA ARGUMENT 30 
37 001540 00 T.31: .WORD 0 sDATA ARGUMENT 31 
38 001541 000000 T.32: .WORD 0 sDATA ARGUMENT 32 
39 001542 00 OUT.33: .WORD 0 zDATA ARGUMENT 33 
rs 001543 000000 OUT.34: .WORD 0 sDATA ARGUMENT 34 
$¢ 2 IN BUFFER = DATA RECEIVED FROM HOST 
44 001544 000000 IN.RQ: .WORD 0 sHOST REQUEST CODE (ECHO) 
45 001545 000000 IN.01: .WORD 0 sDATA ARGUMENT 1 
46 001546 000000 IN.02: .WORD 0 DATA ARGUMENT 
47 001547 000000 IN.03: .WORD 0 DATA ARGUMENT 
48 001550 000000 IN.04: .WORD 0 sDATA ARGUMENT 4 
49 001551 000000 IN.05: .WORD 0 zDATA ARGUMENT 5 
50 Oe eee 000000 IN.06: .WORD 0 zDATA ARGUMENT 6 
51 001553 000000 IN.07: .WORD 0 sDATA ARGUMENT 7 
52 001554 000000 IN.08: .WORD 0 zDATA ARGUMENT 8 
53 001555 000000 IN.09: .WORD 0 zDATA ARGUMENT 9 
54 001556 000000 IN.10: .WORD 0 sDATA ARGUMENT 10 
55 001557 000000 IN.11: .WORD 0 zDATA ARGUMENT 11 
56 001560 000000 IN.12: .WORD 0 DATA ARGUMENT \¢ 
57 001561 000000 IN.13: .WORD 0 zDATA ARGUMENT 1 
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STORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 
58 00156 000 IN.14: .WORD 0 sDATA ARGUMENT 14 
59 00156 0000 IN.15: .WORD 0 sDATA ARGUMENT 15 
60 001564 000000 im. 188 eWORD 0 zDATA ARGUMENT $ 
61 001565 000000 IN.17: .WORD 0 3DATA ARGUMENT 1 
62 901 298 000000 IN.18: .WORD 0 sDATA ARGUMENT 18 
63 001567 000000 IN.19: .WORD 0 zDATA ARGUMENT 19 
64 001570 000000 IN.20: .WORD 0 ZDATA ARGUMENT 20 
65 001571 000000 IN.21: .WORD 0 sDATA ARGUMENT 21 
66 Oot are 000000 IN.22: .WORD 0 sDATA ARGUMENT 22 
67 001573 000000 IN.23: .WORD 0 sDATA ARGUMENT 23 
68 001574 000000 IN.24: .WORD 0 DATA ARGUMENT 24 
69 001575 000000 IN.25: .WORD 0 sDATA ARGUMENT 25 
70 001576 000000 IN.26: .WORD 0 sDATA ARGUMENT 26 
71 001577 IN.27: .WORD 0 sDATA ARGUMENT 27 
72 001600 000000 IN.28: .WORD 0 sDATA ARGUMENT 28 
73 001601 IN.29: .WORD 0 sDATA ARGUMENT 29 
74 001602 000000 IN.30: .WORD 0 sDATA ARGUMENT 30 
75 001603 000000 IN.31: .WORD 0 ;DATA ARGUMENT 31 
604 IN.32: .WORD 0 sDATA ARGUMENT 32 
77 001605 000000 IN.33: .WORD 0 sDATA ARGUMENT 33 
78 001606 000000 IN.34: .WORD 0 ;DATA ARGUMENT 34 
000043 BUFSIZ = - ~ IN.RQ SIZE OF BUFFER 
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STACK AREA 


1 ~SBTTL STACK AREA 
¢ STACK AREA 

4 001607 123456 «WORD 123456 

5 001610 -BLKW 31. 

6 001647 123456 STACK: .WORD 123456 


SEND MARKER FOR STACK 
;MARKER FOR STACK UNDERFLOW 


—_———-- ---- -—--} 


SEQ 0261 


| 
| 
| 
| 
| 


| 
| 
' 
| 
| 


¢ 5 
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STACK AREA 
-SBTTL GETU = POLL ALL PORTS, THEN GET UNITS TO TEST 


3GET WHICH UNITS TO TEST 


: 
: 001650 START: 
8 ; GET THE UNITS TO TEST 
10 : 
i : POLL ALL PORTS AND FILL IN A UDA PORT INFORMATION TABLE (UNITS) 
13 001650 104205 000001 MOV #1,R5 : MOVE INITIAL MASK TO RS 
14 001652 104204 000720 MOV #UNITS,R4 : R4 POINTS TO UNIT TABLE 
15 001654 5$: PUSH RG + SAVE R4 
001654 100464 MOV R4,=(SP) 
16 001655 104052 MOV R5,R2 : MOVE MASK TO R2 
17 001656 024621 CALL — RDSTAT + GET DRIVE'S STATUS 
18 001657 102201 010000 BIT #10000,R1 + SEE IF ERROR 
19 001661 011667 BEQ 10$ : IF BRAN 
20 001662 104203 003772 MOV #SER10,R3 : NO DRIVE ATTACHED 
21 001664 100643 000001 MOV R3,1(R4) : SAVE ERROR MESSAGE 
22 001666 002057 BR 85$ > REPORT 
23 001667 114003 10$: CLR R3 : SET UP TIMEOUT COUNT 
24 001670 024621 15$: CALL _—sRDSTAT : GET US 
25 001671 102201 000001 BIT ARCVRDY,R1 : SEE IF RECEIVER READY ASSERTED 
26 001673 051703 BNE 20$ : IF $0, CH 
27 001674 117403 DEC : DECREMENT COUNT 
28 001675 051670 BNE 15$ : IF INCOMPLETE, BRANCH 
29 001676 104203 004005 MOV #SER11,R3 : RECEIVER READY NEVER ASSERTED 
30 001700 100643 000001 MOV Q3,1(R4) : SAVE ERROR MESSAGE 
31 001702 002057 BR : REPORT 
32 001703 102201 000100 20$: BIT #AVAIL,R1 : SEE IF DRIVE IS AVAILABLE 
33 001705 051713 BNE 25$ : IF R 
34 001706 104203 004215 MOV #SER4O,.R3 : GET SECONDARY ERROR 
35 001710 100643 000001 MOV R3,1(R4) : SAVE 
36 001712 002057 BR : EXIT 
37 001713 104202 001750 25$: MOV #MAXSND,R ; SET UP MAXIMUM TRIES AT SENDING 
38 001715 104203 001171 MOV #CR.GST.R : R3 POINTS TO GET STATUS COMMAND 
39 001717 104137 30$: MOV (R3) ,RO : SET ADR OF SDI COMMAND BUFFER 
40 001720 104631 000001 MOV 1(R35,R1 : SET BUFFER LENGTH 
41 001722 PUSH R2 : SAVE R2 
001722 100462 MOV R2,-(SP) 
42 001723 104052 MOV R5,R2 : SETUP FOR SEND 
43 001724 060004 XFC END : SEND COMMAND 
44 001725 POP R2 : RESTORE COUNT 
001725 104262 MOV (SP)+,R2 
45 001726 115001 TST R1 ; DID UNIT ACCEPT COMMAND 
46 001727 011737 BEQ 35$ : IF H 
47 001730 117402 DEC + DECREMENT COUNT 
48 001731 05171 BNE 30$ : IF UNEXPIRED, BRANCH 
49 001732 104203 004023 MOV WSER12,R3 + GET ERROR NUMBER 
50 001734 100643 000001 MOV R3,1(R4) : SAVE 
51 001736 002057 BR 85$ 
52 00173 35$: PUSH  R& : SAVE R4 
001737 100464 MOV R4,-(SP) 
53 001740 104204 000003 MOV #3,R4 ; SET UP SHORT TIMEOUT 
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54 001742 104637 00000 40$: MOV (R3) .RO 
55 001744 104631 00000 MOV (R3),R1 
56 001746 104052 MOV R5,R2 
57 001747 060005 KFC RCV 
58 001750 115001 TST R1 
59 001751 012011 BEQ 70$ 
60 001752 106201 000001 CMP #1,R1 
61 001754 051763 BNE 45$ 
62 001755 117404 DEC 
63 001756 051742 BNE 40$ 
64 001757 POP R 
001757 104264 
65 001760 104203 004035 MOV #SER13, 13 
66 001762 002006 BR 65$ 
67 0017 45$: POP 
001763 104264 
68 001764 110601 ROR R1 
69 001765 110601 ROR R1 
70 001766 041772 BCC 50$ 
71 001767 104203 004050 MOV WSER14,R3 
2 001771 002006 BR 65$ 

73 001772 110601 50$: ROR R1 
74 001773 041777 BCC 55$ 
75 001774 104203 004076 MOV #SER15,R3 
76 001776 002006 BR 65$ 
77 001777 110601 55$: ROR R1 

2000 042004 BCC 60$ 
79 002001 104203 004120 MOV #SER16,R3 
80 002003 002006 BR 65$ 

2004 104203 004143 60$: MOV #SER17,R3 
82 002006 100643 000001 65$: MOV R3,1(R4) 
83 002010 002057 BR 85$ 





SET DATA BUFFER ADDRESS 
LENGTH 


SET BUFFER 


IF NOT, BRANCH 
DECREMENT TIMEOUT VALUE 


IF NOT TIMEOUT, BRANCH 
RESTORE R4 


: GET ERROR NUMBER 
: BRANCH TO EXIT 
: RESTORE R4 


ROTATE INTO POSITION TO TEST 


SEE IF FIRST WORD NOT START FRAME 
OT, BRANCH 


R NUMBER 
BRANCH TO END OF LOOP 
SEE IF FRAM:NG ERROR 
IF NOT, BRANCH 


; GET ERROR NUMBER 


BRANCH TO END OF LOOP 


; SEE IF CHECKSUM ERROR 
IF NOT, CH 
; GET ERRO 


R NUMBER 
BRANCH TO END OF LOOP 
7 ERROR NUMBER 
BRANCH TO END OF LOOP 
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177777 
000001 
000002 
000744 


170000 


000002 


010000 


040000 


177760 





:. 
10: 12 PAGE 24 


R4 


RO, 
#*CHBHINB,RO 
<R1,R2> 


R5,R2 
RDSTAT 
#ATTN,R1 
rh a + fe RO 
<R2,R 
#40000,R0 
Re 

: 

R2 

Ro 
#LBLONB,R2 
RO, (R4) 
R2 

85$ 

RO, (R4)+ 
RO 

80$ 


R4 
#4 ,R4 
R5 
#20,R5 
5$ 


NOW FILL IN THE TABLE WITH ALL THE SUBUNIT NUMBERS 


RESTORE R4 
GET "NO UNITS’ 


MOV (SP)+,R4 


FLA 
CLEAR ANY ERRORS THAT ARE FLAGGED 
CLEAR ANY oe A ed ARE FLAGGED 


RO HAS UNIT 
SAVE R1 AND R2 


MOVE rt — MASK TO R2 


IF NCH 
SET "NOT SPINABLE' FLAG 
RESTORE 


; FLAG UNIT tee TESTED 
; SWAP R2°S B 
VE $ SUBUNIT TRASK TO LO NIBBLE 


VE S 
TNCRERENT SUBUNIT NUMBER 


RS _HAS NEXT UNIT POR 
SEE IF ALL PORTS Test TED 
IF NOT, BRANCH 


MOV R1,=-(SP) 
MOV R2,-(SP) 


MOV (SP)+,R2 
MOV (SP)+,R1 


; R4 POINTS TO START OF UNIT JUST aes, ~ 
R4 WILL POINT TO NEXT y er (CLEAR CARRY FOR ROL) 
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ae 
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060012 


001545 
000720 


170000 


000720 
000003 


000004 
000740 


100$: 


105$: 


110$: 
115$: 
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NOW GET THE PLUG NUMBERS TO TEST AND FIND THEM IN THE TABLE 





ro bk RO 


#IN. ot, RO 
#UNITS.R1 
(R1) RO 
115$ 


R1 
#170000,R2 
(RO) ,R2 
R2,(R1) 
R1 

160$ 

R1 

R1,R2 
#UNITS,R2 
#3,R2 
110$ 

(R1) ,R2 
100$ 

R1 


#4,R1 
#UNITS+16.,R1 
95$ 


; GET wer SUBUNIT — TO TEST REQUEST 
; GET THE PLUG NUMBERS 
; ay POINTS 


TO UNIT NUMBERS TO TEST 
Sas eye UDA PORT INFORMATION 


R 
ae Ave MI’ BRANCH 


CLEAR "NOT TESTED’, 


SA 
RESTORE STACK 


LOOK FOR THE NEXT ONE 
ae TO NEXT SUBUNIT 
COPY TO R2 


SUBTRACT STARTING ae 
STILL ON SAME UN 


SEE IF § 


RESTORE R1 


; LOOK AT NEXT UNIT 
: SEE IF ENTIRE UTABLE SEARCHED 
IF BRANCH 


NOT, 


MOV R1,-(SP) 
DO NOT LEAVE ‘UNSPINABLE' SET 
SEE IF IT IS A UNIT TO TEST 
NO MATCH 


VE UNIT AS ONE TO TEST 


MOV (SP)+,R1 


MOV (SP)+,R1 


SEQ 0265 
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40 002221 9 
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? 002230 
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AMO 
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13: 


TEST 


1208: 


125$: 


130$: 
135$: 


140$: 


145$: 


150$: 


155$: 


160$: 


10:12 PAGE 26 

DIDN'T FIND THE REQUESTED 
UDA PORTS AND DIE 

MOV (RO) ,OUT.03 : 
MOV #OUT.05,R4 : 
MOV #UNITS,RS : 
MOV R5) RO : 
BPL 25$ ; 
MOV 1(R5),RO : 
MOV RO, (R4)+ : 
BR 155$ : 
PUSH = RS : 
BIT #10000,R0 : 
BEQ 13 3 
MOV #SER41,R0 : 
BR 135$ 3 
MOV #SER18,RO : 
MOV RO, (R4S+ ; 
CLR ; 
MOV (R5)+,R1 : 
BMI 145$ : 
INC RO 3 
CMP #4,RO : 
BNE 146$ ; 
MOV SER18E-1(RO),R1 : 
MOV R1,(R4)+ : 
POP : 
PUSH RS : 
MOV (R5)+,R1 : 
MOV R1,(R4)+ : 
DEC F 
BNE 150$ : 
POP R5 : 
ADD #4,R5 3 
CMP MUNITS*#16.,.R5 
BNE .120$ ; 
DEVFTL 5000 : 
MOV OUT.RQ,RO : 
CALL §HOSTRQ : 
MOV #DONE ,RO : 
CALL -HOSTRO : 
XFC EXIT ; 
INC : 
MOV (RO) ,R2 3 
BPL $ 3 





UNITS == DUMP ALL KNOWLEDGE OF THE 


; SAVE UNIT NUMBER IN spy ty BUFFER 
T BUFFER 


UNIT 

IF VALID UNIT WAS FOUND, BRANCH 
GET POINTER TO ee MESSAGE 
ants IN OUTPUT BUFFER 

SAVE POINTER TO UNIT TABLE 


SEE IF DRIVE a 
IF SPINABLE, BRANCH 
REPORT DRIVE(S) UNSPINABLE 


BRANCH 
——— TO ERROR MESSAGE 


CLEAR ead 

GET UNIT NUMBER 

IF ere BRANCH 
sre ir COUNT 


MOV R5,-(SP) 


IF NOT, 

au POINTER TO commer ERROR MESSAGE 
MOVE INTO OUTPUT BUFFER 

RESTORE RS 


MOV (SP)+,R5 
SAVE R5 


MOV R5,-(SP) 


; GET SUBUNIT NUMBER 
SAVE 
; DECREMENT C 


OUNT 
IF COUNT pPCOrPLee.. BRANCH 
RESTORE R 


POINT TO NEXT UNIT TABLE 
iF M4 ae TABLE SEARCHED 


F_NO ANCH 
REPORT FATAL — oh ee UP_AS A 5000) 


MOV #5000! FTLDEW. R2 
MOV R2.OUT. 02 

MOV ,OUT.01 

MOV PERRMCOUT.RO 
SET UP FOR REPORT 

REPORT E ERROR 

SEND END-OF TEST TO HOST 

TERMINA 


POINT TO NEXT UNIT TO TEST 
CHECK NEXT UNIT 
FIND IN UDA PORT INFORMATION 


MOV (SP)+,R5 


SEQ 0266 
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TEST 2 START TESTING 


1 .SBTTL TEST 2 START TESTING 
¢ : FIND OUT IF HOST HAD TO INIT UDA TO GET A PROGRAM FROM AN ATTACHED DRIVE. 
4 : THE PROGRAM WAS REQUESTED BY THE DRIVE TO BE DOWNLINE LOADED INTO ITS MEMORY. 
3 : THE INDICATION COMES FROM THE UTOTST RESPONSE. 
7 : A WORD WITH MSB IS SET TO INDICATE THE LAST UNIT ENTRY. AFTER THAT WOR 
2 : ANOTHER WORD INDICATES WHEATHER OR NOT A FILE WAS SUPPOSE TO BE DOUN LT PINE LOADED. 
9 : ANS NORMAL PROCESSING, NO FILE WAS EXPECTED OR REQUESTED. 
10 : A '1* MEANS A FILE WAS EXPECTED AND IS AVAILABLE. 
4 ; A ‘2° MEANS A FILE WAS EXPECTED AND IS NOT AVAILABLE. 
13 : RO IS A POINTER TO THE WORD BEYOND THE LAST TABLE ENTRY 
1% : (RO) = 100000 
16 002231 104671 000001 T2STRT: MOV 1<RO) .R1 :WAS A FILE EXPECTED? 
17 002233 012315 BEQ RTO SIF NOT, GO TO NORMAL PROCESSING 
18 002234 115407 INC RO ‘POINT TO INDICATOR IN IN.RQ BUFFER | 
19 002235 104075 RO,RS ‘R5 => INDICATOR 
20 002236 104151 MOV (R5) ,R1 71ST WORD CONTAINS INDICATOR TO SEE IF A FILE WAS EX 
21 002237 106201 000001 CMP #7,Ri SWAS THE EXPECTED FILE AVAILABLE? 
22 (02241 053534 BNE 00.017 [IF NCT AV VAILA BLE. GO TO REPORT ERROR 
23 pote. FILE was THERE , NOW SEE WHERE IN THE TABLE IT WAS $O PORT INDICATOR IS THE SAME? 
24 002242 104207 000720 #UNITS,RO RO => UNIT TABLE 
25 002244 104651 000001 mov 1(R5),R1 R1 = UNIT NUMBER 
26 002246 104202 000001 MOV NITO,R2 :R2 = 1ST PORT 
27 002250 114003 CLR R 7R3 = UNIT TABLE INDICATOR 
28 902251 114004 1$: CLR Re RG OREEPS TRACK of WHICH SUBUNITS 
29 002252 104270 001153 2$: MOV (RO) +, SAVREG [STORE UNIT IN 
30 002254 072301 BMI 4$ SIF NEGATIVE V VALUE. DON'T COMPARE 
31 002255 103300 177400 001153 BIC HIBYTE , SAVREG SCLEAR EXTANEOUS BITS 
32 002260 106301 001153 CMP SAVREG.R1 [DID WE FIND THE DRIVE? 
33 002262 012305 BEQ 5$ TIF IT IS, WE HAVE FOUND IT 
34 002263 115404 INC R4 SELSE, INCREMENT SUBUNIT POINTER 
35 002264 106204 000004 CMP #4 RG [ENDED WITH THIS UNIT ENTRY? 
36 002266 052252 BNE 2$ 31F NOT, CONTINUE 
37 002267 105022 3$: ADD R2,R2 TELSE, NEXT PORT SET IN R2 
38 002270 115403 INC R3 S INCREMENT UNIT TABLE INDICATOR 
39 002271 106203 000004 CMP #4 ,R3 : DONE? 
40 002273 052251 BNE TIF THIS GETS TO 4, THEN ERROR(UNIT NOT FOUND) 
41 002274 ERRHRD MS2000,R1 
(02274 100461 MOV R1,-(SP) 
002275 025022 CALL RERROR — ;ERROR # 2000. 
002276 103720 <WORD ERHARD+ERRN 
002277 010000 <WORD <PRMS*10000>+mS2000 
42 002300 002315 BR RTO > START REGULAR TESTING 
3 j tee IF AHERE. NEGATIVE ENTRY, GO TO NEXT UNIT ENT ADJUST RO TO PROPER POINTER 
44 002301 105207 000003 is: #3,R0 sRO => IN NTO YWEXT UNI T\INCREMENTED BY (RO)+ 
45 002303 107047 SUB R4.RO REALIGN TO POINT TO BEGINNING OF POINTER 
002 002267 BR GO BACK INTO THE LOOP 
7 ; eee IF HERE, FOUND THE ENTRY, SAVE PERTINENT. VALUES, GO DOWN LINE LOAD PROGRAM 
48 002305 104659 000001 001152 5s: MOV 1(R5),LUNIT zSAVE LOGICAL UNIT NUMBER 
9 002310 104020 000741 MOV Re. .$D :$ T VALUE 
50 002312 104030 200740 MOV R3.UNITNB [SAVE UNIT NUMBER OFFSET IN TABLE 
51 002314 003377 BR D0.D12 [GO DOWN LINE LOAD PROGRAM 








4 
5 
6 
7 
8 
9 
10 002315 
002315 
13 002316 
14 002320 
15 OO 35 
16 002322 
17 002323 
18 002325 
19 002326 
20 002330 
21 002331 
22 002333 
23 002334 
24 002336 
25 002340 
26 00234 
27 00234 
39 009346 
002346 
30 002347 
31 002350 
$$ 002351 
33 002353 
34 002354 
$2 002356 
37 002357 
38 
39 002361 
40 002363 
41 002364 
42 002366 
43 002367 
44 002371 
45 002372 
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000729 


000003 
000003 
040000 
001152 


177760 


000001 
000741 


001647 
000740 
000020 
060016 





sSBTTL SEQUENCE THE DIAGNOSTICS TO ALL UNITS SELECTED 
: SEQUENCE THE. DIAGNOSTICS TO ALL UNITS SELECTED. 
sTEST CODE WILL BE CALLED FOR EACH DISK SUBUNIT TO BE TESTED. 
: LUNIT WILL CONTAIN LOGICAL UNIT NUMBER OF DRIVE FOR ERROR REPORTS 
: SDI WILL CONTAIN SDI INTERCONNECT CODE CODE FOR SELECTED DRIVE 


: UNITNB WILL CONTAIN AN NUMBER FOR TESTING FIRST SUBUNIT OF A DRIVE 
; AN ODD NUMBER FOR TESTING SECOND SUBUNIT OF A DRIVE 
; #* NORMAL PROCESSING 
PORTO: 

CLR R1 :START WITH UNIT 0 INDEX 
PORT2: MOV #UNITS,RO : GET POINTER TO UNITS TABLE 

ADD R1,R ; ADD INDEX 

MOV (RO) ,R3 : CET CONTENTS OF TABLE 

BPL 1$ : IF THIS UNIT IS PRESENT BRANCH 

BIT #3,R1 : SEE IF ON SUBUNIT O OF UNIT 

BNE PORTS : IF NOT, TEST NEXT SUSUNY T 

ADD #3,R1 : IF NO SUBUNIT 0, THEN NO UNIT = SKIP OTHER SUBUNITS 

BR PORTS + BYPASS IF NO 
1$ BIT #40000,R3 : SEE IF THIS UNIT IS TO BE TESTED 

BNE PORTS : IF NOT, 

MOV R1 UNITNB : STORE UNIT INDEX 

MOV RS. LU : STORE LOGICAL UNIT NUMBER FOR DRIVE 

MOV NITO, R2 : GET UNIT 0 INTERCONNECT CODE 

ROR ni : DIVIDE UNITNS BY FOUR 

BIC #LBLONB,R1 : CLEAR UNUSED BITS 
PORT3: DEC R1 

BNI PORTS 3 FOR EACH DRIVE OVER O SHIFT R2 LEFT 

BIC #10R : CLEAR CARRY ROTATED INTO REG (IF ANY) 
PORT4: MOV R2,SD1 STORE SDI INTERCONNECT CODE 

BR TEST PERFORM TEST ON THIS DRIVE 


E 0 TESTX 
TESTX: MOV #STACK SP RESET STACK D0 TO JUMPS OUT OF 
SUBROUTINES 
GET Us “ 
INCREMENT 


PORTS: INC 1 NDEX 
CMP #16.,R1 CHECK IF 16 DRIVES ALREADY SELECTED 
BNE PORTS REPEAT FOR ALL DRIVES 
DONECD: MOV #DONE ,RO END OF PROGRAM 
CALL - HOSTRQ 
DONE CD : REPEAT IF RETURNED 
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000043 


7 002413 002367 
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000126 
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29 002417 002367 
Ah 002420 114003 
33 002421 gt 


6 025022 
002427 103723 
000165 


000741 


010000 
004000 


000001 














E AND LOOK AT DRIVE SIGNALS 


-SBTTL INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
sSTART OF TEST CODE 


; INPUTS: 
; LUNIT = LOGICAL UNIT NUMBER OF DRIVE UNDER TEST 
; SDI = SDI INTERCONNECT CODE FOR DRIVE 
s INITIALIZE THE DRIVE 
TEST: CLR R3 sR3 IS A DECREMENT COUNTER TO CHECK IF THE 
COMMAND HAS BEEN RECEIVED BY THE DRIVE 
MOV SDI ,R2 GET SDI SELECT CODE 
XFC DINIT zs INITIALIZE THE DRIVE 
WAIT FOR DRIVE TO ASSERT RECEIVER READY 
TIME OUT AFTER ...? 
CLR RS 3GET TIMEOUT COUNTER 
ILOOP: CALL RDSTAT GET DRIVE STATUS 
BIT #10000,R1 SEE IF ANY ERRORS 
BEQ 2 zIF ERROR, BRANCH 
BIT #4000,R1 SEE _IF XMIT ERROR 
DEC R3 20N SEND ERROR, DID WE DEPLETE THE COUNTER? 
BNE ILOOP F NOT, TRY AGAIN 
ERRHRD MS2001 REPORT INVALID STATUS ERROR 
CALL RERROR sERROR # 2001. 
WORD ERHARD+ERRN 
eWORD <PRMS*10000>+MS2001 
BR DONECD BRANCH TO DONE 
1$: ERRHRD MS2002 REPORT XMIT ERROR 
CALL RERROR sERROR # 2002. 
-WORD ERHARD+ERRN 
«WORD <PRMS*10000>+MS2002 
2$ BR DONECD sBRANCH TO DONE 
CLR R3 :R3 IS A DECREMENT COUNTER TO CHECK IF THE 
COMMAND HAS BEEN tine BY THE DRIVE 
BIT #RCVROY,R1 CHECK RECEIVER READY LINE 
BNE ECHO1 sADVANCE IF _ASSERTE 
DEC spe cnt NT TIME OUT 


TI COUNTER 
BNE ILOOP Y IN LOOP UNTIL SIGNAL SETS OR TIMEOUT 
ERRHRD MS2003 REPORT ERROR 

CALL _RERROR _— # 2003. 


-WORD ERHARD 
“WORD EPRMS*10000>+MS2003 


ee DMACR x04.01 ery rg | 13:10:12 PAGE 29 SEQ 0269 | 
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ECHO DATA TO DRIVE 


j .SBTTL ECHO DATA TO DRIVE 
a sECHO THE FOLLOWING DATA PATTERNS TO THE DRIVE THEN CHECK THE 
4 re THE PROPER DATA RECEIVED: 
6 000 
7 : 52 
8 : 60 
2 : 017 
11 002431 104205 001163 ECHO1: MOV #ECHOD RS GET POINTER TO ECHO DATA 
12 002433 104157 ECHOIA: MOV (R5),RO :GET ECHO DATA 
13 002434 103207 177400 ECHO2: BIC #HIBYTE,RO [CLEAR COMMAND FROM WORD 
4 002436 060010 XFC ECHO [PERFORM THE ECHO COMMAND 
16 CHECK FOR TIMEOUT ERROR 
18 002437 115001 TST R1 :CHECK FOR ERROR 
19 002440 012460 BEQ ECHO4 [BRANCH IF NONE 
20 002441 102201 000001 BIT #1,R1 [CHECK IF SEND ERR 
21 002443 012453 BEQ ECHO3 [BRANCH IF RECEIVE ERROR 
22 002444 117403 DEC R3 ZIF SEND ERROR, IS THE COUNTER BEEN DEPLETED 
23 002445 052433 BNE ECHO1A sIF NOT, TRY AGAIN 
24 002446 ERRHRD AS3004, RO SREPORT SEND ERROR 
002446 100467 MOV RO,-(SP) 
002447 025022 CALL RERROR — ; ERROR # 2004. 
002450 103724 .WORD ERHARD+ERRN 
002451 010235 [WORD <PRMS*10000>+mS2004 
25 002452 002474 BR ECHOS 
26 002453 ECHO3: ERRHRD MS2005,R0 :REPORT RECEIVE ERROR 
002453 100467 V RO,-( 
002454 025022 CALL RERROR. sERROR # 2005. 
002455 103725 <WORD ERHARD+ERRN 
002456 010275 .WORD <PRMS*10000>+mS2005 
7 002457 002474 BR ECHOS 
23 ZCHECK DATA RECEIVED 
1 002460 106157 ECHO4: CMP (RS) RO :COMPARE DATA RECEIVED WITH 
32 002461 012474 BE ECHOS N 
33 002462 ERRHRD MS2006,(R5),RO ‘REPORT DATA COMPARE ERROR 
002462 100467 MOV RO,-(SP) 
002463 104010 001153 MOV R1.SAVREG 
002465 104151 mov (R5),R1 
2466 100461 MOV R1,-(SP) 
002467 104301 001153 MOV SAVREG,R1 
002471 025022 CALL RERR sERROR # 2006. 
002472 103726 <WORD ERHARD+ERRN 
% 002473 020340 eWORD <PRMS*10000>+MS2006 
H sMOVE TO NEXT DATA PATTERN 
37 002474 114003 ECHOS: CLR R3 
38 p05473 115405 INC R5 :BUMP TO NEXT DATA TO SEND 
39'002476 104157 MOV (R5) RO [CHECK IF AT END OF TABLE 
40 002477 072434 BMI ECHO? [SEND THIS DATA IF NOT 
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GET STATUS COMMAND 


~SBTTL GET STATUS COMMAND 
s ISSUE GET STATUS COMMAND AND CHECK THAT IT PERFORMS PROPERLY 


: 
4 
5 002500 194260 000002 000742 MOV #2,SAVSTA : COUNTER 
g 002503 624140 CALL GTSTAT ‘GET STATUS 
8 ZCLEAR DRIVE ERRORS 
10 002504 024220 DRCLR1: CALL = CLRDRV : CLEAR DRIVE 
12 
13 yISSUE GET STATUS COMMAND AND CHECK THAT IT PERFORMS PROPERLY 
15 002505 GSTS3: 
16 002505 024140 CALL = GTSTAT :GET STATUS 
18 ;LOOK AT DATA IN RESPONSE PACKET 
20 002506 104307 000745 GSTS6: MOV ST+1,RO zGET TWO WORDS FROM PACKET 
21 002510 104301 000746 MOV $T+2,R1 
22 002512 102201 000250 BIT #ST.WE+ST.PE+ST.FE,R1 CHECK ERROR BITS 
23 002514 012524 BEQ 10$ SBRANCH IF ALL CLEAR 
24 002515 117400 000742 DEC SAVSTA TRY ONCE MORE? 
25 002517 052504 BNE DRCLR SIF OK, TRY AGAIN 
26 002520 024274 CALL = STOSTA 'GO STORE STATUS 
27 002521 ERRHRD MS2007 
002521 02502 CALL RERROR _ ;ERROR # 2007. 
002522 10372 CUORD ERHARD+ERRN 
ie 002523 21 “WORD <PRMS*10000>+MS2007 
39 002524 104070 000742 10$: MOV RO, SAVSTA ;SAVE STATUS TO CHECK IF DIAGNOSTIC REQUEST BIT IS $ 
31 zISSUE ONLINE COMMAND AND CHECK THAT IT PERFORMS PROPERLY 
33 002526 104203 001446 MOV #CR.ONL,R3 :R3 => COMMAND 
34 002530 024712 CALL _—s*TALKER ‘SEND TO DRIVE 
35 602531 115003 TST R3 TALL OK? 
36 002532 012547 BEQ 30$ :1F SO, CHECK RESPONCE CODE 
37 002533 032540 BPL 20$ TELSE, IS MSB SET?/I1F NOT, RECEIVE ERROR 
38 002534 ERRHRD MS2008 [REPORT SEND ERROR 
002534 025022 CALL RERROR — ; ERROR # 2008. 
002535 103730 .WORD ERHARD+ERRN 
002536 000500 .WORD <PRMS*10000>+mS2008 
39 002537 002575 BR GSTS7 F 
40 002540 024513 20$: CALL _—s«*TYPERR 
41 002541 ERRHRD MS2009,R0,R3 :REPORT RECEIVE ERROR 
002541 100463 V RS, ~($P) 
002542 100467 RO, =< 
002543 025022 CALL RERROR- sERROR # 2009. 
002544 103731 <WORD ERHARD+ERRN 
002545 020530 “WORD <PRMS*10000>+mS2009 
42 002546 00257 BR GSTS? : 
43 002547 106207 900176 30$: CMP #COMPLT,RO [CHECK RESPONSE CODE 
44 002551 012575 BEQ GSTS7 :1F OK, CON 
45 002552 106207 000175 CMP #UNSSUC,RO TIF Not CORRECT RESPONSE, UNSSUC? 
46 002554 052562 BNE 35$ :1F NOT, UNRECOGNIZED RESPONSE 








ses eaenaniaenrc eee A AE WE Rennie — ientaniaial 
‘your DISK RESIDENT DMACR X04.01 19-AUG-82 13:10:12 PAGE 31-1 SEQ 0272 
GET STATUS COMMAND 


4 002555 024274 CALLS s! TOSTA :CHECK STATUS 
0025 925022 : CALL RERROR _;ERROR # 2010. 
eWORD ERHARD+ERRN 
«WORD <PRMS*10000>+MS2010 


BR GSTS7 
50 002562 35$: ERRHRD MS2011,#COMPLT,RO :1F NOT, REPORT ERROR 

oosecs 100467 MOV RO,-(SP) 
002563 104010 001153 MOV R1,SAVREG 
002565 104201 1176 MOV #COMPLT,R1 
002567 100461 MOV R1,=-(SP) 

2570 104301 001153 MOV SAVREG,R1 
002572 06 3066 CALL RERROR ERROR # 2011. 
002573 10373 .WORD ERHARD+ERRN 
002574 020607 - WORD <PRMS*10000>+MS2011 


51 
52 002575 GSTS7: 















GET DRIVE CHARACTERISTICS 
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SEQ 0273 


1 . GET DRIVE CHARACTERISTICS 
: GET DRIVE CHARACTERISTICS 
4 002575 104200 000012 001154 MOV #10.,SDISTO : SET uP TEMPORARY SHORT TIMEOUT VALUE 
5 002600 104203 001440 MOV #CR.GCR,R3 [POINT TO GET CHARS COMMAND 
00260 024712 CALL TALKER : INITIATE SDI INTERCHANGE 
002603 11500 TST R3 [SEE IF ERROR OCCURRED 
002604 012621 BEO 12$ SIF NOT, BRANCH 
9 002605 032612 BPL 11$ ‘IF SO, BRANCH 
10 902606 ERRHRD MS2012 SSEND COMMAND ERROR 
2606 025022 CALL RERROR _; ERROR # 2012. 
002607 103734 -WORD ERHARD+ERRN 
002610 000674 “WORD <PRMS*10000>+mS2012 
11 002611 002647 
12 002612 024513 11$: CALL _—sTTYPERR ZCHECK WHAT TYPE OF RECEIVE RROR 
13 002613 ERRHRD MS2013,R0,R3 
002613 100463 MOV R3,-(SP) 
002614 100467 V RO,=(S 
002615 025022 CALL RERROR ERROR # 2013. 
002616 103735 <WORD ERHARD+ 
002617 020735 WORD <PRMS*10000>+MS2013 
14 002620 002647 BR T00 
15 002621 106207 000170 12$: CMP #CHRRES,RO ZCHECK FOR SUCCESSFUL RESPONSE 
16 002623 012647 BEQ T00 
17 002624 106207 000175 CMP #UNSSUC RO :1F NOT CORRECT RESPONSE, UNSSUC? 
18 002626 052634 BNE 13$ TIF NOT, UNRECOGNIZED RESPONSE 
19 002627 024274 CALL STOSTA [CHECK STATUS 
20 002630 ERRHRD MS2014 : 
002630 025022 CALL RERROR aigRROR # 2014. 
002631 103736 «WORD ERHARD+ 
002632 001001 “WORD EPRMSs 10000>+MS2014 
21 002633 002647 BR T00 
22 002634 13$: | ERRHRD MS2015,#CHRRES,RO :GET CHARACTERISTICS COMMAND FAILED 
002634 100467 MOV RO,-(SP) 
002635 104010 001153 MOV R1,SAVREG 
002637 104201 000170 MOV #CHRRES,R1 
002641 100461 V R1,-(S 
002642 104301 001153 MOV SAVREG,R1 
2644 025022 CALL RERROR ZERROR # 2015. 
002645 103737 <WORD ERHARD+ERR 
002646 021035 “WORD SPRMS*10000>+MS2015 
002647 104307 000744 100: MoV ST*SHRTTO RO : GET SHORT TIMEOUT 
25 002651 103207 177760 BIC #LBLONB, RO + CLEAR UNUSED BITS 
26 002653 025005 CALL 0 : SET UP TIMEOUT 
27 002654 104070 001154 MOV RO, SDISTO + SAVE IN SHORT TIMEOUT 
28 002656 104307 000745 MOV ST+LONGTO,RO : GET LONG TIMEOUT 
29 002660 103207 177760 BIC #LBLONB,RO : CLEAR pUNUSED BITS 
30 002662 025005 CALL 10 > SET UP TIMEOUT 
31 002663 104070 001155 MOV RO, SDILTO : SAVE ve LONG TIMEOUT 


a 
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WHICH COMMAND HAS BEEN GIVEN 


ST.DIA: MOV 
BIT #ST.OR,RO 


SEQ 0274 


-SBTTL CHECK WHICH COMMAND HAS tt: GIVEN 
SAVSTA,RO 3GET 


Ag 3 at Ser - 
SO, GO HANDLE IT WITHIN DIAGNOSE CODE 


BNE DO.DIX :IF 
33 *** DO AN aad! | WRITE MEMORY TO CLEAR THE REGION (ONLY 4 BYTES) 
MOV FFC,WRM+1 tt N ID 


M+5 
#10.,CR.WRM+1 
CALL WRTMEM 


MOV #7, CR.WRM+1 

3 *** NOW GO DIAGNOSE REGION ZERO 
CLR OUT.01 
CLR OUT .92 


CLR DIAG.1 
CLR IN.02 
BR DIAGNS 
3;_*** RETURN HERE TO GET NEW COMMAND 
GT.CMD: 
MOV #T2CMD,RO 
CALL HOSTRQ 
MOV IN.01,R0 
BEQ TESTEX 
DEC R 
BEQ WRITE 
DEC RO 
BEQ READ 
DEC RO 
BEQ OIAGNO 
ERRHRD '*S2016,1N.01 


BR GT.CMD 


: OF 
BYTE Count AND 1ST DATA BYTE 
;DATA 


A 

;SET Wty! Mae COUNT 

[CLEAR BUFF 

;SET COMMAND” BYTE COUNT 

s CLEAR OUT BUFFER TO INITIAL DIAGNOSE COMMANDS 


iMAKE SURE DIAGNOSE COMMAND aaa OP-CODE = 0 


(FOR 1ST TIME THROUGH ONLY 
ICLEAR REGIOW ID FOR 1ST DIAGNOSE COMMAND 


D0 DIAGNOSE COMMAND, 1ST THING 


[SET REQUEST NUMBER 


SASK HOST FOR PORTS 
:RO = RESPONSE CODE : IN.02 
:Q= EXIT; 1 = WRITE 
2s READ 3 = DIAGNOSE 
+ OP = 0 /EXIT 
: RO = 1? 
: IF SO, WRITE 
: RO = 2? 
: IF SO, READ 
; RO = $2 
: IF $0, DIAGNOSE 
: ELSE, ERROR= INVALID INPUT 
V R1,SAVREG 
V IN.01,R1 

MOV R1.-(SP) 

MOV SAVREG 

CALL RERROR =; ERROR # 2016. 


-WORD ERHARD+ERRN 
eWORD <PRMS*10000>+MS2016 


C 6 
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MEMORY WRITE 
j .SBTTL MEMORY WRITE 
3e* 

3 3 

4 ; INPUT IN.02 = REGION ID 

5 3 IN.03 = OFFSET 

$ ; N.04 = DATA BYTE 

8 ; OUTPUT OUT.RQ HAS DAT SET FOR T2CMD 

10 002755 WRITE: 

11 002755 104300 001546 001274 MOV N.02,WRM+1 :REGION ID 

12 002760 104300 001547 001215 MOV N.03,WRM+2 [OFFSET 

13 002763 104307 001550 MOV N04 RO [RO = BYTE OF DATA IN LO BYTE 
14 002765 110707 SWAB ORR ‘RO IS IN HI BYTE 

15 002766 103207 000377 BIC #LOBYTE ,RO [CLEAR LO BYTE 

16 002770 101207 000001 BIS #1,R ‘SET BYTE COUNT 

17 002772 104070 001216 MOV RO. WRM+3 [SET WORD IN PACKET 

18 002774 114000 001217 CLR WRM+G 

19 002776 114000 001220 CLR WRM+5 
20 00 104200 000007 001207 MOV #7,CR.WRM+1 :SET COMMAND BYTE COUNT 
22 003003 023730 CALL = WRTMEM 
23 00 104200 000001 001503 MOV #1,0UT.02 :RO = OP CODE 
24 003007 104300 001152 001562 MOV LUNIT,OUT.01 [DRIVE NUMBER 
25 003012 114000 001504 CLR OUT.0% : 
26 003014 114000 001505 CLR OUT .04 : 
27 003016 114000 001506 CLR OUT.05 ; 
28 003020 002726 BR GT.CMD [GO SEND REQUEST 
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MEMORY READ 
} .SBTTL MEMORY READ 
33° 

3 ; 

rh : INPUT IN.02 HAS REGION ID 

3 : IN.03 HAS OFFSET 

f ; OFFSET -SETS UP OUTBUFFER FOR T2CMD 

9 003021 ReaD: 

10 003021 104300 001546 001430 MOV IN. 02. ROM+1 :REGION 1D 

11 003024 104300 001547 001431 MOV IN.03,RDM+2 OFFSET 

l 003027 104200 000001 001432 MOV #1 ROA g ‘BYTE COUNT 

14 003032 023642 F CALL __RDMEM 

15 : *** SET UP RESPONSE PACKET 

16 003033 104300 001152 001502 MOV LUNIT,OUT.01 :SET UP REQUEST 

17 003036 104200 000002 001503 MOV #2,0UT.02 ‘RETURN OPCODE SET IN BUFFER 
18 003041 104307 000744 MOV ST,RO :RO = BYTE COUNT + DAT 

19 003043 110707 SWAB —s- RO SDATA IN LO BYTE 
20 003044 103207 177400 BIC #HIBYTE,RO ‘CLEAR BYTE COUNT (1 BYTE ONLY SENT) 
21 003046 104070 001504 MOV RO,OUT.03 SSTORE IN BUFFER FOR HOST 
22 003050 114000 001505 CLR OUT .04 : 
23 003052 114000 001506 CLR OuUT.05 ; 
34 003054 002726 BR GT.CMD [GO SEND REQUEST 
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BNE 
; *e* DRIVE HAS 
$: CALL 


BR 
; ee DRIVE HAS 
$: CALL 
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SEND DIAGNOSE COMMAN 


4 
5 
6 
? 
8 
9 
0 
1 
é 
3 
4 
5 
6 
7? 
8 
9 
0 
1 
2 
3 


-SBTTL SEND S aaeath COMMAND 
000742 DIAGNS: git AVSTA 


E 
5 we “— IS SPINNABLE 
SDI,R 
oa" «SR,SAVSTA 
NOT BEEN SPUN UP 
DIAGOR 


#ST.RU, 


RUNDR 


$ 
BEEN SPUN UP 
RECAL 

SDI ,R2 
DIAGDR 
GT.CMD 
sEND OF TESTING THIS DRIVE 


TESTEX: BR TESTX 


sELSE 00 A RECAL 


RESTORE PORT INDEX 
D0 A DIAGNOSE COMMAND 
;GET COMMAND 


:GO BACK TO DRIVE SEQUENCER 


SEQ 0277 


sCHECK IF DRIVE IS SPINNABLE (RUN SWITCH IN?) 
ONLY DO DIAGNOSE ONCE IF NOT SPINNABLE 


Hi HAS eive piee + ll INDEX 
TF NOT ALREADY SPUN UP, vO DIAGNOSE TWICE 
:D0 A DIAGNOSE COMMAND 


sRESTORE PORT INDEX 
SPIN UP THE DRIVE 


I 
T 2 SPECIFIC ROUTINES 


1 
2 
3 
4 
5 
6 
7? 
8 
9 
10 
11 003102 
12 003102 104200 177777 001151 
13 003105 1043500 001546 001463 
14 003110 104203 001455 
15 003312 104302 
16 003114 024712 
17 003115 114000 001151 
18 003117 115003 
19 003120 013136 
20 003121 110203 
$3 003122 043127 
23 003123 
003123 025022 
003124 103741 
003125 001224 
$s 003126 003167 
58 003127 024513 
27 003130 
003130 100463 
003131 100467 
003132 025022 
003133 103742 
003134 021255 
$8 003135 003167 
30 003136 
31 003136 106207 000374 
32 003140 013173 
33 003141 106207 000176 
34 003143 013173 
35 003144 soee0 000175 
36 003146 053154 
37 003147 024274 
38 003150 
003150 02502 
003151 10374 
003136 00131 
39 003153 00316 
40 003154 
003154 100467 
003155 104010 001153 
003157 104201 9003 
003161 100461 
003162 104301 001153 
003164 025022 





vost DISK 3 ; DENT ae X04.01 19-AUG-82 13:10:12 PAGE 37 


F 6 


SEQ 0278 


7SET 2 ye NONZERO FOR DIAGNOSE COMMAND 
;SET UP MEMORY REGION ID 
:RS->DIAGNOSE PACKET 


PORT 
SEND COMMAND AND RECEIVE RESPONSE FROM DRIVE 


7 SEE mY ERROR OCCURRED 
IF NO ERRORS, BRANCH 


-SBTTL TEST 2 SPECIFIC ROUTINES 

-SBTTL DIAGNOSE COMMAND PROCESSING 
age 
$ INPUT IN.02 HAS REGION ID 
: OUTPUT OUT.RQ IS SET UP FOR T2CMD 
: IF ooree’ R2 = 1 
$ LSE. R2 = 0 
DIAGOR: 

MOV #177777, — 

MOV IN.02, DIA+1 

MOV #CR.DIA,R3 

MOV 1,R2 

CALL TALKER 

CLR SENDHR 

TST R3 

BEQ 2$ 

ROL R3 

cc 1$ 


8 
3 *** REPORT TRANSMISSION ERROR 
ERRHRD MS2017 


BR 4$ 
; ##* REPORT RECEPTION ERROR 
i$: CALL 

ERRHRD MS2018,R0,R3 


BR 4$ 
; *** CHECK RESPONSE OP-CODE FROM DRIVE 


ds: 
CMP #DIA.EN,RO 
BEQ $ 
CMP #COMPLT,RO 
BEQ 
CMP #UNSSUC ,RO 
BNE 3$ 
CALL STOSTA 
ERRHRD MS2019 
BR 4$ 

3$: ERRHRD MS2020,#DIA.EN,RO 


SHIFT HIGH BIT INTO CARRY BIT 
zIF CARRY CLEAR (RECEIVE ERROR) BRANCH 


CALL RERROR ERROR # 2017. 
-WORD ERHARD+ERRN 
eWORD <PRMS*10000>+MS2017 


MOV R3,-(SP) 
MOV RO,-(SP) 
CALL RERROR sERROR # 2018. 
eWORD ERHARD+ERRN 
-WORD <PRMS*10000>+MS2018 


CHECK RESPONSE CODE 
IF EQUAL, CH 


: IF $0, 
iF NOT CORRECT RESPONSE, UNSSUC? 
SIF NOT. UNRECOGNIZED RESPONSE 
[CHECK STATUS 

CALL RERROR _; ERROR # 2019. 

.WORD ERHARD+ERRN 

SWORD EPRMS* 10000>+MS2019 


V RO,-(SP) 


REG,R1 
L RERROR sERROR # 2020. 
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| DIAGNOSE COMMAND PROCESSING 
003165 103744 .WORD ERHARD+ERRN 
003166 021336 -WORD <PRMS*10000>+MS2020 
41 003167 024220 4$: CALL CLRDRV 
42 003170 104202 000001 MOV #1,R2 
43 003172 000000 RETURN 
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DIAGNOSE/READ MEMORY TO SEE IF ERROR OCCURRED 


- SBTTL Bintan tet cp MEMORY TO SEE IF ERROR OCCURRED 
5 eee D0 A. READ ys eo SDI COMMAND 


S$: HR 
MOV ST,ROM+1 :REGION ID SET 
CLR RDM+2 SCLEAR OFFSET 
M0 #8. ,ROM+3 sBYTE COUNT = 
CALL RD READ THE MEMORY 
BNE DO.DC4 :IF NOT, DO DRIVE CLEAR/TRY NEXT DRIVE 
MOV SDI,R2 SRESTORE PORT IN DICAT 
#OUT.05,R4 [R4 => OUT BUFFER 
NMEM ‘CONVERT MEMORY 


CALL CO 
; **® DATA NOW IN OUT.RQ 
MOV R3 HAD ET & DA FLAGS 


T. 
g eee OES IF DATA IS AVAILABLE FOR INFORMATION 
BIT #DATAVL ,R3 31S DATA oe 


BEQ TIF CONTINUE WITH THIS DRIVE 

MOV #8. ,RDM+2 [PREVIOUS BYTE COUNT 

CALL  GETB [GET NEW BYTE COUNT 

CALL = RDMEM RE Y XFC 

TST 2 TALL OK? 

BNE DO.DC4 tIF NCT, DO DRIVE CLEAR/ELSE. DROP DRIVE 
MOV SDI,R2 ; RESTORE PORT IN DICA 

MOV #OUT .09,R4 RG = > Sut BUFFER 

CALL CONMEM CONVERT 


MEMORY 
6$: BIT #ERRTYP,R3 WAS ET SET? WITH NO ERROR NUMBER??? 
BEQ 7$ z1F NOT, CONTINUE 
3 *** REPORT AN ERROR 
ERRHRD MS2021 
CALL "Enos sERROR # 2021. 
-WORD ERHARD+ERRN 
- WORD <PRMS* 10000>+HS2021 


BR DO.DC4 GO DO DRIVE CLEAR 
7$: BIT #DATAVL .R3 21S DATA AVAILABLE? 
BE -DC4 zIF NOT, DO DRIVE CLEAR 


Q D 
MSSGE MSG1 
MOV LUNIT,OUT.01 
MOV #MSG1 ,OUT.02 

MOV RO,-(SP) 
MOV R1,-(SP) 
MOV rot aay 


CALL HOST 
MOV (SP)+,R1 
MOV (SP)+,RO 






IAGNOSE/DO A DRIVE CLEAR 


pate DISK RESIDENT DMACR X04.01 19-AUG-82 13:10:12 PAGE 39 








ET 
MAX IMUM ot ha CLEAR TRIES 


ONTINUE 
sREACHED MAXIMUM # OF DRV CLR TRIES? 
:] RY AGAIN 


z1F NOT, CONTINUE 
:REACHED > Tay atain OF DRV CLR TRIES? 


D FFFD 
ir ID) STORED IN READ MEM PACKET 


zIF THERE WAS NOT, CONTINUE 
VE CLEAR 
RESTORE PORT INDICATOR 


31S pg ~ ENCODED? 
GO GET FILE FROM HOST 


1 .SBTTL DIAGNOSE/DO A DRIVE CLEAR 

é * DO DRIVE CLEAR, GET STATUS AND CHECK IF DR Sit als S 

003265 104200 900004 001156 bo. DCG: MOV 4, SAFWRD WRD 

4 003270 104302 00074 O.DCL: MOV Spi Re sRESTORE ~poRT INDICAT 
5 003272 024220 CALL pate * CALL DRIVE CLEAR 
6 00327 115003 TST S ERROR? 

7 003274 013301 BEQ 1$ IF NOT 

8 003e75 117400 001156 DEC SAFWRD 

9 003277 053270 BNE DO.0C z1F NOT, TRY 

10 003300 003612 BR DO.DIO : ELSE, ERROR 
11 003301 024140 1$: CALL GTSTAT CALL GET STATUS 
12 003302 115003 TST R3 ‘ERROR? 

13 003303 013310 BEQ 2$ 
14 003304 117400 001156 DEC SAFWRD 

15 003306 053270 BNE DO.DCL 3 
16 003307 003612 BR DO.DIO ELSE. ToeRR R 
17 003310 104307 000745 2$: MOV $T#1,R0 :GET STATUS WORD 
18 003312 102207 000040 BIT #ST.OR,RO R SET? 
19 003314 013612 BEQ DO.D1 At EXIT 
20 ; see IF DR BIT IS SET, READ 6 BYTES FROM REGION I 
21 003315 104200 177775 001430 bO.DIX: MOV #FFFD,ROM+1 
22 003320 114000 001431 CLR DM+2° OFF Sct 
23 003322 104200 000006 001432 V #6,ROM+3 SBYTE COUNT = 6 
24 003325 023642 CALL RDMEM sREAD MEMORY 
25 003326 115002 TST 2 [WAS THERE AN ERROR? 
26 003327 013331 BEQ 3$ 
27 003330 C03612 BR DO.D10 D0 A DRI 
28 003331 104302 000741 3$: MOV SDI,R2 
29 003333 104204 000744 WST_RG 
30 003335 024325 CALL CONMEM [CONVERT MEMORY 
3; *** GET REGION ID AND PROGRAM NAME IF ANY 
32 003336 104300 000744 000743 MOV ST,SAVRID sSAVE REGION ID 
33 003341 115000 000745 TST ST#+1 
003343 053347 BNE 00.011 
5 003344 115000 000746 TST ST+z 
36 003346 013530 BEQ 30. DI3 


TIF ist WORD 0, IS THE SECOND? 
IF SO, GO DIAGNOSE REGION 
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DIAGNOSE/GET PROGRAM NAME SPECIFIED BY DRIVE AND DOWNLINE LOAD 
1 .SBTTL DIAGNOSE/GET PROGRAM NAME SPECIFIED BY DRIVE AND DOWNLINE LOAD 
‘ aact i nee GET THE PROGRAM WHICH NAME WAS SPECIFIED BY THE DRIVE 
4 003347 104300 000743 001214 MOV SAVRID,WRM+1 ; STORE REGION, 1D IN THE WRITE PACKET 
5 003352 104203 001502 MOV #OUT.01,R3 :R3 => INPUT 
6 003354 104307 001152 MOV LUNIT,RO 
7 003356 100237 MOV RO, (R3)+ 7SET UNIT NUMBER 
8 003357 114007 CLR RO 
9 003360 100237 MOV RO, (R3)+ ZCLEAR VALUE 
10 003361 104307 000744 MOV ST. 
11 003363 100237 MOV RO, (R3)+ ZSAVE REGION ID 
12 003364 104307 000745 MOV ST#1,R 
13 003366 100237 MOV RO, (R3)+ :1ST HALF NAME SAVED 
14 003367 104307 000746 MOV $T#+2,R 
15 003371 100237 MOV RO, (R3)+ :2ND HALF NAME SAVED 
16 003372 104207 060001 MOV #TEDLL,RO 3SET RO = TEST 2 DOWNLINE LOAD 
17 003374 024652 CALL HO 
18 ; *e* IF HERE, DIDN'T REINIT UDA TO GET DATA 
19 003375 104205 001545 MOV #IN.01,R5 7R5 => INPUT BUFFER 
20 ; *** DOWN LINE LOAD PROGRAM 
21 003377 114000 001215 60.012: CLR WRM+2 ZCLEAR OFFSET 
22 003401 104157 MOV (R5) RO ‘IS THE PROGRAM THERE? 
23 003402 117407 RO 
24 003403 053537 BNE DO.D18 z1F NOT, REPORT ERROR 
; *** GET THE PROGRAM FROM THE HOST 
26 003404 104657 000004 i$: MOV 4(R5),RO SUNIBUS ADDRESS PA 
27 003406 104651 000005 MOV 5(R5).R1 [UNIBUS ADDRESS EA 
28 005419 104652 000006 MOV (R5) .R2 *BYT COUNT 
29 003412 053416 BNE $ [IF BYTE COUNT IS NOT ZERO, CONTINUE 
30 003413 ERRHRD MS2022 TELSE, REPORT THE ERROR 
003413 025022 CALL RERROR _ ; ERROR # 2022. 
003414 103746 .WORD ERHARD+ERRN 
003415 001511 -WORD <PRMS*10000>+mS2022 
31 003416 104203 000744 2$: MOV #ST,R3 :POINTER TO INPUT BUFFER 
32 003420 106202 000200 CMP #STSIZE,R2 zR2 > MAX BUFFER SIZE? 
33 003422 033425 BPL 3$ SIF NOT, CONT 
34 003423 104202 000200 MOV WSTSIZE,R2 TSET MAX BUFFER SIZE IN R2 
35 003425 060013 3$: XFC UREAD :D0 A UNIBUS READ 
3 3 *** SET UP SDI COMMAND PACKETS 
37 003426 104020 001207 MOV R2,CR.WRM+1 :SET BYTE COUNT IN WRM PACKET 
38 003430 105200 000006 001207 ADD #6.CR.WRM+1 3ADD TO COUNT TO INCLUDE PACKET LENGTH(1), 
39 SDI OPCODE(1), REGION ID(2), AND OFFSET(2) 
40 003433 104650 000003 001214 MOV 3(R5) ,WRM+1 ?SET REGION 
41 003436 104020 001216 MOV R2,WRA+3 :SET BYTE COUNT IN BUFFER 
42 003440 104303 000744 MOV ST,R3 :1$T DATA WORD 
43 003442 110703 SWAB RB 31ST DATA WORD IN UPPER BYTE 
44 003443 103203 000377 BIC #LOBYTE R3 CLEAR LOW BYT 
45 003445 101030 00121 BIS R3,WRM+S SEF DATA IN 1ST BUFFER WORD OF WRT MEM PACKET 
46 003447 104020 00115 MOV R2. SAVREG [SAVE BYTE COUNT 
47 003451 117402 DEC R2- SADJUST BYTE COUNT 
48 003452 103200 000377 000744 BIC #LOBYTE ST ZCLEAR LOW BYTE OF 1ST DATA WORD OF PROGRAM 
49 003455 101020 000744 BIS R :REPLACE IT BY THE BYTE COUNT OF THE REST 
50 003457 104204 001217 MOV #URM+G RG 7R4 => OUT BUFFER 
51 003461 024325 CAL CONMEM’ [CONVERT MEMORY 
j tee SEND. to THE DRIVE 
53 003462 104302 000741 SDI, R2 ;RESTORE PORT INDICATOR 


1 
4 003464 023730 CALL WRTMEM SEND TO DRIVE 





= ————————————— ee 


z 
Z 
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001153 
001215 
000006 
000006 


000004 
000004 


000005 
000005 


001215 
000007 001207 
000003 001546 
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D BY DRIVE AND DOWNLINE LOAD 


RO 
RO,5(R5) 
1$ 


; *e* SET UP og COMMAND 
$: CLR M+2 

ar ecR. WRM+1 
ee —— 02 


3 tee ‘et Banas > THE REGION ID TO DIAGNOSE TO. 
000743 001546 60.D13: AVRID 02 ;STORE R 


DIA GDR 


ee OK? 
5 whe GO CLEAR DRIVE 
YTE COUNT 
ADJUST OFFSET 


we hit BYTE COUNT/DONE? 
31F NEG, EXIT 


sELSE, ADJUST UNIBUS ADDRESS TO READ FROM 
4H S PA ADDRESS te BUFFER SIZE? 


eRe IMGT OFFSET 
REIN: T BYTE COUNT OF INSTRUCTION 
REGION ID 


T UP 
{SEND DIAGNOSE COMMAND 


GO DIAGNOSE IT. 
‘oe ID FOR DIAGNOSE COMMAND 


SEQ 0283 


sELSE, INCREMENT EA ADDRESS (CROSSED 0 BOUNDARY) 
READ IN NEXT BUFFER 











3534 104650 000001 
000007 


001146 
04070 001147 


101070 001147 
4 000010 


104070 001145 
0 

101070 001145 
04047 


001146 


3572 104010 001153 
003574 104301 001147 


001146 
001145 
001153 


MEWN —O OONOUSWN $0 OONOU Sw 


So 
w 
oO oa 
ESRSRS 
soe 
Wew 
SOnonon 
SNH mS So 
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DIAGNOSE/REPORT ERROR == NO DOWNLINE LOAD PROGRAM 


SEQ 0284 


-SBTTL oe teoe patoton ERROR == NO oy w LOAD PROGRAM 


* NO DOWN LINE LOA 


000740 60.017: MoV 


60.018: 


ERRHRD 


RO 
RO,NAM.2 
D1V50 
RO,NAM.3 
R4,RO 
FNDASC 
RO 
RO,NAM.3 
10(R5) RG 
DIV50 
RO.NAM.1 
1¥50 
RS 
RO,NAM.1 
R4_RO 
PNDASC 
M.2 
33003 MAM. 1 


Ay yon AFTER REINITED UDA 
1(R5) ,UNITNB 


; wee ew LINE LOAD PROGRAM, REPORT ERROR 
7(RS) RS 


sSET UP LOGICAL UNIT NUMBER 


= 1ST WORD OF PROGRAM NAME 
{DIVIDE E BY 50 AND GET 3RD CHARACTER 
;PUT IN PROPER BYTE 


:GET “ASCII EQUIVALENT 
PUT IN PROPER BY 
7SET 1ST CHARACTER 
:R4 = 2 R 


;PUT I 
SET STH CHARACTER 
zRO = RADSO OF 4TH —- 
3FIND ASCII EQUIVALENT 
;SET 4TH CHARACTER 


NAM.2,NAM.3 ;REPORT ERROR 


MOV Ri SAvaEG 


EG,R1 
CALL RERROR aes # 2023. 
«WORD ERHARD+ERR 


- WORD <PRMS*10000>+MS2023 


Beeaee 
MEM Ven 


ss sssssssssss 
Bini 
SS wuss 


DBNAOUSWN $C DOONOUS Wh 


Sn i Ss es 
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DIAGNOSE/REPORT ERROR == NO DOWNLINE LOAD PROGRAM 


000741 
001152 
001144 


001503 
000003 
000744 


001505 
177777 


.SBTTL DIAGNOSE/SET UP RESPONSE TO HOST AND EXIT 
; wee SET UP RESPONSE PACKET 
: MOV DILR ;RESTORE PORT INDICATOR 
OV SAVE UNIT NUMBER 
SIF NOT, SKIP 
:SeT uP PROPER OP=CODE VALUE 
“SET UP REQUEST 
;REGION ID SET 


‘MAKE SURE DIAG.1 HAS NONE ZERO VALUE IN IT 
+ FOR NEXT TIME THROUGH 


U a 
#177777 ,DIAG.1 


——-_ a 


“SO DOONOUSWN$O OONOUS wh 
So 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 


003702 
43 003705 


003722 
024513 


008722 

106207 
013720 
024274 
025022 


001422 
000741 


000162 
000175 


5s: 
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AD MEMORY SUBROUTINE 


-SBTTL READ MEMORY SUBROUTINE 
ROUTINE NAME: RDMEM 
DESCRIPTION 


THIS ROUTINE DOES XFC ne. ad (FROM A_SPECIFIED — 
AND OFFSET) OF HE 


ERRHRD 


BR 4$ 
; #* REPORT RECEPTION ERROR 
i$: CALL  TYPERR 


DATA FROM THE DRIVE. THIS ROUTINE CALLS T 


SEND AND RCV (TALKER) ROUTINE AND JUDGES IF THE SDI COMMAND 
WAS PROPERLY SENT. 
INPUT: as PARAMETERS FOR THE READ MEMORY COMMAND 
"MUST BE SET. THAT MEANS REGION ID, THE OFFSET, 

AND THE BYTE COUNT MUST BE GIVEN THE APPRORIATE VALUES 

AND STORED IN THE RDM PACKET 
OUTPUT: R2 = oF MEANS ALL IS Ok 

R2 NOT = 0, READ a (EITHER SEND OR RECIEVE OF THE COMMAND) 
ST HAS THE READ DATA 
DMEM 

PUSH <RO,R1,R3> sSAVE THESE REGISTERS 

MOV RO,=-(SP) 

MOV R1,-(SP) 
MOV R3,-(SP) 
MOV #CR.ROM,R3 3R3 => RDM PACKET 
MOV SD1,R2 :R2 = PORT 
os + : SEND. COMMAND AND RECEIVE RESPONSE 
BEQ 2$ :IF NONE SO FAR, CONTINUE 
ROL R3 ERROR ON SEND? 
BCC 1$ 2I1F CARRY CLEAR (RECEIVE ERROR) BRANCH 
; *** REPORT TRANSMISSION ERROR 

ERRHRD MS2024 


CALL _RERROR 
WORD ERHARD+E 


ERROR EXIT 
:GO CHECK TYPE OF ERROR 
ses R3, pe) oA. 
Vv RO,-< 


CALL RERROR 
WORD ERHARD+ERRN 


MS2025,R0,R3 


{WORD <PRMS*10000>+mS2025 


SEQ 0286 | 


ERROR # 2024. 
-WORD <PRMS*10000>+MS2024 


ERROR # 2025. 


BR 4$ ERROR EXIT 
w*e CHECK RESPONSE OP-CODE FROM DRIVE 

CMP #ROM.EN,RO scare RESPONSE 

BEQ z1F IT MATCHES, OK, EXIT 

CMP #UNSSUC , RO IF NOT CORRECT RESPONSE, UNSSUC? 

BNE 4 IF NOT, UNRECOGNIZED RESPONSE 

CALL STOSTA :CHECK STATUS 

ERRHRD MS2026 ; 
CALL yor ERROR # 2026. 
-WORD ERHARD+ERRN 

- “a «WORD <PRMS*10000>+MS2026 
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READ MEMORY SUBR 
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6$: 


3$: 
4$: 


ERRHRD MS2027,#RDM.EN,RO 


sERROR EXIT 
sALL OK, EXIT 


TERROR OCCURED, SET R2 


1 

sERROR # 2027. 
ERRN 
“WORD <PRMS*10000>+MS2027 






) 


NO DDNAOUEWN OC OONOU SW z 


NNR 2 2 os 
esses 
ANN 


aa bakes DMACR X04.01 19-AUG=82 13:10:12 PAGE 44 
UBROUT INE 


SEQ 0288 


-SBTTL WRITE MEMORY SUBROUTINE 


WRTMEM 
hg gt be 
WITH A 


IN THE PACKET. 


RTMEM: MOV #CR.WRM,RS 
MOV SDI ,R2 
CALL TALKER 
TST R3 
BEQ 2$ 
ace R3 


BC 1$ 
3 *** REPORT TRANSMISSION ERROR 
ERRHRD MS2028 


BR 4$ 
; et REPORT RECEPTION ERROR 
i$: CALL 

ERRHRD MS2029,R0,R3 


THIS ROUTINE 33 THE XFC WRITE MEMORY js A_ SPECIFIED 
REGION ID AND OFFSET BYTE COUNT AND DATA. 

THIS ROUTINE CALLS THE SEND AND RCV (TALKER) ROUTINE 
AND JUDGES IF THE SOI COMMAND WAS PROPERLY SENT. 


INPUT: ALL PARAMETERS FOR THE WRITE MEMORY COMMAND MUST BE SET. 
REGION ID, aie BYTE COUNT AND THE DATA MUST BE STORED 


OUTPUT: R2 = 0 MEANS WRITE MEMORY COMMAND WAS PROCESSED SUCCESSFULLY 
R2 NOT = 0, WRITE FAILED (EITHER SEND OR RECEIVE OF THE COMMAND) 


R3->MEM aia PACKET 
2 = PORT 


:SEND COMMAND AND RECEIVE RESPONSE FROM DRIVE 
7SEE IF ERROR OCCURRED 

2 IF NG ERRORS, BRANCH 

SHIFT HIGH BIT INTO CARRY BIT 

IF CARRY CLEAR (RECEIVE TERROR) BRANCH 


CALL RERROR sERROR # 2028. 
-WORD ERHARD+ERRN 
- WORD <PRAS* 10000>+MS2028 


FIND OUT WHAT TYPE OF ERROR OCCURED 


MOV R3,-(SP) 

MOV RO,-(SP) 

CALL RERROR sERROR # 2029. 
«WORD ERHARD+ERRN 

«WORD <PRMS*10000>+MS2029 


BR 4$ 
; *** SET UP RESPONSE PACKET 
$: CMP #COMPLT,RO 





DID IT COMPLETE 
BEQ :1F SO_ CONTINUE 
cMP #UNSSUC ,RO 21F NOT CORRECT RESPONSE, UNSSUC? 
BNE IF NOT, UNRECOGNIZED RESPONSE 
CALL STOSTA 2 CHECK STATUS 
ERRHRD M™S2030 : 


CALL_RERROR sERROR # 2030. 
WORD ERHARD+ERRN 
eWORD <PRMS*10000>+mS2030 


BR 4$ 
ERRHRD MS2031,#COMPLT,RO 
MOV RO,-(SP) 


CALL RERROR sERROR # 2031. 
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E MEMORY SUBROUTINE 


004000 


103757 
oeehe 47 
19200 
004 


007 
104202 
000000 


000001 


3$: 


4$: 
5$: 


BR 4 
CLR R2 
BR 5 


MOV 
RETURN 


SEQ 0289 


«WORD ERHARD+ERRN 
«WORD <PRMS*10000>+mS2031 


sERROR EXIT 
sALL OK, EXIT 


TERROR OCCURED, SET R2 


—, 
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RUN (OR SPIN UP) COMMAND 


SEQ 0290 


3R3_ => COMMAND 
+i Le DRIVE 
7IF SO, CHECK RESPONCE CODE 
ELSE, IS MSB SET?/IF NOT, RECEIVE ERROR 
REPORT SEND ERROR 
CALL_RERROR ae # 2032. 
«WORD ERHARD 


- WORD <PRAS*10000>+MS2032 


REPORT RECEIVE ERROR 
MOV 


CALL RERROR _— # 2033. 
«WORD ERHARD+ 


«WORD <PRAS*10000>4MS2033 


ZCHECK RESPONSE CODE 

:1F Ok, CONTINUE 

IF NOT CORRECT RESPONSE, UNSSUC? 

Tt NOT, UNRECOGNIZED RESPONSE 

; CHECK STATUS 
CALL RERROR _ ; ERROR # 2034. 
.WORD ERHARD+ERRN 
WORD EPRMS*10000>+MS2036 


:1F NOT, REPORT ERROR 
MO 


sERROR # 2035. 
-WORD ERHARD+ERRN 
«WORD < PRIS" 100002+MS2035 
;R2 1S NOT ZERO MEANING ERROR 


:R2 IS ZERO, NOT ERROR 


1 .SBTTL RUN (OR SPIN UP) COMMAND 
é ;ISSUE RUN COMMAND AND CHECK THAT IT PERFORMS PROPERLY 
4 004010 104203 001465 RUNDR: MUV #CR.RUN,R3 
5 004018 024712 CALL _—«*TALKER 
6 004013 11500 TST R3 
7 004014 014031 BEQ 60s 
8 004615 034022 BPL 0$ 
9 004016 ERRHRD MS2032 

004016 025022 
004017 103760 
004020 002237 

10 004021 004057 BR 70$ 

11 004022 024513 50$: CALL _—sO+TYPERR 

12 004023 ERRHRD MS2033,R0,R3 

004023 100463 
004024 100467 
004025 025022 
004026 103761 
004027 022265 

13 004030 00405 BR 70$ 

14 004031 106207 000176 60$: CMP #COMPLT,RO 

15 004033 014062 BEQ 75$ 

16 004034 106207 000175 CMP #UNSSUC,RO 

17 004036 05404 BNE 65$ 

18 004037 024274 CALL STOSTA 

19 004040 ERRHRD M™S2034 

004040 02502 
004041 10376 
004042 00231 
20 004043 004057 BR 70$ 
1 004044 65$:  ERRHRD MS2035,#COMPLT.RO 

004044 100467 

004045 104010 001153 

004047 104201 000176 

004051 100461 

004052 104301 001153 

004054 02502 

004055 10376 

004056 022340 

22 004057 104202 000001 70$: MOV #1,R2 

23 004061 00406 BR 80$ 

24 004 114002 75$: CLR R2 

25 004063 000000 80$: RETURN 


oe ee Se ee 
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RECALIBRATE COMMAND 


-SBTTL RECALIBRATE COMMAND 


1 


ses 
See5e 


ooo 
NN 
Whore 


nas 
oB2888 
FREER 


— 3 
ODONAUEW 


SERERRERREREERFEREEREEREE RS 


WWNAWIWWIWIRONONONY tH I I OOO o 


mn 
-o 


Rononoen 
MEWN 


104203 


Sasess 
muno— 
RESES HN} 
Vuowoune 
~KD 
RSVSEQUSS 


3 
So 


wore 
™ 
= NN = = © 


—0O-0—- 4 — 
WOkO 


sSexese 
3 
MN 


001473 


000176 
000175 


001153 
000176 
001153 


000001 


SEQ 0291 


ISSUE RECALIBRATE COMMAND AND CHECK THAT IT PERFORMS PROPERLY 


RECAL: 


80$: 


90$: 


95$: 


100$: 


105$: 
110$: 


MOV 
CALL 
TST 
BEQ 
BPL 
ERRHRD 


CALL 
ERRHRD 


L 
ERRHRD 


BR 
ERRHRD 


MOV 


CLR 
RETURN 


#CR.INR,R3 
KER 


TYPERR 
MS2037,RO,R3 


100$ 
#COMPLT,RO 
#UNSSUC ,RO 
95$ 


STOSTA 
MS2038 


100$ 
MS2039,#COMPLT,RO 


#1,R2 
1 


3R3 => COMMAND 
: SEND 10 DRIVE 


IF $0, CHECK RESPONCE CODE 
ELSE, 1S MSB more NOT, RECEIVE ERROR 


SREPORT SEND ERR 
CALL RERROR sERROR # 2036. 
~WORD ERHARD+ERRN 
-WORD <PRMS*10000>+MS2036 


REPORT RECEIVE oe 


sERROR # 2037. 
WORD ERHARD+ERRN 
«WORD <PRMS*10000>+MS2037 


3 CHECK RESPONSE CODE 
F TINUE 


TIF Not CORRECT RESPONSE, UNSSUC? 
TIF UNRECOGNIZED RESPONSE 
; CHECK Ft 
CALL RERROR -ERROR # 2038. 
.WORD ERHARD+ERRN 
-WORD <PRMS*10000>+MS2038 


:I1F NOT, REPORT ERROR 
MOV RO,-(SP) 


je~en # 2039. 
WORD ERHARD+ERR 
- WORD <PRES* 100002+MS2039 


(— eee 
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|GET STATUS SUBROUTINE 
| 1 .SBTTL GET STATUS SUBROUTINE 
| 5 ; GET STATUS 
6 : OUTPUT R3 = 0 IF O 
6 : R3 = 1 IF ERROR 
z : R4 USED AS A DECREMENT COUNTER 
9 004140 114004 GTSTAT: CLR R4 
10 004141 104203 001171 3$: MOV #CR.GST,R3 :POINT TO GET STATUS COMMAND 
11 004143 024712 CALL _—* TALKER : SEND AND RECEIVE COMMAND 
12 004144 115003 TST R3 : SEE IF ERROR OCCURED 
13 004145 014165 BEQ 23 : IF NOT, BRANCH 
14 004146 110203 ROL R3 : SEE IF RECEIVE ERROR 
15 004747 044156 BCC 1$ : IF $0, BRANCH 
16 004150 117404 DEC R4 ; IF SEND ERROR, COUNTER DONE? 
17 004151 054141 BNE 3$ : IF NOT, TRY AGAIN 
18 004152 ERRHRD MS2040 
004152 025022 CALL RERROR — ; ERROR # 2040. 
004153 103770 .WORD ERHARD+ERRN 
004154 002631 “WORD <PRMS*10000>+mS2040 
19 004155 004213 BR ER.END 
20 004156 024513 1$: CALL _—*TYPERR 
21 004157 ERRHRD MS2041,R0,R3 
004157 100463 MOV R3,=(SP) 
004160 10046 MOV RO.-(SP) 
004161 025022 CALL RERROR ERROR # 2041. 
004 16¢ 103771 .WORD ERHARD+ERRN 
004163 022663 [WORD <PRMS*10000>+mS2041 
22 004164 004213 BR ER.END 
23 ; *#* LOOK AT RESPONSE OP-CODE FROM DRIVE == SHOULD BE DATA RESPONSE 
24 004165 106207 000366 ds: CMP #STSRES,RO SCHECK OP-CODE 
25 004167 014216 BEQ OK .EN *BRANCH IF A MATCH 
26 004170 106207 000175 CMP #UNSSUC RO TIF NOT CORRECT RESPONSE, UNSSUC? 
27 004172 054200 BNE 4$ ZIF NOT, UNRECOGNIZED RESPONSE 
28 004173 024274 CALL = STOSTA 
29 004174 ERRHRD MS2042 : 
004174 025022 CALL RERROR _ ; ERROR # 2042. 
004175 103772 .WORD ERHARD+ERRN 
004176 002721 .WORD <PRMS*10000>+mS2042 
30 004177 004213 BR ER. END 
31 004200 4$: ERRHRD MS2043,#STSRES,RO :WRONG RESPONSE FROM DRIVE 
004200 100467 MOV RO,-(SP) 
004201 104010 001153 MOV R1.SAVREG 
004203 104201 000366 MOV #STSRES,R1 
004205 100461 V R1,-(SP5 
004206 104301 001153 MOV SAVREG,R 
004210 025028 CALL RERROR — ; ERROR # 2043. 
004211 1037 .WORD ERHARD+ERRN 
004212 022746 “WORD <PRMS*10000>+M$2043 
32 00421 104203 000001 ER.END: MOV #1,R3 3R3_= NONE ZERO VALUE WHEN DONE (ERROR) 
33 004215 004217 EX. END EX 
34 004216 114003 OK.END: CLR R [R3 = 0 WHEN DONE (NO ERROR) 
35 004217 000000 EX.END: RETURN 
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DISK RE 
CLEAR DRIVE SUBROUTINE 
1 .SBTTL CLEAR DRIVE SUBROUTINE 
5 ; DRIVE CLEAR 
7 ; OUTPUT R3 = 0 IF OK 
6 ; R3 = 1 IF ERROR 
g : R4 USED AS A DECREMENT COUNTER 
9 004220 114004 CLRDORV: CLR RG : CLEAR DECEMENT COUNTER 
10 004221 104203 001177 3$: MOV #CR.DRC,R3 : POINT TO DRIVE CLEAR COMMAND 
11 O04ees 24712 CALL _—«* TALKER : SEND AND RECEIVE COMMAND 
12 004224 11500 TST R3 : SEE IF ERROR OCCURED 
13 004225 014245 BEQ 2$ : If NOT, BRANCH 
14 004226 110203 ROL R3 : SEE IF RECEIVE ERROR 
15 0064227 044236 BCC 1$ : IF $0, BRANCH 
16 06.230 1174 DEC R4 : ON SEND ERROR, IS COUNTER DONE? 
17 004231 054221 BNE 3$ : IF NOT, TRY AGAIN 
18 004232 ERRHRD MS2044 
004232 025022 CALL RERROR aigRROR # 2044. 
004233 103774 <WORD ERHARD 
004234 003035 “WORD EPRMS*10000>+HS2044 
19 004235 004213 BR ER.END 
20 004236 024513 1$: CALL _—*TYPERR 
21 004237 ERRHRD MS2045,R0,R3 
004237 100463 MOV R3,-(SP) 
004240 100467 MOV RO,-(SP) 
004241 025022 CALL RERROR — ; ERROR # 2045. 
00424¢ 103775 .WORD ERHARD+ERRN 
43 023067 “WORD <PRMS*10000>+mS2045 
22 004244 004213 BR ER.END 
23 : wee CHECK RESPONSE CODE 
24 004245 106207 000176 bs: CMP #COMPLT,RO : SEE IF CORRECT RESPONSE CODE RECEIVED 
25 004247 014216 BEG OK.END : : IF SUCCESSFUL, BRANCH 
26 004250 106207 000175 #UNSSUC RO [IF NOT CORRECT RESPONSE, UNSSUC? 
27 004252 054260 BNE 4$ [IF NOT, UNRECOGNIZED RESPONSE 
28 004253 024274 CALL STOSTA [CHECK STATUS 
29 004254 ERRHRD ms0c6 : 
004254 025022 CALL RERROR ZERROR # 2046. 
004255 103776 .WORD ERHARD+ER 
004256 003125 WORD EPRMS*10000>+MS2046 
30 004257 004213 BR ER.END 
31 004260 4$: ERRHRD MS2047,#COMPLT.RO :CLEAR ERROR FAILED 
004260 100467 MOV RO,-(SP) 
004261 104010 001153 MOV R1.SAVREG 
004263 104201 000176 MOV #COMPLT,R1 
004265 100461 MOV R1,-(SP5 
004266 104301 001153 MOV SAVREG,R1 
004270 025022 CALL RERROR aigrrOR # 2047. 
004271 10377 .WORD ERHARD+E 
004272 023152 WORD EPRMS*10000>4MS2047 
004213 BR ER.END 








I 7 
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STORE STATUS ROUTINE 


4 004274 

5 004274 
004274 100467 
004275 100461 
004276 100462 
6 004277 104207 
7 004301 104201 
8 004303 100271 
9 004304 104302 
10 004306 060007 
11 004307 103201 
12 004311 100271 
13 004312 104201 
14 006314 104412 
15 004315 100272 
16 004316 106201 
17 004320 054314 

18 004321 
004321 104262 
004322 104261 
004323 104267 
19 004324 000000 


001506 
004252 


000741 
077270 
000753 


000744 


STOSTA: 


1$: 


-SBTTL STORE STATUS ROUTINE 
STORE STATUS 


MOVE WHAT DATA IS IN ST AND PUT IT IN OUTPUT BUFFER 


PUSH <RO,R1,R2> 


MOV #OUT.05,RO 
MOV #STATO,R1 
MOV R1, (ROS+ 


e 


STATUS 
BIC #*C100507,R1 
MO RO)+ 


V R1, 
MOV #ST+7,R1 
MOV -(R1) 
MOV R2,(RO)+ 
CMP #ST,RI1 
BNE 


1$ 
PoP <R2,R1,R0> 


RETURN 


MOV RO,-(SP) 
MOV R1,-(SP) 


MOV R2,-(SP) 
3RO => OUTPUT BUFFER 
MOVE FORMAT ADDRESS IN OUTPUT BUFFER 


3 R2 PORT INDICATOR 
: GET STATUS 
; stone UNUSED BITS 


3R1 => INPUT BUFFER 
7 SAVE 
3; DONE? 
:I1F NOT, CONTINUE 
MOV (SP)+,R2 


MOV (SP)+,R1 
MOV (SP)+,RO 


SEQ 0294 
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CONVERT MEMORY == SKEWED BY BY 


4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 004325 
O06 $52 100467 
004326 100461 
004327 100462 
004330 100463 
004331 100464 
28 004332 104203 000744 
29 004334 104137 
30 004335 103207 177400 
31 004337 104231 
32 004340 103201 000377 
33 004342 117407 
34 004343 014355 
35 004344 104132 
36 004345 103202 177400 
37 004347 101021 
38 004350 110701 
39 004351 100241 
40 ng a 117407 
41 004353 014357 
42 004354 004337 
43 004355 110701 
44 004356 100141 
45 004357 
004357 104264 
B06 260 104263 
004361 104262 
OOt 306 104261 
004365 104267 
46 004364 000000 


+ 


CPP eo Se Be Ge Ge Be Ge Ge Se Se Ge Ge Be Se Ge Ge Se Be Se Se Se Se Se Se Se 


m 
=z 


2$: 
3$: 


J 7 


-SBTTL CONVERT MEMORY == SKEWED BY BYTE 
ROUTINE NAME: CONMEM 


DESCRIPTION: 

MEMORY IS SENT TO THE DM ROUTINE STARTING ON THE ODD BYTE BOUNDARY. 
THIS ROUTINE SHIFTS THE DATA TO START ON THE EVEN BYTE BOUNDARY AND 
hy a WORD INTO A SPECIFIED BUFFER AREA. THE DATA IS STORED AS 


ST: DATA BYTE 0 BYTE COUNT 
DATA BYTE 2 DATA BYTE 1 
DATA BYTE 4 DATA BYTE 3 
eeescee DATA BYTE 5 


AFTER EXECUTION, THD DATA IS STORED LIKE THIS: 
OUT.XX: DATA BYTE 1 DATA BYTE 

DATA BYTE 3 DATA BYTE 

DATA BYTE 5 DATA BYTE 4 

eeecee DATA BYTE 6 


INPUT: R4& => BUFFER AREA'S FIRST LOCATION 
ST HAS INPUT DATA 


OUTPUT: OUTPUT BUFFER HAS SHIFTED DATA 


wo 


: PUSH <RO,R1,R2,R3,R4> 


MOV RO,-(SP) 
MOV R1,-(SP) 


MOV #ST,R3 :R3 => BYTE COUNT 

MOV (R35 ,RO :RO = BYTE COUNT 

BIC #HIBYTE,RO ‘STRIP OFF EXTRANEOUS 

MOV (R3)+,R1 7R1 = EVEN BYTE OF DATA 

BIC #LOBYTE ,R1 SSTRIP OFF EXTRANEOUS 

DEC RO ‘DONE? 

BEQ 2$ SIF YES, GO STORE LAST BYTE 
MOV (R3) ,R2 :R2 = ODD BYTE 

BIC #HIBYTE,R2 [STRIP OFF EXTRANEOUS 

BIS R2,R1 [R1 HAS WHOLE WORD(BYTES REVERSED) 
SWAB RR SSWITCH BYTES 

MOV R1,(R4)+ [STORE DATA 

DEC RO DONE? 

BEd 38 iF SO, EXIT(EVEN # OF BYTES) 
SWAB RT [ODD # BYTES TO GET HERE 

MO *STORE LAST BYTE 


V R1, (R4) 
POP <R4,R3,R2,R1,RO> 
MOV (SP)+,R4 
MOV (SP)+.R3 
MOV (SP)+.R2 
MOV (SP)+.R1 
MOV (SP)+.RO 
RETURN 


SEQ 0295 | 
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001511 
177400 
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001502 
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COUNT 


-SBTTL GET BYTE COUNT 
ROUTINE NAME:  GETBCN 


Siete aes 

A IS READ BY THE DM PROGRAM AFTER THE DIAGNOSE CUMMAND. 
WITHIN THIS DATA, THE gh hi SPECIFIES IF MORE DATA NEEDS TO 
BE READ. IF IT HE BYTE COUNT MUST BE CONVERTED FROM 
ITS PRESENT FORM WHICH FOLLOWS THIS FORMAT: 


+ 
sf ASCII COUNT : BINARY COUNT § 


powsacmean See 2 BS See eeenetaweseen creer enosces Boe > 


THE TOTAL BYTE COUNT IS ow BY THIS FORMULA: 
= AC + (4*BC) 


OR THE TOTAL BYTE COUNT EQUALS THE ASCII COUNT PLUS FOUR 
TIMES THE BINARY COUNT. THE BINARY COUNT IS THE NUMBER OF 
32 BIT BINARY VALUES INCLUDED IN THE REPORT. THE ASCII 
fehoat THE NUMBER OF ASCII CHARACTERS INCLUDED IN THE 


INPUT: OUT.O8 = ASCII COUNT AND BINARY COUNT IN THE FORM STATED ABOVE 


OUTPUT: RDM+3 HAS UPDATED BYTE COUNT. 


: PUSH <RO,R1,R2,R3,R4,R5> 


MOV RO,-(SP) 


V R3,-(SP) 
MOV R4,-(SP) 
MOV R5,-(SP) 
CLR RO 
ROL RO CLEAR CARRY 
MOV OUT.08,RO 2GET BYTE COUNT 
Ay + Sealine aR RO = BINARY COUNT= # 32 BIT WORDS 
ROL RO RO = BINARY COUNT IN BYTES 
MOV OUT.08,R1 :R1 = BYTE 
SWAB R1 sASCII COUNT IN LO BYTE 
BIC #HIBYTE ,R1 +H = ASCII COUNT 
pre R1,R2 AVE IN R2 = ASCII COUNT 
:RO = TOTAL BYTE COUNT 


R1,R0 
g see 1s" SIZE OF THE PACKET TOO BIG FOR BUFFER .cace e? 
MOV #42. ,R1 IS THE MAXIMUM # Ao: BYTES LEFT 


CMP R1,RO [1S TOTAL BYTE COUNT 

BPL [IF NOT, GO STORE TOTAL Sie COUNT 
y *** SAVE OUT.RQ DATA 

MOV #OUT.01,R4 yR4=> OUT.RO DATA 

MOV #ST+140.R5 :R5=>SAVE AREA 

MOV (R4)+, RI SAVE 


: DONE? 
BNE 1 IF NOT, CONTINUE 
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00115 
00334 


060015 


001502 


001104 


001543 


000052 


001511 
177400 


001511 
000004 


001432 








MSSGE 





00150 MOV LUNIT, our. 01 
00150 MOV #MSG2,0UT.02 
OU OY RO,-(SP) 
MOV R1,-(SP) 
MOV #MESSAG,RO 
CALL HOSTRO 
MOV (SP)+,R1 
MOV (SP)+.RO 
y t*® RESTORE OUT.RQ DATA 
MOV #OUT.01,R4 :R4=> OUT.RQ DATA 
MOV #ST+140,R5 ZR5=->SAVE AREA 
2s: MOV (R5)+,Ri *RESTORE 
MOV R1,(R4)+ : 
CMP #OUT.34,R4 : DONE? 
BNE 2$ z1F NOT, CONTINUE 
MOV RO,R3 ZSAVE ASCII COUNT + 4*BINARY COUNT IN R3 
MOV #42. ,RO ZELSE, MAXIMUM BYTE COUNT IS STORED. 
; *** ADJUST ASCII COUNT IF TOO LARGE 
SUB R2,R3 :R3 = BINARY COUNT 
CMP RO, RB Z1F BINARY COUNT ALONE > 42.? 
BMI SIF SO, TO CLEAR ASCII COUNT AND ADJUST BINARY COUNT 
3 *** ASCII COUNT IS > 42. TO GET HERE 
ADD R3,R2 ;R2 = TOTAL BYTE COUNT 
SUB ¥ :R2 = ASCII COUNT ADJUSTMENT 
SWAB [PUT ASCII COUNT ADJUSTMENT IN UPPER BYTE 
Sue ,OUT.08 : SUBTRACT FROM OUT.08 FOR HOST 
» #e* ADJUST BINARY COUNT IF TOO LARGE/CLEAR our ASCII COUNT 
001511 %$: BIC #HIBYTE ,OUT.08 :CLEAR HI BYTE OF OUT.08 
SUB t "R3 = BINARY COUNT ALONE 
4$: DEC ouT.0 SADJUST BINARY COUNT 
Sus #4 ,R3 
jane STORE IN READ MEMORY PACKET AND EXIT 
MOV RO, RDM+3 zSTORE IN READ MEMORY PACKET 
PoP <R5,R4,R3,R2,R1,RO> 


RETURN 


MSG2 


Se 3 


MOV (SP)+,R5 
MOV (SP)+.R4 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+.R1 
MOV (SP)+,RO 


SEQ 0297 | 


SERS AE BATS v—- _ 
lweare DISK RESIDENT DMACR X04.01 19-AUG-82 13:10:12 PAGE 52 SEQ 0298 


TYPE WHAT KIND OF RECEIVE ERROR 


1 ~SBTTL TYPE WHAT KIND OF RECEIVE ERROR 
sa 

5 : TYPE ERROR 

5 3 DESCRIPTION: 

6 : THIS ROUTINE PRINTS A REPORT TO TELL WHAT KIND OF ERROR OCCURED IF A 
i ; RECEIVE XFC DID NOT SUCCESSFULLY COMPLETE. 

A ; INPUT: R3 = ERROR VALUE EROM THE XFC SAVED IN TALKER ROUTINE SHIFTED LEFT ONCE 
11 ; IF = 2 1ST WORD WAS NOT A START FRAME 

12 ; IF = 4 FRAMING ERROR ON SDI LEVEL 0 READ 

13 ; IF = 10 CHECKSUM ERROR ON SDI LEVEL 0 READ 

14 ; IF = 20 BUFFER SIZE WAS SMALLER THAN RESPONSE 

16 004513 110603 TYPERR: ROR —s_R3 READJUST R3 

17 004514 114001 CLR RI 

18 004515 110201 ROL sR CLEAR CARRY 

19 004516 104031 MOV = R3,R1 STORE IN R1 
20 004517 110601 ROR —s_ R ; ERROR? 
21 004520 044524 Bcc 3O«éC1S 1F NOT, CONTINUE 

22 004521 104207 003374 MOV § #MSRO,RO ; TIMECUT 

23 004522 004552 BR 6§ zEXIT 

24 004524 110601 1$: ROR = R1 ERROR? 

25 04525 044531 BCC Os z1F NOT, CONTINUE 

26 304526 104207 003423 MOV § #MSR1,RO 31ST WORD WAS NOT A START FRAME 

27 004530 004552 BR 65 ZEXIT 
28 004531 110601 2$: ROR = R17 ; ERROR? 

25 004532 044536 BCC Os 3$ 31F NOT, CONTINUE 

30 004533 104207 003453 MOV § #MSR2,RO FRAMING ERROR ON SDI LEVEL 0 READ 
31 004535 004552 ER 6$ ZEXIT 

32 004536 110601 3$: ROR ~—s_ R1 ; ERROR? 

33 004537 044543 BCC «4S 31F NOT, CONTINUE 

34 004540 104207 003514 MOV § #MSR3,RO ;CHECKSUM ERROR ON SDI LEVEL 0 READ 
35 004542 004552 BR 6$ ZEXIT 

36 004543 110601 4$: ROR = RI ; ERROR? 

37 004544 044550 Bcc Os«éSS 31F NOT, CONTINUE 

38 004545 104207 003555 MOV  #MSR4,RO BUFFER SIZE SMALLER THAN RESPONSE 
39 004547 004552 BR ; 
40 004550 104207 003612 5$: MOV _— #MSRS,RO ERROR WASN'T PROPERLY SPECIFIED 

41 004552 000000 6$: RETURN 
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ASCII EQUIVALENT 
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-SBTTL 


DIVIDE BY OCTAL 50 AND FIND ASCII EQUIVALENT 


DIVIDE BY 50 


DESCRIPTION: RAD 50 VALUE IN R4 IS DIVIDED BY SOCOCTAL) 
TO STRIP OFF A SINGLE CHARACTER INTO 
JUMP TO FNDASC TO FIND THE ASCII EQUIVALENT 
INPUT: R4 HAS RADSC VALUE 
OUTPUT: RO HAS ASCII CHARACTER 
PUSH <R1> 
MOV R1,-(SP) 
CLR R1 ;R1 = QUO 
INC R1 KEEP TRACK OF # OF LOOPS 
SUB #50,R4 sDONE? 
BPL 1$ ;IF NOT, LOOP 
ADD #50,R4 sR4 = REMAIND ER 
MOV R4,RO + STORE REMAINDER IN RO 
DEC R1 :R1 HAS 1 MORE THAN IT SHOULD 
MOV R1,R4 [QUO IN R4 
POP <Ri> 
MOV (SP)+,R1 
FIND ASCII 
INPUT: RO HAS RAD 50 CHARACTER 
TST RO z1S = 0? 
BNE 2$ IF NOT, CONTINUE 
MOV #40,R0 sIF SO, SPACE SET 
RETURN 
CMP #32,R0 3 > LARGEST LETTER 
I sIF SO, CONTINUE 
ADD #100,R0 3SET ASCII LETTER 
RETURN 
CMP #33,R0 3 2 SS? 
BNE 31F NOT, CONTINUE 
MOV #44,R0 sSET ‘°$ 
RETURN 
CMP #34,R0 3 = 34? 
BNE 5 3IF NOT, CONTINUE 
MOV #56,RO 3SET °.* 
RE TURN 
#22,R0 sELSE ADD 22(OCTAL)FOR NUMERAL CHARACTER 


ADD 
RETURN 


SEQ 0299 


> 
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RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 
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-SBTTL RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 
RDSTAT: 


RETURN DRIVE STATUS 
TSTATUS RETURNED IN DM REGISTER 1 


MO 
STATLP: 
8 


STATOK: 


MO 
STATEX: 


PUSH 


RETURN 


<R3,R0> 
#3,R3 
STATUS 
#14000,R1 
#XMTERR,R1 
STATOK 
STATLP 
#10000,R1 
STATEX 
#RCVERR,R1 
STATEX 


STATLP 
#14000,R1 
<RO,R3> 


SAVE R3 AND RO 
MOV R3,-(SP) 
MOV RO,-(SP) 
ALLOW ONLY 3 ERRORS 


ERRORS, BRANCH 
DECREMENT TRANSMIT ERROR COUNT 
IF ERROR COUNT INCOMPLETE, BRANCH 
FLAG A AS TRANSMIT ERROR 
RECIEVER EPRORS | 
DECRERENE ERROR COUNT 
IF CRROR COUNT NON-ZERO, BRANCH 
FLAG wt INVALID. STATS ERROR 
RESTORE RO, R3 
MOV (SP)+,RO 


MOV (SP)+,R3 
RETURN TO CALLING MODULE 


SEQ 0300 
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HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


setae HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 


SEND REQUEST BUFFER TO HOST AND WAIT FOR RESPONSE. 


CLEAR ARGUMENT A 


FOR NEXT HOSTRQ CALL. 


: INPUTS: 


SNDAGN: 


CLRBUF : 





REA OF OUT BUFFER IN PREPARATION 


RO_= HOST REQUEST NUMBER 
OUT BUFFER LOADED WITH DATA 


PUSH 


RETURN 


<RO,R1,R2> 


RO,OUT.RQ 


#IN.RQ, ” 


#BUFSIZ=1,R1 


R2,(RO)+ 


CLRBUF 
<R2,R1,RO> 


MOV RO,-(SP) 


STORE REQUEST NUMBER IN. BUFFER 
SEND BUFFER TO HOST 


; CHECK FOR ERROR 
3 IF ERROR, TRY AGAIN 
: WAIT FOR RESPONSE FROM HOST 


MAKE REQUEST ILLEGAL 
CLEAR ARGUMENT WORDS IN BUFFER 
: CLEAR ENTIRE BUFFER 


MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 


SEQ 0301 





UDAT 
HOST 





2 DISK RESIDENT DMACR X04.01 19-AUG-82 1 





RQ = HOST REQUEST = REPORT ERRORS, MEGABYT 


~“ 
AN 


4 
5 
6 
7 
8 
9 
10 
11 
12 004712 
004712 
004715 
13 004714 
14 004715 
15 004716 
16 004717 
17 004720 
18 004721 
19 004723 
20 004724 
21 004726 
22 004727 
23 004731 
24 004732 
ss re 
$$ 004936 
28 004737 
29 004742 
30 004744 
31 004746 
32 004750 
33 004751 
34 004752 
35 004754 
36 004755 
37 004756 
38 004757 
39 004761 
40 nba 
41 00476 
42 004764 
43 004765 
44 004766 
45 004770 
46 004771 
47 0047 
004 
0047 
004 
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100001 
001455 
001154 
001155 
001151 
001152 
001503 
001504 
060011 


000001 


000001 


000001 


001502 


TALKER: 


TALK1A: 


1$: 
TALK1B: 


1$: 


2$: 


TALK2A: 
TALK2B: 


3:10:12 PAGE 56 
YTES TR 


TRANSFERRED, 


TALKER SENDS AND RECEIVES AN SDI INTERCHANGE 


R3_= POINT 
SDILTO/SDIS 
;OUTPUTS: 


Ss 

Re = SDI INTERCONNECT 
ER TO COMMAND TABLE CONTAINING APPROPRIATE COMMAND 
TO SDI LONG AND SHORT TIMEOUTS, RESPECTIVELY 


RO = RETURN OP CODE FROM UNIT 


RS = ERROR CODE - 0 = NO ERROR, 1 = RECEIVE ERROR, 100001 = SEND ERROR 


PUSH 





<R1,R4> 


(R3)+,RO 
(R3)+,R1 
SEND 
TALK1A 
#100001 ,R3 
ALK2B 
#LONG ,R3 
1$ 
SDISTO,R4 
TALK1B 
SDILTO,R4 
SENDHR 


LUNIT,OUT.01 
OuT.02 


OUT.03 
#TOMXFR,RO 
STRQ 


ax 
So 


R3 
<R4,R1> 


BeBe Se Se Ge Fe Ge Ge Fe Fe Se Ge Go Se Ge Ge Ge Se Be Se Be Se 


SAVE REGISTERS 


SET ADR OF SDI COMMAND BUFFER 
iu BUFFER LENGTH 


D COMMAND 
DID UNIT ACCEPT COMMAND 
IF SO, BRANCH 
FLAG AS_SEND ERROR 
BRANCH TO EXIT 
SEE IF LONG TIMEOUT TO BE USED 
IF SO, BRAN 
SET ‘ SHORT TIMEOUT 


BR 
; SET UP LONG TIMEOUT 


DO WE SEND HOSTRQ? 
NO ONT INUE 


SEND SOMETHING TO HOST 

SO HOST WON'T TIMEOUT DM PROG 
SET DATA BUFFER ADDRESS 

SET BUFFER LENGTH 


MOV R1,-(SP) 
MOV R4,=(SP) 


0, BRANCH 
MOVE ERROR TYPE TO R3 FOR REPORTING 


DECREMENT TIMEOUT VALUE 
IF NOT TIMEOUT, BRANCH 
FLAG AS RECIEVE ERROR 
BRANCH TO EXIT 

FLAG AS NO ERRORS 
RESTORE R4, R1 


MOV (SP)+,R4 
MOV (SP)+,R1 


SEQ 0302 
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HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTFS TRANSFERRED, 
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7xOR 

sIneUTSe XOR LOGIC FUNCTION ON TWO REGISTERS 
: , R2 = DATA TO BE XOR'ED 
‘ourpurs™. 


3 R1 = UNCHANGED 
: R2 = XOR OF TWO INPUTS 


XOR: PUSH R3 sSAVE R3 


B 
POP R3 sRESTORE R3 


TST R2 SET CONDITION CODES 
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UDAT2 DISK RESIDENT DMACR X04.01 19-AUG-82 13:10:12 PAGE 58 SEQ 0304 


HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


! 005005 TO: 
3 ; CALCULATE THE TIMEOUT IN 9SEC INTERVALS (SDI RECEIVE XFC TAKES 
5 : 

6 005005 104201 000001 MOV #1,R1 ; SET UP LOG2 SHIFTER 

7 005007 110801 1$: ROL R1 : DOUBLE THE TIMEOUT VALUE 

8 005610 103201 000001 BIC #1,R1 : CLEAR THE LOW BIT 

9 005012 117407 DEC RO + DECREMENT COUNT 

10 005013 055007 BNE 1$ : IF COUNT INCOMPLETE, BRANCH 

11 005014 114007 CLR RO : CLEAR 9SEC 

12 005015 115407 2$: INC RO : INCREMENT 9° Sec T COUNT 

13 005016 107201 000011 SUB #9.,R1 : SUBTRACT 9 SEC from TIMEOUT 

14 005020 035015 BPL $ : IF MORE TIME TO GO, BRANCH 

15 005021 00 RETURN : RETURN TO CALLING PROGRAM 
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HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


1 ZRERROR 
§ SREPORT ERROR TO HOST PROGRAM 
4 [THIS ROUTINE IS CALLED BY THE ERROR MACROS: 
; sERRSF, ERRDF, ERRHRD AND ERRSFT 
7 00502 RERROR: PUSH RO ; SAVE ONE REGISTER 
5G22 100467 MOV RO,-(SP) 
8 005023 104067 MOV SP,RO :GET STACK POINTER 
9 005024 PUSH <R1,R2,R3,R4> TSAVE MORE REGISTERS 
005024 100461 MOV R1,=(SP) 
005025 100462 MOV R2.-(SP) 
005026 100463 mov R3,-(SP) 
005027 100464 V R4.=(SP) 
10 005030 115407 INC RO ;CHANGE SAVED STACK POINTER TO POINT TO 
1 : ADDRESS OF LOCATION AFTER CALL 
12 005031 104271 MOV (RO)+ RI [GET RETURN PC 
13 005032 104202 001502 MOV #0UT.01,R [GET ADDRESS OF WHERE TO PUT DATA 
14 005034 117401 DEC Re SREDUCE TO PC OF ERROR CALL 
15 005035 100221 MOV R1,(R2)+ [PUT PC IN OUT BUFFE 
16 005036 115401 INC R1 :GET BACK TO RETURN PC 
17 005037 104213 MOV (R1)+,R3 36 ER AND TYPE 
18 005040 100223 MOV R3, (R2)+ spur IN BUFFE 
19 005041 104303 001152 MOV LUNIT,R3 T UNIT NUMBER IN BUFFER 
20 005043 100223 MOV R3 (Re)* 
21 005044 104113 MOV (Ri) :GET MESSAGE POINTER 
22 005045 103203 170000 BIC Seb o8F77, R3 [CLEAR OTHER BITS 
33 5047 1o0ges MOV R3,(R2)+ [PUT IN OUT BUFFE 
4 005050 104214 MOV Raises Ra GET COUNT OF PARAMETERS 
25 1 1S NOW POINTING TO INSTRUCTION AFTER ERROR CALL 
26 005051 110704 SWAB RG 
27 005052 110604 ROR R4 sEXTRACT NUMBER OF PARAMETERS FROM ERROR MACRO 
28 005053 110604 ROR R4 
29 005054 110604 OR 
30 005055 170604 ROR R 
31 005056 103204 177760 BIC 5177760, R4 
32 005060 104040 005101 MOV R4,SPADJU+1 ZSAVE FOR LATER ADJUSTMENT OF STACK POINTER 
33 005062 015067 BEQ RERRCA ‘BR ANCH IF NO PARAMETERS 
34 005063 104273 RERRPA: MOV (RO)+,R3 [GET PARAMETER 
35 005 100223 MOV R3,(R2)+ STORE PARAMETER IN OUT BUFFER 
36 005065 117404 RS COUNT THE B ARAME TERS 
37 005066 055063 BNE RERRPA [GET NEXT E 
005067 100471 RERRCA: MOV R1,-(RO) [PUT RETURN ADDRESS ON STACK 
39 005070 104207 060013 MOV #ERRMES,RO [SEND ERROR PACKET TO HOST PROGRAM 
40 005072 024652 CALL HOSTROQ 
41 00507 POP <R4,R3,R2,R1,RO> ZRESTORE REGISTERS 
005073 104264 MOV (SP)+,R4 
005074 104263 MOV (SP)+.R3 
005075 104262 MOV (SP)+.R2 
005076 104261 MOV (SP)+.R1 
005077 104267 MOV (SP)+.RO 
42 005100 105206 000000 SPADJU: ADD #0,SP ZADJUST STACK OVER PARAMETERS 
4 [VALUE CHANGED ABOVE 
44 005102 000000 RE TURN 
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UDAT2 DISK RESIDENT DMACR X04.01 19-AUG=82 13:10:12 PAGE 61 


SEQ 0307 | 
HOSTROQ = HOST REQUEST - REPORT ERRORS, MEGABYTES TRANSFERRED, | 


sMESSAGE STORAGE OVERLAY 





$ 005103 FREE: ; FREE AREA STARTS HERE 

4 005103 DMOVLY MS,0 | 
, 005105 050473 WREDE OUTPUT EDC FOR THIS OVERLAY | 
6 000000 042 110 117 MS2000: <ASCII\'HOST SPECIFIED UNIT #'D16" THAT CAN'T BE FOUND." N\ 

£9003) 043126105 “ASCIIN"TEST2 RESTARING'N\ 

5 000043 04D -—«103.«=«101._-MS2001: ASCEI\"CANNOT RECEIVE VALID DRIVE STATE FROM DRIVE AFTER DRIVE WAS INITED'W\ 

10 000103 042105110 “ASCII\“CHECK IF DRIVE I$ POWERED ON."N\ 

12 001% = 042104122 mS2002: -ASCI1\"DRIVE STATE RECEIVED HAS BAD PARITY AFTER DRIVE WAS INITED'W\ 

14 000365 042 10412252003: -ASCII\"DRIVE IS NOT ASSERTING RECEIVER READY IN DRIVE STATE AFTER DRIVE WAS INITED 
16 000235 = 042, S124. «= 1117.- MS2004: [ASCII\‘'TIME-OUT ON SEND OF ECHO COMMAND TO DRIVEN\ 

17 000263 = 0042S (040040 SASCII\" ECHO DATA "HBN\ 

18 000274 006 “BYTE 0 

19 000275 9 042,-=S—s«105-«S «122 MS2005: CASCII\'ERROR DURING RECEIVE OF ECHO RESPONSE FROM DRIVE'W\ 

20 000326 042 040 040 SASCII\" ECHO DATA "HEN 

21 000337 000 “BYTE 0 

22 000340 = 42 «S105 = 103 MS2006: SASCII\"ECHO COMMAND RESPONDED WITH DIFFERENT DATA'N\ 

23 000366 042 «= 040040 SASCII\' ECHO DATA SENT''SGHTON\ 

24 000402 042 040 040 SASCII\" ECHO DATA RECEIVED ‘"H16N\ 

25 000420 000 “BYTE 0 

26 000421 = 042 «Ss «105 «= 122-s« MS2007: ‘ASCIIN\“ERROR BIT SET IN GET STATUS RESPONSE AFTER DRIVE CLEAR COMMAND’ W\ 

37 000461 048040040 “ASCII\"’ GET STATUS RESPONSE ‘NR1\ 

8 000477 000 “BYTE 0 

29 000500 042 124111 MS2008: -ASCII\""TIME-OUT ON SEND OF ONLINE COMMAND TO DRIVE'N\ 

3100055) 042 105122 mS2009: -ASCII\"ERROR DURING RECEIVE OF ONLINE RESPONSE FROM DRIVE'R1\ 

33 900564 042 11711652010: -ASCII\"'ONL INE COMMAND WAS UNSUCCESSFUL" NR1\ 

35 000607 042 117 116 MS2011: ZASCII\‘‘ONLINE COMMAND DID NOT RETURN EXPECTED RESPONSE CODE‘W\ 

36 000642 042 040 040 “ASCII\'’ EXPECTED RESPONSE "HBN\ 

37 000657 =6-042—s—(iK—ti«iKO “ASCII\" ACTUAL RESPONSE’ ‘SGHBN\ 

38 000673 000 “BYTE 0 

39 000674 = 042124111 MS2012: -ASCII\“TIME-OUT ON SEND OF GET UNIT CHARACTERISTICS COMMAND TO DRIVE'N\ 

41 000735 042 105122, mS2013: -ASCIIN' ERROR DURING RECEIVE OF GET UNIT CHARACTERISTICS COMMAND FROM DRIVE'RI\ | 
43001001 042 «107105 ms2014: -ASCLIN''GET UNIT CHARACTERISTICS COMMAND WAS UNSUCCESSFUL'WR1\ 

45001035 042 107 105 MS2015: :ASCII\''GET UNIT CHARACTERISTICS COMMAND DID NOT RETURN EXPECTED RESPONSE CODE"W\ 
46 001101 042 040 0460 SASCII\'! EXPECT se 

47 OO111g = 04204040 “ASCII\" ACTUAL RESPONSE’ SGHBN\ 

2 001138 042 -—«040~—«=«OG0._MS2016: ZASCEI\™ HOST PROGRAM GAVE DM CODE IMPROPER DATA'N\ 

50001161 042 040 040 ~ASCII\': EXPECTED VALUE SHOULD BE BETWEEN 0 AND 3°'N\ 

31001207 = 048040040 “ASCII\" ACTUAL VALUE WAS “OBN\ 

33001224 = 0412411152017: ASCLI\"*TIME-OUT ON SEND OF DIAGNOSE COMMAND TO DRIVE'W\ 

39 001255 042 105122 MS2018: -ASCII\"ERROR DURING RECEIVE OF DIAGNOSE RESPONSE FROM DRIVE'R1\ 

56 001311 000 “BYTE 0 
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4 Cota! a4 104 111 MS2019: BOE [EN SEASHORE COMMAND WAS UNSUCCESSFUL''NR1\ 

59 OO 1338 042 104 111 MS2020: .ASCII\'DIAGNOSE COMMAND DID NOT RETURN EXPECTED RESPONSE CODE'W\ 
60 00137 042 040 040 eASCII\’’ EXPECTED RESPONSE ‘'H8N\ 

61 001407 042 040 040 eASCII\"’ ACTUAL RESPONSE'‘S4H8N\ 

62 001423 000 -BYTE 0 

63 001424 ea 104 122 MS2021: .ASCII\' DRIVE DIAGNOSTIC REPORTS A HARD ERROR''N\ 

64 001450 04 040 040 eASCIIN\’’ TEST NUMBER ‘'HI6N\ 

65 001462 983 040 040 eASCII\’’ DRIVE TYPE  ‘‘HBN\ 

66 001474 04 040 040 eASCII\’’ ERROR NUMBER ‘'H16N\ 

67 001507 122 062 eASCII\R2\ 

68 001510 000 -BYTE 0 

4 got ait 3 110 117 MS2022: a? ema PROGRAM DOWN LINE LOADED A DIAGNOSTIC WITH A ZERO BYTE COUNT'N\ 
a} Bpl238 Bae 104 111 MS2023: -ASCIIN"DIAGNOSTIC *“A6"’ REQUESTED BY THE DRIVE COULD NOT BE SUPPLIED BY HOST."W\ 
e Ooless 04 124 111 MS2024: -ASCII\"*TIME-OUT ON SEND OF MEMORY READ COMMAND TO DRIVE''W\ 

ie} Ootess os 3 105 122 MS2025: -ASCIIN"ERROR DURING RECEIVE OF MEMORY READ PESPONSE FROM DRIVE*'NR1\ 
a gore a3 115 105 MS2026: “ASCIIN" MEMORY READ COMMAND WAS UNSUCCESSFUL'WR1\ 

79 00173 042 115 105 MS2027: .ASCII\'MEMORY READ COMMAND DID NOT RETURN EXPECTED RESPONSE CODE'W\ 
80 001775 042 040 040 eASCII\"’ EXPECTED RESPONSE ‘‘H8N\ 

81 002012 042 040 040 eASCII\"’ ACTUAL RESPONSE’'S4HEN\ 

82 002026 000 -BYTE 0 

+4 goege! One 124 111 MS2028: 7" Deedes ON SEND OF MEMORY WRITE COMMAND TO DRIVE''W\ 

4 ates 4 03 105 122 MS2029: -ASCII\"ERROR DURING RECEIVE OF MEMORY WRITE RESPONSE FROM DRIVE''R1\ 
e. oosies Bae 115 105 ™S2030: -ASCI IN" MEMORY WRITE COMMAND WAS UNSUCCESSFUL"'NR1\ 

89 002147 042 115 105 MS2031: .ASCII\'MEMORY WRITE COMMAND DID NOT RETURN EXPECTED RESPONSE CODE'W\ 
90 002205 042 040 040 eASCII\"’ EXPECTED RESPONSE ‘‘H8N\ 

91 002222 042 040 040 eASCII\’’ ACTUAL RESPONSE’ 'S4H8N\ 

92 002236 000 -BYT 

4 O5Se4 03 124 111 MS2032: 31 Eilat ON SEND OF RUN COMMAND TO DRIVE''W\ 

<4 Oost a3 105 122 MS2033: “ASCII\"ERROR DURING RECEIVE OF RUN RESPONSE FROM DRIVE''R1\ 

44 Coes ot3 122 125 MS2034: “ASCII\"RUN COMMAND WAS UNSUCCESSFUL''WR1\ 

99 00234 042 122 125 MS2035: :ASCII\'RUN COMMAND DID NOT RETURN EXPECTED RESPONSE CODE"'N\ 

100 002372 042 040 040 eASCII\’’ EXPECTED RESPONSE ‘'H8N\ 

101 002407 042 040 040 eASCII\"’ ACTUAL RESPONSE*'S4H8N\ 

102 002423 000 -BYT 

1? OoSeee os 124 111 MS2036: oASEIT TIRE OUT ON SEND OF RECALIBRATE COMMAND TO DRIVE'W\ 

+4 Ooees 93 105 122 MS2037: -ASCII\"ERROR DURING RECEIVE OF RECALIBRATE RESPONSE FROM DRIVE''R1\ 
Hh 24 Oosere 93 122 105 mS2038: “ASCII\" RECALIBRATE COMMAND WAS UNSUCCESSFUL''WR1\ 

109 002541 042 122 105 MS2039: °ASCII\"RECALIBRATE COMMAND DID NOT RETURN EXPECTED RESPONSE CODE’'N\ 
110 002577 042 040 040 eASCII\'’ EXPECTED RESPONSE ‘'H8N\ 

111 002614 042 040 040 eASCII\"’ ACTUAL RESPONSE*'SGHEN\ 

ii¢ 002630 000 -BYTE 0 

113 002631 042 124 111 MS2040: .ASCII\'*TIME-OUT ON SEND OF GET STATUS COMMAND TO DRIVE'W\ 








UDA 
HOS 


ae 


k 8 | 
SEQ 0309 
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TRO = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 

114 00266 000 BYTE 0. : 

113 0026s 42 105122 MSZ047ASCIT\"ERROR DURING RECEIVE OF GET STATUS RESPONSE FROM DRIVE'RI\ 

117 002721 042107105. MS2042: -ASCII\"'GET STATUS COMMAND WAS UNSUCCESSFUL‘ NR1\ 

119 002746 04 107 105. MS2043: ASCII\''GET STATUS COMMAND DID NOT RETURN EXPECTED RESPONSE CODE'W\ 

120 003003 9-04 040 040 “ASCIIN'' EXPECTED RESPONSE "'HBN\ 

121 003620 4 040 040 ~ASCII\" ACTUAL RESPONSE’ 'S4HBN\ 

122 0030 000 “BYTE 0. : 

125 0030354 124111 MS2044: -ASCII\""TIME-OUT ON SEND OF DRIVE CLEAR COMMAND TO DRIVE'N\ 

125 003067 = O42 105122 MSZ045: -ASCII\"ERROR DURING RECEIVE OF DRIVE CLEAR RESPONSE FROM DRIVE"R1\ 

127 003125 042104122 MS2046: -ASCII\"DRIVE CLEAR COMMAND WAS UNSUCCESSFUL"NR1\ 

129 003152 = 042,—S 104. «= 122 MS2047: ‘ASCII\'DRIVE CLEAR COMMAND DID NOT RETURN EXPECTED RESPONSE CODE‘ N\ 

130 003210 04204040 “ASCIIN'' EXPECTED RESPONSE "‘H8N\ 

131 003225 9042, (040040 SASCII\"' ACTUAL RESPONSE’ 'SGH8N\ 

132 003241 000 “BYTE 0 

133 003042 = 101064 = 116 MSGI: CASCII\AGN\ 

134 00324 042 111 116 -ASCII\"INFORMATION SENT BACK FROM THE DRIVE IS BEING PRESENTED."N\ 

135 003301 042 040 040 TASCII\'' TEST NUMBER "“HI6N\ 

136 003313 = 042, (040040 CASCIIN'' DRIVE TYPE — “HBN\ 

137 003325 = 042, —(s«040Ss«40 CASCII\"* ERROR NUMBER “HI6N\ 

138 003340 = 122 «= 062 SASCII\R2\ | 
139 003341 000 “BYTE 0. | 
140 003342 = 042,-Ss«106=— «117 MSG2: =: ASCII\"*FOLLOWING REPORT HAS BEEN TRUNCATED DUE TO SIZE"N\ | 
141 003373 000 “BYTE 0. | 
142 003374 = 6116 «= 042,124 «~MSRO: «= LASCII\N'' TIMEOUT ERROR OCCURED DURING RECEIVE XFC"'N\ 

143 003422 000 “BYTE | 
144 003423 = 116. = (042-061 MSR1: © CASCIIAN''1ST WORD NOT START FRAME DURING RECEIVE XFC'N\ | 
145 003452 000 “BYTE | 
146 003453 = 116 MSR2:  :ASCII\N\ . 

147 003453 9042, 106-—Ss«*21222 -ASCIIN''FRAMING ERROR OCCURED ON SDI LEVEL 0 READ DURING RECEIVE XFC*N\ 

148 003513 000 “BYTE 0 

149 003514 = 116 MSR3:  :ASCII\N\ 

150 003514 042 103 110 -ASCIIN''CHECKSUM ERROR OCCURED ON SDI LEVEL 0 READ DURING RECEIVE XFC'W\ 

121 003554 000 “BYTE 0 

152 003555 = 116 MSR4:  ZASCII\N\ 

153 003555 = 042, 102,—Ss«*125 ~ASCII\'BUFFER SIZE SMALLER THEN RESPONSE DURING RECEIVE XFC'N\ 

154 003611 000 “BYTE 0 

155 003612 116 MSRS:  :ASCII\N\ 

156 003612 042 103 8117 -ASCII\"CODE FROM RECEIVE XFC WAS UNINTELLIGIBLE FROM SUBSYSTEM "'HI6N\ 

157 003652 000 “BYTE 0 

158 003653 042 125 116 ERSOOO: -ASCII \‘'UNABLE TO FIND REQUESTED DRIVE FOR TESTING'N\ 

159 003701 9 042—'—s«s12h_—Cti«éd200 “ASCII \''THE FOLLOWING JS VISIBLE ON THE PORTS'N\ 

160 003725 9042S s«125——s«*104 “ASCII \SUDA PORT 0 == "'R1\ 

161 003736 = 042,—isisd125—s«*108 “ASCII \SUDA PORT 1 == "'RI\ 

162 003747 042, s«125—s«*104 “ASCII \UDA PORT 2 == "'RI\ 

163 003760 = 042,-—S ss 125——Ss«*104 SASCII \"UDA PORT 3 == "'R1\ 

164 003771 000 “BYTE 0 . 

165 003772 = 042, ss116—Ss«s117 SER10: “ASCII \"'NO DRIVE ATTACHED'N\ 

166 004004 000 “BYTE 

167 004005 042 122 103 SERI1: ‘ASCII \"RCVR RDY NEVER ASSERTED'N\ 

168 004022 000 “BYTE 0. ' 

169 00402 042 126 111 SERI2: ‘ASCII \"TIMEQUT OF SEND'N\ 

170 004034 000 “BYTE 0 





1 aE wee Re YE VLUGISNE SE oN = , 
vost DISK RESIDENT DMACR X04.01 19-AUG-82 13:10:12 PAGE 61-3 SEQ 0310 


TRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
171 op th 042 124 111 SER13: atte \""TIMEOUT OF RECEIVE''N\ 


172 004 000 “BY 
175 004080 042,-—=«106-—=«117.SERT4: “ASCII "FIRST WORD RECEIVED WAS NOT START FRAME'N\ 
174 006075 000 “BYTE 0. . 
175 004076 042 106 122 SERIS: ‘ASCII \"FRAMING ERROR ON LEVEL 0 RECEIVE'N\ 
176 004117 000 “BYTE 0. : 
177 004120 042 103 110 ~SERI6: ASCII \"'CHECKSUM ERROR ON LEVEL 0 RECEIVE'N\ 
178 004142 000 “BYTE 0, 
179 004143 = 042,—'—is122,)—=S's—s«d100S-« SERI7: ASCII \"'RESPONSE LONGER THAN EXPECTED FOR CMD'N\ 
180 004167 000 “BYTE 0, ; 
181 004170 042 1046 122 SERI8: ‘ASCII \"DRIVE "'RI\ 
182 004175 000 “BYTE - 
183 004176 104 «= 0061S «062s SERI8D: <ASCII \D12", ‘\ ; NOTE: THE STRING WITHIN THE \\'S <<MUST>> 
184 004202 104 061062 SERIBC: “ASCII DIZ, °N ; BE_AN EVEN NUMBER OF <4AR, BECAUSE THE 
185 004206 1046 061 062 SERI8B: :ASCII \DI2". ‘\ : LABELS WILL FORCE WOR’ ALINGMENT, LEAVING 
186 004212 = 104. Ss «061S «062: SERT8A: <ASCII \D12N\ ; JUNK IN THE LAST BYTE. (SERI8A OK TO BE ODD) 
187 004214 000 “BYTE 0. 
188 006215 = 042,-= 104. = 122s SER4O: ASCII \"DRIVE NOT AVAILABLE TO THIS UDA'N\ 
189 004236 000 “BYTE 0. 
190 004237 = 042, ss 125°=«Ss«'116- SER41: ASCII \""UNSPINABLE DRIVE "R1\ 
191 004251 000 “BYTE 0 
192 006252 = 042-122) 105. STATO: SASCII\"'REAL TIME STATE''S2HI6N\ 
193 004065 042 123 124 “ASCIIN'STATUS (R TO L)''S2H16S2H16S2H16S2H16S2H16S2H16S2H16N\ 
19% 004320 000 “BYTE 0 
195 004320 DMEND 
004321 013364 »WREDC OUTPUT EDC FOR THIS OVERLAY 
196 000001 SEND 


UDAT2 DISK RESIDENT DMACR X04.01 19-AUG-82 13:10:12 PAGE 61-4 
SYMBOL TABLE 


ARGS$ = 000003 
ATTN = 


CLRDRV 004220 
COMPAR= 000006 
COMPLT= 000176 
CONMEM 25 


CLR1 
DRTYPE= 000007 
DRVCLR= 000005 


DRVID = 000004 


FORMAT= 000001 


GCR 445 
GETBCN 004365 
GETCHR= 000207 
GETST 001176 


ph Maa 000011 


01500 
INSEEK= 000012 
IN. 001544 
IN.01 001545 
IN.02 001546 
IN.0$ 001547 
IN.04 001550 
IN.05 001551 
IN.06 001552 
IN.07 001553 
IN.08 001554 
IN.09 001555 
IN.10 001556 
IN.11 001557 
IN.12 001560 
IN.13 001561 
IN.14 001562 
IN.15 001563 
IN.16 001564 
IN.17 001565 
IN.18 001566 
IN.19 001567 
IN.20 001570 
IN.21 001571 
in-¢6 Bat az6 
IN.2 00157 
IN.24 001574 








0 Os a bs Oa Pe ae be Oe 
2222222222 
= 
WWIWIWIWnonononoro 
SWIM COOCONAWn 


MICREV= 000003 
RD = 6908) 
MSG1 324 


R3 003514 
MSR4 003555 
003612 


MS2009 000530 
MS2010 000564 
MS2011 000607 
MS2012 000674 
MS2015 000735 
MS2014 001001 
MS2015 001035 
MS2016 001133 
MS2017 001224 
MS2018 Bn 1633 
MS2019 001312 
MS2020 001336 


at tt ed od 
WOONAULSWN—O 


Cooooooeo 
NOUPWNHONAAPWWMONR OR 


RRVNVNVNMNVNN = 322 20 


SEQ 0311 





Y TABLE 
OUT.23 001530 ROM 001427 SEND = 000004 ST.D 
T.24 001531 DM 03642 SENDHR 001151 ST.DR = 000040 T4881 = 06000 
T.25 Oo 88 ROM. EN= pas 0 03772 ST.ERR= 000002 T4882 = 0600 
T.26 00153 ROM.OP= 00021 SER11 004005 ST.FE = 000200 T4MPRM= 
T.27 001534 RDSTAT 004621 SER1 004023 ST.FO = 002000 T4MXFR= 060011 
T.28 001535 R 021 SER1 004035 ST.MOD= 000001 T4SEEK= 060010 
OUT.29 001536 RECAL 004064 ER14 004050 ST.MSK= 000000 T4SOF T= 06000 
T.30 001537 REGSS = 177777 SER15 04076 ST.OA = 000200 T4UPRM= 060004 
OUT.31 001540 = 001 SER16 004120 ST.PE = 000040 UDADM2= 001000 G 
OUT.32 001541 RERRCA 005067 SER17 004143 ST.PS = 000002 UDAS5O = 000001 
T.33 001542 ERROR 005022 R18 004170 ST.RE = 000100 AS2 = 0000 
T.34 001543 RERRPA 005063 SER18A 004212 ST.RR = 000100 ITNB 000740 | 
OVERFL= 000002 ETS = 000001 R18B 004206 ST.RTY= 000003 UNITS 000720 
VE .MN= 000714 REVECT= 000004 SER18C 004202 ST.RU = 000001 UNITO = 000 
OVE .MS= EVS = 07 SER18D 004176 ST.SR = 000020 UNIT1 = 000002 
OVL.MN= 004170 M 5 04 SER18E 001157 ST.STA= 000001 UNIT2 = 000 
OVL.MS= 004322 RREAL = 013400 R40 §=004215 ST.S7 = 000400 UNITS = 000010 
VL...= 010512 RSTOP = 000 SER41 004237 ST.UNT= 000000 UNSSUC= 000175 
OVSTRT= 007774 RUN 001472 SHRTTO= 900000 ST.WE = 000010 UREAD = 00 
OVS.MN= 001040 UNDR 004010 SNDAGN 004657 SUB = 000 UTOTST= 060012 
OVS.MS= 011420 RWRDY = 10000 SPADJU 005100 TALKER 00471 UWRITE= 000014 
Ve... = 011132 RW.ANG= 000006 SS = 000001 TALKIA 004724 WAITSI= 000012 
PHYSA = 001000 W.BUF= 0744 TALK1B 004734 WBUFLN= 000401 
PORTO 002315 RW.CMD= 000004 STACK 001647 TALK2A 004771 WCONT = 04 
PORT2 002316 RW.HI = 000003 START 001650 TALK2B 004772 WREAL = 122400 
PORTS 002346 RW.LOW= 000002 STATEX 004647 TEST 002373 WRITE 002755 
PORTS 002354 RW.SDI= 00000 STATLP 004625 TESTEX 3101 R 00 
002363 RW.STA= 000000 STATOK 004640 TES 02357 RM.OP= 0 
PRMS_ = 000002 SAFWRD 001156 STATUS= 000007 TIMEOU= 000001 WRONG = 00 
PTYPES= 000020 SAVREG 001153 STATO 004252 05005 WRTMEM 0037350 
RBNTRK= 000004 SAVRID 000743 STOSTA 004274 OOBIG= 000001 WSTOP = 14 
RBUFLN= 000415 AVSTA 000742 STSIZE= 000200 TRKGRP= 000003 XBNCYL= 000021 
= SBCRES= 000167 STSRES= 000366 YP 00451: XFERRT= 000000 
RCTCPS= 000001 SDI 000741 ST.C_ = 000002 T00 002647 XMTERR= 000400 
RCTCSZ= 000014 SDILTO 001155 ST.CON= 000602 TIMSIZ= 060000 XOR 004775 
RCV__= 000005 SDISTO 001154 ST.DB = 001000 T2CMD = 060002 XREAD = 000002 
RCVERR= 000004 SDIVER= 000000 ST.DF = 000020 T2DLL = 060001 XWRITE= 000003 


RCVRDY= 000001 

- ABS. 022264 oo 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 3855 WORDS ( 16 PAGES) 


DYNAMIC MEMORY AVAILABLE FOR 


SEQ 0312 
IA 002665 T2stet_ 002231 | 
70 PAGES 
B:UDAT2.050,B8:UDAT2.L50/C=$DMACRO,B: UDAT2 
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CROSS REFERENCE TABLE (CREF V04.00 ) 


ARGSS He Hee $3- 6 ii: 6a si63 gi-cis 9-37 et 30-24 i. 4# 30-26 30-264 30-33 334 


47-29 47-298 47-31 47-314 48-18 48-184 48-21 48-214 48-29 48-294 48-31 48-314 
ATTN S-c2# 24-14 


BUFSIZ 21-794 55-15 55-20 55-24 


CHECK rae 144 
CHRRES 5-434 32-15 32-22 8 8=— 32-22 
LRBUF 55-264 55-28 
CLRORV 31-10 37-41 39-5 48-94 
COMPAR 3-94 
COMPLT 5-41# 31-43 31-50 31-50 37-33 = 44-33 44-40 44-40 45-14 45-21 45-21 46-14 46-21 46-21 
48-24 48-31 48-31 
ONMEM 38-12 38-25 39-30 40-51 50-274 
CR.DIA 20-394 37-14 
en rig eu 
-GST SO-1oe 35. 47-10 
-INR 20-454 46-4 
CR.ONL 20-334 31-33 
CR.RDM 20-254 43-22 
CR.RUN 20-434 45-4 
CR.WRM 20-19% 33-11% 33-13% 34-20" 40-37* 40-38  40-76* 44-18 
CVT 3-194 
D.LIMT 6-34 
D.SCHR 6-44 
DATAVL 19-594 38-16 38-31 
PRE 4-334 
DBNCYL 4-424 
DIA 20-39 0-404 37-13 
DIA.EN 19-534 7-31 37-40 37-40 
A. 19-504 20-40 


DIA.OP 
DIAG.1 19-244 $3710 42-6* 42-14% 
DIAGDR 36-9 36-17 37-114 40-78 40-82 


DIAGNO 33-35 36-164 

DIAGNS 33-20 36-24 

DINIT 5-150 29-14 

DISCON -30# 

DIVSO 41-7 41-10 41-17 41-19 53-134 
DO.DC4 “9 38-22 8-30 38-32 39-34 40-56 
DO.DC 9-44 39-9 9-15 

00.DI 9-10 39-16 39-19 39-27 42-44 
DO.DI 9-34 40-34 

DO.DI 

00.01 





SEQ 0314 
5-11 5-12 5-13 5-14 5-15 


5-10 
48-32 
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5-7 
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eee www 
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CROSS REFERENCE TABLE (CREF V04.00 ) 
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UDAT2 DISK RESIDENT DMACR X04.01 19-AUG-82 13:10:12 PAGE S=3 SEQ 0315 | 
CROSS REFERENCE TABLE (CREF V04.00 ) 


48-21 48-21 48-214 48-29 48-29 48-29 48-294 48-31 48-31 48-31 48-318 
ERRTYP 19-584 38-26 
5-534 
EX.END 47-33 47-358 
EX 3-204 26-43 










FFF 33-6 
FFFD 19-63 19-644 19-65 39-21 
FNDASC 41-13 41-23 53-294 


GETCHR 5-36# 19-514 20-31 


HD.REV 22-1414 
-XBN 92-1444 
HDRPRE 4-344 


HIBYTE 4-544 27-31 30-13 35-20 50-30 50-36 51-33 51-38 51-75 


H 4-308 
HILBN 4-264 
HIMEM 2-934 
HIRBN 4-298 


33-25 38-33 40-17 = 51-53 55-24 56-32 59-40 


SEQ 0316 


9 
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38-6* 38-18 39-21" 39-22 39-23" 51-82 


38-5* 


36-6* 
36-16 37-15 38-10 38-23 39-4 39-28 8=—« 40-53 424 


36-10 


= 
N 
4 
oO 
~» 
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CROSS REFERENCE TABLE ‘CREF V04.00 ) 


43-23 44-19 - 
SDILTO 19-384 ; =31* 38-5¢ 
~4s 32-27* 56-22 
3-74 3-43 56-15 
7-12e 37-17% 38-3* 56-26* 
SER10 23-20 61-1654 


SER18B 19-48 61-1854 

SERI8C 19-4 61-1844 

SER18D 19-44 61-1834 

SER18E 19-414 26-26 

SER4O § 23-34 61-1884 

SER41 26-16 61-1904 

SHRTTO 4-34 32-24 

Ss 55-144 55-18 

Aaa se 59-424 

ST 19-214 20-12 20-15 20-19 20-25 20-30 20-33 20-39 20-43 20-45 24-8 31-20 31-21 32-24 | 
32-28 35-18 38-4 39-17 39-29 39-3 $782" 39-35* 40-10 40-12 40-14 40-31 40-42 40-48* 
40-49* 42-12 49-13 49-16 20-28 51-4 1-56 

ST.C 3-304 

ST.CON 3-294 

“T.0B 3-478 


ST.DR 3-374 33-3 39-18 


ST.ERR 3-284 
ST.FE 3-414 31-22 
ST.FO =4 
ST.MOD 3-27# 
ST.MSK 3-254 
ST.OA 3-354 
ST.PE 3-434 31-22 
ST.PS 3-394 
ST.RE 3-424 
ST.RR 3- 
ST.RTY 3-314 
ST.RU 3-4 36-2 
ST.S7 ~484 
ST.SR 384 36-6 
ST.STA 26" 
-UNT -244 
WE ~454 1-2 


ST 31-22 
STACK 18-8 22-64 28-37 


gi 1508 
STATEX 54-16 4-18 54-228 
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STATLP 54-94 54-14 54-20 

STAT 


STOSTA 31-26 31-47 32-19 Hat Hf 43-41 44-37 45-18 46-18 47-28 


32-11 32-14 32-16 32-21 32-244 


LL 5-44 40-16 
T2STRT 27-16# 
T4881 5-84 
T4BB2 5-94 


5-64 
TOMXFR «=5=12# 856-31 


T4 
TALKIA 56-17 56-204 


TALK2B 56-19 56-41 56-45 56-474 
roan 31-34 32-6 37-16 43-24 44-20 45-5 46-5 47-11 48-11 


TIMEOU _4-614# 
32-26 32-30 58-14 
IG 4-6 


TYPERR 31-40 32-12 37-26 43-33 44-29 45-11 46-11 47-20 48-20 
UDAS2 2-334 2-38 2-55 2-65 2-86 18-10 59-46 
UDADM2 


2-728 

UNITO 4-464 27-26 28-25 

UNIT1 4-474 

UNIT2 4-484 

UNITS 4-498 

UNITNB 19-114 27-50% 28-23% 28-39 41-3* 

UNITS 19-64 23-14 25-7 25-19 25-26 26-7 26-36 27-24 28-13 

UNSSUC 5-42 31-45 32-17 37-35 43-39 44-35 45-16 46-16 47-26 
3-144 40-35 

UTOTST 5-134 25-4 


20-19 20-204 336% 33-7* 33-8* 33-9 33-10" 34-11% 34-12* 
40-40" 40-41% 40-45% 40-50 40-58*  40-75* 





40-54 





44-184 





48-28 49-44 


56-124 


52-164 


48-26 


34-17* «34-18% 34-198 


40-4* 


SEQ 0322 


40-21* 
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4-418 


4-S# 
5-254 
57-114 


3-54 
3-64 


54-11 


ee Oe ee 





UDATS __DISK_FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 
TABLE OF CONTENTS 





2- START OF TEST CODE 

3- UDA_DM PROGRAM PARAMETERS 

7- TEST 4 a rciris INFORMATION 

8- MACRO DEFINITIONS 
20- MACRO FOR og TABLE 
21- RTDS REAL it 4 ~—— STATE ROUTINE WITH ERROR REPORTING (TEST 4) 
2i- 1 RTDSL = “CALL R STA 
2i- 1 RDSTAT = GET DRIVE’ Ig REAL TIME DRIVE STATE 

22- HOSTRQ = HOST REQUEST = REPORT yl MEGABYTES TRANSFERRED, ETC. 
24- TALK SDI_LEVEL 2 INTERCHANGE ROUTINE 

25- TO = CALCULATE TIMEOUT INTERVALS 

es> 1 LINIT = INIT THE DRIVE 
26- STACK_AREA 
27- TEST 3 START AND LOOP ON UNITS 
29- ERROR EXIT 
30- FNDCYL = FIND CYLINDER 


er. = STORE INFORMATION IN AREA ‘ST’ 


READ1 = READ SECTORS ON A TRACK FOR TEST 
UNITS, SDI tata S AND PROGRAM VARIABLES 
DATA PATTERN 


oo GETU<POLL ALL PORTS>, RBUFD, & FCHAIN 


36- 2 GETU _ = POLL ALL PORTS, THEN GET UNITS TO TEST 
39- 4 REST OF gel CHAIN 
42- INIT DRIVE AND LOOK AT DRIVE SIGNALS 


GET DRIVE ata: 
OMMAND 


ISSUE ONLINE C 
44- ISSUE ONLINE C 
44- 2 ISSUE DRIVE CLEAR COMMAND 
45- ISS MOD 
45- 1 SPIN UP 
46- ISSUE INITIATE RECALIBRATE COMMAND 
47- GET SUBUNIT CHARACTERISTICS 
47- 2 SEEK TO CYLINDER 0, GROUP 0 
48- CALCULATE NUMBERS 


READ ALL FACTORY FORMATTED TRACKS 

SEEK TO SELECTED ye. READ HDR, SEEK TO DIAGNOSTIC AREA 
CHECK WRITE PROTECT 

CHANGE MODE TO ALLOW FORMATTING AND WRITING 

ORMA ECK IT. 


54- 2 F T A_TRACK THEN CH 

55- SEND INVALID LEVEL 2 COMMAND 
56- SEND INVALID LEVEL 1 

58- ISSUE DISCONNECT 

58- CHECK AVAIL FLAG 

59- SNDLV1 AND TSTCMD 

60- FORTRK = or TRACK 

61- TRKTST = TEST TRACK 

62- WRTCMP = WRITE A oan PATTERN AND COMPARE 
63- GENERATE A PATTERN 

64- WRITEB = WRITE A SECTOR 

7 READB = READ ONE SECTOR 


‘> 
Ww 
4 
Nm 
Wa PP SO PP PAO PS NHB AO RR HP WM PH WO BR PS PS Ss PS OR SS SS ON PP 


CMPDAT = COMPARE DATA 
MESSAGES 


; 





SEQ 0324 
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.TITLE UDAT3 DISK FUNCTIONAL 

4 : 

5 + COPYRIGHT (C) 1981 

3 : DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

8 : 

9 : THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
10 : SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
11 : OVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
12 : COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
13 : TO ANY OTHER PERSON EXCEPT R USE ON SUCH SYSTEM AND TO ONE 
14 : WHO AGREES TO THESE LICENSE TERMS. TITLE AND OWNERSHIP OF 
15 : THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL 

17 : THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
18 + NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
19 : EQUIPMENT CORPORATION. 

21 : DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
22 + ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

24 : 

25 : 

26 ; 
27 3 

28 3 

29 ; 

30 3 

31 ; 

32 000000 UDASO=0 

33 000001 UDA52=1 

34 [THIS PROGRAM SHALL BE ASSEMBLED WITH THE PROGRAM DMACRO 

35 [USING A COMMAND LINE SIMILAR TO: 

37 ! UDAT3,UDAT3/C=C1,2]DMACRO,UDAT3 

39 [THEN LINK THE OBJECT FILE USING A COMMAND LINE SIMILAR TO: 

41 : UDAT3.BIN/L=UDAT3 
43 ; 


4G 000000 TEST4 == 0 ; THIS IS NOT TEST4 








B 10 
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START OF TEST CODE 


WN —NM@OVDOnou— 
ss 
z 


WWW 


at et 
Ques 
g 
Ww 
oa 
N 


»MCALL 
DMCODE 
000000 «WORD 


START OF TEST CODE 

DMCODE ,OMEND ,DMOVLY 
JMP,BR,BEQ,CALL ,BPL,BCC BNE ,BM1 ,RETURN 
DMODT 

UDADM3,0,1364,3,0,1000 


0 


s INITIALIZE STACK 
104206 002260 = #STACK ,SP SET UP STACK POINTER 


START : BRANCH OVER SUPPORT CODE 


SEQ 0326 | 


C 10 
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UDA DM PROGRAM PARAMETERS 





1 .SBTTL UDA DM PROGRAM PARAMETERS 

5 .LIST MEB 

3 ; EQUATES 

4 ; HIGHEST USABLE LOCATION OF UDA MEMORY + 1 

J2 037777 Ime = 37777 
23 ; 
2 : OFFSETS FOR FORMAT TRACK TABLE 
Os 000000 FT.BUF = 0. ZBUFFER POINTER OFFSET 

27 000001 FT.HI = 1. SHI ORDER HEADER OFFSET 

28 000002 FT.LOW = 2. SLOW ORDER HEADER OFFSET 

30 : 

31 : OFFSETS FOR FORMAT TRACK BUFFER 

33 000000 FB.DAT = 0. :FIRST DATA WORD OFFSET 

34 000400 FB.EDC = 256. SEDC WORD OFFSET 

36 : 

7 : OFFSETS FOR READ/WRITE 1/0 CHAIN TABLES 

42 000000 RW.CcPT = 0. :NEXT BUFFER POINTER OFFSET 
43 000001 RW.STAT = RW.CPT+1. TATUS 

52 000002 RW.BUF = RW.STAT#1. <POINTER TO DATA BUFFER 

53 000003 RW.LOW = RW. BUF +1. 3H1 ORDER EXPECTED HEADER 

54 000004 RW.HI = RW. LOW+. [LOW ORDER EXPECTED HEADER 

55 000005 RW.CMD = RW.HI+1. COMMAND AND HEAD ADDRESS 
56 000006 RW.SDI = RW.CMD+1. {DUMMY SDI CONTROL BLOCK POINTER 
57 000007 W.ANG = RW.SDI+1. [THETA FROM INDEX 

39 ; CONSTANTS FOR READ AND WRITE XFC'S 

61 140000 WSTOP = 140000 : LAST ENTRY IN CHAIN FOR WRITE 
62 040000 WONT = 0000 > WRITE CON 

63 100000 RSTOP = 100000 : LAST ENTRY IN CHAIN FOR READ 
64 000000 RCONT = + READ CONTINUE 

65 100000 FSTOP = 100000 : LAST ENTRY IN CHAIN FOR FORMAT 
66 122400 EAL = 122400 : WRITE REAL TIME ECOMMAND 
67 013400 RREAL = 13400 : READ REAL TIME COMMAND 

68 010000 ECCFLG = 10000 : ECC ERROR IN BUFFER BIT 

69 100060 EOC = 100000 : END OF CHAIN 

70 040000 BUFFLG = 40000 : BUFFER FULL OR EMPTY FLAG 
a 001750 MAXSND = 1000. 

73 : 

7% ; HEADER CODES 

000000 :G00D LBN 

960000 GOOD RBN PERHAPS UNUSED 
0000 ;REVECTOR ORED 
110000 8 


LOCK 
050000 {PRIMARY REVECTORED BLOCK 
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81 


co 
nm 


B339920209:00R-2mmm~we 


ab ns a 
KARA 


ooo 
oon 


000050 
000063 


001375 


BF ..DAT 
BF .EDC 
BF ..ECC 


WBUFLN 


RBUFLN 
LINKLN 


U. SUBU 
U.UNUM 


FOR.SZ 


010 


45:56 PAGE 3-1 


= 120000 3XBN BLOCK 

= 140000 ;DBN BLOCK 

LEVEL 1 CODES 

= 70400 sMESSAGE START 

= 131000 sMESSAGE END 

= 126008 sMESSAGE CONTINUE 

= 107000 :SELECT GROUP 
OFFSETS FOR DATA BUFFERS 

= 0. DATA 

= 256. sERROR DETECTION CODE 
= 257. sLAST 17 ECC RESIDUES 
BUFFER AND READ/WRITE CHAIN LINK SIZES 

= 257. ; WRITE BUFFER SIZE 

= WBUFLN+12. ; READ BUFFER SIZE 

= 7. 3; LINK SIZE 

UNIT PARAMETER USED BY TEST3 

Sf 50 

= 63 


FORMAT CHAIN SIZE 
= 255.*3 


‘SEQ 0328 


es oT ie OS Deke ol AT ee od Me = | 
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j : XFC DEFINITION EQUATES 

3 BREAK =  . ZBREAKPOINT XFC CODE 
4 000001 FORMAT = a ZFORMAT TRACK XFC CODE 

5 90000 XREAD = é- ZREAD N SECTORS XFC CODE 

& 00000 XWRITE = ' ZWRITE N SECTORS XFC CODE 

7 000004 SEND —s = 4. : SDI C C 

& 000005 CV = 5. ZRECEIVE SDI MESSAGE XFC 

9 COMPARE = 6. RE DATA PATTERN TO BUFFER 

10 000007 STATUS = Te ZRETURN DRIVE STATUS XFC CODE | 
11 000010 ECHO = 8. ZECHO DATA TO DRIVE XFC CODE | 
12 000011 DINIT = 9. ZDRIVE INITIALIZE XFC 

13 00001 WAITS] = 10. 3WAIT FOR SECTOR OR INDEX PULSE 
14 00001 = 11. ZREAD UNIBUS MEMORY X 
15 000014 UWRITE = 12. sWRITE UNIBU MEMORY XFC CODE | 
16 000015 = 13. 7D0 ECC ON BUFFER XFC CODE 

17 000016 MRD = 14. [SEND BUFFER TO MAINTENANCE READ COMMAND 

18 000017 = 15. [GET BUFFER FROM MAINTENANCE WRITE COMMAND 
19 000020 vT = 16. ZCONVERT TO PHYSICAL ADDRESS XFC CODE 
20 000021 EXIT = 17. : TERMINATE DM PROGRAM XFC CODE 
32 : MEDIA TYPE 

o | 

24 126736 MOD512 = 126736 
35 074161 MOD576 = 074161 
4 : GET STATUS OFFSETS 
29 000000 ST.UNT = 0. ZUNIT NUMBER 

30 000000 ST.MSK = 0. : SUBUNIT 

31 000001 ST.STA = ‘. : STATUS Byte. | 
32 000001 ST. = * :MODE BYTE | 
33 000002 ST.ERR = TERROR BYTE 
34 000002 ST.CON = 2. 3CONTROLLER BYTE 

35 000002 ST.C 3 = 2. 

3 000003 ST.RTY = Bs TRETRY COUNT/FAILURE CODE 

: | 

38 ; STATUS BIT DEFINITIONS 
40 000010 ST.EL = 10 3 LOGGABLE INFO IN EXTENDED STATUS | 
41 000200 ST.OA = 200 3 ONLINE TO ANOTHER (SET IF DRIVE UNAVAILABLE) 
42 000100 ST.RR = 100 : READJUSTMENT BIT (SET IF RECAL IBRATION REQUIRED) | 
43 000040 ST. = 40 3 DIAGNOSTIC REQUEST (SET IF DIAGNOST ic REQUESTED) 
44 000020 ST. = 20 3 SPINDLE READY (SET IF SPINDLE READ 
45 000002 ST. = 2 : PORT SWITCH (SET IF PORT SWITCH IN fe 
46 000001 ST.RU = 1 3 RUN/STOP SWITCH (SET IF RUN/STOP SWITCH IN) 
47 000200 ST.FE = 200 : FATAL ERROR (SET IF FATAL ERROR OCCURRE | 
48 000100 ST.RE = 100 3 RETRIABLE ERROR (SET IF *RETRIABLE ERROR OCCURRE 
49 000040 ST.PE = 40 ; PROTOCOL ERROR (SET IF PROTOCOL ERROR OCCURRED) 

50 000020 ST.DF = 20 3 INITIALIZATION FAILURE (SET IF INIT FAILED) 
51 000010 ST.WE = 10 ; WRITE ENABLE (SET IF WRT ATTEMPTED ON PROT DISK) | 
52 002000 ST.FO = 2000 : FORMATTING (SET IF FORMATTING ENABLED) 

53 001000 ST.DB = 1000 3 DIAGNOSTIC CYLS (SET IF DIAS CYL ACCESS ENABLED) 

54 00 ST. = 400 ; SECTOR SIZE (SET FOR 576 BYTE SECTORS) 
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1 ; GET COMMON CHARACTERISTICS OFFSETS 
i 000000 SHRTTO = 0. zSHORT TIMEOUT <3:0> 
4 000000 SDIVER = 0. ‘SDI VERSION <7:4> 
& 000000 XFERRT = 0. S TRANSFER RATE <15:0> 
6 000001 LONGTO = 1. [LONG TIMEOUT <3:0> 
? 000001 etS = i SRETRIES <7:4> 
a 000001 RCTCPS = 1. :F/RCT COPIES <11:8> 
9 000001 § = .. TSECTOR SIZE <15:15> 
10 000002 RLEV = Z TERROR RETRY LEVELS <7:0> 
11 00000 ECCRSH = 2. ZECC THRESHOLD <15:8> 
12 00000 MICREV = 3. ‘MICROCODE REVISION NUMBER <7:0> 
13 000003 HRDREV = 3, ZHARDWARE REVISION NUMBER <15:8> 
14 000004 DRVID = 4. [UNIQUE DRIVE ID <47:0> 
15 07 DRTYPE = 7. ZDRIVE TYPE IDENTIFIER <7:0> 
16 000007 REVS = 7. ZREVS/SECOND <15:8> 
18 : GET SUBUNIT CHARACTERISTICS OFFSETS 
20 ZTHESE OFFSETS ARE CURRENTLY GIVEN AS FOLLOWING THE COMMON CHARACTERISTICS 
22 000013 SUB = 11. sOFFSCT TO PUT SUBUNIT AFTER COMMON; 
23 LBNCYL = 0. [NUMBER OF CYLINDERS IN LBN AREA <31:0> 
24 000001 HICYL = 1. THI ORDER CYLINDER BITS <15:12> 
25 2 GRPCYL = 2. :GROUPS PER CYLINDER <7:0> 
26 000002 HILBN. = 2, SHI STARTING LBN <11:8> 
27 2 IXBN = 2. SHI STARTING XBN <15:12> 
28 00000 TRKGRP = 3. S TRACKS PER GROUP <7:0> 
29 00000 HIRBN = 3: SHI STARTING RBN <11:8> 
30 000003 HIDBN = 7 ZHI STARTING DBN <15:12> 
31 000004 RBNTRK = 4. SRBNS PER TRACK <6:0> 
32 000004 RM = ‘. :REMOV ABLE MEDIA <7:7> 1=REMOVEABLE 
33 000005 DATPRE = 5. A PREAMBLE SIZE IN WORDS <7:0> 
34 000005 HDRPRE = 5. {READER PREAMBLE SIZE IN WORDS <15:8> 
35 000006 MEDTYP = 6. ‘MEDIA TYPE <31:0> 
36 000010 FCTSIZ = 8. SFCT COPY SIZE <15:0> 
37 000011 LBNTRK = 9. *LBNS PER TRACK <7:0 
38 000011 GRPOFF = 9. : OFFSET (SECTORS) <15:8> 
39 000012 LBNHST = 10. : IN HOST AREA < 
40 000014 RCTCSZ = 12. :RCT COPY SIZE <15:0> 
41 000021 XBNCYL = 17. :CYLS IN XBN AREA <15:0> 
42 000022 DBNCYL = 18. :CYLS IN DBN AREA <15:8> 
6 ; UNIT CODES 
46 1 UNITO = 1. :UNIT ZERO CODE 
47 000002 UNIT1 = 2. [UNIT ONE CODE 
48 UNIT2 = ‘. [UNIT TWO CODE 
49 000010 UNITS = 8. [UNIT THREE CODE 
31 : BIT MASK DEFINITIONS 
53 ; 
54 177400 HIBYTE = 177400 :HIGH BYTE MASK 
55 000377 LOBYTE = 000377 3LOW BYTE MASK 
56 007777 HBHINB = 7777 “HI BYTE, HI NIBBLE MASK 
57 170377 HBLONB = 170377 ‘HI BYTE. LO NIBBLE MASK 
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177417 
177760 


000001 
000002 
000004 
000002 
000004 
000010 


000001 
000002 


000001 
000002 


RGE 
OVERFL 
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417 :LO BYTE, HI NIBBLE MASK 
760 :LO BYTE, LO NIBBLE MASK 


sDRIVE TIMEOUT CODE 
HEADER COMPARE FAILURE CODE 
sREVECTOR NEEDED CODE 


sFIRST WORD NOT START FRAME CODE 
sFRAMING ERROR CODE 
sCHECKSLM ERROR CODE 


NUMBER OF WORDS EXCEEDS 7064 
30M BUFFER ADDRESS IS LESS THAN 714 


5 1. BLOCK NUMBER TOO LARGE 
= 2. SECTOR NUMBER LARGER THAN 16 BITS 









NO DONAUSWN $0 OONOUSWN 


NNN 2 2 we 


ssssseses 
SEQVSAANS= 


WWeao 


4 10 
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UDA DM PROGRAM PARAMETERS 


sMAINTANENCE READ/WRITE REQUEST NUMBERS 


TIMSIZ = 0. +60000 
T20LL = 1.#60000 
TOCMD = ¢- #60000 
T4MPRM = - #60000 
T4UPRM = 4.+60000 
14881 = 5.+60000 
T4882. = g. +6000 
T4SOFT = . #60000 
T4SEEK = 8. +60000 
T4MXFR = 9.+60000 
UTOTST = 10.+60000 
ERRMES = 11. +60000 
RRMC = 12.+60000 
MESSAG = 13.+60000 
DONE = 14.+60000 
: OTHER BIT DEFINITIIONS 
RCVRDY = 1 

TIN = 2 
DCLOCK = 4 

VAIL = 100 
RCVERR = 400 
RWRDY = 100000 
: SDI COMMANDS AND RESPONSES 
DISCON = 204 
ERECOV = 4 

GMOD = 201 
DRVONL = 213 
DRVRUN = 14 
DRVCLR = 5 
GETCHR = 207 

ETSUB = 210 
GETSTA = 11 
IRECLB = 216 
INSEEK = 12 
COMPLT = 126 
UNSSUC = 17 
CHRRES = 170 
SBCRES = 167 
STSRES = 366 

HOC = 350 


SEQ 0332 


sGET FREE MEMORY PARAMETERS 


AGE 
[MARK DM PROGRAM AS NO LONGER RUNNING 


RECIEVER READY 1 = READY 

ATTENTION BIT FOR RETURN DRIVE SIGNALS XFC 
pomeeogt ERROR 

ILABLE i. = A etna 

RECIEVER 
IF SET, UDA" 1s ABLE TO READ AND/OR WRITE TO DRIVE | 


DISCONNECT DRIVE 

ERROR RECOVERY 

CHANGE MODE 

DRIVE ONLINE 

DRIVE RUN 

DRIVE CLEAR etits 

GET ett cones 

GET SUBUNIT CHARACTERISTICS 


RESPONSE 
T ae RESPONSE 
DIAGNOSTIC ECHO COMMAND AND RESPONSE 


BeBe Ge Se Ge Ge Ge Se Fe Be Se Be Be Be Be Se Se 
a 
m 
~~ 
nn 


3 SYSTEM FATAL ERROR 


FILSYS = 9 

FTLDEV = 4000 > DEVICE FATAL 
RHARD = 100000 : HARD ERROR 
ERSOFT = 140000 : SOFT ERROR 
C2HARD = <ERHARD& *CERSOF T>! <ERSOF T@*CERHARD> 





3 CHANGE SOFT TO HARD ERROR 
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TEST 4 SPECIFIC INFORMATION | 


| .SBTTL TEST 4 SPECIFIC INFORMATION 

3 ; TEST 4 SPECIFIC INFORMATION 

5 : 

§ ; CONSTANTS 

A 000377 SCTWRD = 255. 3 NUMBER OF WORDS IN SECTOR TO FILL 
9 000105 INTEDC = 69. : INITIAL EDC VALUE 
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-SBTTL MACRO DEFINITIONS 


; MESSAGE CONTROL TABLE MACRO 
«MACRO MSG CMDBUF ,CMDSZ,RPLBUF , af SUCCOM 
eWORD CMDBUF DRESS OF COMMAND 
-WORD CMDSZ SIZE 0 3 OF nen IN BYTES 
-WORD RPLBUF ‘ADDRESS OF 
-WORD RPLSZ SIZE OF REPLY. IN WORDS 
- IF NB NUMBER 
— SUCCOM 3 SUCCESSFUL COMPLETION CODE 
~ENDM 
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MACRO DEFINITIONS 

1 -MACRO BCS LAB..,?B 

§ BCC B 

i BR LAB.. 

5 -ENDM 


I 
FINITIONS 


L 10 : 
TIONAL DMACR X04.01 18-AUG=82 15:45:56 PAGE 10 SEQ 0336 
: PUSH REGISTER MACRO 


-MACRO PUSH R9 
-IRP X,<R9> 


MOV X,<(SP) 
.ENDR 
SENDM 
: POP REGISTER MACRO 
. -MACRO POP R9 
IRP X,<R9> 
MOV (SP)+,Xx 


-ENDR 
-ENDM 
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UDAT3 DISK FUNCTI 
MACRO DEFINITIONS 
1 ERROR MACROS 
§ s THESE MACROS ARE CALLED TO REPORT ERRORS TO THE HOST PROGRAM. 
THE MACRO NAMES ARE : ERRSF, ERRDF, ERRHRD, ERRSFT. EACH RESULTS IN THE HOST 
4 BEING REQUESTED TO REPORT THE ERROR. 
5 2 ARGUMENTS: 1 (MS$) MESSAGE POINTER 
6 ; ¢ (P1$) PARAMETER #1 
7 ; (P2$) PARAMETER # 
8 3 4 (P3$) PARAMETER # 
9 ; 5 (P4$) PARAMETER #4 
10 ; 6 (P5$) PARAMETER #5 
11 s 7 (P6$) PARAMETER #6 
12 3 8 (P7$) PARAMETER #7 
1? : 9 (P&S) PARAMETER #8 
15 3 THE eo pe POINTER MUST POINT TO AN ADDRESS IN THE where “MS*’ IMMEDIATELY 
16 FOLLOWING THE MAIN CODE. ANY ADDRESS MODE MAY BE USED (E.G. #M R2). 
\ sO PRINTS MUST CONTAIN AN ASCII FORMAT STRING TO DETERMINE THE MESSAGE 
19 THE PARAMETER ARGUMENTS ARE OPTIONAL. THEY SHOULD BE SUPPLIED ONLY WHEN 
20 ;THERE IS DATA TO BE PASSED TO THE HOST THAT WILL BE USED IN PRINTING THE 
21 sMESSAGE . o ahak PARAMETER ARGUMENTS ARE THE ADDRESS OF DATA TO BE PASSED 
22 ;USING ANY ADDRESSING MODE DESIRED. 
23 ZALL_REGISTERS ARE RETURNED UNCHANGED. IT SHOULD BE aores THAT ARGUMENTS 
24 sCONTAINING SOMETHING OTHER THAN A REGISTER NAME (E.G. #100 OR MEMADR) 
$ ASSEMBLE TO INSTRUCTIONS THAT SAVE AND RESTORE A REGISTER ON THE STACK. 
27 “MACRO ERRSF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S 
28 -NARG ARGSS 
29 «RADIX 10 
+ —"\ FTLSYS,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 
32 
33 «MACRO ERRDF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 
a4 -NARG ARGSS 
35 eRADIX 10 
4 — FTLDEV,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 
38 
+4 ter ERRHRD MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 
41 :NARG "ARGS 
42 eRADIX 10 
| ERRORS ERHARD ,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 
“2 ~ENDM 
47 «MACRO ERRSFT MS$,P1$,P2$,P3$.P4$,P5$,P6$,P7$,P8$ 
$8 -NARG ARGSS 


eRADIX 10 
50 — ERSOFT ,MS$,P1$,P2$,P3$,P4$,F5$,P6$,P7$,P8$, \ERRN 








UDAT3 
MACRO 


NONININID @ 2 
MEWN $0 OONOUSWN—O OONOUSWwR— oo 


Mr 
Oo 


27 


a 
=a 
Cs 
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sTHE FOLLOWING MACRO ACTUALLY PROCESSES THE ERROR CALL TO THE HOST PROGRAM 


«MACRO 7 ETS,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$,ERRNS 


PRNS=ARGS$=1 
: ERROR; ;NOT ENOUGH ARGUMENTS IN ERROR CALL 


-EN 

REGS$==1 

- LIF GE,<PRMS-8.>,PARGS. P8$ 
LIF GE.<PRMS=7.>,PARGS. P7$ 
LIF GE,<PRMS-6.>,PARGS. P6$ 
GE,<PRMS=5.>,PARGS. P5$ 


GE REGS$ 
RSTR$ \REGSS 
“RADIX 10 

LIST 


SEQ 0338 


CALL RERROR ERROR # ERRNS'. 


eNLIST 
-RADIX 8 
«LIST 
-WORD ETS+ERRN 
-WORD <PRMS*10000>+MS$ 
eNLIST 
ERRN=ERRN+1 
-ENDM 


-MACRO PARGS. ,ADDRS 
-NTYPE PTYPES,ADDRS 
-IF EQ,<PTYPE$&70> 
gh eet WERE TREES ENS \REGSS$ 


MOV ADDRS$,-(SP) 


:NLIST 
“IF fe <PTYPE$&7>=1 sPICK A REGISTER TO USE 
“Rt Gu$=2 ;SELECT R2 IF R1 IS USED IN PARAMETER FETCH 
“_pegust sOTHERWISE USE R1 
IF NE -<REGUS-REGSS> ;IF REGISTER NOT ALREADY SAVED 
vinsthe. \REGSS ;RESTORE CURRENT SAVED REGISTER 
SAVRS$ \REGUS 7 THEN SAVE SELECTED REGISTER 


N 
GETPS \REGS$,ADDRS 
-ENDC 
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SEQ conn | 


MACRO DEFINITIONS 


1 
2 
3 
4 
5 
6 
4 
8 
9 
0 
1 
2 
3 
4 
5 
6 
4 
8 
9 
0 


~MACRO_SAVR$ REGN 
«LIST 
MOV R°REGN, SAVREG 


-MACRO _RSTRS REGN 
: MOV SAVREG,R'REGN 


-MACRO_GETP$ REGN,ADDRS 
»LIST 


MOV ADDRS$,R'REGN 
MOV R*REGN,-(SP) 


RD a to ot ot so 


| 
| 
; 
| 
| 
| 
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DI 1 
MACRO DEFINITIONS 

1 : 

; : PRIMARY ERROR REPORTING (TEST 4) 

4 .MACRO SOFTER NUM,ARGS 

5 ERROR ERSOFT,NUM,<ARGS> 

6 MOV MERRMES ,OUT.RO 
i .ENDM 

9 .MACRO REPSFT SFTFLG.ECCFG,SEKFLG 

10 wIF NB, SFTFLG 

11 MOV #1,0UT.02 

12 IF | 
13 CLR OUT.02 

14 .ENDC 
16 MOV #1,0UT.03 

17 IFF 
18 CLR OUT.03 

19 .ENDC 
20 wIF NB, SEKFLG 
21 MOV #1,0UT.04 

22 FF 
23 CLR OUT .04 

24 -ENDC 

25 PUSH RO 

26 MOV U.UNUM(R5) ,RO 
27 ADD U.SUBU(R5) ,RO 
38 MOV RO,OUT.01 

9 MOV #T4SOFT,RO 

30 CALL §HOSTRQ 

31 PoP RO 

32 .ENDM 

33 


34 MACRO HARDER NUM,ARGS 

35 ERROR ERHARD,NUM,<ARGS> 

36 MOV #ERRMES ,OUT.RQ 
$ -ENDM 

39 MACRO DEVFTL NUM,ARGS 

40 ERROR FTLDEV,NUM,<ARGS> 

41 MOV #ERRMES ,OUT.RQ 


SYSFTL NUM,ARGS 
FTLSYS,NUM,<ARGS> 
MOV #ERRMES ,OUT.RQ 
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.ENDC 
Mov LUNIT,OUT.03 
MOV Ft neat 


R 
MOV #..0UT -01 


»MACRO — STNUM, ARGS 
NUMPTR = STNUM 
- IRP X,<ARGS> 
MOVMSG X,\NUMPTR 
NUMPTR = NUMPTR + 1 


-MACRO rm ARGS 
- IRP X,<ARGS> 


MOVMSG x. ANUMPTR 
NUMPTR = NUMPTR + 1 ! 


«MACRO MOVMSG ARG, INDX 


IF LT, INDX-10 
MOV ARG OUT .0° INDX 


MOV ARG, OUT. ° INDX 


MACRO ENDERR POS 
NB, POS 
POS 


NDERR \NUMPTR 


-MACRO NDERR POS 

: NE , POS 

MOVMSG #SER22,POS 

MOV #POS+1,ERRPOS ; SET THE POSITION — 
CLR ERRPOS : CLEAR THE POSITION. 


Sada adadedudadadadadadas 
— 
RUNASSRIESRAS 


: MESSAGE REPORTING MACRO 





' 





2S 
oO,» 
D- 
Ow 
oo 
me 
nun 


WONAULSWN—OVOOnauw 


Wr— 


a eB ee ee ee ek ek ek ek me ee ed ee ee ed ed ed dd 


OWOWNOAUS-W—S Ow 





a = a ee a eee 


PUSH 
MOV 


MoV 
CALL 
POP 


PUSH 
MOV 
CALL 
POP 





D SEQ 0343 
D 

1 sASSUME MACRO 

§ -MACRO ASSUME P1,P2 

4 -ERRO : THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 

é ENDM 


G6 11 
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MACRO DEFINITIONS 

1 sRETURN DRIVE STATUS MACRO WITH ERROR REPORTING 

¢ -MACRO DSTAT,LABS,E1,E2 

4 eNLIST 

5 -NLIST MEB 

6 eLIST ME 

7 LIST 

8 CALL RDSTAT 3; GET DRIVE STATUS 

9 BIT #10000,R1 ; SEE IF ANY ERRORS 
10 BEQ 2$ 3; IF NO ERROR, BRANCH 
11 BIT #4000,R1 3; SEE IF XMIT ERROR 
12 BEQ 1$ : IF SO, BRANCH 

13 eNLIST ME 

14 eLIST MEB 

15 HARDER €E1 ; REPORT INVALID STATUS ERROR 
16 -NLIST MEB 

17 eLIST ME 

4 1s BR LABS ; BRANCH TO DONE 
20 eNLIST ME 
21 eLIST MEB 
22 HARDER €E2 3; REPORT XMIT ERROR 
23 -NLIST MEB 
24 LIST ME 

25 R LABS ; BRANCH TO DONE 

26 2$: 
27 eNLIST 
28 eNLIST ME 

ra) LIS MEB 
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DEFINITIONS 

1 : 

¢ : KOR THE CONTENTS OF TWO REGISTERS 

4 : .MACRO RXOR _REG1,REG2 

5 MOV REG2,=(SP) : SAVE REGISTER REG2 

é BIC REG1,REG2 t CLEAR COORESPONDING BITS IN REG2 

7 BIC (SP)+,REG1 + CLEAR COORESPONDING BITS IN REG1 

8 BIS 4 REG1,REG2 + OR WHAT'S LEFT 


em a ee ~~ ee -  Cie- - se 
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MACRO DEFINITIONS 
: CONVERT .BLKW CALLS TO ACTUAL WORDS GENERATED 
met -BLKW COUNT 
PT COUNT 
dD 60 


SoOONOUS WN 
. 


— 
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RO DEFINITIONS 

1 3 SDI INTERCHANGE WITH DRIVE WITH ERROR REPORTING 

g eMACRO TALKX ERRLAB,E1,E2 

4 eNLIST 

5 -NLIST MEB 

6 oLIST ME 

7 LIST 

8 CALL TALK 3; INITIATE SDI INTERCHANGE 
9 ST R2 3; SEE IF ERROR OCCURRED 
10 BEQ 12$ : IF NOT, BRANCH 

11 BPL 11$ : IF SO, BRANCH 

12 eNLIST ME 

13 -LIST MEB 

14 HARDER €E1 sSEND COMMAND ERROR 
15 -NLIST MEB 

16 . ME 

17 B ERRLAB 

18 11$: 

19 eNLIST ME 
20 -LIST MEB 
21 HARDER E2 sRECEIVE COMMAND ERROR 
22 eNLIST MEB 
23 LIS ME 
24 BR ERRLAB 

25 12$: 
26 eNLIST 
27 -NLIST ME 
28 LIST MEB 
29 LIST 

30 ~ENDM 


SEQ 0347 | 
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MACRO FOR OVERLAY TABLE 


~SBTTL MACRO FOR OVERLAY TABLE 
ye DFOVLY LABL$,ONAME , SAREA,EAREA 


WORD OVL.‘ONAME'*4 


4 
5 IF NE ,OCNTS$=LABL$ 

g - ERROR 3 OVERLAY NUMBER AND POSITION IN TABLE DO NOT MATCH 

8 OCNT$ = OCNT$+1 

Z .ENDM 

11 «MACRO MESSAGES 

12 ~SBTTL MESSAGES 

7 sMESSAGE STORAGE OVERLAY 

15 

16 DMOVLY MS,0 

4 «NLIST BEX 

19 MS1: eASCII\''TIME-OUT ON SEND''N\ 

20 eASCIINRIRIN 

21 BYTE 0. 

22 MS2: eASCII\''TIME-OUT ON RECEIVE''N\ 

23 eASCIINRIRIN 

24 -BYTE 0. 

25 MS3: -ASCII\' FIRST WORD RECEIVED WAS NOT A START FRAME''N\ 

26 -ASCIINRIRIN 

27 -BYTE 0 

28 MS4: -ASCII\' FRAMING ERROR ON LEVEL 0 RESPONSE''N\ 

29 eASCIINRIRIN 

30 BYTE 0. 
-ASCII\''CHECKSUM ERROR ON LEVEL 0 RESPONSE''N\ 
eASCIINRIRIN 
BYTE 0. 
eASCII\''RESPONSE LONGER THAN EXPECTED’ 'N\ 
“ASCII ARIRI\ 
eASCII\'CODE FROM RECEIVE WAS UNINTELLIGIBLE FROM SUBSYSTEM = “‘H16N\ 
“ASCIIARIRIN 
~ASCIIN COMMAND DID NC: .é€TURN EXPECTED RESPONSE CODE''N\ 
-ASCII\'’ EXPECTED RESPONSE ‘‘H8N\ 
eASCII\'' ACTUAL RESPONSE ‘H8N\ 
“ASCLIART\ 


-BYT 
oASCIT "DRIVE NOT ASSERTING RECEIVER READY IN DRIVE STATE’'N\ 
“ASCII\"FAILED TO RECEIVE VALID DRIVE STATE’'NR1\ 


-ASCII\"CANNOT RECEIVE DRIVE STATE FROM DRIVE'N\ 
eASCII\'CHECK IF DRIVE IS POWERED ON.‘'NR1\ 


“ASCII\" DRIVE STATE RECEIVED HAS BAD PARITY''NR1\ 
“ASCII\'NO VALID STATE FROM DRIVE''NR1\ 
“ASCII \""SUBUNIT CHARACTERISTICS SAY THERE ARE ZERO READ ONLY GROUPS''W\ 


SEQ 0348 | 


Se . | 
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MACRO FOR OVERLAY TABLE 
38 ASCII he THE DIAGNOSTIC AREA''N\ 
60 MS15: ASCII \""SUBUNIT CHARACTERISTICS SAY THERE ARE LESS THAN 1 READ/WRITE’W\ 
6} ASCII \"GROUPS IN THE DIAGNOSTIC AREA’ N\ 
63 MS16: “ASCII\’ ‘NEITHER R/W READY NOR ATTENTION SET AFTER RECALIBRATE COMMAND’ 'NR1\ 
6 MS17: -ASCII\"'SUBUNIT CHARACTERISTICS SAY LESS THAN 1 DIAGNOSTIC CYLINDER''N\ | 
34 MS18: -ASCIIN’ ‘READ/WRITE READY DROPPED BEFORE FORMAT OPERATION’ N\ 
69 MS19: — .ASCII\'"FORMAT OPERATION REPORTED TIMEOUT FAILURE’ N\ 
70 “ASCLIN™ CYLINDER ‘'D28°'. GROUP ‘D8"’. TRACK ‘D8''."'N\ 
oe MS20: “ASCII\AFTER RECAL, ERROR BITS WERE SET''NR1\ 
% MS21: “ASCIIAN' LOGGABLE INFORMATION AFTER RECAL''NR1\ | 
28 MS22: “ASCII\" READ/WRITE READY DROPPED BEFORE WRITE OPERATION’ N\ | 
78 MS23: .ASCII\'‘COULD NOT WRITE AND READ ANY BLOCK ON THIS TRACK. ON LAST BLOCK:"'N\ 
79 SASCII\' WRITE OPERATION REPORTED FAILURE == ERROR CODE "08" 0 AL."'W\ 
80 “ASCIIA \ \"'DBN 'D24"". CYLINDER 'D28°'. GROUP ‘D8'’. TRACK "pat ae 
82 MS24: -ASCLI\"READ/URITE READY DROPPED BEFORE READ OPERATION’ N\ ! 
84 MS25: .ASCII\'"COULD NOT WRITE AND READ ANY BLOCK ON THIS TRACK. on LAST, BLOCK:"'N\ 
85 -ASCII\''READ OPERATION REPORTED CAILURE == ERROR CODE 08"' 0 NN 
86 “ASCLIN'DBN \"DBN "D24"". CYLINDER ‘D28"". GROUP "D8'’. TRACK "pa mM 

| 
88 MS26: — .ASCII\'"COULD NOT WRITE AND READ ANY BLOCK ON THIS TRACK. ON LAST BLOCK:‘N\ | 
89 SASCII\'DATA COMPARE FAILURE ON WORD ''D16"'."'N\ 
90 eASCIINEXPECTED DATA ‘'H16N\ 
91 ~ASCHINTACTUAL DATA _“"H16N\ 
38 AS ASCII\"CYLINOER "D28"'. GROUP ‘"'D8"’. TRACK "D8''."‘N\ | 
94 MS27: “AS SCLIN SEEK COMPLETE TIME-OUT =~ READ/WRITE READY DID NOT SET."'N\ | 
% “AS ASCII\"'SEEK WAS TO CYLINDER ‘D28"*. GROUP "D8''.’'N\ 
97 MS28: -ASCII\"'NO BLOCK ON THIS TRACK CAN BE READ. LAST BLOCK TRIED:"N\ | 
38 eASCLTNAT' ON ‘BN ‘'D24"". CYLINDER 'D28"". GROUP "D8. TRACK ‘'D8’'."N\ 
100 MS29:  cASCII \"'AVAILABLE WAS NOT ASSERTED AFTER DISCONNECT''N\ 
+4] “ASCII ‘" STATE RECEIVED ‘'H16N\ | 
103 MS30: “ASCIIN“INVALID COMMAND °'H16'° WAS SUCCESSFUL’'N\ 
| 

105 MS31: ~ASCII\' COMMAND WITH “'R1"’ LENGTH = ‘D8’ WAS SUCCESSFUL''N\ | 
107 MS32: “ASCIIN'WNIT DID NOT REPORT TRANSMITTION ERROR’ 'NR1\ 
109 MS33: ~ASCIIN' ‘UNIT ACCEPTED AN INVALID GROUP NUMBER FROM GROUP SELECT LEVEL 1°N\ 
11] MS34: “ASCII\" UNABLE TO CORRECTLY READ OVERLAY ‘‘O3NR1\ 
113 MS35: -ASCIIN"SUCCESSFULLY WROTE IN DBN AREA WHEN DRIVE WAS WRITE PROTECTED’ N\ 
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R OVERLAY TABLE | 
5 NS36: ASCII \"DRIVE IS NOT PROPERLY FORMATTED." NR1\ 
? MS37: [ASCII \"DRIVE IS FORMATTED IN 576 BYTE MODE."'W\ 
8 “ASCII \"'TO RUN WITH A UDA, THIS DRIVE NEEDS TO BE FORMATTED '\ 
9 “ASCIT \"IN 512 BYTE MODE.“W\ 
} NS3B: ASCII \"NO COPY OF THE FCT COULD BE READ."NR1\ 
S 
4 


8B 
SER36: .ASCII \''UDA WILL SPIN DOWN THIS DRIVE IF USED IN NORMAL SYSTEM OPERATION.'W\ 
eASCII \"THIS DRIVE NEEDS TO BE FORMATTED.''\ 


5 -BYTE 

6 SER39: -ASCIIN" THIS UDA AND ALL DRIVES ATTACHED WILL BE REMOVED FROM TESTING''N\ 

8 SEROO: “ASCII\" COMMAND WAS "“'R1\ 

0 MS.ONL: “ASCII\"'ONL INE"N\ 

2 MS.CLR: -ASCIIN" DRIVE CLEAR''N\ 

4 MS.DIS: “ASCIIN" DISCONNECT’ W\ | 

6 MS.GCR: “ASCIIN“GET COMMON CHARACTERISTICS’ N\ 

8 MS.SCR: .ASCII\'GET SUBUNIT CHARACTERISTICS’ N\ | 

0 MS.GST: “ASCIIN'GET STATUS''N\ | 

2 MS .MOD: “ASCIIN"“CHANGE MODE"'N\ 

4 MS.SEK: “ASCIIN"'SEEK"N\ | 

5 MS. INR: “ASCIIN“ INITIATE RECALIBRATE’'N\ 
e | 

g MS.RUN: .ASCII\"'SPIN UP''N\ 

9 YTE 0 | 

0 | 

1 

2 

3 

4 

5 

6 

7 

8 

9 

0 

i 

3 

4 

5 


MS2000: .ASCII \"UNABLE FIND REQUESTED DRIVE FOR TESTING'N\ 
ASCII ay ge ty IS VISIBLE ON THE PORTS’'N\ 


=o i 


“ASCII \"UDA PORT 1 == “'R1\ 
“ASCII \"UDA PORT 2 == “R1\ | 
“ASCII \"UDA PORT 3 == 'RI\ | 
SER10: “ASCII \"'NO DRIVE ATTACHED’ 'N\ | 


SER11: yi \""RCVR RDY NEVER ASSERTED''N\ 


e SER12: rath \""TIMEOUT OF SEND''N\ 
° SER13: “arta \""TIMEOUT OF RECEIVE''N\ 
o2 SER14: mate \""FIRST WORD RECEIVED WAS NOT START FRAME''N\ 

4 SER15: “ane \""FRAMING ERROR ON LEVEL 0 RECEIVE''N\ 

44 SER16: “netal \""CHECKSUM ERROR ON LEVEL 0 RECEIVE''N\ 

71 SER17: .ASCII \"'RESPONSE LONGER THAN EXPECTED FOR GET STATUS CMD''N\ 





UDAT3 DISK FUNCTION 
MACRO FOR OVERLAY TAB 


WR SO ODONOUSWI 


SESSPSLSSSRVSRES RAS IAAI 


ws SH SS SP SS Ss ng SS 2s SS oo») SS 9 ) SS GO 4 9 = 





AL DMACR X04.01 18-AUG~82 15: 


N 11 
45:56 PAGE 20-3 


.BYTE 0 
SER18: ASCII \"DRIVE "R1\ 

“BYTE 
SER18D: .ASCII \D6"', ' 
SER18C: .ASCII \D6"", ° 
SER18B: .ASCII \D6"". “\ 
SER18A: .ASCII \DO6N\ 
SER22: <ASCII\"REAL TIME STATE "'H16N\ 

-ASCIIN"'STATUS (R TO L): ''H16S2H16S2H16S2H16S2H16S2H16S2H16N\ 
SER23: “ASCIIN"REAL TIME STATE "'H16N\ 
SER4O: “ASCII \"DRIVE NOT AVAILABLE TO THIS UDA'N\ 
SER41: ASCII \"DRIVE NOT SPINABLE''N\ 
SERSO: -ASCII\"'COMMAND'” 
SERS1: -ASCII\""RESPONSE' 
SERS¢: .ASCII\"WHEN A CONTINUE OR END FRAME CID NOT FOLLOW A START FRAME''N\ 
SERS3:  ASCII\"WHEN AN END FRAME WAS SENT WITH NO START FRAME’'N\ 
SERS4: “ASCII\" WHEN AN END FRAME WITH A BAD CHECKSUM WAS SENT''N\ 
SERSS: “ASCII\" WHEN A CONTINUE FRAME WAS SENT WITH NO START FRAME''N\ 
SERS6: “ASCII\' WHEN TWO CONSECUTIVE START FRAMES WERE SENT''N\ 
SERS7: -ASCII\"WHEN AN END FRAME WAS SENT AFTER A START FRAME TIMED OUT''N\ 
OVL.MS = 


SENDM 


, 


SEQ 0351 | 





UDAT3 DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE 21 
RTOS = REAL TIME DRIVE STATE ROUTINE WITH ERROR REPORTING (T 


1 
2 
3 
4 
5 001371 
001371 
6 001373 
7 001374 
001374 
8 001376 
001376 
001401 
001404 
001406 
001410 
001413 
9 001416 
001416 
10 001420 
001420 
11 
12 
13 001422 
14 001422 
15 001424 
001424 
16 001426 
17 0014 
0014 
18 
19 
20 001432 
21 
22 
23 
24 
25 
26 
27 001432 
oot ss 
00143 
28 001434 
$3 001436 
001437 
31 001441 
001441 
* eee 
3 00144 
001445 
3 001447 
5 001450 
001450 
+6 001452 
37 001454 
001454 
38 B16 26 
39 00145 


020000 
115002 
010000 


-0o>.—C< OCCU KOO HOO 
wv -—— O- oO 4 
N ~m Nm 
= ™ Mor 
So i=] Soooan 
—_ =—NWwww 


R 
33 


ss 


001422 


003356 


001432 
077674 


000000 


024000 
000004 
001457 
000400 
001456 
71779 


001457 


tps: 


RTDSL: 


RDSTAT: 


RETURN 
STATUS 


1$: 


$$; 


-SBTTL RTOS 


B 12 


DIFF BETWEEN SEND + RECEIVE ERRORS, REPORT HERE 


CAL RTDSL 
“020000, RTDSL 
TST R2 


BEQ 1$ 
“010000,1$ 
DEVFTL 13 


ENDERR 0 
RETURN 
“00.0 


-SBTTL RTDSL = CALL RDSTAT 


Vv SD1I,R2 
CALL RDSTAT 
“020000 ,RDSTAT 
BIC #077674 ,R1 


: GET REAL TIME DRIVE STATE 


; SEE IF ERROR OCCURRED 
; IF NOT, BRANCH 


3 REPORT DEVICE FATAL ERROR 


MOV #MS13,0UT.04 

MOV LUNIT ,OUT.03 

MOV #13! FTLDEV+3000. ,R2 
MOV R2,0UT.02 

MOV #.,0UT.01 

MOV #ERRMES ,OUT.RQ 

CLR ERRPOS 


3 GET INTERCONNECT CODE 


: CLEAR UNUSED BITS 


-SBTTL RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 


DRIVE STATUS 


RETURNED IN DM REGISTER 1 


INPUT R2 MUST HAVE INTERCONNECT CODE 


PUSH <R3,R0> 
MOV #24000 ,R3 
XFC STATU 

BIT #DCLOCK,R1 
BEQ 3 
*010000, 

BIT #RCVERR,R1 
BEQ § 
*010000,2$ 

DEC R3 

~ 1$ 
*050000,1$ 

MOV #177777,R2 
BR 

*00,3$ 

CLR R2 

POP <RO,R3> 


SAVE R3 AND RO 


ERROR COUNT 
GET DRIVE'S STA 


MOV R3,-(SP) 
MOV RO,-(SP) 


$s TUS 
SE IF DRIVE CLOCK IS PRESENT 
IF NOT, BRANCH 


RECIEVER ERRORS 
IF NOT 


VALID, BRANCH 


DECREMENT ERROR COUNT 
IF ERROR COUNT NON-ZERO, BRANCH 


MARK AS RECEIVE ERROR 


NO ERRORS 
RESTORE RO, R3 


SEQ 0352 


~ REAL TIME DRIVE STATE ROUTINE WITH ERROR REPORTING (TEST 4) 


; CLEAR THE POSITION 








C 12 


UDATS DISK FUNCTIONAL DMACR X04.01 18-AUG=82 15:45:56 PAGE 21-1 SEQ 0353 
RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 

001457 loeger MOV (SP)+,RO 

001460 104263 V (SP)+,R3 


MO 
40 001461 RE TURN ; RETURN TO CALLING MODULE 
001461 000000 000000 “00,0 


a ee + SC sie ee Oe 






p12 
UDAT3 DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE 22 


SEQ 0354 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 





1 ~SBTTL HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 
§ 001463 HOSTRQ: 
4 + SEND REQUEST BUFFER TO HOST AND WAIT FOR RESPONSE. 
5 [CLEA AR ARGUMENT AREA OF OUT BUFFER IN PREPARATION 
§ FOR NEXT HOSTROQ CALL. 
8 s INPUTS: 
3 $ RO = HOST REQUEST NUMBER 
19 3 OUT BUFFER LOADED WITH DATA 
12 001463 PUSH <RO,R1,R2> 
001463 100467 MOV RO,-(SP) 
001464 100461 MOV R1,-(SP) 
001465 100462 ' MOV R2,-(SP) 
13 001466 104300 002212 001523 MOV LUNIT,OUT.03 
14 001471 104070 001520 MOV RO, Out .RQ- 3 STORE REQUEST NUMBER IN BUFFER 
15 001473 104207 001520 SNDAGN: MOV #OUT -RQ,RO ; SEND BUFFER TO HOST 
16 001475 104201 000043 MOV #BUFSIZ. R1 
17 001477 060016 XFC MRD 
18 001500 115001 TST RT ; CHECK FOR ERROR 
19 001501 BNE SNDAGN 3; IF CRROR, TRY AGAIN 
001501 050000 001473 = —— 
20 001503 104207 001520 Q,R0 ; WAIT FOR RESPONSE FROM HOST 
21 001505 104201 MOV weUrsia. *R1 
22 001507 060017 XFC MWR 
23 001510 104200 177777 001520 MOV #-1,0UT.RQ : MAKE REQUEST ILLEGAL 
24 001213 POP <R2,R1, RO> 
00151 104262 MOV (SP)+,R2 
001514 104261 MOV (SP)+,R1 
001515 104267 MOV (SP)+,RO 
25 001516 RETURN 
001516 “00,0 





ach med eb a ts ss Hs st 


1541 
1542 


Sesssesosesoseesessooses 


NOPQIPONINOPININONYDR) 2 = ot ot 


MVM 


pa ee ee er ee ee ee er 
R25 
—ONOULSWN— 


MAMA 


1 
2 
3 
4 
5 
& 
7 
e 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
i 
2 
3 
4 
5 
6 
7 001546 
8 
9 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 





T3 DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE 23 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


STORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 

;OUT BUFFER = DATA TO SEND TO HOST 

OUT.RQ: 
1: 


OUT.10: 


eeesessesss 


7.34: 
BUF SIZ 


—SOVOOnNOueS wh 
ee 60 ee 08 68 ee ee oe e8 #6 80 


SESSSSESSSSSSESESSESSES 





a 


SEQ 0355 


Years DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE 24 SEQ 0356 


LK = SDI LEVEL 2 INTERCHANGE ROUTINE 


1 -SBTTL TALK = SDI LEVEL 2 INTERCHANGE ROUTINE 
. 001563 TALK: 
4 : TALK SENDS THE COMMAND TO THE DRIVE. IF AN ERROR OCCURRS, R2 IS 
; : RETURNED NONZERO 
7 001563 PUSH  <R4,RS> : SAVE POINTER TO UNIT AND SUBUNIT PARAMETERS 
001563 100464 MOV R4,-(SP) 
001564 100465 MOV RS.=(SP) 
8 001565 104302 003356 MOV SD1,R2 : GET UNIT SDI SELECT MASK 
9 001567 104205 000001 MOV #1,R5 + SEND TIMEOUT DEFAULT IS ONE 
10 001571 104207 003376 MOV #SNDONE , RO : MOVE $ ADDRESS TO RO 
11 001573 106037 CMP R3,RO + SEE IF ONLY TO BE SENT ONCE 
12 001574 BCC 10$ ; IF SO, BRANCH 
001574 040000 001600 “040000, 10$ 
13 001576 104205 001750 MOV #MAXSND RS : SEND MAXIMUM NUMBER OF TIMES (ONLINE) 
14 001600 104137 MOV (R3) ,RO : POINTS TO SDI COMMAND BUFFER 
15 001601 104631 000001 MOV 1(R35,R1 : LOAD BYTE COUNT 
16 001603 060004 XFC SEND : SEND SDI COMMAND 
17 001604 115001 TST : SEE IF SDI COMMAND SENT SUCESSFULLY 
18 001605 BEQ 15$ : IF SO, BRANCH 
001605 010000 001636 “010000, 15$ 
19 001607 117405 DEC R5 : DECREMENT TIMEOUT 
20 001610 BNE 10$ : IF UNEXPIRED, BRANCH 
001610 050000 001600 “050000, 10$ 
21 001612 POP R5 ; RESTORE RS 
001612 104265 MOV (SP)+,R5 
22 001615 PUSH = R3 : SAVE SDI PACKET POINTER 
001613 100463 MOV R3,-(SP) 
23 001614 HARDER 1 
001614 104200 001524 MOV #MS1,0UT.04 
001617 104300 002212 001523 MOV LUNIT,OUT.03 
001622 104202 105671 MOV #1! ERHARD+3000. ,R2 
001624 104020 001522 MOV R2,0UT.02 
001626 200 001626 001521 MOV #..OUT.01 
001631 104200 060013 001520 MOV #ERRMES ,OUT.RO 
24 001634 BR 50$ : BRANCH 
001634 000000 002043 *00,50$ 
25 001636 15$: POP RS ; RESTORE RS ; 
001636 104265 MOV (SP)+,R5 
26 001637 106203 003427 CMP #LONG,R3 ; SEE IF LONG TIMEOUT TO BE USED 
27 001641 BM : IF $0, BRANCH 
001641 070000 001647 “070000, 208 
28 001643 104304 002173 MOV SDISTO,R4 : R4 HAS SHORT TIMEOUT 
29 001645 BR 25$ ; BRANCH 
001645 000000 001651 “00,25$ 
30 001647 104304 002174 20$: MOV SDILTO,R4 : R4 HAS LONG TIMEOUT 
31 001651 104637 900002 25$: MOV @(R3) .RO : POINT TO RECEIVE BUFFER 
32 001653 104631 90000 MOV. (R3).R1 : ER OF WORDS IN RESPONSE 
33 001655 PUSH = R3 : SAVE POINTER TO COMMAND 
001655 100463 MOV R3,-(SP) 
34 001656 060005 XFC RCV ; RECEIVE SDI RESPONSE 
35 00165 oP R + RESTORE R3 
001657 104263 MOV (SP)+,R3 
36 001660 115001 TST R1 ; SEE IF SDI RESPONSE RECEIVED SUCESSFULLY 
7 001661 BEQ 608 ; IF SO, BRANCH 
001661 010000 002122 “010000,60$ 





G 12 


UDAT3 DISK FUNCTIONAL DMACR x04.01 18-AyG-82 15:45:56 PAGE 241 SEQ 0357 
ALK = SDI LEVEL 2 INTERCHANGE ROUTIN 
001663 106201 000001 CMP #1,R1 : SEE IF TIMEOUT 
9 001665 BNE 30$ ; IF NOT, BRANCH 
001 050000 001715 *050000, 508 
40 001667 117404 ; DECREMENT TIMEOUT VALUE 
41 001670 238 : IF TIMEOUT UNEXPIRED, BRANCH 
001670 050000 001651 8550000, 5$ 
42 00167 PUSH ‘R3 : SAVE R3 
001672 100463 MOV R3,-(SP) 
43 00167 HARDER 2 
001673 104200 14 001524 MOV 4#MS2,0UT.04 
001676 104300 oozete 001523 MOV LUNIT,OUT.03 
001701 104202 10567 MOV #2 ERHARD+ 3000. ,22 
001703 104020 001522 MOV R2,0UT.02 
001705 104200 001705 001521 MOV . OUT. 
001710 104200 060013 001520 MOV #ERRMES ,OUT.RO 
44 001713 508 : BRANCH 
001713 000000 002043 “00,50$ 
45 001715 106201 000002 30$: CMP #2,R1 : SEE IF FIRST WORD NOT START FRAME 
46 001717 BNE 5$ + IF NOT, BRANCH 
001717 050000 001743 “050000, 35$ 
47 001721 HARDER ‘3 
001721 104200 000032 001524 MOV #MS3,0UT 04 
001724 104300 002212 001523 MOV LUNIT,OUT.03 
001727 104202 10567 MOV B NERHARDS 3000. .R2 
001731 104020 001322 MOV R2,0UT.02 
1733 104200 33 001521 MOV #..OUT.01 
1736 104200 13 001520 MOV #ERRMES ,OUT.RQ 
48 001741 R 50$ : BRANCH - 
1741 000000 002043 “00,50$ 
49 001743 106201 000004 35$: CMP #4,R1 : SEE IF FRAMING ERROR 
50 001745 BNE 40$ : IF NOT, BRANCH 
001745 050000 001771 “050000,40$ 
51 001747 HARDER °4 
001747 104200 000063 001524 MOV #MS4 ,OUT.04 
001752 104300 002212 001523 MOV LUNIT,OUT.03 
001755 104202 105674 MOV #4 'ERHARD+3000. ,R2 
001757 104020 001522 MOV R2,0UT.02 
001761 104200 001761 001521 MOV . OUT .01 
001764 104200 060013 001520 MOV #ERRMES ,OUT.RO 
52 001767 BR 50$ : BRANCH 
001767 000000 002043 *00,50$ 
53 001771 106201 000010 40$: CMP #10,R1 : SEE IF CHECKSUM ERROR 
54 001773 BNE 45$ : IF NOT, BRANCH 
001773 050000 002017 “050000,45$ 
55 001775 HARDER ‘5 
001775 104200 000110 001524 MOV #MsS ,OUT.04 
002000 104300 002212 001523 MOV LUNIT ,OUT.03 
002003 104202 105675 MOV #5 ‘ERHARD+3000. ,R2 
002005 104020 001522 MOV R2,0UT.02 
002007 104200 002007 001521 MOV #..OUT.01 
002012 104200 060013 001520 MOV #ERRMES ,OUT.RO 
56 002015 BR 50$ : BRANCH 
002015 000000 002043 *00,50$ 
57 002017 106201 000020 45$: CMP #20,R1 : SEE IF BUFFER TOO SMALL 
58 002021 BNE 55$ : IF NOT, BRANCH 
002021 050000 002062 “050000, 55$ 
59 002023 HARDER ‘6 





ONAL DMACR X04.01 Yes 15:45:56 PAGE 24-2 SEQ 0358 © 


UDATS DISK FUNCTI 
SDI LEVEL 2 INTERCHANGE ROUTIN 
002023 104200 000135 001524 MOV #S6,0UT.04 
002026 104300 002212 001523 MOV CUNT f but T.03 
002031 104208 10567 MOV #6! ERHARD+3000. ,R2 
002033 104020 0015 MOV R2,0UT.02 
002035 104200 002035 001521 MOV #.,0UT.01 
002040 104200 060013 001520 MOV #ERRMES ,OUT.RO 
60 002043 50$:  CERROR 5,<#SEROO,COMND> 
002643 104200 002573 001525 MOV #SEROO,OUT.05 
002046 104300 003357 001526 MOV COMND duT.06 | 
61 002051 ENDERR 7 ; FLAG END OF REPORTING BUFFER | 
002051 104200 003276 001527 mov OLERDD, OUT.07 | 
002054 104200 000010 003626 #7+1, ERRPOS ; SET THE POSITION | 
62 002057 POP R3 : SAVE SDI PACKET POINTER 
002057 104263 MOV (SP)+,R3 
63 002060 BR 65$ : EXIT 
2060 000000 002170 *00,65$ 
64 002062 55$: HARDER 7 : UNKNOWN ERROR RETURNED BY UDA 
002062 104200 000160 001524 #MS7,0UT. +04 
2065 104300 002212 001523 mov CON UNI fob T.03 
002070 104202 105677 MOV #7 YERMARD#3000. .R2 
002072 104020 001522 MOV R2,0UT.02 
002074 104200 002074 001521 MOV #.,0UT.01 | 
002077 104200 060013 001520 MOV #ERRMES ,OUT.RO 
65 002102 CERROR 5,<R1,#SEROO,COMND> : REPORT ERROR | 
002102 104010 001525 MOV R1,0UT.05 
002104 104200 002573 001526 MOV #SEROO,OUT.06 
002107 104300 003357 001527 MOV COMND ,OUT.07 
66 00211 ENDERR 8 : FLAG END OF REPORTING BUFFER | 
002112 104200 003276 001530 MOV #SER22,0UT.08 
002115 104200 000011 003626 MOV #8+1,ERRPOS : SET THE POSITION | 
67 002120 BR 65$ : EXIT | 
002120 000000 002170 *00,65$ 
68 002122 114002 60$: CLR R2 : FLAG AS NO ERROR OCCURED 
9 002123 106637 000004 cMP 4(R3),RO : SEE IF COMMAND ACCEPTED 
002125 BEQ 65$ 3 IF SO, BRANCH 
002125 010000 002170 *010000,65$ 
71 002127 HARDER 8 
002127 104200 000221 001524 MOV #MS8,OUT.04 
002132 104300 002212 001523 MOV LUNIT ,OUT.03 
002135 104202 105700 MOV #8! ERHARD+3000. ,R2 
002137 104020 001522 MOV R2,0UT.02 
002141 104200 002141 001521 MOV OUT.01 
002144 104200 060013 001520 MOV #ERRMES ,OUT.RO 
72 002147 CERROR 5,<#SEROO,COMND,4(R3),RO> ; REPORT FURTHER ERRORS 
002147 104200 002573 001525 MOV #SEROO,OUT.05 
002152 104 003357 001526 MOV C 
002155 104630 000004 001527 MOV 4(R3) .OUT.07 
2160 104070 001530 MOV RO,OUT.08 
73 0021 ENDERR 9 
002162 104200 905276 001531 MOV #SER22, OUT.09 
002165 104200 000012 003626 MOV #9+1, ERRPOS ; SET THE POSITION 
74 002170 65$: POP RG : RESTORE R4 
002170 104264 MOV (SP)+,R4 
75 002171 RETURN 
‘ 002171 000000 000000 *00,0 
6 002173 000012 SDISTO: .WORD 10. : SDI SHORT TIMEOUT 








Rate DISK FUNCTIONAL DMACR X04.01 wae 15:45:56 PAGE 24-3 
ALK = SDI LEVEL 2 INTERCHANGE ROUTIN 


78 002174 000024 SDILTO: .WORD 20. 


1 12 


: SDI LONG TIMEOUT 


SEQ 0359 | 


nm 
S 
~ 
— 
~“N 
uw 


7 — 


~M honp—oweo 


177777 
104302 
060011 


000000 


000001 


002177 
000011 
002203 
000000 


003356 


000000 


ADD 





UDATS DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE 25 
TO = CALCULATE TIMEOUT INTERVALS 


1 
3 
4 
5 
6 
4 
8 
9 
0 
11 
12 
13 
4 
5 
6 
7 
8 
9 
0 
1 
2 


~SBTTL TO = CALCULATE TIMEOUT INTERVALS 


DEC 


BNE 1$ 
“050000, 1$ 
INC RO 
SUB #9.,R1 
BP 2$ 
*030000.2$ 
RETURN 


es le THE TIMEOUT IN 9SEC INTERVALS (SDI RECEIVE XFC TAKES 
SET UP L062 SHIFTER 

sy hot a VALUE 

F COUNT INCOMPLETE, BRANCH 

: INCREMENT 9 SEC COUNT 

; SUBTRACT 9 SEC FROM TIMEOUT 

; IF MORE TIME TO GO, BRANCH 


RETURN TO CALLING PROGRAM 


LOGICAL UNIT NUMBER (-1 FOR NOT AVAILABLE) 


- INIT THE DRIVE 
3 R2 HAS INTERCONNECT CODE 


VIFWN—OOONOUS Wh Pp 


i a a ne 





123456 
123456 
003516 
005670 


3 94 FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE 26 


-SBTTL STACK AREA 
sSTACK AREA 


-WORD 123456 
~BLKW 31, 
STACK: .WORD 123456 


SUB + CR 


= SUB 
ERRN=3000. 
SER18E: .WORD SER18A 


wO 
«WORD SER18C 
«WORD SER18D 


sEND MARKER FOR STACK 
SMARKER FOR STACK UNDERFLOW 


MODIFY SUB TO POINT AT SUBUNIT CHAR 
:START ERROR NUMBERS AT 3000. 


; FOR MULTIPLE SUBUNIT ERROR REPORTING 





Ss & 
eS 


™~m 
nm 


rr 
Ww 











NMNININUN AAS SO et et et es 
MFSWN=—| OO GN OU FWH—"CODNOUSWR— 
sssssssssssssssss 
ge 

So 

~™ 


Nm 
Oo 
S 
Nm 
ww 
™m 
o 


114001 


104207 
105017 
104173 


030000 
102201 
050000 
105201 


000000 
102203 


003335 
002304 
000003 


002342 
000003 


000001 
177760 


002332 
000001 
002322 
003356 
005774 
002260 
003355 
000020 
002266 
060016 
001463 
002347 


UDAT3_DISK FUNCTIONAL DMACR - 01 18-AUG-82 15:45:56 PAGE 27 
TEST 3 START AND LOOP ON UNITS 


-SBTTL 
SEQUENCE THE DIAGNOSTICS TO ALL UNITS SELE 


LUNI T NUMBER OF 
; SDI WILL CONTAIN SDI_ INTERCONNECT CODE FOR SELECTED 
; UNITNB WILL CONTAIN AN EVEN 


T3STRT: 


PORT2: 


PORT3: 


PORT4: 


TESTX: 


PORTS: 


DONECD: MOV 








L 12 


TEST 3 START AND LOOP ON UNITS 


CLR R1 
MOV #UNITS,RO 
A R1,RO 

OV CRO) R3 


“030000, 1$ 
#3,R1 


BN NE PORTS 

— PORTS 
#3,R1 

aR. PORTS 

“00,PORTS 

BIT #40000,R3 

BNE PORTS 

“050000,PORTS 

MOV R1,UNITNB 

MOV R3,LUNIT 

MOV Synit0.Ae 


ROR 1 
ROR R1 
BIC #LBLONB ,R1 
DEC R1 
BMI PORTS 
“070000 ,PORT4 
ROL R2 
BIC #1,R2 
BR PORTS 
“00,PORTS 
Vv R2,SD1 
R STRTS 
“00, STRTST 
Vv #STACK,SP 


MOV UNI TNB,R1 
NC 


CALL H 
“020000 ,HOSTROQ 
BR DONE 
“00, DONECD 


DRIVE F 


N NUMBER FOR TESTING FIR 


TEST 


* ED. 
OR R ERROR REPORTS 


ST SUBUNIT OF A DRIVE 
AN ODD NUMBER FOR TESTING SECOND SUBUNIT OF A DRIVE 


sSTART WITH UNIT 0 INDEX 


; pH POINTER TO UNIT 
D INDEX 


S TABLE 


Ger CONTENTS OF TABLE 


IF THIS UNIT IS PRE 


SEE IF ON SUBUNIT 0 
IF NOT, TEST NEXT S 


IF NO SUBUNIT oir TH 
BYPASS IF NO UN 


SEE IF THIS UNIT IS 
IF NOT, BRANCH 


STORE UNIT INDEX 


SENT, BRANCH 


OF UNIT 
UBUNIT 


EN NO UNIT = SKIP OTHER SUBUNITS 


TO BE TESTED 


STORE LOGICAL UNIT NUMBER FOR DRIVE 
GET UNIT 0 ten” CODE 


DIVIDE UNITNB BY F 
CLEAR UNUSED BITS 
FOR EACH DRIVE OVER 


CLEAR CARRY ROTATED 


0 SHIFT R2 LEFT 


INTO REG (IF ANY) 


; STORE SDI INTERCONNECT CODE 


RESET fey DUE TO JUMPS OUT OF 


SUBROUT ES 
GET UNIT INDEX 
INCREMENT INDEX 


CHECK IF 16 DRIVES ALREADY SELECTED 
REPEAT FOR ALL DRIVES 


END OF PROGRAM 


REPEAT IF RETURNED 


10 403 
11 002405 
002405 
12 002407 
13 002412 
14 002414 
002414 
15 002416 
002416 


104200 
104010 


000000 
104200 
104200 
104203 
105303 


020000 


020000 
104200 
104203 
020000 


000000 


003344 
001526 


002400 
003276 
000006 
001520 
003626 


002572 
003356 


001520 
001463 
000377 
003372 
001563 


000000 


001525 


001525 
003626 


003451 
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SBTTL ERROR EXIT 


TESTEW: CERROR 5,<#SER23,R1> 
TESTED 
00, ad Sg 
TESTEV: ENDERR 5 
TESTEX: MOV #OUT.RO,R3 
oat ereete’ R3 
TESTEY: CAL STRST 
«020000, STRST 
TESTED: MOV SDI ,R2 
NPC DINIT 
MOV OUT.RQ,RO 
CALL HOSTR 
“020000, HOSTRQ 
DR.CLR: MOV #LOBYTE ,ERRORS 
MOV #CR.CLR,RS 
CALL TALK 
“020000, TALK 


RETURN 
“00,0 


Mm 12 


PRINT REAL TIME DRIVE STATE ONLY 
MOV #SER23,0UT.05 


MOV R1,0UT.06 


MOV #SER22,0UT.05 
#5+1,ERRPOS 


MOV 
SET UP POSITION IN R3 
GET STATUS FROM ST 


R2 HAS re ee CODE 


AND INIT 
PRINT ERROR 


CLEAR ALL ERRORS 


GO TO CALLING ROUTINE 


a a 


SEQ 0363 


: SET THE POSITION 






N 12 
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FNDCYL = FIND CYLINDER 

-SBTTL FNDCYL = FIND CYLINDER 
FNDCYL FIND CYLINDER 


INPUTS: R4 => HIGHEST CYL (VAR1) 
R5 => “a BN (VAR2) 


“Wits Se Ge Ge Ge Ge Se Se 


1 
2 
3 
4 
5 
6 
7 R3 = 
8 R1 = VARG 
10 002420 NDCYL: 
11 002420 106200 000104 003625 CHP #'D, LETTER z1S IT A DIAGNOSTIC BLOCK? 
12 002423 BNE FND$ 
2423 050000 002440 “0 050000, FND3 
13 : *** FOR DBN AREA 
14 002425 104205 003572 MOV #LCDBN,RS 
15 002427 104204 003577 FNDCY2: MOV #FDIACYL RG 
16 002431 103200 170000 003600 BIC #*CHBHINS, FDIACYL#1 
V7 002434 104303 003603 MoV SEC K,R3_ 
0 000000 002470 “09, FND4 
19 002440 106200 000114 003625 FND3: CMP #°L, LETTER z1S IT A LOGICAL BLOCK? 
20 002443 BNE 1$ [IF NGT, BRANCH 
002443 050000 002461 “050000, 1$ 
21 : *** FOR LBN AREA 
22 002445 114000 003606 CLR TSTCYL 
23 002447 114000 003607 CLR TSTCYL#+1 
24 002451 104204 003606 MOV #TSTCYL,R4 
25 002453 104303 003527 MOV SUB+LBNTRK ,R3 : R3 = LBN'S PER TRACK (VAR3) 
26 002455 103203 177400 BIC #HIBYTE,R3 
27 002457 BR FND4 CONTINUE 
002457 000000 002470 “00. FND4 
28 ; eee FOR XEN AREA 
29 002461 1oses 003601 i$: MOV #F XBNCYL ,R4 ;SET POINTER TO FIRST XBN CYL=>VAR2 
30 002463 103200 170000 003602 BIC #°CHBHING. FXBNCYL+1 
31 002466 104303 003603 MOV SECTRK,R3 :R3 = SECTORS PER TRACK (VAR3) 
32 002470 104302 003517 FND4: MOV SUB+LBNCYL+1,R2 
33 002472 103202 007777 BIC #HBHINB, R2 
34 002474 101642 000001 BIS 1(R4) RO 
35 002476 100642 000001 MOV R2,1(R4) 
36 002500 4$: 
37 002500 104247 MOV (R4)+,RO ySTART LOADING VARIABLES 
38 002501 104070 003633 MOV RO,VAR1 
39 002503 104147 MOV (R&) RO 
40 104070 003634 MOV RO, VAR1+1 
41 002506 104257 MOV (R5)+,R0 
42 002507 104070 003635 MOV RO, VAR2 
43 002511 104157 MOV (R5) RO 
44 002512 104076 003636 MOV RO,VAR2+1 
| 45 002514 104030 003637 MOV ° 
46 002516 104010 003640 MOV R1.VARG 
47 002520 104207 003633 MOV #VAR1,RO ; RO -> VARIABLES 
48 002522 104201 003516 MOV #SUB,R1 R1 => SUBUNIT CHARACTERISTICS 
49 002524 060020 ; XFC CvT ; CONVERT TO CYLINDER LUE 
j 50 002525 106200 900104 003625 CMP #*D LETTER ; CON'T COMPARE IF my at AREA 
51 002530 BEO 
010000 002557 “010000, 


002530 7$ 
52 002532 106300 003643 003632 CMP GROUP ,OLDGRP ; HAVE WE GONE OVER 2 CYL BOUNDARIES? 


SEQ 0364 





———— —- 5 


B 13 | 
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FNDCYL = FIND CYLINDER 
53 002535 gPL ; IF NOT, BRANCH | 
002533 930000 002554 26 %0000,68 
54 002537 107300 003613 003604 SUB BLOCKC, TSTBLK : ELSE, GO BACK ONE CYLYINDER | 
55 002542 Bcc —séS$ : IF NOT CARRY, BRANCH 
002542 040000 002546 “040000, | 
56 002544 117400 003605 DEC =" TSTBLK+1 | 
57 002546 114000 003632 S$: CLR —_—OLDGRP : NEW GROUP | 
58 002550 117404 DEC = RG RESET POINTERS | 
59 002551 117405 DEC = RS | 
60 002552 BR FNDCYL : AND TRY AGAIN | 
, 002552 000000 002420 *00,FNDCYL 
62 002554 104300 003643 003632 6$: Mov GROUP ,OLDGRP : SAVE IN OLD GROUP FOR NEXT TIME THROUGH | 
63 002557 104300 003641 003606 7$: MOV —«CYLLO,, TSTCYL STORE IN TSTCYL : 
002562 104300 003642 003607 MOV EYELOST TSTCYL#1 
104300 003643 003610 | 


MOV GROUP, TSTCYL +2 
URN 


1 
2 
3 
4 
5 
6 
? 
8 


sesesesse 
oO 


Se eee 

0 ONOUSWN—O”O 
mr 
AAO 
—~— 
Nm—o 


— 


003356 
077674 


000007 
003503 


002607 


000000 


Hite Se Se Ge Ge Ge 


STRST: 


1$: 
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STRST = STORE INFORMATION IN AREA ° 


-SBTTL STRST = STORE INFORMATION IN AREA ‘ST° 


STRST 


INPUT 
OUTPUT 


PUSH 


STORE ST 


R3_=> OUTPUT BUFFER 
OUTPUT BUFFER FILLED WITH VALUES FROM ST 


<RO,R1,R2> 


SDI,R2 

STA 

or cee 
+ 


e 


BNE 1$ 
aes 1$ 


RETURN 
“00.0 


<R2,R1,RO0> 


MOV RO,-(SP) 
MOV R1,=-(SP) 
MOV R2,-(SP) 


3R2_HAS a tte CODE 


GET DRIVE S$ 
;CLEAR 


UNUSED BITS 
: STORE ” OUT BUF 


FER 
R2 IS # OF WORDS TO MOVE 


; RO => STATUS 


MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 


SEQ 0366 
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OOONOUE Wh 


O22 "OAann 
WOooonw—n 








SEQ 0367 


-SBTTL SEEK 
3 SEEK 


SSEEK TO CYLINDER POINTED TO BY CONTENTS OF R1 


: INPUTS: 
: R1 = POINTER TO CYLINDER NUMBER 
: R2 = SDI INTERCONNECT 


SEEK: PUSH <RO,R1,R3> 
MOV RO,-(SP) 
MOV R1,-(SP) 


MOV R3,-(SP) 
MOV SDI ,R2 
MOV (R1)+,INS+1 PUT CYLINDER INTO COMMAND 
MOV (R1)+, INS+2 
MOV (R1), INS+3 zPUT GROUP INTO COMMAND 
SEEKA: MOV #CR.SEK,R3 ;POINT TO ay 

om WMS. SEK, COMND ; SET UP FOR ERRO 

TALK : INITIATE SDI INTERCHANGE 
“030000, TALK 
TST R2 


: SEE IF ERROR OCCURRED 
BEQ SEEK1 : IF NOT, BRANCH 
me tee 


CAL TESTEX 3 IF SO, REPORT 

“02000, TESTEX 

BR SEEKS : AND EXIT 

“00, Beer K3 
SEEK1: CLR SET UP WORST CASE SEEK TIME 
SEEK2: MOV SDI,R2 ; MOVE MASK TO R2 


CALL __RDSTAT t GET DRIVE STATUS 
"026000, +ROSTAT 


WAS IT OK? 

IF SO, BRANCH 
SEE WHICH ERROR 
AND BRANCH 


Bea 2 
“010000,2$ 
BIT > aimee oR1 


“050000,1$ 
HARDER 10 


REPORT INVALID STATUS ERROR 
MOV #™si0, 04 


MOV LUNIT,OUT.03 

MOV #10! ERHARD*+ 3000. ,R2 
MOV R2,0UT.02 

MOV #.,O0UT.01 

MOV WERRMES ,OUT.RO 
BRANCH TO DONE 


CALL TESTEW 
eee gt $d 


200, SEEKS 
HARDER 12 


1$: 


REPORT XMIT “-— 


ons i¢. ona 


wat eae 
MOV SYST ERMARDS 000. .R2 
MOV Re, OUT .02 


01 
MOV PERRMES OUT .RO 


Rg KR SR sathnincnina anneaae — 
‘your DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE 32-1 SEQ 0368 


4 OOe rss “O00 TESTEW 3 BRANCH TO DONE 
020000 002355 000, 13 
35 Oo? a EK3 
Oost 34 000000 003006 60, SEEKS. 
36 002736 2s: 
3? 002736 102201 100000 BIT #RWRDY,R1 31S _R/W READY SET? 
38 002740 BNE SEEK3 s VES 
002740 003006 “050000, SEEK3 
39 002742 115403 ;BUMP COUNT 
40 00274 BNE SEEK2 sKEEP WAITING 
002743 050000 002653 050000. § SEEK2 
41 002745 HARDER 27,<INS+1,INS+2,INS+3> ;SEEK COMPLETE TIME OUT 
002745 104200 001633 001524 MOV #MS27 ,OUT.04 
002750 104300 61 001525 MOV INS+1 ,OUT.05 
002753 104300 003462 001526 MOV 4 a 
002756 104300 34 001527 MOV INS+3,0UT.07 
002761 104300 002212 001523 MOV LUNIT ,OUT.03 
002764 104202 10572 MOV #27! ERHARD+3000. ,R2 
002766 104020 001522 MOV R2,0UT.02 
002770 104200 002770 001521 MOV #.,0UT.01 
002773 104200 0013 001520 MOV #ERRMES ,OUT.RQ 
42 : MOV OUT.RQ,RO 
oe) : CALL HOSTRQ 
44 002776 ENDERR 8 
002776 104200 003276 001530 MOV #SER22 ,0UT.08 
003001 104200 000011 003626 MOV #8+1,ERRPOS : SET THE POSITION 
45 003004 CALL TESTEX 
00 020000 002372 “020000, TESTEX 
46 003006 SEEK?: POP <R3,R1,R0> 
003006 MOV (SP)+,R3 


MOV (SP)+,R1 
MOV (SP)+,RO 
RETURN 
“00.0 





| aT err | 
UDAT3 DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE 33 SEQ 0369 


READ1 = READ SECTORS ON A TRACK FOR TEST 


1 .SBTTL READ1 = READ SECTORS ON A TRACK FOR TEST 

; :READ1 

4 TREAD SECTORS ON THE SELECTED .RACK UNTIL ONE IS READ CORRECTLY 

3 [OR THE MAXIMUM NUMBER OF SEC‘ORS IS READ 

? : INPUTS: 

8 ; R3 HAS MAX NUMBER (IF SECTORS TO READ 

9 : TRACK HAS TRACK NU'IBER 

10 : R5 => POINTER TO BLOCK NUMBER OF FIRST SECTOR 

11 SOUTPUTS: 

12 : R2 1S CLOBBERED 

14 003013 READ1: PUSH <RO,R1,R3,R4,R5> 
003013 100467 MOV RO,=(SP) 
003014 100461 MOV R1.=(SP) 
003015 100463 MOV R3,-(SP) 
003016 100464 MOV R4.-(SP) 
003017 100465 MOV RS5,-(SP) 

15 003020 104304 003644 MOV TRACK, R4 zR4 IS TRACK 

16 003022 104207 004373 MOV #RBUFO+RW.LOW,RO 

17 003024 104251 MOV (R5)+,R1 :PUT GLOCK NUMBER IN 

18 003025 100271 MOV R1,(RO)+ : READ BUFFER 

19 003026 104151 MOV (R5),R1 

21 003027 106200 000130 003625 CMP #°X, LETTER : DO WE DO PROCESS FOR XBN? 

22 003032 BNE 9$ : IF NOT, BRANCH 
003032 050000 003050 “050000, 9$ 

23 : *** FOR XBN AREA 

24 003034 104305 003520 MOV SUB+HIXBN,R5 : DO SPECIAL PROCESSING TO PUT HEADERIN PLACE 

25 003036 110605 ROR RS : SHIFT TO NEXT NIBBLE 

26 003037 110605 ROR R5 

27 003040 110605 ROR R5 

28 003041 110605 ROR R5 

29 003042 103205 170377 BIC #HBLONB RS : STRIP OFF UNUSED PORTION 

30 003044 101205 120000 BIS #HD.XBN.R5 : SET HEADER CODE 

31 002046 BR 10$ 
003046 003075 *00,10$ 

32 003050 106200 000104 003625 9$: CMP #°D, LETTER : DO WE PROCESS FOR DBN? 

33 003053 BEQ 11$ ; IF SO, BRANCH 
003053 010000 003063 “010000,11$ 

34 : *** FOR LBN AREA 

35 003055 104305 003520 MOV SUB+HILBN,R5 : GET HI LBN VALUE (DON'T HAVE TO ROR) 

36 003057 103205 170377 BIC #HBLONB,R5 

37 003061 ASSUME HD.LBN,O 

38 003061 R 10$ 
003061 000000 003075 “00, 10$ 

39 s** FOR DBN AREA 

40 003063 104305 003521 j V SUB+HIDBN,RS : GET HIGH ORDER BITS OF STARTING DBN 

41 003065 110605 ROR RS : MOVE TO CORRECT POSITION 

42 003066 110605 ROR R5 

43 003067 110605 ROR R5 

44 003070 110605 ROR R5 

45 003071 103205 170377 BIC #HBLONB,RS ; CLEAR UNUSED BITS 

46 003073 101205 140000 BIS #HD.OBN.R5 : SET HEADER CODE 

47 003075 105051 10$: ADD R 

48 003076 100271 MOV R1,(ROS+ 
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READ1 = READ SECTORS ON A TRACK FOR TEST 


49 003077 
50 00 


—_ 
So 


Vivi ViVi wv 
So Om NO UFw 
Ssssessosssoes 
WWWWWWWWWNWWWW 
PII ed et et od ot 8 


003124 


pay 
OOOO ue ¥ 


83 003227 


NeOoO~N 
Neo 


050000 


000377 
004370 
003356 
001432 
003171 
000400 


003145 


001524 
001523 


001527 
001520 


001524 
001523 


001521 
001520 





MO 
READ1A: no 


1$: 


2$: 


READIC: 


MOV (RO) 
aie 4L08 


T 
‘020000, — 
BO 2 
“010000,2$ 
BIT #RCVERR,R1 
BNE 1$ 
“050000,1$ 
HARDER 10 


CALL TESTEW 
“020000, TESTEW 
BR READ1X 
“00 ,READ1X 
HARDER 12 


CALL TESTEW 
“020000, TESTEW 
READ1X 


BR 

“00,READ1X 

BIT #RWRDY,R1 
BNE _R 

“050000 ,READIC 
HARDER 24 


CALL TESTEV 
pevnnd. Te stey 


KFC WAITSI * 


PUT IN TRACK NUMBER 
3 (MERGE WITH REAL-TIME COMMAND) 
POINT TO READ BUFFER 
MOVE MASK TO R2 
3 GET DRIVE STATUS 


WAS IT OK? 
IF SO, BRANCH 


; SEE IF ANY ERRORS 
REPORT 


REPORT INVALID STATUS ERROR 
Vv #™S10 


MO eo o 

MOV LUNIT,OUT.03 

MOV #10! ERHARD+3000. ,R2 
MOV R2,0UT.02 

MOV #.,OUT.01 

MO #ERRMES ,OUT.RQ 


Vv 
BRANCH TO DONE 


; REPORT A ERROR 


MO 12,0UT.04 
MOV LUNIT,OUT.03 
MOV #12!ERHARD+3000. ,R2 


MOV R2,0UT.02 
#. ,OUT. 
#ERRMES ,OUT.RQ 


<< 


: BRANCH TO DONE 


; SEE IF READ WRITE READY IS STILL HIGH 
; IF SO, BRANCH 


sREAD/WRITE READY DROPPED BEFORE READ 
Vv #MS24, 04 


LUNIT,OUT.03 

#24! ERHARD+3000. ,R2 
MOV R2,0UT.02 

#.,OUT. 

#ERRMES ,OUT.RQ 


sWAIT by FER 31 OR Pet PULSE B4 READ 


ize F 
TREAD THE SECTO 
CHECK FOR ERROR 


SEQ 0370 





— 


00 

101 003326 
003326 
003327 
003330 
003331 


003332 
102 003333 
003333 


3 


e208 eaecen =e 
Saks SakF 

“f= ML—T o> 
od a er Pw W 


VSSSSSSSSSs 


— oe ed meh ek a a td a 
33 


R RERRRRRELREES 


003326 
003251 
004373 


003247 


003276 
000015 


002372 


= 
MMMM 
NRWWWwwPonnoenry 
WIN —ONOUS 


001534 
003626 
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READ1 = READ SECTORS ON A TRACK FOR TEST 


0 
1 
0 
1 
1 
1 
1 


BEQ READ1X 
“010000 ,READ1X 
8 R3 


BEQ READ 
*010000,R 
MOV 


READ 1E 
#RBUFO+RW. LOW,RO 
V (RO) ,R1 


INC 
MOV R1,(RO)+ 


BCC 


ENDERR 12 


CALL TESTEX 
“020000, TESTEX 
MOV OU 


CALL 


HOST 
: POP <R5,R4, RS. R1,R0> 


RETURN 
“00.0 


READ1B 
“040000,READ1B 
MOV (ROS,R1 


sEND ROUTINE IF READ OK 


sCOUNT MAX SECTORS TO READ 
REPORT ERROR IF ALL READ 


: INCREMENT BLOCK NUMBER 


GO READ NEXT SECTOR 


READ 
: HARDER 28, <LETTER,RBUFO+RW.LOW, mnie weet eS - INS+3,RBUFO+RW.CMD> 


MOV INS+3,0UT.10 
ao RBUF O+Ru. CMD ,OUT.11 


T,OUT.O 
MOV #28! ERHARD* 3000. .R2 
MOV R2,0UT.02 


#. OU -0 
MOV #ERRMES ,OUT.RQ 
MOV #SER22,0UT.12 


MOV #12+1, ERRPOS : SET THE POSITION 


MOV (SP)+,R5 
MOV (SP)+,R4e 
MOV (SP)+,R3 
MOV (SP)+,R1 
MOV (SP)+,RO 


1 
2 
3 
4 
5 
6 
? 
8 


003355 


000020 


177777 


177777 
000000 


sUNIT NUMBER STORAGE FOR DISK DRIVES TO TEST 
: 16 Rar Bi MAX) 4 ON EACH UNIT 


UNITS: 


CR.GCR: 


CR.CLR: 
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UNITS, SOI COMMANDS AND PROGRAM VARIABLES 





.SBTTL UNITS, SDI COMMANDS AND PROGRAM VAR 
PROGRAM VARIABLES GRAM VARIABLES 


ST 


REPT 16. 
«WORD 177777 
-ENDR 
«WORD 177777 
«WORD 177777 
WORD 77777 
«WORD 177777 
eWORD 177777 
«WORD 177777 
«WORD 177777 
eWORD 177777 
«WORD 177777 
eWORD 177777 
eWORD 177777 
«WORD 177777 
«WORD 177777 
«WORD 177777 
«WORD 177777 
eWORD 177777 
«WORD 0 
WORD 0 
eWORD 0 
MESSAGE TABLES 
: MSG ONL ,2,ST,7,COMPLT 
«WORD ONL 
WORD : 
eWORD ST 
WORD 7 
-WORD COMPLT 
MSG GCR,1,CR,12.,170 
-WORD GCR 
WORD 1 3 
-WORD CR 
eWORD 12. 
WORD 170 
MSG DRC,2,ST,7,COMPLT 
«WORD DRC 
WORD 2 3 


7 
COMPLT 

sis. 2,ST,7,COMPLT 
DIS 


= 
zEP zep 

= 

> 


S AS 


; AS 
; MARK ALL UNITS AS 


NUMBER OF UNIT CURRENTLY UNDER TEST 
POINTER TO TABLE ABOVE 


:SDI INTERCONNECT CODE FOR XFC CALLS 
: POINTER TO COMMAND MESSAGE 


2 DRIVE ONL INE 


SIZE OF" ‘REPLY IN 


BYT 
SS OF REPLY 


: : DRIVE Cc 


N ES 
sADDRESS OF REPLY 
SIZE OF" a tt IN WORDS 


N 
S OF REPLY 


NON~EXISTANT 


NON~EXISTANT 
NON-EXISTANT 


NON’-EXISTANT T 


NON-EXISTANT 


NON-EXISTANT 


WORD 
SFUL COMPLETION CODE 
eer eg gpl it Ht 


N WORDS 


SUCCESSFUL COMPLETION 
PREV tous COMMANDS CAN 
ONNE CT 


TO START 


TO START 
TO START 


TO START 
TO START 


SEQ 0372 


CODE 
BE SENNT TO AN OFFLINE DRIVE 
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000176 


23 O0s40s 
003404 003453 


RGWLSSBVEARUNIS 
Sssssssesessssss 


KELKELESELELE 


344 000 213 
3444 000 003 


ae 
OMNIA & 
SSVFVRUNYLSAS 


4 
5 
a? 
48 


CR.SCR: 


CR.GST: 


CR.MOD: 


CR.SEK: 


Lemedk “2 
zi 


LON 
CR. 


CR.RUN: 
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«WORD COMPLT ; SUCCESSFUL COMPLETION CODE 
MSG SCR,2,SUB,21.,167 : GET SUBUNIT CHARACTERISTICS 
.WORD SCR SADDRESS OF COMMAND 

<WORD 2 :SIZE OF’ COMMAND IN BYTES 

“WORD SUB zADDRESS OF REPLY 

“WORD 21. 3S1ZE OF REPLY IN WORDS 
“WORD 167 SUCCESSFUL COMPLETION CODE 
MSG GST,1,ST,7,366 : GET STATUS 

.WORD GST SADDRESS OF COMMAND 

“WORD 1 :SIZE OF COMMAND IN BYTES 

“WORD ST DRESS OF REPLY 

“WORD 7 :SIZE OF’ "REPLY IN WORDS 

“WORD 366 SUCCESSFUL COMPLETION CODE 
MSG MOD,3.ST.7,COMPLT MODE 

«WORD MOD ADDRESS OF COMMAND 

“WORD :SIZE OF COMMAND IN BYTES 

[WORD ST DDRESS OF REPLY 

“WORD 7 :SIZE OF "REPLY IN WORDS 

“WORD COMPL : SUCCESSEUL COMPLETION CODE 
MSG INS. “A. ST,7,COMPLT ; INITIATE SEEK 

«WORD INS RESS 0 

“WORD 6 :SIZE OF’ COMMAND IN BYTES 

“WORD ST DDRESS OF REPLY 

“WORD 7 sSIZE OF’ "REPLY IN WORDS 

-WORD COMPLT SUCCESSFUL COMPLETION CODE 
-1 TIMEOUT COMMANDS FOLLOW 
MSG INR,1,ST,7,COMPLT t ORITIATE RECAL IBRATE 

.WORD INR ESS OF COMMAND 

[WORD 1 :SIZE OF’ "COMMAND IN BYTES 

“WORD ST ADDRESS OF REPLY 

[WORD 7 SIZE OF "REPLY IN WORDS 

-WORD COMPLT UCCESSFUL COMPLETION CODE 
MSG RUN,1,ST.7,COMPLT 

«WORD RUN ZADDRESS OF COMMAND 

“WORD 1 SIZE oF” COMMAND IN BYTES 

“WORD ST sADDRESS OF REPLY 

“WORD 7 :SIZE OF "REPLY IN WORDS 

;WORD COMPLT : SUCCESSFUL COMPLETION CODE 
LEVEL 2 COMMAND MESSAGE DATA STRUCTURES 

-BYTE 0,213 : BRING DRIVE ONLINE 

“WORD 10. 

-BYTE 0,3 : DIAGNOSE 

<WORD 0 

-BYTE 0,204 : DISCONNECT 

“WORD 0 

BYTE 0,DRVCLR : DRIVE CLEAR 

“WORD 0 t ERROR FLAGS 

-BYTE 0,GETCHR : GET CHARACTERISTICS 

-BYTE 0.GETSUB : GET SUBUNIT CHARACTERISTICS 
“WORD 0 : SUBUNIT TOELECTION IN LOW ORDER BYTE 
-BYTE 0,GETSTA : GET STA 

-BYTE 0.14 : SPIN Ny DRIV VE 

-BYTE 0, IRECLB : INITIATE RECALIBRATE 

“BYTE 0. INSEEK : INITIATE SEEK 

“WORD 0 : INS CYLINDER/HEAD ARGUMENTS 
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SEQ 0373 


49 00346 
50 00346 
51 003464 
52 003465 
53 003466 
$2 003467 
56 003470 
57 

58 

59 003471 
60 003472 
61 003473 
62 

63 

64 

65 003474 
66 003503 
69 003542 
70 003543 
71 003544 
72 003545 
74 003552 
75 003554 
26 0035 

7 

78 

79 

80 003565 
81 003567 
82 003572 
83 003574 
84 003577 
85 003601 
yd 003603 
88 003604 
89 003606 
90 003611 
91 oosels 
92 00361 
93 003614 
94 003616 
95 003617 
96 003620 
97 003621 
98 003622 
99 003623 
100 

101 003624 
102 003625 
103 

104 003626 
105 003627 


000000 
000000 
003511 


003536 


000600 


000000 


201 


377 
377 


014 





UDAT3 DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15: 
UNITS, SDI COMMANDS AND PROGRAM VARIABLES 


RUNCMD : 
RUNLBC 


SERRTY: 


ST: 
CR: 


SECTRK: 
TSTBLK: 


SECCNT: 


AREA: , 
LETTER: 


ERRPOS: . 
WFLAG: 


45:56 PAGE 34-2 


- WORD 


RESPONSE MESSAGE DATA BUFFERS 


o 
por 


ao 
—= Wr ff 
~ ~ 
“Nw 
~ 
~N 


ooo -0Oo AWO ooo 
~ . 


7? 


31. 
SUB,CR+11. 


0 
0 
SUB=-5 
5 


2 
8. 
DMSD1=-4 


K 13 


DISK LOCATION POINTERS 





oo oOo O00] ———WN —lNrmWwnhwrT 


; CHANGE MODE 


RUN COMMAND 
RETRY COUNT 


STATUS MESSAGE BUFFER 
CHARACTERISTICS MESSAGE BUFF 


DUMMY SDI CONTROL BLK 

# OF SECTORS IN HEADER SEARCH 

POINTER TO SUBUNIT CHAR. 

WORD DMSDI+7 iS CLOBBERED BY UDA 

SO SET ASIDE SPA 

RESERVED FC2 UDA PRIMARY REVECTORING 
SKIP SPACE TO POINTER 

PRI REV INFO WRITTEN IN DMSDI+8 AND 9 


FIRST READ ONLY DBN 

FIRST READ ONLY CYL_AND GROUP 
FIRST FACTORY FORMATTED DBN 
FACTORY FORMATTED CYLINDER 
FIRST DIAGNOSTIC CYLINDER 
FIRST XBN CYLI 

SECTORS PER TRACK 

TEST BLOCK NUMBER 

TEST CYLINDER NUMBER 

BLOCKS ON Spare Sel TRACK 
BLOCKS ON CURRENT GROUP 


NUMBER 
NUMBER OF SECTORS PER GROUP 
NUMBER OF SECTORS PER CYL 
CURRENT GROUP NUMBER 
CURRENT TRACK 
CURRENT PATTERN 
SECTOR COUNT 


TO STORE AREA LETTER L OR X (BN) 
TO STORE CURRENT AREA L, D OR X (BN) 


FOR WRITE PROTECTION TEST 


SEQ 0374 


oS bee 
VIW MoO 


ssssesss see 
SESEEE 
USW—oOn 


g 
rs 
oa 


me ee ee ee ee a ed ed ed ed nd ed wd dd = 
S$ssssss 
o 
vw 
— 


pa hep te? eer ghee Npdirg! Sear ted ed ed ed ed 
NOU 


000000 
000000 
000000 


000000 


00000 
000000 


003542 


G00000 
000000 


000000 


FLAG: 
GRPCNT: 
OLDGRP: 


SSCTOR: 
INDEXS: 


CHAIN: 


DATA BUFFERS 


0 
0 


0 
0 
0 
0 
D 


Sooooeceo ooo 





UDAT3 DISK FUNCTIONAL DMACR X04.01 18-AUG=82 15:45:56 PAGE 34-3 
UNITS, SDI COMMANDS AND PROGRAM VARIABLES 


es 
oo 


. 
So 


MSDI 


L 13 


TEST ALL CYLINDER FLAG 
COUNT OF CYL*S HANDLED 


+ FOR CONVERT XFC 


READ AND WRITE CHAIN AREA 
NEXT CHAIN POINTER 

STATUS AREA 

BUFFER POINTER 

LO GRDER HEADER 

HI ORDER HEADER 


; HOLDS OLD GROUP VALUE FROM EVL COMPUTE 


REAL _TIME COMMAND AND TRACK NUMBER 
POINTER TO DUMMY SDI CONTROL BLOCK 


UDAT3 DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15: 
DATA PATTERNS 


WONAUVUSWN—$OOONOuUs 
i=] S 


2 Ss ss 





45:56 PAGE 35 


~~ PATTERNS 


000000 


: FOUR PATTERNS WILL BE TESTED 


: SHIFTING ONES 


: SHIFTING ZEROS 


Berd pd _— AND ONE WORD IN 


3 3-2-1-1-1 SEQ 


S 


-—o-—-0o—-0— 00>] | | 0000 
NMINMNUVUINVIPIN VNVINNNMU 


100000 
100000 
004377 


013400 
003542 





UDATS DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE 35-1 
DATA PATTERNS 


58 003743 


~N 


-—0O-0—-0 >] =| 00] >] =000—])=-0— 
MVIPIYIND VIPIPS VIVIPONINI MAUI 
MUINUVINYVITPINUMIVINPINNVIVIW NON 


READ DATA BUFFERS 


RSTOP 
RSTOP 
aie 


RREAL 
DMSDI 


*0101010101010101° AND 
*1010101010101010° 
N 3=2-1-1-1 SEQURNCE 


; WRITE DATA BUFFER 


; FIRST BUFFER 


STATUS AND LINK POINTER 
POINTER TO DATA 


LEVEL _1 SDI COMMAND 


POINTER TO DUMMY SDI CONTROL BLOCK 


SEQ 0377 


—— —- 7} 


B 14 
UDAT3 DISK FUNCTIONAL DMACR X04.01 yen 15:45:56 PAGE 36 SEQ 0378 
START, GETU<POLL ALL PORTS>, RBUFD, & FCHAIN 


«SBTTL START, GETU<POLL ALL PORTS>, RBUFD, & FCHAIN 
lf GE ,<. +<255. *3>>-HIMEM 
ERROR 


.ENDC ! 
004377 RBUFD::; .BLKW 274. : READ DATA BUFFER 
F FORMAT CHAIN | 
004377 FCHAIN: 
3 .REPT 255. : UP TO 2404 yBBNS/TRK MAXIMUM | 
: <WORD 0 : BUFFER P NTER 
; “WORD 0 : LOO RDER. OBN 
; -WORD 0 : HI ORDER DBN 
: “WORD 0 ; EXTRA WORD FOR END-OF=CHAIN FLAG 
004377 START: 
004377 GETU: 


-SBTTL GETU = POLL ALL PORTS, THEN GET UNITS TO TEST 
GET THE UNITS TO TEST 


Se Ge te Ge Ge Se 


POLL ALL PORTS AND FILL IN A UDA PORT INFORMATION TABLE (UNITS) 


3 eee va 2 REGULAR GETU 


NOUESWOAUESWN =O OONOUSWN OO OONOU Sw 


4y MUVIMIUIRI IORI RIPON 2 ot ot 


004377 104205 000001 : MOVE INITIAL MASK TO RS 
004401 104204 003335 nov #UNITS, RG 3; R4& POINTS TO UNIT TABLE 
004403 5$: PUSH RG : SAVE R4 
004403 100464 MOV R4,=(SP) 
004404 104052 MOV RS, Re : MOVE MASK TO R2 
9 004405 RDSTAT : GET DRIVE® $ STATUS 
004405 020000 001432 “026000, RDSTAT 
60 004407 115002 Ist R2 : SEE IF ERROR 
61 004410 10$ + IF NOT, BRANCH 
004410 010000 004420 2570000, 108 | 
62 004412 104203 003052 MOV ER10,R3 : NO DRIVE ATTACHED 
63 004414 100643 000001 MOV Re erin) : SAVE afRROR MESSAGE 
64 004416 85$ : REPO 
004416 000000 004641 *00,85$ 
65 004420 114003 10$: CLR R3 : SET UP TIMEOUT COUNT 
004421 104052 15$: MOV R5,R2 : MOVE MASK TO R2 
67 004422 CALL __RDSTAT 3 GET STATUS 
004422 020000 001432 “020000, RDSTAT 
68 004424 102201 000001 git #RCVRDY,R1 ; SEE IF RECEIVER READY ASSERTED 
69 004426 $ : IF SO, BRANCH 
004426 050000 004441 2550000, 20$ 
0 004430 117403 DEC R3 : DECREMENT COUNT 
71 004431 BNE fe : IF INCOMPLETE, BRANCH 
004431 050000 004421 “050000, 15$ 
72 004433 104203 003065 MOV #SER11,R3 ; RECEIVER READY NEVER ASSERTED 
73 004435 100643 000001 MOV R3,1(R4) : SA VE gfRROR MESSAGE 
74 004437 BR 85$ + REPO 
004437 000000 00464 “00, 
75 004441 102201 000100 20$: BIT #AVAIL,R1 ; SEE IF DRIVE IS AVAILABLE 





eats Of DISK te Ne DMACR X04.01 ire'to te {38 45:56 PAGE 36-1 


SEQ 0379 
= POL PORTS, THEN GET UNITS TO T 


76 004443 BNE 25$ ; IF SO, BRANCH 
004443 050000 004453 “050000,25$ 
77 004445 104203 003360 MOV “ASERGO RS : GET SECONDARY ERROR 
78 004447 100643 000001 MOV R3,1(R4) : SAVE 
79 004451 BR A + EXIT 
004451 000000 004641 “00,85$ 
80 004453 104202 , 001750 25$: OV #MAXSND,R2 : SET UP MAXIMUM TRIES AT SENDING 
81 004455 104203 003411 MOV #CR.GST.R3 : 85 POINTS TO GET STATUS COMMAND 
82 004457 104137 30$: MOV (R3) ,RO : SET ADR OF SDI COMMAND BUFFER 
83 004460 104631 000001 MOV 1(R35,R1 + SET BUFFER LENGTH 
004462 PUSH R2 + SAVE R2 
004462 100462 MOV R2,-(SP) 
85 004463 104052 MOV R5,R2 : SETUP FOR SEND 
004464 060004 XFC SEND : SEND COMMAND 
87 004465 POP R2 : RESTORE COUNT 
004465 104262 MOV (SP)+,R2 
004466 115001 TST R1 : DID UNIT ACCEPT COMMAND 
89 004467 BEQ 35$ : IF SO, BRANCH 
004467 010000 004502 “010000, 35$ 
004471 117402 DEC R2 : DECREMENT COUNT 
91 004472 BNE 30$ : IF UNEXPIRED, BRANCH 
004472 050000 004457 “050000, 30$ 
92 004474 104203 003103 MOV WSER12,R3 : GET ERROR NUMBER 
93 004476 100643 000001 MO R3,1(R4) : SAVE 
004500 BR 85$ 
004500 000000 004641 “00,85$ 
95 004502 35$: PUSH  R4 : SAVE R4 
00450¢ 100464 MOV R4,-(SP) 
96 004503 104204 000003 MOV #3,R4 : SET UP SHORT TI 
97 004505 104207 003474 40$: MOV #5T,RO : SET DATA BUFFER ADDRESS 
98 004507 104631 000003 MOV 3(R3),R1 : SET BUFFER LENG 
99 004511 104052 MOV RS ,R2 : SETUP FOR RECEIVE 
100 004512 060005 XFC RCV : RECEIVE SDI C 
101 004513 115001 TST 1 : DID ERROR OCCUR 
102 004514 BEQ 70$ ; IF NOT, BRANCH 
004514 010000 004567 “010000, 70$ 
103 004516 106201 000001 CMP : SEE IF TIMEOUT 
104 004520 BNE 45 : IF NOT, BRANCH 
004520 050000 004532 “050000,45$ 
105 004522 117404 DEC RG : DECREMENT TIMEOUT VALUE 
106 004523 BNE 40$ : IF NOT TIMEOUT, BRANCH 
004523 050000 004505 “050000,40$ 
107 004525 POP R4 : RESTORE R4 
004525 104264 MOV (SP)+,R4 
108 004526 104203 003115 MOV #SER13,R3 : GET ERROR NUMBER 
109 004530 BR 65$ + BRANCH TO EXIT 
004530 000000 004563 *00,65$ 
110 004532 45$: POP R4 : RESTORE R4 
004532 104264 MOV (SP)+,R4 
111 004533 110601 ROR R1 : ROTATE INTO POSITION TO TEST 
112 004534 110601 ROR R1 : SEE IF FIRST WORD NOT START FRAME 
113 004535 50$ : IF NOT, BRANCH 
004535 040000 004543 2540000, 50$ 
114 004537 104203 003130 MOV “SERIA, R3 : GET ERROR NUMBER 
115 004541 BR : BRANCH TO END OF LOOP 
004541 000000 004563 *00,65$ 
116 004543 110601 50$: ROR R1 : SEE IF FRAMING ERROR 








— ss — — —_— —d —_ — 
mrnnm from nr —— 
RNS WN —|O OO 


004552 
003156 
004563 
004561 
003200 
004563 
003223 
000001 


004641 





UDATS DISK FUNCTIONAL DMACR X04.01 18-AUG-82 iss 45:56 PAGE 36-2 
GETU = POLL ALL PORTS, THEN GET UNITS TO TES 


55$ 
2560000, 55$ 
MOV “#SERIS,R3 


R 

“00,65$ 

ROR R1 

BCC 60$ 

“040000,60$ 

MOV #SER16,R3 

BR 65$ 

*00,65$ 

MO #SER17,R3 

MOV R3,1(R4) 
85$ 


BR 
*00,85$ 


; IF NOT, BRANCH 
; GET ERROR NUMBER 


BRANCH TO END OF LOOP 


SEE IF CHECKSUM ERROR 
IF NOT, BRANCH 


; GET ERROR NUMBER 
; BRANCH TO END OF LOOP 


ie ERROR NUMBER 
BRANCH TO END OF LOOP 


E 16 ’ 
UDATS DISK FUNCTIONAL DMACR X04.01 ire fo fe {3s 45:56 PAGE 37 SEQ 0381 
GETU = POLL ALL PORTS, THEN GET UNITS TO T 

















1 5 
g : NOW FILL IN THE TABLE WITH ALL THE SUBUNIT NUMBERS 
4 004567 70$: POP RG : RESTORE R4 
004567 104264 MOV (SP)+,R4 
§ 004570 104207 177777 MOV #=-1,R0 : GET "NO UNITS® FLAG 
6 004572 100647 000001 MOV RO,1(R4) > CLEAR ANY ERRORS THAT ARE FLAGGED 
7 004574 100647 000002 MOV RO,2(R4) : CLEAR ANY ERRORS THAT ARE FLAGGED 
8 004576 104307 003474 MOV ~RO : RO HAS UNIT NUMBER 
9 004600 104072 MOV RO,R2 : COPY R NO 
10 004601 103207 170000 BIC #*CHBHINB,RO =; RO HAS UNIT NUMBER 
11 004603 PUSH  <R1,R2> : SAVE R1 AND R2 
004603 100461 MOV R1,-(SP) 
004604 100462 MOV R2,-(SP) 
12 004605 104052 R5, ; MOVE UDA PORT MASK TO R2 
13 004606 CALL RDSTAT ; GET STATUS 
004606 020000 001432 5020000. RDSTAT 
14 004610 102201 000002 #ATTIN,R1 : SEE IF SPINABLE 
15 004612 BNE ; IF SO, BRANCH 
004612 050000 004616 #050000, 75$ 
16 004614 101207 010000 “#10000, RO : SET "NOT SPINABLE’ FLAG 
17 004616 75$: Boe <R2,R1> : RESTORE 
004616 104262 MOV (SP)+,R2 
004617 104261 MOV (SP)+.R1 
18 004620 101207 040000 BIS #40000,R0 : FLAG UNIT AS NOT TESTED 
19 004622 110702 SWAB sR : SWAP R2°S BYTES 
20 004623 110602 ROR R2 : MOVE SUBUNIT MASK TO LO NIBBLE 
31 004624 110602 ROR s : MOVE SUBUNIT MASK TO LO NIBBLE 
2 004625 1106 ROR : MOVE SUBUNIT MASK TO LO NIBBLE 
23 004626 110602 ROR : MOVE SUBUNIT MASK TO LO NIBBLE 
24 004627 103202 177760 BIC Seton. R2 : CLEAR ALL BUT SUBUNIT BIT 
25 004631 100147 , MOV KU, <2) : SET UNIT NUMBER IN UNITS 
<4 004632 110602 60$: ae R2 : MOVE SUBUNIT BIT TO CARRY 
27 004633 BCC 85$ ; IF NO MORE SUBUNITS, BRANCH 
006433 040600 004641 *040000,85$ 
28 004635 100247 MOV RO, (R4)+ : MOVE SUBUNIT NUMBER TO TABLE 
29 004630 115407 INC RO : INCREMENT SUBUNIT NUMBER 
3 BR 80$ + BRANCH 
3 004637. *00,80$ 


85$: POP R4 R4 POINTS TO START OF UNIT wee aie. - 
000004 ADD + To ; R4 WILL POINT TO ar ee oe (CLEAR CARRY FOR ROL) 


5 ; R5_HAS NEXT UNIT Pi 
00020 CMP #20,R5 ; is IF +S TESTED 
004403 “050000, 5$ 


235 
mor 
Sete tee 


F NOT, 


em 


St ast e 
eEF8 
NEEL Ss 


a = 

on oO 
gasses 

NAS SWWNO 


100461 
103202 
106172 








005032 


003335 
000003 


004711 
004665 
000004 


003355 
004661 


100$: 


105$: 


110$: 
115$: 


UDAT3 DISK FUNCTIONAL DMACR X04.01 Wie'to te {3s 45:56 PAGE 38 
GETU = POLL ALL PORTS, THEN GET UNITS TO T 


F 14 


NOW GET THE PLUG NUMBERS TO TEST AND FIND THEM IN THE TABLE 


oa #UTOTST,RO 


HOSTROQ 
6356000, HOSTRQ 

MOV #OUT.01,RO 
MOV #UNITS,R1 
MOV (R1) ,R2 
BMI 115 
“070000,115$ 

PUSH R1 


BIC #160000 ,R2 
CMP (RO) ,R2 


BNE 105$ 
“050000,105$ 
MOV 


R2,(R1) 
POP R1 
BR 160$ 
“00,160$ 
INC R1 
MOV 1,R 


BPL 10 
“030000, 1008 
POP R1 


ADD #4,R1 
CMP #UNITS+16.,R1 


BNE $ 
*050000,95$ 


; GET WHAT SUBUNIT NUMBERS TO TEST REQUEST 
; GET THE PLUG NUMBERS 


; RO POINTS TO UNIT NUMBERS TO TEST 
; Re HA Ae gl TO UDA PORT INFORMATION 


UNIT 
NONE. BRANCH 


; SAVE R1 


MOV 
; CLEAR ‘NOT TESTED’, LEAVE *UNSPINABLE SET 
; als a IS A UNIT TO TEST 


1,-(SP) 


; SAVE UNIT AS ONE TO TEST 
; RESTORE STACK 


; LOOK FOR THE NEXT ONE 
3 at lad TO NEXT SUBUNIT 
COPY TO R2 


; SUBTRACT jpg ye ett 
; TF seer IF ST Rg SAME UNIT 


MOV (SP)+,R1 


F NOT, BRAN 


; Fe IF ANY MORE SUBUNITS 


F SO, BRANCH 


; RESTORE R1 


; LOOK AT NEXT UNIT 
; SEE IF yt. UTABLE SEARCHED 
; If BRANCH 


MOV (SP)+,R1 


NOT, 


G 14 
UDAT3 DISK FUNCTIONAL DMACR X04.01 Le mB iE 45:56 PAGE 39 SEG 0383 
GETU = POLL ALL PORTS, THEN GET UNITS TO T 


1 Z 
2 : DIDN'T FIND THE REQUESTED UNITS == DUMP ALL KNOWLEDGE OF THE 
; 3 UDA PORTS AND DIE 
5 004720 104170 001523 MOV (RO) ,OUT.03 : SAVE UNIT NUMBER IN REQUEST BUFFER 
6 004722 104204 001525 MOV #OUT.05,R4 : R4 POINTS TO OUTPUT BUF 
7 004724 104205 003335 MOV #UNITS,RS : RS POINTS TO UNIT T 
8 004726 104157 120$: MOV (R5) ,RO : GET FIRST WORD OF UNIT 
9 004727 BPL 125 : IF VALID UNIT WAS FOUND, BRANCH 
004727 030000 004736 “030000, 1258 
10 004731 104657 000001 R5),RO : GET POINTER TO ERROR MESSAGE 
11 004733 100247 MOV RO (R4)+ : SAVE IN OUTPUT BUFFER 
12 004734 BR 155$ : EXIT 
004734 000000 004776 “00,155$ 
13 004736 125$: PUSH RS : SAVE POINTER TO UNIT TABLE 
004736 100465 MOV R5,=(SP) 
14 004737 102207 010000 817 #10000,R0 : SEE IF DRIVE UNSPINABLE 
15 004741 : IF SPINABLE, BRANCH 
004741 010000 004747 510000, 130$ 
16 004743 104207 003402 #5ER41,RO : REPORT DRIVE(S) UNSPINABLE 
17 004745 BR. 135$ : BRANCH 
004745 000000 004751 “00,135$ 
18 004747 104207 003255 130$: MOV #SER18,RO : GE POINTER TO ERROR MESSAGE 
19 004751 100247 135$: MOV RO, (R4S+ + SAVE 
20 004752 114007 CLR RO : CLEAR COUNT 
21 004753 104251 140$: MOV (R5)+,R1 : GET UNIT NUMQER 
22 004754 BMI 145$ : IF INVALID, BRANCH 
004754 070000 004763 “070000, 145$ 
23 004756 115407 INC RO z INCREMENT COUNT 
24 004757 106207 000004 CMP #4,RO : SEE IF MAX 
25 004761 BNE 140$ : IF NOT, LOOP 
004761 050000 004753 “050000, 140$ 
26 004763 104671 002260 145$: MOV SER18E-1(RO),R1 ; GET POINTER TO CORRECT ERROR MESSAGE 
27 004765 100241 MOV R1,(R4)+ : MOVE INTO OUTPUT BUFFER 
28 004766 POP R5 : RESTORE RS 
004766 10426! MOV (SP)+,R5 
29 004767 PUSH = RS : SAVE RS 
004767 MOV RS,-(SP) 
30 004770 150$: MOV (R5)+,R1 ; GET SUBUNIT NUMBER 
31 004771 MOV R1,(R4)+ > SAVE 
32 004772 DEC RO. > DECREMENT COUNT 
33 004773 BNE 150$ ; IF COUNT INCOMPLETE, BRANCH 
004773 004770 “050000, 150$ 
34 004775 POP R5 : RESTORE RS 
004775 MOV (SP)+,R5 
35 004776 000004 155$: ADD #4,R5 : POINT TO NEXT UNIT TABLE 
36 005000 003355 CMP WUNITS+16.,R5 : SEE IF ENTIRE TABLE SEARCHED 
37 005002 BNE 120$ : IF NOT, BRANCH 
005002 050000 004726 “050000, 120$ 
38 005004 DEVFTL ‘2000 : REPORT FATAL ERROR (WILL SHOW UP AS A 5000) 
005004 104200 002734 001524 #ms2000. ou T.04 
005007 104300 002212 001523 MOV 03 
005012 104202 051610 MOV Fy000' FTLBEY +3000. .R2 
005014 104020 001522 MOV R2,0UT.02 
005016 104200 00501 001521 MOV . ,OUT.01 
005021 104200 060013 001520 MOV #ERRMES ,OUT.RO 
39 005024 104307 001520 MOV OUT.RQ,RO : SET UP FOR REPORT 
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UDAT3 DISK FUNCTIONAL DMACR X04.01 Wie'to te it 45:56 PAGE 39-1 
GETU = POLL ALL PORTS, THEN GET UNITS TO T 


40 005026 


020000 
000000 


115407 
104172 


030000 


000000 


005774 


005774 


001463 
002347 


004657 
002265 


160$: 


ENDGTU: 


OVRLPT 


CALL HOSTRQ ; REPORT ERROR 
Seeds HOSTRQ 
D ; END TEST 
200, DONEC CD 
INC RO : POINT TO NEXT UNIT TO TEST 


oe (RO) ,R2 CHECK NEXT UNIT 
BPL 90$ FIND IN UDA PORT INFORMATION 
eee 90$ 


Fa 3 START TEST 
00, T3STR 


-SBTTL REST OF FORMAT CHAIN 
~BLKW = <<255.. *3>=<ENDGTU-GETU>> 
ENDPNT = . 

OVERLAYS START HERE!!! 


SEQ 0384 . 


| ATS DISK FUN 
IT OR AND 


114 


CTIONAL DMACR X04.01 18-AUG=82 15:45:56 PAGE 42 
LOOK AT DRIVE SIGNALS 


003356 


001524 
001523 


001521 
001520 


-SBTTL 
START OF TEST CODE 


INPUTS: 
: LUN 


INIT DRIVE AND LOOK AT DRIVE SIGNALS 


IT = LOGICAL UNIT NUMBER OF DRIVE UNDER TEST 


; SDI = SDI INTERCONNECT CODE FOR DRIVE 


s INITIALIZE THE DRIVE 
STRTST: MOV SDI,R2 
XFC DINIT 


WAIT FOR pop be TO ASSERT RECEIVER READY 


sTIME OUT AFTE 


MOV #1400,R1 
1$: DEC R1 

BNE 1$ 

“050000, 1$ 

CLR 5 
2$: MOV #200. ,R1 
3$: DEC R1 

BNE 3$ 

“050000,3$ 

CALL RTDS 

“020000.RTDS 

TST R2 

BEQ 4$ 

en 

PUSH 

CALL TESTEW 

eee ieee 
4$: a #RCVROY,R1 

“050000,T 

DEC R5 

BNE 2s 

“050000, 2$ 

HARDER 9 


CALL TESTEV 
“020000, TESTEV 





GET SDI SELECT CODE 
s INITIALIZE THE DRIVE 


; SETUP TIMEOUT 
DECREMENT DELAY 
: LOOP UNTIL DONE 


3 GET TIMEOUT COUNTER 
: INNCR LOOP TIMEOUT 
: DELAY 


UNTIL DONE 
: GET REAL TIME DRIVE STATE 


: SEE_ IF ERROR OCCURRED 
: IF OK, CONTINUE 


MOV R1,-(SP) 
: IF SO, BRANCH 


MOV (SP)+,R1 
: CHECK RECEIVER READY LINES 
ADVANCE IF ASSERTED 


DECREMENT TIME OUT COUNTER 
IF UNEXPIRED, BRANCH 


REPORT ERROR 


MOV #MS9 OUT .04 
MOV LUNIT,OUT.03 
MOV #9! ERHARD+ 3000. ,R2 


MOV R2,0UT.02 


#ERRMES ,OUT.RO 
EXIT TESTING THIS DRIVE 


SEQ 0385 








11 006073 


et 


MOMIPONIPNoNOPUNON e S Se e 

WDONOUSWN—OOD NOUS wr 
Ne = “OOoo0odnnvnNN 
SOOVUW = NNVIW SNUG @ 


33 


SF BF ans 
Saassaeoe 
KEEOGSVVR 


104203 
104200 
020000 
115002 
010000 
020000 


-SBTTL G 
sGET DRIVE CHARACT 


009388 002173 T: 
630 003357 


003503 18: 


177760 
003471 


003360 
002604 003357 


001563 


2$: 


DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE 43 
IVE CHARACTERISTICS 


ET DRIVE CHARACTERISTICS 
ERISTICS 
MOV #3,SDISTO : 
MOV #CR.GCR,R3 : 
#MS.GCR.COMND 
TALK é 
“020000, TALK 
“010000, 1$ : 
“020000, TESTEX : 


V CR+SHRTTO,RO 
BIC #LBLONB, RO 


CALL 0 
“020000,T0 
MOV RO,SDISTO 


MOV CR+LONGTO,RO 
BIC #LBLONB B.RO 


oT 
MOV RO,SDILTO 
MOV CR#RCTCPS,RO 


SWAB RO 
BIC shyt f RO 
MOV RO,C 


-SBTTL 


MOV #CR.ONL ,R3 
MO #MS .ONL , COMND 
CALL TALK 
“020000, TALK 
TST R2 
EQ 2s 
*010000,2$ 
CALL TESTEX 
“020000, TESTEX 
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ISSUE ONLINE COMMAND 
: ISSUE ONLINE COMMAND AND CHECK RESPONSE 


SET UP_TEMPORARY SHORT TIMEOUT VALUE 
POINT TO GET CHARS COMMAND 


SDI INTERCHANGE 


; SEE IF ERROR OCCURRED 
IF NOT, BRANCH 


IF SO, REPORT 


GET SHORT TIMEOUT 
CLEAR UNUSED BITS 
SET UP TIMEOUT 


SAVE IN wir TIMEOUT 
GET LONG TIMEOUT 
CLEAR UNUSED BITS 

SET UP TIMEOUT 


SAVE IN LONG TIMEOUT 


GET AND SAVE NUMBER OF RCT COPIES 


POINT TO ONLINE COMMAND 
SET UP_FOR ERROR 
SDI INTERCHANGE 


; SEE IF ERROR OCCURRED 
I BRANCH 


F NOT, 


; IF SO, REPORT 


SEQ 0386 | 
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1 sSBTTL_ ISSUE ONLINE COMMAND 
¢ ISSUE GET STATUS COMMAND AND CHECK THAT ATTENTION DROPS 
4 006136 104203 003411 MOV #CR.GST,R3 : POINT 0 ag STATUS COMMAND 
5 006140 104200 002667 003357 MOV #MS .GST,COMND 3 SET UP_FOR ERROR 
6 006145 CALL : SDI INTERCHANGE 
006143 020000 001563 “020000, TALK 
7 006145 115002 TST R2 3 SEE IF ERROR OCCURRED 
8 006146 TOA : IF NOT, BRANCH 
006146 010000 006152 “010000, TOA 
9 006150 CALL TESTEX : IF SO, REPORT 
006150 020000 002372 “020000, TESTEX 
10 006152 TOA: T : GET REAL TIME DRIVE STATE 
006152 020000 001371 “020000,RiDS 
11 006354 102201 000002 aM #ATTN,R1 3 IS ATTENTION ASSERTED? 
12 006156 T 3 COMMAND SHOULD HAVE CLEARED IT 
006156 010000 006162 2610000, T0B 
13 : 1’ - ATTEN NOT DEASSERTED 
14 006160 TESTEW 
006160 020000 002355 020000, TESTEW 
15 006162 TOB: 
16 
17 
18 
: 
21 -SBTTL ISSUE thy CLEAR COMMAND 
$§ ISSUE DRIVE CLEAR COMMAND 
24 006162 104200 000377 003451 MOV #LOBYTE ,ERRORS : MOVE TO DRIVE sire SDI AREA 
25 006165 104203 003372 MOV #CR.CLR,RS : POINT TO DRIVE CLEAR 
26 006167 104200 002611 003357 MOV #MS.CLR,COMND : SET UP_FOR ERROR 
27 006172 CALL ALK : SDI INTERCHANGE 
006172 020000 001563 “020000, TALK 
28 006174 115002 TST R2 ; SEE IF ERROR OCCURRED 
29 00617 EQ 1$ : IF NOT, BRANCH 
006175 010000 006201 *010000,1$ 
30 006177 CALL TESTEX : IF SO, REPORT 
006177 020000 002372 “020000, TESTEX 















ISSUE CHANGE MODE C 


MOPMIPONINYIAIPOPO 


So 
So 
Oo 


006220 104203 
104200 


020000 
21 006227 115002 
010000 


006232 020000 
24 006234 


003416 
003466 
002676 


001563 


006220 
002372 


003435 
002726 


001563 


006234 
002372 
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»SBTTL ISSUE CHANGE MODE COMMAN 


MOV #CR.MOD,R3 
5 MOV MODE 1, MODE 
7 MOV #MS MOD, COMND 


CALL TALK 
“020000, TALK 
TST R2 
BEQ 2$ 
“010000,2$ 
CALL TESTEX 
“020000, TESTEX 


.SBTTL SPIN UP DRIVE 
:SPIN UP DRIVE 
3$: MOV #CR.RUN,R3 
003357 MOV #MS .RUN, COMNE 


CALL TALK 
“020000, TALK 
TST R2 
BEQ 3$ 
“010000,3$ 


CALL TESTEX 
“020000, TESTEX 





SEQ 0388 


iSSUE CHANGE MODE COMMAND TO ENABLE DIAG CYL ACCESS 


POINT TO CHANGE MODE COMMAND 
WRITE PROTECT, DIAG CYL ACCESS, NO FORMATTING 
SET UP FOR ERROR 


SDI INTERCHANGE 


SEE IF ERROR OCCURRED 
IF NOT, BRANCH 


IF SO, REPOR 


POINT TO RUN COMMAND 
SET UP FOR ERROR 
SDI INTERCHANGE 


; SEE IF ERROR OCCURRED 
IF BRANCH 


NOT, 
IF SO, REPORT 
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ISSUE INITIATE RECALIBRATE COMMAN 


SEQ 0389 





1 ;SBTTL ISSUE INITIATE RECALIBRATE COMMAND 
2 ; ISSUE INITIATE RECALIBRATE COMMA 
4 006234 104203 003430 MOV —s ACR. INR, R3 ; POINT TO RECALIBRATE COMMAND 
5 006236 104200 002712 003357 MOV = #MS. INR. COMND : SET UP FOR ERROR 
6 006241 CALL TALK : SDI INTERCHANGE 
006241 020000 001563 “020000, TALK 
7 006243 115002 ree ; SEE IF ERROR OCCURRED 
8 006244 BEQ = 4$ : IF NOT, BRANCH 
006244 010000 006252 *010000,4$ 
9 006246 PUSH ‘RI 
006246 100461 MOV R1,-(SP) | 
10 006247 CALL _ TESTEX | 
006247 020000 002372 5020000, TESTEX | 
11 006251 | 
006251 104261 MOV (SP)+,R1 | 
12 006252 104204 000004 4$: #4 RG ; R4_IS DECREMENT COUNTER ! 
13 006254 T3C: CALL _ RTDS ; GET DRIVE SIGNALS | 
006254 020000 001371 *020000,RTDS 
006256 115002 o..lUCae ; SEE IF ERROR 
15 006257 STEW ; IF SO, BRANCH 
006257 050000 002355 “050000, TESTEW 
16 006261 102201 000002 #ATIN, ; DID ATTENTION SET? | 
17 00626 BEQ T3D ; NO | 
006263 010000 006373 010000, 13D | 
18 CHECK ERROR BITS - IF SET, REPORT ‘AFTER RECAL ERROR BITS ARE SET’ OR SOMETHING THEN EXIT 
19 i IF LOGGABLE INFO B1T SET (NO ERROR BITS) MESSAGE LOGGABLE INFO AFTER RECAL, CONTINUE TEST 
20 006265 PUSH R17 ; SAVE R1 
006265 100461 MOV R1,-(SP) | 
21 006266 104203 003411 MOV —s- #CR. GST. R3 ; POINT TO GET STATUS COMMAND | 
22 006270 104200 002667 003357 MOV #MS..GST. COMND * SET UP FOR ERROR | 
23 006273 CALL ‘TALK ; SEND AND RECEIVE COMMAND | 
006273 020000 001563 020000, TALK | 
24 006275 115002 TST R2 ; ANY ERRORS? | 
25 006276 BNE 5 ; IF SO, EXIT | 
006276 050000 006331 *050000,5$ | 
006300 104303 003476 MOV = ST#ST.ERR,R3 GET ERROR INFORMATION | 
27 006302 102203 000350 BIT AST. FE+ST.RE*ST.PE+ST.WE>, R3 ; ANY ERRORS? | 
006304 BEQ Ses IF Ok CONTINUE | 
006304 010000 006340 “010000, T3A 
29 006306 HARDER °20,#SER22 
006306 104200 001050 001524 MOV = #MS20,0UT.04 
006311 104200 003276 001525 MOV § #SER22,0UT.05 
006314 104300 002212 001523 MOV — LUNIT ,OUT.03 | 
006317 104202 105714 MOV #20 'ERHARD+3000. .R2 | 
006321 104020 001522 MOV —-R2, OUT.02 
006323 104200 006323 001521 MOV . OUT.01 
006326 104200 060013 001520 MOV = #ERRMES ,OUT.RO 
30 006331 5$: POP sR 
006331 104261 MOV (SP)+,R1 
31 006552 104205 001526 MOV #OUT.06.R3 ; ELSE SET UP ERROR INFO 
006334 020000 002376 “06000, TESTEY 
33 006336 BR 
006336 000000 006424 00,T4A 
34 006340 102200 000010 003475 T3A: BIT’  #ST.EL,ST#1 ; ANY LOGGABLE INFO? 
35 006343 BEQ =—s«éT3B ; IF NOT CONTINUE 
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ISSUE INITIATE RECALIBRATE COMMAND 
006343 010000 006372 “010000, 138 
3 006343 104203 001524 MOV #OUT.04,R3 : IF $O, SET UP POINTER 
7 006347 CALL _ STRST : AND SET UP INFO 
006347 020000 002572 “020000,STRST 
38 006351 MSSG 21,#SER22 
006351 104200 001073 001522 MOV #MS21,0UT.02 
006354 104200 003276 001523 MOV #SER22,0UT.03 
006357 100467 MOV RO,-(SP) 
006360 100461 MOV R1.=(SP) 
006361 104300 002212 001521 MOV LUNIT,OUT.01 
006 104207 060015 MOV #MESSAG,RO 
006366 020000 001463 “020000,HOSTRQ 
006370 104261 MOV (SP)+,R1 
006371 104267 MOV (SP)+.RO 
39 006372 13B: POP R1 : RESTORE R1 
006372 104261 MOV (SP)+,R1 
40 006373 102201 100000 13D: BIT #RWRDY,R1 : DID R/W READY SET? 
1 006375 BNE T4A : IF SO, BRANCH 
006375 050000 006424 “050000, T4A 
42 006377 117404 DEC R4 : TRY AGAIN? 
43 006400 BNE T3C 
006400 050000 006254 “050000, T3C 
44 006402 HARDER °16 ;R/W READY DID NOT SET AFTER RECALIBRATE COMMAND 
006402 104200 000635 001524 MOV #MS16,0UT. 
006405 104300 002212 001523 MOV LUNIT,OUT.03 
006410 104202 105710 MOV #16! ERHARD+3000. ,R2 
006412 104020 001522 MOV R2,0UT.02 
14 104200 006414 001521 MOV #..OUT.01 
7 104200 060013 001520 MOV #ERRMES ,OUT.RO 


CALL TESTEW 
020000 002355 “020000, TESTEW 
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years the FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE 47 


SEQ 0391 | 
T CHARACTERISTICS 


1 .SBTTL GET SUBUNIT CHARACTERISTICS 
4 3 GET SUBUNIT CHARACTERISTICS | 
4 006424 104301 003355 TSA: MOV UNITNB,R1 3 FIND SUBUNIT MASK FOR COMMAND 
5 006426 103201 177774 BIC #°C3,Ri1 ; CLEAR UNUSED BITS OF INDEX 
6 0064 104207 000010 MOV 410, RG | 
7 006432 110207 1$ ROL RO 3 ROTATE 
8 006433 117401 DEC R1 3 UNTIL DONE 
9 006434 BPL I$ 
006434 030000 006432 *030000,1 
10 006436 103207 177417 BIC “FpuiNe, RO 3 CLEAR UNUSABLE BITS 
11 006440 104070 003454 MOV RO, SUBUN 
12 006442 104203 003404 | MOV ach Sch RS : POINT TO GET SUBUNIT CHARACTERISTICS | 
13 006444 104200 002647 003357 MOV #MS.SCR,COMND ; SET UP FOR ERR 
14 006447 ay CALL TALK 3 SDI INTERCHANGE 
006447 020000 001563 “020000, TALK 
15 006451 115002 : TST R2 ; SEE IF ERROR OCCURRED | 
16 006452 ane BEQ 2$ 
006452 010000 006456 “010000, 2$ 
17 006454 CALL TESTEX 
- 006454 020000 002372 “020000, TESTEX | 
19 
20 
21 | 
22 
$3 | 
25 -SBTTL SEEK TO CYLINDER 0, GROUP 0 
36 zSEEK TO CYLINDER 0, GROUP 0 
28 006456 104201 00340. 2$: MOV #TSTCYL,R1 
29 006460 114000 005 6 CLR TSTCYL 3 LO ORDER CYL 0 | 
30 006462 104300 00351; 003607 MOV SUB+LBNCYL+1,TSTCYL+1  ; HI ORDER CYL 0 | 
31 006465 103200 007777 003607 BIC #HBhINB, TSTCYL+1 
32 006470 114000 003610 CLR TSTCYL+ 3 GROUP 0 
33 006472 CALL SEEK 
006472 020000 002621 “020000, SEEK 
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CALCULATE NUMBERS 





1 -SBTTL CALCULATE NUMBERS 
2 : CALCULATE NUMBER OF SECTORS PER TRACK 
; 3 NO. OF SECTORS/TRACK =(NO. OF LBN'S/TRACK) + (NO. OF RBN'S/TRACK) 
5 006474 104301 003522 T4A1: MOV SUB+RBNTRK,R1 3 GET RBN’S/TRACK 
6 006476 103201 177600 BIC #177600,R1 
7 006500 104307 003527 MOV SUB+LBNTRK,RO 3 GET LON'S/TRACK 
8 006502 103207 177400 BIC #HIBYTE,RO : ZERO UPPER BITS 
9 006504 105071 ADD R0,R1 ; ADD NUMBER OF LBN'S TO RBN'S 
10 006505 104010 003603 MOV R1,SECTRK : SAVE 
11 006507 105011 ADD R1,R1 3 COMPUTE SECTORS TIMES TwO 
12 006510 104010 003543 MOV R1,NSCSL 3 AS SECTORS READ BEFORE DECLARING 
13 3 NO HEADER FOUND 
13 ;COMPUTE FIRST CYLINDER IN XBN AREA 
17 006512 104301 3516 MOV SUB+LBNCYL,R1 
18 006514 104010 003601 MOV R1,FXBNCYL : FIRST XBN CYLINDER (LO) 
19 006516 104307 003517 MOV SUB+LBNCYL*1,RO 
20 006520 103207 170000 BIC #*CHBHINB,RO ;CLEAR SUBUNIT CYL BITS 
31 006522 104070 003602 MOV RO, FXBNCYL+1 : FIRST XBN CYLINDER (HI) 
$7 COMPUTE FIRST CYLINDER IN DBN AREA 
25 006524 105301 003537 ADD SUB+XBNCYL,R1 : ADD NUMBER OF XBN CYLINDERS 
26 006526 BCC T4B : BRANCH IF NO CARRY 
006526 040000 006531 “040000, 148 
27 006530 115407 INC RO : INCREMENT HI ORDER CYL 
28 006531 104010 003577 148: MOV R1,FDIACYL : STORE STARTING DBN CYLINDER 
29 006533 104070 003600 MOV RO,FDIACYL+1 
3) ;COMPUTE LAST CYLINDER IN DBN AREA 
33 006535 303 003540 MOV SUB+DBNCYL,R3 : GET NUMBER OF DBN CYLINDERS 
34 006537 110703 SWAB 
35 006540 103203 177400 BIC #HIBYTE,R3 
36 006542 BN T4 
006542 050000 006566 #050000, T4C 
37 006544 HARDER 17 ;CHARACTERISTICS SAY LESS THAN 1 DIAGNOSTIC CYLINDER 
006544 104200 000677 001524 MOV #MS17,0UT.04 
006547 104300 002212 001523 MOV LUNIT,OUT.03 
006552 104202 105711 MOV #17 'ERHARD+3000. ,R2 
006554 104020 001522 MOV R2,0UT.02 
006556 104200 006556 001521 MOV #. ,OUT.01 
006561 104200 060013 001520 MOV #ERRMES ,OUT.ROQ 
38 006564 CALL _—‘TESTEV 
006564 020000 002364 “020000, TESTEV 
39 006566 T4C: 
40 ; NO LONGER NEED LAST DIAG CYL = JUST SAVE STARTING DBN, LAST TRACK, LAST GROUP, LAST CYL 
41 ; AND USE COMPUT XFC HEAVILY 
42 006566 117403 DEC R3 3 REDUCE BY ONE AND ADD T 
43 006567 105031 ADD R3,R1 3 FIRST DBN CYLINDER TO 
44 006570 BCC T4D 3 COMPUTE LAST CYLINDER 
006570 040000 006573 “040000, T4D 
45 00657¢ 115407 INC RO 
46 006573 104010 003574 T4D: MOV R1,LDIACYL : STORE LAST DBN CYLINDER 
47 006575 104070 003575 MOV RO,LDIACYL+1 
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CALCULATE NUMBERS 


8 006577 104303 003520 


9 006601 
26 006603 
51 006604 


2 
103203 177400 
117403 
104030 003576 


MOV SUB+GRPCYL ,R3 : GET rics Bie 
BIC #HIBYTE RS ; CLEAR UNUSED BITS 
D R ; LAST GROUP 


EC 
MOV R3,LDIACYL+2 


em ee ee CC 


SEQ 0393 


| SOE a abt teas os eee o 
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READ ALL FACTORY FORMATTED TRACKS 


MOPOPOPORD 2 = os 


WISSSRAN IVA AWE 


suerte 


a ee ee ae | 


ee 


srRELELEEEEEEES 


if 


GEG HIS SEY SUF UN SF SBey 
x 


WwW 
fSOwnw 

OSS 

Www 


E RAR 


ao Soon uw 


ee ee SS et ed ed ed ed ed 
So 
NM FROMM So 


006615 
003616 


003520 
177400 
003617 
003616 
006633 


003540 
177400 


006650 


003616 
006665 


008574 
003540 
177400 


Ss 
WW 
wey 
~N 


006725 


003617 


-SBTTL 
sREAD ALL FACTOR 


READ ALL_ FACTORY FORMATTED TRACKS 
Y FORMATTED TRACKS. 


sREPORT ERROR IF ALL SECTORS ON A TRACK READ WITH AN ERROR. 
:COMPUTE DBN OF FIRST BLOCK ON FACTORY FORMATTED CYLINDER 


Té6: 


T6A: 


2s: 


1$: 


T6C: 


T6D: 


CLR RS 
MOV SUB+TRKGRP ,R3 
BIC #HIBYTE RS 
MOV SECTRK,R4 
ADD R3,R5 
DEC R4 
BNE T6A 
“050000, T6A 
MOV R5,SECGRP 
PUSH R2 
MOV SUB+GRPCYL ,R2 
BIC #HIBYTE,R2 
PUSH R2 
CLR SECCYL 
ADD SECGRP,SECCYL 
DEC Re 
BNE 2$ 
“050000, 2$ 
POP R2 

Vv SUB+DBNCYL ,R1 
SWAB 1 


BIC + peat 
ADD R2,R5 
R1 


DEC 

BNE 1$ 
“050000,1$ 
POP R2 
CLR RO 
PUSH R5 
DEC R5 
ADD SECGRP,R1 
BCC T 
“040000, T6D 
INC RO 
DEC R5 
BNE T6C 
“050000, T6C 
MOV 


R1,LCDBN 
MOV RO,LCDBN+1 
POP R5 

MOV SUB+DBNCYL ,RO 
BIC #HIBYTE ,RO 
ss 

“050000,1$ 





TRACKS/GROUP 


X SECTORS/TRACK 
TO COMPUTE NUMBER OF SECTORS PER GROUP 


SAVE SECTORS/GROUP 
SAVE R2 

MOV R2,-(SP) 
GET GROUPS/CYL 
CLEAR UNUSED BITS 
SAVE R2 

MOV R2,-(SP) 
GET SECTORS/CYL 


; RESTORE R2 
; GET CYLINDERS IN DBN AREA 


MOV (SP)+,R2 


TO COMPUTE BLOCK NUMBER OF FIRST BLOCK 
CLEAR PRODUCT 


RESTORE R2 
MOV (SP)+,R2 


SAVE NUMBER OF GROUPS IN DIAGNOSTIC AREA 
SO DBN COMPUTED IS FIRST ON LAST GROUP 


R5 IS NUMBER OF GROUPS i tts .% 
+, 

GET NUMBER OF READ ONLY GROUPS 

CLEAR UNUSED BITS 

IF READ ONLY GROUPS > 0 THEN BRANCH 


SEQ 0394 
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READ ALL FACTORY FORMATTED TRACKS 


46 906708 


80 007035 


000000 
104300 
104 


S 
orn 
NO 
WG 


RRRRRS J ARERR 
So o WWOo 
wn WEWONW 


177400 


007004 
007011 
000001 
006766 
003570 


006766 
177777 


001524 
001523 


001 
001 


vin 
InN 
o— 


003567 


003625 


1$: 


2$: 


3$: 
4$: 


7$: 


8$: 


HARDER 14 


i EV 


“00, TEST 
MOV CDIACYL, ROFDC 


MOV LDIACYL+#1,ROFDC+1 


SUB RO,R5S 
BEQ 2$ 
*010000,2$ 


PL 
=030000, 73 
HARDER 


_ EV 
260, TESTEV 
MOV SUB+GRPCYL ,R4 
oie #HIBYTE ,R4 


a 


BMI 

*070000,5$ 

BEQ 

*010000,6$ 

au He -ROFDC 

*040000,4$ 

DEC ROFDC+1 

BR 4$ 

*00.4$ 

MOV #-1 oR3 

BIC RO,R3 

INC R3 

MOV R3,RO 

MOV RO,ROFDC+2 

CLR R3 

CLR RS 

ADD SECGRP,R3 

BCC 8$ 

nee at 

ace Pt 

950000, a 
R3,ROFOBN 

MOV R4,ROFDBN+1 

MOV R3, LK 

MOV R4 * CURBLK #1 


MOV #'O LETTER 


ZERO a ONLY ait 6 
pede our’ 04 


MOV °03 
MOV LUNIT OUT 03 0 a 
V R2,0UT.02 


- ,OUT.01 
MOV #ERRMES ,OUT.RO 


RS HAS NUMBER OF READ/WRITE GROUPS 
IF R/W GROUPS ZERO, ERROR 


IF GREATER THAN ZERO, BRANCH 


NO — pansy 
io 1s 04 


T OUT .03 
MOV #15! ERHARD* 3000. ,.R2 
MOV R2,0UT.02 


- ,OUT.01 
MOV #ERRMES ,OUT RQ 


T NUMBER OF GROUPS/CYL 


GE 
; CLEAR UNUSED BITS 


SUBTRACT NUMBER OF GROUPS/CYL 


DECREMENT STARTING READ ONLY CYL BY 1 
IF NO CARRY, LOOP 


; PROPOGATE BORROW 
BRANCH 


SET UP FOR COMPLEMENT 
MENT “tp 


RE TO , 
apy IN START 


TO LO ORDER STRT SEC 
F NO CARRY, BRANCH 


3 PROPOGATE CARRY 


DECREMENT COUNT 
LOOP 


MAKE DBN'S 


SEQ 0395 


006000 
104201 
020000 
104205 
104303 
020000 
103200 
105300 
040000 
115400 
115404 
000000 


003614 
002427 
003575 


007062 
007111 
06 


005603 


007040 
003615 


007040 


AND THE "LETTER® 
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READ ALL FACTORY FORMATTED TRACKS 


+ POINT TO CURBLK, CALL SOME SUB THAT LOOKS AT THE Apel PASSED 

AND COMPUTS CYL, TRK, A N 

: TH EN Tae IF or ene Ee IS > MAX CYL ry SO, THIS "PHASE OF TEST IS OVER (BR TGX) 
; GO DIRECTLY TO DBN WILL BE PROCESSED 


0000, FNDCY2 
_ a IF CYL COMPUTED IS > MAX CYL. IF SO, THIS PHASE OF TEST IS OVER (BR TGX) 


BCs o_o oTSTCYL#1 
ana ter’ 648 


“00, T6F 
CMP LDIACYL,TSTCYL 
BCS TOF 
“040000.65$ 
“00,7 
MOV #TSTCYL,R1 
CALL K 
“020000, SEEK 
MOV #CURBLK ,R5 
MOV SECTRK, 
CALL READ1 
“020000 ,READ1 
BIC #HIBYTE ,CURBLK*+1 


ADD SECTRK, CURBLK 
BCC T6G 

“040000, T6G 

INC CURBLK+1 

INC R4 

BR T6G 

“00,166 


3 SEEK TO REQUESTED CYL 


READ EACH SECTOR TILL ONE READS OK 
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SEQ 0397 | 


UDAT3 DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE 50 
SEEK TO SELECTED GROUP, READ HDR, SEEK TO DIAGNOSTIC AREA 
1 SBTTL SEEK TO SELECTED D GROUP, | READ HDR, SEEK TO DIAGNOSTIC AREA 
3 :STARTING WITH CYLINDER 0 NCREMENT ING THROUGH EVERY GROUP 
ON TH HE DISK, PERFORM A seek" ro. THE SELECTED GROUP, READ A WEADER 
4 [ON THAT GROUP AND THEN A SEEK TO THE FACTORY FORMATTED DIAGNOSTIC 
3 :GROUP TO VERIFY HEADS POSTT TONED CORRECTLY. 
c :COMPUTE LBNS PER GROUP 
9 007111 114001 17: CLR R1 : LBN'S/TRK X TRK/GROUP 
10 007112 104305 003521 MOV SUB+TRKGRP,RS 
11 007114 103205 177400 BIC #HIBYTE, 
12 007116 104303 003527 MOV SUB+LBNTRK ,R3 :GET LON'S PER TRACK 
13 007120 103203 177400 BIC #HIBYTE, [CLEAR UNUSED BITS 
14 007122 104030 003611 MOV R3,BLOCK 
15 007124 105031 T7A: ADD R3,R1 
16 007125 117405 DEC R5 
17 007126 BNE T7A 
007126 050000 007124 ~050000, T7A 
18 007130 104010 003612 R1,BLOCKG :SAVE IN BLOCKG 
19 007132¢ 114000 003613 CUR BLOCK 
20 007134 104307 003520 MOV SUB+GRECYL , RO 
21 007136 103207 177400 BIC #HIBYTE,R 
22 007140 105300 003612 003613 1S: ADD BLOCKG, BLOCKC 
23 007143 117407 DEC RO 
24 007144 BNE 1$ 
007144 050000 007140 “050000, 1$ 
25 007146 114000 003606 CLR TSTCYL 
36 007150 114000 003610 CLR TSTCYL+2 :GROUP ZERO 
007152 114000 003604 CLR TSTBLK 
28 007154 114000 003605 CLR TSTBLK+1 
29 007156 114000 003631 CLR GRPCNT 
0 007160 114000 003632 CLR OLDGRP ; CLEAR OLD GROUP VALUE USED IN FNDCYL 
31 007162 104200 000114 003624 MOV #°L, AREA ZAREA BEING SEEKED INTO IS LBNS 
32 007165 104300 003624 003625 1T7C: MOV AREA. ETTER : MOVE TO LETTER FOR REPORTING 
33 007170 104205 MOV #TSTBLK,R [POINT TO LBN NUMBER FOR => VARI 
34 3 COMPUTE CYL, TRK AND GRP. 
35 ; IF CYL < STARTING. CYL THEN CONTINUE ELSE IF CYL >= STARTING DIAG CYL THEN OUT (BR T7x) 
36 : ELSE IF CYL = STARTING XBN CYL CLR TSTBLK. Ts TBLK+1 AND BR T7C 
37 00717 CALL FNDCYL FIND CYLINDER 
007172 020000 002420 “026000, FNDCYL 
38 007174 106300 003601 003641 FXBNCYL,CYLLO :1S CYL = STARTING XBN? 
39 007177 BNE 18 :1F NOT, BRANCH 
007177 050000 007237 “050000, 1 
40 007201 106300 003602 003642 CMP Sreucvest. CYLLO+1 : 
41 007204 BNE 
007204 050000 007237 *050000,1 
4 007206 106200 000130 003624 cop by. AREA : IF HERE AGAIN, BRANCH 
007211 010000 007237 “010000,1$ 
44 007213 104200 000130 003624 MOV #°X, AREA NOW IN XBN AREA 
45 007216 114000 003604 CLR TSTBLK TIF SO, CLEAR TSTBLK 
46 007220 114000 003605 CLR TBLK+1 
47 007222 104300 003603 003611 MOV SECTRK,BLOCKT 3CHANGE BLOCK COUNT PER TRACK 
48 007225 104300 003616 003612 MOV SECGRP.BLOCKG [CHANGE BLOCK COUNT PER GROUP 
9 007230 104300 003617 00361 MOV SECCYL, BLOCKC :CHANGE BLOCK COUNT PER CYL 
50 007233 114000 003632 CLR OLDGRP : CLEAR OLD GROUP 
51 007235 : AND TRY AGAIN WITH XBN 





73 007314 
314 


SEEK TO SELECTED GROUP, 


000000 
106300 
050000 
106300 
010000 
104300 
104201 
020000 
104205 
104303 
020000 


104200 
020000 
104201 
104303 


020000 
104205 





READ HDR, SEEK TO DIAGNOSTIC ARES 


007165 
003577 


007251 
003600 
007355 
003624 
003606 
002621 
003604 
003603 
003013 
000104 
002420 
003606 
003603 


002621 
003572 


003013 
003631 
177400 


007335 


007165 


003606 1$: 


003607 


0063625 


003625 


003631 


001521 


003604 


003604 





UDAT3 DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE 50-1 


2$: 


$$: 


5$: 
6$: 


7$: 





1 15 
SEQ 0398 


“00,T7C 
a FDIACYL, TSTCYL 4 tw CONTINUE 
“050000, 2$ ‘ 
CHP FDIACYL#1, TSTCYL#1 : DONE? ae 
“010000, T7X : 7 

V AREA, LETTER 
MOV ATSTCYL RI ZSEEK TO CYLINDER 
“020000, SEEK 

V #TSTBLK,RS ; SET UP POINTER TO TEST BLOCK 
MOV SECTRK,R3 GET MAXI NUMBER OF SECTORS TO READ 

1 *READ UNTIL AT LEAST ONE RECORD READ WITHOUT “RROR 


CALL READ 
“020000,READ1 
COMPUTE CYL FROM LCDBN 


MOV eS Agree 3 IN DIAGNOSTIC AREA 
“020000, FNDCYL 
V #TSTCYL,R1 
MOV al z R3 = SECTORS/TRACK 
“020000, SEEK 
#LCDBN,RS :_SET UP POINTER TO TEST BLOCK 
READ1 sREAD UNTIL AT LEAST ONE RECORD READ WITHOUT ERROR 


“920000, READ1 

INC GRPCNT 

BIC #HIBYTE ,GRPCNT 
BNE $ 

— 5$ 

PUSH RO 


os MOV RO,-(SP) 
MOV #T4SOFT. RO : TO INTERRUPT HOST <<ONLY>> 
MOV LUNIT,OUT.01 : IDENTIFY UNIT 
CLR BUT LOS : NO SOFT ERR 


ORS 
CLR OUT.03 NO ECC CORRECTIONS 
OUT .04 

FALL ed REPORT (NOTHING) 

: N 
“020000, HOSTRQ . 
POP RO : RESTORE RO oes agar 

+ 
ADD BLOCKC, TSTBLK _ 


0,6$ 
INC TSTBLK+1 
ADD BLOCKG, TSTBLK 


0,7$ 
INC TSTBLK+1 
R T7C 





UDAT3 DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE 51 
SEEK TO SELECTED GROUP, READ HDR, SEEK TO DIAGNOSTIC AREA 


1 007355 T7X: 


J 15 


SEQ 0399 








UDAT3 DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE 53 
CHECK WRITE PROTECT 


5 007355 
360 
? 007362 
364 


007434 
22 007436 


3 


Seeerere 
ssssss 


~m 
o 
= 


020000 


020000 
114000 


177777 
003614 


002621 
011314 


002364 


002407 
003627 


003627 


003606 
003607 


1$: 


~SBTTL CHECK WRITE PROTECT 
MOV #-1 ,WFLAG 


-1, 
CLR CURBLK 
CLR pune en 
CLR 


CURTRK 
MOV FDIACYL 


15 


; CLEAR TRACK 


SET FLAG 
; CLEAR BLOCK 


#TSTCYL,R1 


CALL x 
“020000, SEEK 
CALL WRITEB 
“020000 ,WRITEB 
TST RO 


“ne- 
hems 
Mm 


BNE 1$ 
*050000,1$ 
TST R1 


BNE 1$ 
*050000,1$ 
HARDER 35 


CALL TESTEV 
“020000, Bh he 


ALL R.CLR 
“26000, or CLR 
WFLAG 





TSTCYL 
FDIACYLS1, oTSTCYL#1 


; POINT TO CYL TO TEST 


3 CLEAR GROUP 


; R1 => TEST CYL 


: SEEK THERE 


; AND ATTEMPT TO WRITE 


3 WAS IT SUCCESSFUL? 
: IF NOT, THAT WAS EXPECTED 


; REPORT ERROR 


CLEAR FLAG 


CLEAR DRIVE 


#MS35,0UT.04 
LUNIT,OUT.03 

#35 LERHARD*3000. .R2 
#..OUT.01 

#ERRMES ,OUT.RO 


SEQ 0400 





UDAT3 DISK FUNCTIONAL DMACR x04.01 18-AUG-82 15:45:56 PAGE 54 SEQ 0401 
CHANGE MODE TO ALLOW FORMATTING AND WRITIN 
1 ~SBTTL CHANGE MODE TO ALLOW FORMATTING AND WRITING 
: 007440 18 
4 : FIRST CHANGE MODE TO ALLOW FORMATTING AND WRITING 
6 007440 104204 000004 MOV 3 RG HAS DECREMENT COUNTER 
007442 104203 003416 2$ MOV #CR.MOD,R3 ; POINT TO CHANGE MODE COMMAND 
8 007444 104300 003467 003465 MOV MODE 2, MODE ; WRITE PROTECT, DIAG CYL ACCESS, NO FORMATTING 
9 007447 104200 002676 003357 MOV #MS .MOD, COMND : SET UP FO 
10 007452 CALL ‘TALK ; INITIATE SDI INTERCHANGE 
007452 020000 001563 “020000, TALK 
11 007454 115002 TST R2 : SEE IF ERROR OCCURRED 
12 007455 BEQ 1$ : IF NOT, BRANCH 
007455 010000 007466 “010000, 1$ 
13 007457 CALL TESTEX : IF SO, ERROR 
007457 020000 002372 “020000, TESTEX 
14 007461 117404 DEC RG : DONE? 
15 007462 BNE 2$ t IF NOT, BRANCH (TRY AGAIN BECAUSE FORMAT 
007462 050000 007442 “050000, 2$ 
16 ; WON'T WORK WITH A WRITE PROTECTED DRIVE) 
17 007464 TESTX > ELSE, EXIT 
007464 000000 002336 360. TESTX 
18 007466 114000 003630 I$: CLR FLAG ; USE FLAG TO DECIDE IF WE FORMAT OR TEST A TRACK 
20 .SBTTL FORMAT A TRACK THEN CHECK IT. 
22 : FORMAT ALL TRACKS, THEN DO SEVERAL WRITES, READS AND DATA COMPARES 
23 ; UNTIL ONE SECTOR PASSES. DO THIS FOR EACH TRACK IN EACH GROUP 
24 : ON EACH CYLINDER IN THE DIAGNOSTIC AREA EXCEPT FOR THE LAST 
33 : (FACTORY FORMATTED) CYLINDER ON THE PACK 
27 007470 104300 003577 003606 MOV FDIACYL, TSTCYL : START AT FIRST DIAGNOSTIC CYL 
28 007473 104300 003600 003607 MOV FDIACYL 1 TSTCYL#+1 
29 007476 104201 003606 MOV #TSTCYL,RI : POINT TO CYLINDER TO SEEK TO 
30 007500 114000 003610 CLR TSTCYLAS. + START WITH GROUP 
31 007502 CALL ‘SEEK : SEEK 10 FIRST DIAGNOSTIC CYLINDER 
007502 020000 002621 <920000, SEEK 
32 007504 114004 CLR RG : START WITH DBN 0 
33 007505 104040 003604 MOV R4, TSTBLK 
34 007507 104040 003605 MOV RG. TSTBLK+1 : CLEAR BLOCK 
35 007511 104040 003621 T8A: MOV R4.CURTRK t SAVE TRACK NUMBER 
36 007513 115000 003630 TST FLAG + DO WE FORMAT 
37 007515 BNE 1$ : IF NOT ZERO, TEST TRACK 
007515 050000 007523 “050000,1$ 
38 007517 CALL FORTRK : FORMAT THE TRACK 
007517 020000 010723 “020000, F ORTRK 
39 007521 BR 2$ : DO NOT TEST TRACK UNTIL ALL FORMATTED 
007521 000000 007525 “00,2$ 
40 007523 1$: CALL TRKTST ; TEST THE TRACK 
007523 020000 011162 “020000, TRKTST 
41 007525 105300 003603 003604 28: ADD SECTRK, TSTBLK : ADD SECTORS/TRACK 
42 007530 BCC T8B : IF NO CARRY, BRANCH 
007530 040000 007534 “040000, T8B 
43 007532 115400 003605 INC TSTBLK+1 : INCREMENT 
007534 104304 003621 T8B: MOV CURTRK,R4 : GET TRACK NUMBER 
45 007536 115404 INC R4 : INCREMENT TRACK NUMBER 
46 007537 104303 003521 MOV SUB+TRKGRP,R3 : GET NUMBER OF TRACKS/GROUP 














FORMAT A TRACK THEN CHECK IT. 
47 007541 103203 177400 
48 007543 106034 
49 007544 
007544 05 007511 
50 007546 114004 
51 007547 115400 003610 
52 007551 104301 003520 
53 007553 103201 177400 
54 007555 106010 003610 
55 007557 
0075 050000 007571 
56 007561 104040 003610 
57 007563 115400 003606 
58 007565 
007565 040000 007571 
59 007567 115400 003607 
60 007571 300 003606 
61 007574 
007574 050000 007610 
62 007576 106300 003607 
63 007601 
007601 050000 007610 
64 007603 106300 003610 
65 007606 
010000 007616 
66 007610 104201 003606 
67 007612 
007612 020000 002621 
68 007614 
007614 000000 007511 
69 007616 115000 003630 
70 007620 
007620 050000 007627 
71 007622 104200 177777 
72 007625 
007625 000000 007470 
5 007627 104200 000001 
76 007632 104207 003520 
0076 103207 177400 
78 007636 106207 000377 
9 00764 
007640 010000 007717 
0 007642 101207 107000 
81 007644 104070 003456 
82 007646 114000 003436 
83 007650 104203 003435 
007652 104302 003356 
85 007654 104237 
007655 104131 
87 007656 060004 
007657 115001 
89 007660 
007660 050000 007715 
90 007662 104205 003411 
91 007664 


003567 


003570 


003571 


003630 


002174 


M15 


UDAT3_DISK Tanta Thee th DMACR X04.01 18-AUG-82 15:45:56 PAGE 54-1 


BIC #HIBYTE ,R3 
CMP R3,R4 


BNE T8A 

“050000, T8A 

CLR R4 

INC TSTCYL#2 

MOV SUB+GRPCYL ,R1 

BIC #HIBYTE,R1 

ioe R1,TSTCYL+2 

#950000, 

TNC 

BCC 

— 
T8D: CMP 


T8D 
R4,TSTCYL#2 
TSTCYL 


T8D 
TSTCYL+1 
TSTCYL,ROFDC 


0,1$ 
CMP TSTCYL+1,ROFDC+1 


0,1$ 
a TSTCYL+2,ROFDC+2 
T8T 


=510000, T8T 
1$: 34 ores R1 


“00000, SEEK 
BR T8A 


*00,T8A 
T8T: ds re 


BNE 

— 18E 
“#~1, FLAG 
T08° 


260, T08 


CLEAR UNUSED BITS 
SEE IF ALL TRACKS READ 
IF NOT, BRANCH 


ZERO R4 

MOVE TO NEXT GROUP 
GET GROUPS/CYLINDER 
CLEAR UNUSED BITS 


COMPARE 
IF ALL GROUPS NOT TESTED, BRANCH 


START WITH GROUP 0 ON NEW CYLINDER 
INCREMENT CYLINDER 
IF NO CARRY, BRANCH 


INCREMENT HI CYLINDER 
SEE IF ON LAST CYLINDER (LO ORDER) 
IF NOT, BRANCH 


; SEE IF ON LAST CYLINDER (HI ORDER) 
; IF NOT, BRANCH 


; i IF ON RESERVED GROUPS 


F SO, END THIS PHASE OF TEST 


POINT TO NEW CYLINDER OR GROUP 
ISSUE SEEK 


BRANCH 


ARE WE DONE? 
IF SO, BRANCH 


ELSE, CHANGE FLAG 
AND CHECK TRACKS 


3; *** NOW SEND INVALID SeLect GROUP COMMAND AND EXPECT ERROR 
T8E: MOV #1, TO CH 


MOV #SUBSGRPCYL, RO 
BIC #HIBYTE,R 
CMP #LOBYTE ,RO 


BEQ T11 

“010000,T11 

B #SL.GRP,RO 

RO,RUN 

CLR CR.RUN+1 

MOV <r RUN ,R3 
DI,R2 


MOV (R356, RO 
MOV (R3), R1 
XFC 

TST a 

BNE T8F 
“050000, T8F 


yy GST,R3 
CALL TALK 


ANGE LONG TIMEOUT 
RO HAS G 


ROUP # 
STRIP OFF UNUSED BITS 
IS THIS UNIT USE MAX BITS? 
IF SO, BRANCH (DON'T DO TEST) 


; SET SELECT GROUP CODE 


; STORE IN RUN CODE 
; SET . 4 = LEVEL 1 EXCHANGE 
Berto 


MESSAGE 
SET UP PARAMETERS 


SEND COMMAND 
; IF FAIL, BRANCH 


CHECK OUT STATUS 


SEQ 0402 








N 15 
UDAT3 af ante tent DMACR X04.01 18-AUG=82 15:45:56 PAGE 54-2 SEQ 0403 
FORMAT A TRACK THEN CHECK IT. 
007664 020000 001563 a TALK 
4 007666 102200 000350 003476 ocst. PE+ST.RE+ST.FE+ST. _ ST.ERR+ST ; ERROR? 
93 007671 BNE TSF SO, BRANCH 
007671 050000 007715 oe + es TSF 
94 007673 HARDER 33 ; ELSE ERROR 
007673 104200 002156 001524 MOV #MS33,0UT.04 
007676 104300 002212 001523 MOV LUNIT,OUT.03 
007701 104202 105731 MOV #33! ERHARD+3000. ,R2 
007703 104020 001522 MOV R2,0UT.02 
007705 200 007705 001521 MOV #.,0UT.01 
007710 104200 0013 001520 MOV #ERRMES ,OUT.RQ 
95 007713 CALL TESTEV 
007713 020000 002364 “020000, TESTEV 
96 007715 TSF : CALL DR.CLR : CLEAR DRIVE OF ERROR 
007715 020000 002407 “020000,DR.CLR 





UDATS DISK FUNCTIONAL el ‘ 01 18-AUG-82 15:45:56 PAGE 55 
SEND INVALID LEVEL 2 COMMAND 


771 
25 007773 


020000 
104200 


003357 T11: 


000001 003436 


003456 


010566 


007742 
000400 


007725 
000377 003456 2%: 


010566 
0034 > 003456 


010566 


003422 
003414 
003441 


010570 
000007 003414 


hee i. INVALID LEVEL 2 COMMANDS 
CLA COM ; CLEAR COMMAND se yy wae FLAG 


RO 
MOV #1,CR.RUN*1 
MOV ~ Sanaa 


CALL TSTCMD 
“020000, TSTCMD 
POP RO 


a RO 


BNE 2$ 
“050000,2$ 
ADD “#400,R0 


BN 
*050000,1$ 
ome ° #377,RUN 


TSTCMD 
«056000, TS TCMD 
MOV RUNCMD , RUN 
MOV . RS 
MOV R5,CR.RUN¢1 
MOV #SERSO,R4 


CALL TSTCM 

*020000, TSTCMD 

CLR RS 

MOV #SER5S1,R4 

MOV RS,CR. 6ST+3 
#cr. e 

TSTCM2 

“26000, TSTCM2 

#7,CR.GST#3 





I_ COMMAND 


CLEAR SD 
; RESET PROPER LENGTH 
SET CODE 


RO 
AND TEST 
RESTORE RO 


MOV RO,-(SP) 


MOV (SP)+,RO 


TRY_ INVALID OPCODE ONCE 


EXIT WHEN TRIED ONCE WITH INVALID CODE 


rig TO NEXT CODE 


F NOT DONE, TEST AGAIN 
TRY WITH LOW BITS SET 


RESTORE RUN COMMAND 


STORE INVALID COMMAND LENGTH 


SEQ 0404 


TRY AGAIN WITH 0 COMMAND LENGTH BUT INVALID COMMAN' 
DESTROY RESPONSE LENGTH 


RESTORE COMMAND LENGTH 





sd a tS dt 
Ssssesses35 
VV ooo N 
SOVIWWOVUIWIWOO 


eces 
ssss 
SSaN 


ss 


Sescccce Sercce 


“90 BNOUS WH COON OUEWN =—0O OON OuUEWwN— 
MMINNUIW 


WWIN ROROPIMIND ROMOTO 8A ARAM eS eS 


0 
0 
0 
0 
0 
0 
0 
0 


2 ot I 
MIVINI NUVI 


Su SSN Sk 


o 
= 
So 
w 
a 
oa 


010566 


070400 
010552 
003520 
131000 
010566 
152000 
000014 
010552 
131000 
003551 


010566 





003456 


003357 
003456 


003456 
003456 
003357 
003456 
003357 
003456 
003456 


003456 


003456 
003357 


5 &ke 


kkk 


s kt 


UDAT3 DISK yr’ ee Sie X04.01 18-AUG-82 15:45:56 PAGE 56 
SEND INVALID LEVEL 1 NDS 


~SBTTL SEND INVALID LEVEL 1 COMMANDS 


nO 


SNDL1A 
«00000, SNDLIA 
MOV ND, RUN 


CALL TSTC 
“020000, TSTCMD 
-_ Does WITH NO START 
#MS .E 


MOV 


CALL MD 
“020000, TSTCMD 


SEND START THEN END WITH BAD CHECKSUM 
Noy am RUN : SET UP START FRAME 
SEND FRAME 


SND 
“926000, SNOLV1 
nov #SERS4 , COMND 
ALL STCMD 
<0 0000, TSTCMD 
SEND CONTINUE WITH NO START 
MOV #MS.CNT,RUN 


a, #RUNLBC , RUN 
SNOLV1 
“926000, SNOLV1 
#MS .END,RUN 
MOV #SERS5, COMND 
CALL TSTCMD 


“020000, TSTCMD 


; *** SEND START THEN selecr GROUP 
CLR CR.RUN+1 


#MS.STR,RUN 


SN 


oa 
“26000, SNOLV1 
"#SERS2, COMND 


#SL.GRP, RUN 


#SERS3, COMND 


TSTC 


. RUN 


rete END, RUN 


; CHECK IF CAUGHT 


SET UP COMMAND 
; SEND LEVEL 1 START COMMAND 


MOVE SELECT GROUP CODE INTO COMMAND 


; SEND NEXT FRAME 


SET UP END FRAME 
CHECK IF CAUGHT ? 


SET UP END FRAME 


SET UP END FRAME (ZERO CHECKSUM) 
CHECK IF CAUGHT 


SET CONTINUE FRAME 
SEND IT 


; SET UP END FRAME 


CHECK IF CAUGHT 


SEQ 0405 





S8sss 


Ssss 
Renny 


NONRONURD oe 


MOM ROM Rofo POTD 2S owt tee 
Mon 


WW Ww 
WWW 


SS St St St St SS SS SS I I SY SS SS os SH SS SS 3 SS SS SS SS SS SS Vs Ss SS Sn Ss SS BS BS OS SS SS SS Ss SS Ss 


SOOOSSSSOSOOSOoOooooooooooooooooooooocooooooooooooooooooo 
+4 


PAGANI ES SS BS 


ONUIWA sy 


UDAT3 DISK FUNCTIONAL DMACR 
SEND INVALID LEVEL 1 COMMAN' 


BsBeses 


tO a ot ot ot 


RRS RRRRERERGR 


-o 
=~ 


COO=224—4 
NESSES 
=—Oo°oecoeeo 


SssScce sss: 


ie ee ee ee 


So 
= 


002420 
003356 
003450 


001563 
010277 
003641 
002621 
002174 
001422 
010277 


010153 


010133 


010133 
010277 


003647 5$: 
003652 


003654 
003654 


1$: 


2$: 


3$: 
4$: 


D 16 


BD esiets 18-AUG-82 15:45:56 PAGE 57 


FIND IF DRIVE WAS FORMATTED IN 512 BYTE MODE. 


MOV COPY,RO 
ADD , 

MOV RO, SERRTY 
CLR RETRY 

CLR CURBLK 

CLR CURBLK+1 
MOV #CURBLK RS 
MOV #FDIACYL, RG 
MOV SECTRK,RS 
CLR R1 


CALL FNDCYL 
“020000,FNDCYL 

MOV ° 

MOV #CR.INR,R3 
CALL 

“020000, TALK 

TST R2 


BNE 

“050000,8$ 

MOV #CYLLO,R1 
CALL K 
“020000, SEEK 

MOV SDILTO,R1 
CLR R5 


CALL RTDSL 
“020000.,.RTDSL 
TST R2 
BNE 8$ 
*050000,8$ 
TST R1 


BMI 5 

“070000,5$ 

ASSUME RWRDY,100000 
DEC R5 


BNE 4$ 
“050000,4$ 

DEC R4 

BNE 4$ 

*050000,4$ 

BR as 

“00,8$ 

MOV #RSTOP, CHAIN¢RW.CPT 
MOV CURBLK, CHAIN+RW. LOW 
MOV SUB+HiXBN,R1 

ROR R1 

ROR R1 

ROR R1 

ROR R1 

BIC #HBLONB,R1 

BIS #HD.XBN,R1 

ADD CURBLK+1,R1 

MOV R1, CHAIN¢RW.HI 

MOV TRACK, CHAIN+RW. CMD 
BIS #RREAL, CHAIN¢RW. CMD 


GET NUMBER OF XBN COPIES 


DOUBL 
; RETRY 2 TIMES THE NUMBER OF COPIES 
; TO SET UP COPIES AND SETUP CALC 
; PUT LO = XBN_IN CURB 


URBLK 
: PUT HI ORDER XBN IN CURBLK+1 


SET UP FOR RECALIBRATE 
RECALIBRATE DRIVE 


SEE IF ERROR OCCURRED 
IF SO, BRANCH 


INNER LOOP TIMEOUT 
GET REAL TIME DRIVE STATE 


SEE IF ERROR OCCURRED 
IF SO, BRANCH 


SEE IF READ/WRITE READY IS ASSERTED 
IF SO, BRANCH 


ERROR IF TIMED OUT 


MOVE LAST CHAIN FLAG TO CHAIN 
MOVE TO OUTPUT 

GET HI XBN BITS 
ROTATE TO CORRECT PO 


ROTATE TO CORRECT 
CLEAR UNUSED BITS 
MAKE A XBN 

SET IN HI XBN BITS 
SAVE 

MOVE TRACK TO CHAIN 
SET IN REAL TIME COMMAND 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
= en 


ea DISK FUNCT 
SEND INVALID LEV 


w 
oe 
So 
—_ 
oOo 
nm 
=] 
wn 


ed td od od IO 
NNOVUWS Ww 


111 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


kk kd ed ed oh hd oh oh od oh oo 
a oooo 
= 


115001 


004377 
Oo 382) 
003 2 
00364 


010277 


000400 


010257 
010330 
003472 
003471 
010277 
003513 
010102 
003615 


010108 


003647 


003472 


003614 


6$: 
7$: 


8$: 


9$: 


MOV UFD,RO 
MOV Roe CHAINSRW. BUF 
MOV DIR 
MOV AeHALN, RO 
XFC WAITSI 
TST R1 
BNE 8$ 
“050000,8$ 
C512 = 256. 
C576 = 288. 
MOV #SEC512,R2 
XFC XREAD 
CMP #4,R1 
BEQ 7$ 
*010000,7$ 
TST R1 
BNE 
“050000,8$ 
elt #ECCFLG, CHAIN+RW. CPT 
“010000,6$ 
MOV #CHAIN,RO 
XFC ECC 
TST 
BNE 
“050000, 7$ 
MOV ST+ECCRSH,RO 
BIC #HIBYTE ,RO 
CMP RO,R1 
BMI 
“070000, 7$ 
BR 9$ 
*00 e 
INC RETRY 
CMP COPY ,RETRY 
BEQ 
“010000,8$ 
ADD CR+FCTSIZ,CURBLK 
BCC 
INC CURBLK+1 
BR 2$ 
“00,2$ 
DEC SERRTY 
BNE 1$ 
“050000,1$ 
HARDER 38, #SER36 
11$ 
“00, 11$ 
#M0D512, RBUFD 








SEQ 0407 © 


R2 HAS UDA PORT MASK 

RO POINTS TO CHAIN 

WAIT FOR SECTOR OR INDEX 
SEE IF pee OCCURRED 

IF SO, BRANCH 


READ A iF rg SECTOR 
READ THE SECTOR 
SEE IF Xen. HEADER COMPARE FAILURE 


; IF SO, TRY NEXT COPY 


SEE IF AN ERROR OCCURRED 
IF SO, BRANCH 


SEE IF BUFFER HAS AN ECC ERROR 
IF NOT, BRANCH 


POINT TO CHAIN 
CORRECT THE BUFFER 
SEE IF ERROR 

IF SO, BRANCH 


INCREMENT CURRENT COPY NUMBER 
SEE IF ALL COPIES TRIED 
IF SO, BRANCH 


; ADD TO CURRENT BLOCK 
; CALCULATE AND TRY NEXT SECTOR 


: PROPOGATE CARRY 
BRANCH 


DECREMENT RETRY COUNT 
IF UNEXHAUSTED, BRANCH 


MOV #MS38 OUT .04 
MOV #SER36,0UT.05 


LUNIT, OUT. 
MOV #38! ERHARD+3000. .R2 
MOV R2 OUT .02 
#ERRMES ,OUT.RO 


SEE IF 512 BYTE MODE DRIVE 
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SEND INVALID LEVEL 1 COMMAND 


114 01033 
010333 610000 010411 2510000, 108 
115 010335 106200 074161 004377 cMP “#400576, RBUFD 
116 010340 BEQ 1 
010340 010000 010367 “010000,12$ 
117 010342 HARDER 36,#SER36 
010342 104200 002306 001524 
010345 104200 002446 001525 
010350 104300 002212 001523 
010353 104202 105734 
010355 104020 001522 
010357 104200 010357 001521 
010362 104200 060013 001520 
118 010365 BR 11$ 
010365 000000 010407 “00,11$ 
119 010367 12$: HARDER 37 
10367 104200 002331 001524 
010372 104300 002212 001523 
010375 104202 105735 
010377 104020 152 
104200 010401 001521 
010404 104 0013 001520 
120 010407 11$: CALL TESTED 
010407 020000 002400 “020000, TESTED 


121 010411 10$: 


; IF SO, BRANCH 
; SEE IF 576 BYTE MODE DRIVE 


; SET UP REPORT 


SEQ 0408 


WMS 36 
ASERSS, OuT.0 
T,OU "59° 
#36! ERWARDS 3000. 2 


-OUT. 


- ,OU e 
#ERRMES ,OUT.RQ 


#MS37 ,OUT.04 
LUNIT,OUT.03 

#37! ERHARD+3000. ,R2 
R2,0UT.02 


#ERRMES ,OUT.RO 


OR 
z2 

$ 
Qn 


Sooooooooo 
22 So 
NMRMRNIN 22 
WWW OCow 


RRRRRRRF RRRRRRKKK 


—— tes 
WWUIWG mr 


0437 


& 
ao 


SS ss ss ss Ss SS YH er 
RRRRRRLKK 
QUIN E REE 
Wew ah 


SOoOoOCoOoCoOCoOoOSooOoooooooeo 


10463 
010463 
66 


~ 


MRM HOM Nor 
On OM SWNH — 


ROR RY dt ot td etd ed 


WG 
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T COMMAND 


104203 
104200 
020000 
115002 
010000 
020000 
114005 
104302 
020000 
115002 
010000 
102201 
050000 


Nm 
So 
=> 


S23 


orn 


A a a a a —* 
So 


SPEEeEE & 


003377 
002621 


001563 
010425 
002372 
003356 
001432 


010505 
000400 


003357 


001524 
001523 


001521 
001520 


T9: 


1$: 


2$: 


: MOV 


G 16 


=~ F oe DISCONNECT COMMAND» 


MOV 
CALL 
“020000, TALK 
TST 


CAL « 
“036000, TESTEX 
-SBTTL CHECK AVAIL FLAG 
CLR R5 
SDI ,R2 
CALL RDSTAT 
“020000 ,RDSTAT 
TST R2 

Q 2$ 
“010000,2$ 
BIT #RCVERR,R1 
BNE 1$ 
“050000,1$ 
HARDER 11 


TESTEW 
260, TESTEW 


HARDER 12 


TESTEW 
260, TESTEW 


at #AVAIL,R1 
*050000,T12 
DE R 


BIC “yor ter, R1 
HARDER 29,R1 





SMe yo e COMMAND 
INITIATE SDI INTERCHANGE 
SEE IF ERROR NCCURRED 


IF SO, BRANCH 


=A UP ha COUNTER 
MOVE MAS R 
GET DRIVE STATUS 


WAS IT OK? 
IF NO ERROR, BRANCH 


SEE IF ANY ERRORS 
IF NOT, ERROR 


REPORT — STATUS ERROR 
tte y.08 

#11 | ERHARD+3000. .R2 

Re. 02 


. ,OUT.01 
MOV PERRMES. OUT.RO 


BRANCH TO DONE 
REPORT XMIT ERROR 
so td OUT .04 


T,OUT.03 
MOV #12! ERHARD* 3000. .R2 
MOV R2,0UT.02 


MOV #.,0UT.01 

MOV #ERRMES ,OUT.RQ 
BRANCH TO DONE 
SEE IF AVAILABLE IS ASSERTED 
IF SO, BRANCH TO LAST TEST 


DECREMENT TIMEOUT COUNT 
IF UNEXPIRED, BRANCH 


CLEAR UNUSED BITS 


REPORT ERROR 
MOV #MS29,0UT.04 
MOV R1,0UT.05 
MOV 


LUNIT OUT .03 
#29! ERHARD+ 3000. ,R2 
MOV R2,OUT.02 


#..OUT.01 
#ERRMES ,OUT.RO 


SEQ 0409 | 
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CHECK AVAIL FLAG 


29 010540 CALL _ TESTEV 
010540 020000 002364 “020000, TESTEV 
1 
$ 010542 112: 
010542 104300 003470 003456 MOV RUNCMD , RUN 
010545 104200 000001 003436 MOV #1,CR.RUN¢1 
5 010550 BR TESTX 
010550 000000 002336 “00, TESTX 


H 16 


~— + -- 5 


SEQ 0410 | 


3 RESTORE RUN COMMAND 
3 RESTORE COMMAND LENGTH 
: BRANCH TO TEST NEXT UNIT 


1 16 (ep 
UDATS DISK FUNCTIONAL DMACR X04.01 18-AUG~82 15:45:56 PAGE 59 SEQ 0411 | 
SNDLW1 AND TSTCMD | 


1 .SBTTL SNDLV1 AND TSTCHD 
é ; tee SEND LEVEL 1 START COMMAND 
SEND THE START FRAME AND RETURN 
4 010552 101200 000014 003456 §NDLV1: BIS #RUNLBC RUN : SET RUN COMMAND 
§ 010555 104203 003435 SNDL1A: MOV #CR.RUN.R + SEND COMMAND 
6 010557 104302 003356 MOV SDI,R2 : R2 => PORT 
7 010561 10423 MOV (R35+,RO : SET UP PARAMETERS 
8 010562 104131 MOV (R3) ,R1 
9 010563 060004 KFC SEND : SEND COMMAND 
10 010564 RETURN 
ss 010564 000000 000000 “00,0 
12 y tee TEST He COMMAND 
13 j INP os + yl LEV 10R2C D SET UP 
14 $ CR.R > i 19 INT TIATE weet 1 TRANMITTION 
15 : ATEVER FOR LEVEL 
16 ; OUTPUT WILL NOT RETURN IF ERROR OCCURED 
18 010566 104203 003435 TSTCMD: MOV #CR.RUN,R3 : SEND COMMAND 
19 010570 TSTCM2: CALL _ TALK 
010570 020000 001563 “020000, TALK 
20 010572 115002 “R2 : DID IT FAIL? 
21 010573 BeO TI1ER : IF NOT, BRANCH TO REPORT AND EXIT 
010573 010000 010606 “010000, T11ER 
22 010575 104203 003411 MOV #CR.GST,R3 : CHECK STATUS 
23 010577 CALL ‘TALK : GET STATUS 
010577 020000 001563 “020000, TALK 
24 010601 102200 000350 003476 gIT #<ST.PE+ST.RE+ST.FE+ST.WE>,ST+ST.ERR 
25 0106 TSTch ; BRANCH IF ERROR 
010604 050000 010717 2550000, CME 
26 : *** DID NOT FALL => ERROR 
27 010606 115000 003357 TITER: TST OMND : DID WE HAVE COMMAND SET 
28 010610 BNE Fike : IF SO, LEVEL 1 XMIT ERROR 
010610 050000 010672 “050000, 111X2 
29 010612 106300 003470 003456 oe RUNCMD ,RUN 3; ELSE, WHAT TYPE LEVEL 2 XMIT ERROR? 
30 010615 T11X1 : IF RUN NOT SET TO RUN COMMAND, BRANCH 
010615 050000 010645 2550000, Tix 
31 010617 HARDER °31,<R4,R5> 
010617 104200 002077 001524 MOV #MS31,0UT.04 
010622 104040 001525 MOV R4,OUT.05 
010624 104050 001526 MOV ;OUT. 
010626 104300 002212 001523 MOV LUNIT,OUT.03 
010631 104202 105727 MOV #31! ERHARD+3000. .R2 
010633 104020 001522 MOV R2,0UT.02 
010635 104200 010635 001521 MOV #..OUT.01 
010640 104200 060013 001520 MOV #ERRMES ,OUT.RO 
32 010643 BR TESTED 
010643 000000 002400 “00, TEST 
33 010645 T11X1: HARDER 30,RUN 
010645 104200 002053 001524 MOV #MS30,0UT.04 
010650 104300 003456 001525 MOV RUN, OUT .05 
010653 104300 002212 001523 MOV LUNIT,OUT.03 
010656 104202 105726 MOV #30! ERHARD+3000. .R2 
010660 104020 001522 MOV R2,0UT.02 
010662 104200 010662 001521 MOV #..OUT.01 
010665 104200 060013 001520 MOV #ERRMES ,OUT.ROQ 
34 010670 BR TESTED 





UDAT3 DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE 59-1 SEQ 0412 | 





SNDLV1 AND TSTCMD 
010670 000000 002400 “00 TESTED 
35 01067 T11X2: HARDER 32,COMND 
01067 104200 0021 001524 MOV #MS32,0UT.04 
010675 104300 003357 001525 MOV COMND OUT .05 
10700 104300 002212 001523 MOV LUNIT,OUT.03 
010703 104202 105730 MOV #32! ERHARD+3000. ,R2 
010705 104020 001522 MOV R2,0UT.02 
010707 104200 010707 001521 MOV #.,0UT.01 | 
010712 104200 060013 001520 MOV #ERRMES ,OUT.ROQ 
36 010715 BR TESTED 
010715 000000 002400 “00, TESTED 
37 010717 TSTCME: CALL  DR.CLR z CLEAR ERROR 
010717 020000 002407 “020000,DR.CLR | 
38 010721 RETURN 


010721 000000 000000 “00,0 
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UDAT3 DISK FUNCTIONAL DMACR K04.01 18-AUG-82 15:45:56 PAGE 60 SEQ 0413 
FORTRK = FORMAT TRACK 


1 .SBTTL FORTRK = FORMAT TRACK 
é 010723 FORTRK: 
i : FORMAT TRACK GIVEN BY CURTRK, STARTING WITH DBN GIVEN IN TSTBLK | 
3 : THE DATA WRITTEN IS UNPREDICTABLE | 
7 010723 104307 003604 MOV TSTBLK,RO : GET LO STARTING DBN 
8 010725 104301 003521 MOV SUB+HIOBN,R1 + GET HIGH ORDER BITS OF STARTING DBN 
9 010727 110601 ROX R1 t MOVE TO CORRECT POSITION 
10 010730 110601 “OR A 
11 010731 110601 ROR R1 | 
12 019732 110601 ROR R1 | 
13 010733 103201 170377 BIC #HBLONB,R1 : CLEAR UNUSED BITS 
14 010735 101201 BIS #HD.DBN,R1 : SET HEADER CODE 
15 010737 101301 003605 BIS TSTBLK+1,R1 : GET HI STARTING DBN 
16 010741 104203 003767 MOV #OBUFF RS : POINT TO OUTPUT BUFFER 
17 010743 104304 003603 MOV SECTRK.RG : R4 CONTAINS NUMBER OF SECTORS TO FORMAT 
18 010745 104205 004377 MOV #F CHAIN, RS : R5 POINTS TO FORMAT CHAIN 
19 010747 100253 FLOOP: MOV R3, (R5)+ + MOVE POINTER TO BUFFER TO CHAIN 
20 010750 100257 MOV RO, (R5)+ t MOVE LO DBN TO CH 
21 010751 100251 MOV R1.(R5)+ : HI DBN TO CHAIN | 
22 010752 115407 INC RO + INCREMENT LO DBN 
23 010753 BCC FCARY : IF NO CARRY, BRANCH 
010753 040000 010756 “040000, F CARY 
24 010755 115401 NC R1 : INCREMENT HI DBN 
25 010756 117404 FCARY: DEC RG t DECREMENT SECTOR COUNT 
26 010757 BNE FLOOP : BRANCH IF COUNT UNEXHAUSTED | 
010757 050000 010747 “050000,FLOOP 
27 010761 104207 100000 MOV #FSTOP,RO : GET FORMAT END-OF=CHAIN FLAG 
28 010763 100157 MOV RO, (RS) + MOVE INTO CHAIN 
29 010764 104302 002356 MOV i,R2 : MOVE MASK TO R2 : 
30 010766 CALL __RDSTAT : GET DRIVE STATUS 
010766 020000 001432 “020000, RDSTAT 
31 010770 115002 TST R2 : WAS IT Ok? 
32 010771 BEQ 2 : IF NO ERROR, BRANCH 
010771 010000 011043 “010000, 2$ 
33 010773 102201 000400 BIT #RCVERR,R1 : SEE IF ANY ERRORS 
34 010775 BNE 1$ t IF NOT, ERROR 
010775 050000 411021 “050000,1$ 
35 010777 HARDER ‘10 : REPORT INVALID STATUS ERROR 
010777 104200 000341 001524 MOV #™S10,0UT.04 
011002 104300 002212 001523 MOV LUNIT,OUT.03 
011005 104202 105702 MOV #10! ERHARD+3000. ,R2 
011007 104020 001522 MOV R2,0UT.02 
011011 104200 011011 001521 MOV #..OUT.01 
011014 104200 060013 001520 MOV #ERRMES ,OUT.ROQ 
36 011017 BR TESTEW ; BRANCH TO DONE 
011017 000000 002355 “00, TESTEW 
37 011021 1$: 
38 011021 HARDER 12 : REPORT XMIT ERROR 
011021 104200 000434 001524 MOV #MS12,0UT.04 
011024 104300 002212 001523 MOV LUNIT,OUT.03 
011027 104202 105704 MOV #12! ERHARD+3000. ,R2 
011031 104020 001522 MOV R2,0UT.02 
011033 104200 011033 001521 MOV #..OUT.01 
011036 104200 060013 001520 MOV #ERRMES ,OUT.RO 
39 011041 BR TESTEW : BRANCH TO DONE 








UDAT 
FORT 


3 DISK nat thoes DMACR X04.01 18-AUG-82 15:45:56 PAGE 60-1 
ORTRK = FORMAT TRACK 


Ss SER 
Ww NO 

FGAARERRERR 

= NUN NNW 


SEF 


ooo 
ee 
w= 


VII ES 
M=OOONOW & 


o 
RAL 
SOOOoooooooOoOoCoCOCoOCOoOoOCOOOCOOCOOOOOOOOoOOOoOOoO 


ae a a Pe ene ae Pane ee Pa ee ee Pe ee a ee ee er ee ee er ee ee er er ee Pe ee ee ee ee ee PP Pt 
a a ke ek ek ek ek ek ek ek eh ee ee me ee ek ee ee ee ed ed ed ed ed ed ed ed 
SRSSN 


oa 
~N 
ee ek ee ed ee ed ed ed ed ed od = 
Weng 23 === 
WOoOVINS 


MUI SS && 
AOowoovivo 


000000 
102201 
050000 


115001 
010000 


104200 
104200 
020000 


009000 


002355 


003276 
000024 


002372 


000000 


001524 


001523 
001521 
001520 


001543 
003626 


2s: 


FGO: 


FOREXT: 


L 16 


“00, TESTEW 

BIT #RWRDOY ,R1 

BNE FGO 
“050000,F GO 

HARDER 18 

BR TESTEY 

“00, TESTEV 

MOV #FCHAIN,R 

MOV SUB+DATPRE ,R4 
BIC #HIBYTE ,R 
MOV SUB+HDRPRE ,R3 
SWAB R3 

BIC #HIBYTE ,R3 
MOV CURTRK,R1 

MOV #BUFFSZ,R2 
XFC FORMAT 

TST R 

BEQ FOREXT 
“010000,FOREXT 


; TEST R/W READY 
3 IF ASSERTED, BRANCH 


sREAD/WRITE READY DROPPED BEFORE FORMAT 
V #MS18 04 


LUNIT ,OUT.03 

#18! ERHARD+3000. ,R2 
MOV R2,0UT.02 

#.,0UT.01 

Vv #ERRMES ,OUT.RQ 
3 BRANCH TO EXIT 
; POINT TO FORMAT CHAIN (FOR XFC) 

LENGTHS 


CLEAR UNUSED BITS 

GET HEADER PREAMBLE LENGTH 
SWAP BYTES 

CLEAR UNUSED BYTES 

TRACK NUMBER 

R2 = BUFFER SIZE FOR 52 


SEE IF ANY ERRORS OCCURRE 
IF NOT, BRANCH 


SEQ 0414 


FORMAT THE TRACK y Af ——— ARE A DON'T CARE 


HARDER 19,<INS+1,INS+#2,INS+3,CURTRK> ; TIMEOUT OF DRIVE OR READ/WRITE READY DROPPED 
MOV #MS19 04 


ENDERR 


CALL 





19 


TESTEX 


,OUT. 
MOV INS+1 ,OUT.05 
MOV INS+2,0UT.06 
MOV NS+3,0UT.07 
MOV CURTRK ,OUT.08 
MOV LUNIT,OUT.0O 
MOV #19! ERHARD+3000. ,R2 
MOV R2,0UT. 2 
MOV #.,OUT.01 
MOV #ERRMES ,OUT.RQ 
MOV #SER22,0UT.19 
MOV #19+1 ,ERRPOS 


: PRINT ERROR 


: StT THE POSITION 


' 
! 


' 


| 
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TRKTST = TEST TRACK 


o 
= 
—_ 
= 
o 
™m 


oO 
~m 


SRRGLLNARNSSF 


Nononononon fone aS eo 
Oo NOMSWN —OOWD NO NSFW OVCONGUFWwh— 


jelefeleleleojleleleleleleleloleleloelelelololololaloleolo~) 


N 
a ek a ed ed ek ed ed ed od dd ed 


Ok ed ad oh oh oh hh ho hh ot od ot ot 
MNMNNNNVNNNNNNNNNNNNIN 3 2 A oS oo 


POMIPINININD) @ 
NNUME NO NVMWWW SO 


117401 
030000 
000000 


003623 
000001 


011231 
011227 
003614 
003614 


011222 
003615 


003615 
003623 
011175 
000000 


TRKTST: 


TRKLOP: 


TRKBOT: 


TRKEXT: 


-SBTTL TRKTST = TEST TRACK 


TEST THE ENTIRE TRACK UNTIL AT LEAST ONE BLOCK IS SUCCESSFULLY 
WRITTEN AND READ WITH SEVERAL DATA PATTERNS 


MOV TSTBLK ,RO 
MOV RO, CURBLK 
MOV TSTBLK+1, RO 
MOV RO, CURBLK+1 
MOV SECTRK.R1 


MOV R1,SECCNT 
MO 1,R1 
CALL WIRCMP 
*020000,WTRCMP 
TST RO 
BEQ TRKEX 
“010000, TRKEXT 
MOV CURBLK ,RO 
INC RO 
RO, CURBLK 
L a 


“540000, 1 

CURBLK+1, RO 
TNC RO 
MOV aierke 
MOV SECCNT,R1 
oer R1 

TRKLOP 
“930000, TRKLOP 


RETU 
“00, "0 


MOVE LO STARTING DBN TO CURRENT DBN 
MOVE HI STARTING DBN TO CURRENT DBN 


; GET SECTORS/TRACK 
; ADJUST FOR END 


TO CURRENT P 


LOOP WHEN NEGATIVE 
; ae Tie cnt LEFT . SECTOR COUNT 


TTERN 


; WRITE THAN READ AND COMPARE THE SECTOR 


SEQ 0415 


; SEE IF WRITES, READS AND COMPARES WERE GOOD 
: IF SO, BRANCH 


GET LO CURRENT BLOCK NUMBER 
NUMBER 


INCREMENT DBN 
SAVE 
BRANCH IF NO CARRY 


GET HI _ NUMBER 
— 


ave 
T SECTOR COUNT 
DECREMENT COUNT 


BRANCH IF COUNT POSITIVE 


011231 


—— = tet 
NNMVIWG— 


— 
WN-—Oo ODF nN OU fF WH | OCOOONOUSWwR— 


pejelelelelejleleleloleloleleleolelololeloleloloelolol—) 
2 OS SS 
kkk ek kk ek kk ed dd dd od 


Mmrnrnry —-— 
MrMnPnonnonnronnrs 


Nm 
* 
MUNIN OB & SWS NINOS SPN 


AAKDRACOUMIUIW 


104010 
105201 


020000 
020000 
115007 
050000 
020000 
115007 
050000 


020000 
115007 


930090 
01 


030000 
000000 


003622 
003656 


071267 
011314 


011265 
011602 


011265 
012041 
003622 
003656 
011231 
000000 





WTRCMP: 


WTREXT: 


SN 


eats DISK FUNCTIONAL DMACR X04.01 wear 15:45:56 PAGE 62 
WRTCMP = WRITE A DATA PATTERN AND COMPAR 


-SBTTL WRICMP = WRITE A DATA PATTERN AND COMPARE 


WRITE A DATA PATTERN TO A SECTOR, READ 
COMPARE ON THE DATA. DO THIS 
CURRENT PATTERN NUMBER IN ‘CURPAT 


MOV R1,CURPAT 
oat #PATPTR,R1 
NPAT 


“026000, mete! 
CALL WRITEB 
we O 


BNE TREXT 
“oo UTREXT 
READB 
“026000, tO 


BNE TREXT 
=050000,WTREXT 
CALL AT 
mS eee m0 

WTREXT 


BNE 
“050000, fuaber 
MOV RPAT,R1 
INC 


ag PATPTR,R1 
WIRCMP 
“930000, WTRCMP 


° 


; R1 IS CURRENT te pare NUMBER 

; R1 NOW POINTS TO PATTERN TO GENERATE 

; GENERATE THE PATTERN IN THE OUTPUT BUFFER 
; WRITE THE PATTERN 


; is IF ol ERROR OCCURRED 


so, 


; READ THE BLOCK BACK 


; SEE IF ANY — OCCURRED 
; IF SO, BRAN 


; COMPARE THE DATA 


; SEE IF ANY ow OCCURRED 
: IF SO, BRANC 


GET orto PATTERN 
NEXT PATTERN 


COMARE ANGAINST ea PATTERN NUMBER 


IF LESS OR EQUAL 


IT BACK, THEN DO A DATA 
AS Be TIMES AS THERE IS PATTERNS. 


moe 


NNN NNO 


MQ aw es es 
VV ONO OW 


Nm 
Sssss2zssc 


nN 
Ww nN | ODO GBNOUSWN—0O OCONOufwr— xo 


SOOCVOOCSCOCOGCOSCOOOCOCoOOoOOe 
22233 3S SS SS a 
kk a kk a a dd dd ed 
WWWNAWWWANAWWWIWnononono nononunys 


MM NNN 


Nm 
od ed ed 


010000 
117405 


050000 
000000 
104262 
000000 





000400 
003767 


011311 


011277 
011275 


000000 
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PATTERN 


-SBTTL GENERATE A PATTERN 


GENERATE THE DATA PATTERN IN THE OUTPUT BUFFER 


R1 POINTS TO POINTER TO PATTERN BUFFER WHICH IS PATTERN LENGTH 
(1 WORD) FOLLOWED BY THAT MANY WORDS OF PATTERN 


PUSH R2 SAVE R2 
=(SP) 


MOV _R2, 
RO POINTS TO START OF PATTERN BUFFER 
R3 otek PATTERN COUNT 

R4 POINTS TO OUTPUT BUFFER 

R1 POINTS TO START OF patrene BUFFER 
RS_CONTAINS ete OF PATTERN 


MOV #OBUTF, aR4 
MOV trio, R5 


MOV (R1)+.R2 GET WORD OF P 
MOV R2, (R4)+ MOVE TO BUFFER 
DEC R3 DECREMENT BUFFER COUNT 
BEQ GENEXT IF BUFFER FULL, EXIT 
“010000, GENEXT : 
DEC R5 : DECREMENT PATTERN COUNT 
BNE GENIN : IF NON-ZERO, BRANCH 
“050000,GENIN 
R GENOUT : START PATTERN OVER AGAIN 
“00,GENOUT 

: POP R2 : RESTORE R2 


MOV (SP)+,R2 
RETURN 
“00,0 


ah 


| 
| 
| 
j 
| 
} 
| 
| 
| 
| 
} 
| 
; 
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WRITEB = WRITE A SECTOR 


o 
— 
— 
Ww 
— 
S 


WNOASNOAS 


WWW AWWA 
Re 


oooo}-—)— 

&— Woo 
WOSONNAAAOwW 
on —-OOOCCCooooO 
NON Se Seo aay 


RAAAAAR EARS 
WW @VNUIW =| NUIWNO 


WW WW WWWWARIDRNNNINNNNIND 222 oo 

NO USF WHO VONOULWN—“OVOWNONSOOUfSWwrRr— 
WWW 
EES, 


WwW 
Co 
VSUNNSSe 


QR 


SEES OWW 
ASM WES &SNrwon 


ene Ww 
-o oO 
_ 


Wonony— 3 


is 
— 
SOOCOOSOSOSOSSSOSOSSSSOSOSCOOSOOSCOOCOOOOOOOSOOOSOOSOOSOOCOOCOOOOSoOO 
SRREG 


RAR 
Maw 
Cen eee ee ee ee ee ee ee ee ee eee ee eee) 


BARARARRARARRRRRRRERR 


RR 


a a ee ek me ee ee ee ee ee ee me ee ee ee ce me me ed me ce ce ed ee ed ed ed ed ed ad ed ed ed ed ed ed od od 
oo 


102201 
050000 


140000 


003521 


170377 
140000 


003653 


003651 
003356 


001432 
011436 
000400 
011414 
000341 


002355 
100000 
011472 


001524 
001523 


001521 
001520 


WRITEB: 


1$: 


2s: 


-SBTTL WRITEB = WRITE A SECTOR 


WILL WRITE ONE SECTOR OF DATA TO THE DISK 


#WSTOP RO 
RO,RW.CPT+CHAI 


N 
Pee mamta MOVE END-OF=CHAIN TO CHAIN 


URBLK, 
RO, RW.LOW+CHAIN 
CURBLK+1,R 
SUB+HIDBN,R1 

R1 
R1 
R1 

R1 

#HBLONB ,R1 

+ ae aa 
RO,RW.HI+CHAIN 
CURTRK RO 
#WREAL ,RO 
RO,RW.CMD+CHAIN 
#OBUFF ,R 

RO, RW. BUF +CHAIN 
DI,R2 


2 


CALL RDSTAT 
“020000 ,RDSTAT 
TST Re 


BEQ 
*010000,2 


BIT 
BNE 


HARDER 


BR 
“00, TESTEW 


HARDER 


BR 
“00, TESTEW 


BIT 


N 
*050000,1$ 


“#RCVERR,RI 
1$ 


10 


TESTEW 


12 


TESTEW 


#RWROY ,R1 


BNE wGO 
“050000,WGO 


MOVE LO DBN TO CHAIN 


MOVE HI DBN TO CHAIN 
GET HIGH ORDER BITS OF STARTING DBN 
MOVE TO CORRECT POSITION 


CLEAR UNUSED BITS 
SET HEADER CODE 
SET IN RO 


MOVE TRACK + RTC TO CHAIN 
SET REAL TIME COMMAND WRITTE 


; MOVE OUTPUT BUFFER TO CHAIN 


MOVE MASK TO R2 


; GET DRIVE STATUS 


WAS IT OK? 

IF NO ERROR, BRANCH 
SEE IF ANY ERRORS 
IF NOT, ERROR 


REPORT INVALID STATUS ERROR 
MOV #Msi 04 


MOV LUNIT ,OUT.03 

MOV #10!ERHARD+3000. ,R2 

MOV R2,0UT.02 

MOV #.,OUT.01 

MOV #ERRMES ,OUT.RQ 
BRANCH TO DONE 


REPORT ly ERROR 


MO #MS12,0UT.04 
MOV LUNIT.OUT.03 
MOV #12 ERHARD+3000. .R2 


MOV R2,0UT.02 
_ OU = 1 
V #ERRMES ,OUT.RO 
BRANCH TO DONE 


SEE IF READ/WRITE READY IS ASSERTED 
IF SO, BRANCH 


SEQ 0418 | 


46 011442 
47 011444 
011444 
48 011446 
011446 
011451 
011454 
011456 
011460 
011463 
49 011466 
50 011470 
011470 
51 011472 
52 011474 
53 011475 
54 011477 
55 011501 
59 011503 
63 011505 
64 011506 
65 011507 
66 011511 
011511 
67 011513 
68 011514 
011514 
69 B 11236 
70 01152 
011520 
71 011522 
011522 
011525 
011527 
011532 
011535 
011540 
011543 
011546 
011551 
011554 
011556 
011560 
011563 
72 011566 
011566 
011571 
73 011574 
011574 
Ps 
75 
76 011576 
77 011600 
011600 


050000 
115001 


010000 
104307 


003623 
011600 
001117 


000001 


011600 
003356 


003647 


000400 


003627 
011600 
005623 
011600 
001151 
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WRITEB = WRITE A SECTOR 


104307 
050000 
hg 94 


MOV SECCNT RO 
BNE WRTEXT 
“050000 ,WRTEXT 
HARDER 22 


MOV #1,R0 


BR WRTEXT 
“00 ,WRTEXT 
MOV Sol, 
XFC WAITSI 


MOV #CHAIN,RO 
MOV SUB+DATPRE ,R4 
BIC #HIBYTE ,R4 
MOV #BUFFSZ,R2 
XWRITE 
RO 
TST WFLAG 
BNE WRTEXT 
“050000 ,WRTEXT 
TST R1 
BEQ WRTEXT 
“010000 ,WRTEXT 
MOV SECCNT,RO 
BNE WRTEX 
“050000 ,.WRTEXT 


ENDERR 12 


TESTEX 


CALL 
“020000, TESTEX 
MO 


Vv OUT.RQ, 
CALL HOSTRQ 
MOV #1,R0 
RETUR 
“00,0 


3 GET SECTOR COUNT 
: IF NONZERO, DO NOT REPORT ERROR 


sREAD/WRITE DROPPED READY BEFORE WRITE 
MOV am 


; MAKE RO NONZERO TO REPORT ERROR 


MOV 
FLAG ERROR 
BRANCH 


SET PORT INDICATOR 

WAIT FOR SECTOR OR INDEX PULSE 
POINT TO WRITE CHA 

MOVE DATA PREAMBLE LENGTH TO R4 


FLAG AS_NO 
DID WE TES 
IF SO, EX! 


SEE IF AN ERR 
IF NOT, BRANC 


ERRORS 
Li WHEN WRITE PROTECTED? 


SEE IF ERROR 


: IF NOT, BRA 
HARDER 23,<R1,CURBLK,CURBLK*+1, INS+1, INS+2, INS+3, CURTRK> 
MOV #MS23, 


Br Sak ee ea 


NC 


e ou . 
#ERRMES ,OUT.RO 


#SER22,0UT.12 
#12+1 ,ERRPOS 


LUNIT,OUT.03 
#22 LERWARD+3000. .R2 


#.,OUT.01 
#ERRMES ,OUT.RO 


™ OCCURRED 


sNOALS BE REPORTED 


L ,OUT.0 
#23! ERHARD+3000. ,R2 
R2 02 


SEQ 0419 — 


ERROR DURING WRITE 
04 


; SET THE POSITION 
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READB = READ ONE SECTOR 


So 
= 
~ 
oa 
oOo 
~m 


SRW 


VF WN —OODVNOULSOOUSWwH— 
ALENOALMVMO 


4 MN POM NUN eee 
oa o oa 
PPP PORCCRLERS ERA AS ALES 


nm 
N 


rn 

000 
AAAAAAO 
QU 


NIN NN NMI NN YIWIO MIVII  d 


‘po 


vNw 
~ 


AWW 
& VE WS s 
Wagdvosab segues ee 
—=AWe Vane QYNNW OO 


IN 
N 
Rt tS FI SS HIS SS SP SS SS SS = SS SS SS SS SS Ss I SS a SS SS SS SS SS SS SS Ss SS ss SY 


ee nk a wk a dak ed a i nd ed ad ed ad a a td SO ot a = ot es Sh oe ss = I 2 a os SS os 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


SN NNN SSS SSIS SI SOOO 


WWRONY! 


003356 
001432 
011701 
000400 
011657 


060013 
002355 


002355 
100000 


011741 
003623 


012037 


1$: 


2$: 


-SBTTL READB = READ ONE SECTOR 


READ ONE SECTOR FROM DISK 


MOV #RSTOP,RO 


MOV RO,RW.CPT+CHAIN 
MOV RO,RW.STAT+CHAIN 


MOV CURTRK ,RO 


CALL RDSTAT 
“020000 .RDSTAT 
TST R2 

BEQ 2$ 
*010000,2$ 


BIT  ‘#RCVERR,R1 
BNE 1$ 


*050000,1$ 
HARDER 10 


BR TESTEW 
“00, TESTEW 


HARDER 12 


BR TESTEW 
“00, TESTEW 


BIT #RUROY ,R1 
NE R 


BNE R T 
“050000 ,REDEXT 
HARDER 24 


ENDERR 5 





#RREAL ,RO 

MOV RO, RW. CMD+CHAIN 
#RBUFD RO 

MOV RO, RW.BUF +CHAIN 
SDI,R2 


MOVE END-OF-CHAIN TO CHAIN 


MOVE TRACK NUMBER AND RTC 
SET REAL TIME READ COMMMA 


TO CHAIN 
ND 


MOVE POINTER TO INPUT BUFFER INTO CHAIN 


MOVE MASK TO R2 
GET DRIVE STATUS 


WAS I 
IF 


SEE IF ANY ERRORS 
IF NOT, ERROR 


MOV 


T OK? 
NO ERROR, BRANCH 


; REPORT INVALID STATUS ERROR 
MOV #™s10 


MOV R2,0UT.02 


MOV 
MO 
BRANCH TO DONE 


<= 


REPORT XMIT ERROR 
MOV 


#.,OUT.01 
#ERRMES ,OUT.RO 


#MS12,0UT.04 


MOV 


MOV R2,0UT.02 


MOV 
MOV 
BRANCH TO DONE 


#. OUT. 1 
WERRMES ,OUT.RO 


LUNIT ,OUT.03 
MOV #10! ERHARD+3000. ,R2 


LUNIT ,OUT.03 
MOV #12! ERHARD+5000. ,R2 


SEE IF READ/WRITE READY IS ASSERTED 


IF SO, BRANCH 
GET SECTOR COUNT 


IF NONZERO, DO NOT REPORT ERROR 


sREAD/WRITE DROPPED READY arene READ’ 
MOV #MS24,0UT. 


MOV #SER22,0UT.05 


MOV LUNIT.OUT.O 
MOV #36! ERNARG®S000, .82 


&. OUT.01 
MOV #ERRMES ,OUT.RO 


SEQ 0420 





Yq 
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READB = READ ONE SECTOR 


104200 
000000 


Ores 
38 011737 
011737 
39 011741 
40 011743 
41 011744 
45 011746 
49 011750 
50 011751 
51 011752 
52 011753 
011753 
53 011755 
54 011757 
011757 
55 011761 
011761 
011764 
011766 
011771 
011774 
011777 
012002 
012005 
012010 
012013 
012015 
012017 
012022 
56 012025 
012025 
012030 
57 012033 
012033 
38 
60 012035 
61 012037 
012037 


104207 
000000 


000006 


012033 
003356 


003647 
000400 


012037 
003623 


012037 
001337 
0 


060013 


003276 
000015 


002372 


000001 
000000 


003626 


001524 


001 
003626 


RGO: 


REDERR: 


REDEXT: 


BR REDERR 
“00,REDERR 

MOV SD1,R2 

XFC WAITSI 

MOV #CHAIN,RO 
MOV #BUFFSZ,R2 
XFC XREAD 

CLR RO 

IST R1 


MOV 


BNE 
050000, RE 


BEQ REDEXT 
“010000, “SECCMT, 


T,RO 
ext 


#5+1,ERRPOS 


MOV 
GO PRINT THE ERROR’ 


; SET PORT INDICATOR 
WAIT FOR SECTOR OR INDEX PULSE 


POINT 7 READ CHAI 
R2 = BUFFER size FOR 52 


READ THE ub Ene 


LAG AS_NO ERR ORS 
SEE IF ERROR OCCURRED 
IF BRANCH 


NOT, 


SEQ 0421 


: SET THE POSITION 


SEE IF ERROR SHOULD BE REPORTED 
IF BRANCH 


NOT, 


HARDER 35. a »CURBLK , CURBLK+1, INS+#1, wes INS+3, ae — DURING READ 


ENDERR 12 


CALL 


TESTEX 


“020000, TESTEX 


MOV 
CALL 

MOV 
RETU 
“00.0 


OUT. 
HOSTRO 
# 


RQ,RO 


: FLAG ERROR 


LUNIT,OUT. 
Sane 


#..OUT.01 
#ERRMES ,OUT.RO 
#SER22,0UT.12 
#12+1, ERRPOS 


: SET THE POSITION 
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CMPDAT = COMPARE DATA 


1 -SBTTL CMPDAT = COMPARE DATA 
¢ 012041 CMPDAT: 
4 ; COMPARE THE DATA IN ‘OBUFF* (OUTPUT BUFFER) WITH ‘RBUFD’ 
2 ; (INPUT BUFFER) 
7 012041 104207 003767 MOV #OBUFF ,RO ; RO POINTS AT OUTPUT BUFFER 
8 012643 104201 004377 MOV #RBUFD ,R1 : R1 POINTS AT INPUT BUFFER 
9 012045 114003 CLR R3 : COUNTER 
10 012046 104274 CMPLOP: MOV (RO)+,R4 : GET OUTPUT BUFFER WORD 
11 012047 106214 CMP (R1)+,R4 : COMPARE AGAINST INPUT BUFFER 
12 012050 NOERR : IF NO ERROR, BRANCH 
012050 010000 012130 “010000,NOERR 
13 012052 104305 003623 _ SECCNT RS + SEE IF ERROR IS TO BE REPORTED 
14 012054 BNE att y : IF NOT, BRANCH 
012054 050000 012136 “050000, CMPE 
15 012056 HARDER ‘26, cRS, ~(RO) ,-(R1), INS+1, INS#2, INS+3,CURTRK> ;DATA COMPARE FAILURE 
012056 104200 001473 001524 MOV #S26, OUT .04 
012061 104030 001525 MOV R3,0UT. 
012063 104470 001526 MOV ~(RO) ,OUT.06 
012065 104410 001527 MOV =(R1) ,OUT.0 
012067 104300 003461 001530 MOV INS+1 ,OUT.08 
012072 104300 003462 001531 MOV INS+2,0UT.09 
012075 300 003463 001532 MOV INS+3,0UT. 
012100 104300 003621 001533 MOV CURTRK ,OUT.11 
012103 300 002212 001523 MOV LUNIT ,OUT.03 
012106 104202 722 MOV #26! ERHARD+3000. ,R2 
O15119 104020 00152 MOV R2,0UT.02 
012112 200 012112 001521 MOV #.,OUT.01 
012115 104200 060013 001520 MOV #ERRMES ,OUT.RQ 
16 012120 104307 001520 on OUT.RQ,RO 
17 012122 HOSTRQ 
012122 020000 001463 *030000, HOSTRQ 
18 012124 104207 000001 “4g #1, : SET FOR ERROR 
19 012126 CMPEXT : EXIT 
012126 000000 012136 “00, CMPEXT 
20 012130 115403 NOERR: R 3 INCREMENT COUNT 
21 012131 106203 000400 is ite) ie : SEE IF COMPARE COMPLETE 
22 012133 BNE MPLOP ; IF NOT, BRANCH 
012133 050000 012046 =050000, CMPLOP 
23 012135 114007 LR RO 3 FLAG AS NO ERRORS 
24 012136 CMPEXT: RETURN 
95 012136 000000 000000 “00.0 
43 012140 MESSAGES 
012140 021507 -WREDC | ;OUTPUT Foc FOR THIS OVERLAY 
000000 042 124 111 (MS1: ~ASCII\'TIME-OUT ON SEND'N 
000011 122 061 122 eASCII\RIR1\ 
000013 000 -BYTE 0. 
000014 042 124 111 MS2: eASCII\''TIME-OUT ON RECEIVE''N\ 
000027 122 061 122 eASCII\RIRIN 
000031 000 -BYTE 0. 
000032 042 106 111 MS3: eASCII\'FIRST WORD RECEIVED WAS NOT A START FRAME’'N\ 
000060 122 061 122 eASCII\RIRIN 
000062 000 -BYTE 0. 
000063 042 106 138 MS4: eASCII\'FRAMING ERROR ON LEVEL 0 RESPONSE''N\ 
000105 122 061 12 eASCIINRIRIN\ 


SEQ 0422 | 





MN MOM WO 


S55 = Rs MS Na 


coo ]-] ——4 ——3 98 
oo 


CMe Nn oS NU 
MNO NOWNON 


0 
1 
1 
1 
1 
2 
2 
3 
3 
3 
3 
4 
4 


SSLES 
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MSS: 


MS6: 


MS7: 


MS8: 


MS9: 


MS10: 
MS11: 


MS12: 
MS13: 
MS14: 


MS15: 


MS16: 
MS17: 
MS18: 
MS19: 


MS20: 
MS21: 
MS22: 
MS23: 


MS24: 
MS25: 
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.BYTE 0 

-ASCII\ CHECKSUM ERROR ON LEVEL 0 RESPONSE’'N\ 

-ASCII\RIRI\ 

[ASCII\RESPONSE LONGER THAN EXPECTED'N\ 

-ASCII\ 1R1\ 

“ASCIIN“CODE FROM RECEIVE WAS UNINTELLIGIBLE FROM SUBSYSTEM = "'HI6N\ 
-ASCII\RIRI\ 

"ASCII" COMMAND DID NOT RETURN EXPECTED RESPONSE CODE''N\ 
[ASCII\'' EXPECTED RESPONSE ‘‘H8N\ 

-ASLI!S"* ACTUAL RESPONSE  ‘"‘H8N\ 

re Nl 

-ASCII\’ ‘DRIVE NOT ASSERTING RECEIVER READY IN DRIVE STATE'N\ 


Y 
“AStAs) VALLES TO RECEIVE VALID DRIVE STATE’WR1\ 


"ASCII\'CANNOT RECEIVE DRIVE STATE FROM DRIVE''N\ 
ASCII\’CHECK IF DRIVE IS POWERED ON.*'NR1\ 


-BYTE 

-ASCII\" ‘DRIVE STATE RECEIVED HAS BAD PARITY''NR1\ 
-ASCII\'NO VAI ID STATE FROM DRIVE''NR1\ 

BYTE 0 


“ASCII \''SUBUNIT CHARACTERISTICS SAY THERE ARE ZERO READ ONLY GROUPS'N\ 
eASCII \""IN THE DIAGNOSTIC AREA'N\ 


E 0 
ASCII \'"SUBUNIT CHARACTERISTICS SAY THERE ARE LESS THAN 1 READ/WRITE'W\ 
eASCII \"'GROUPS IN THE DIAGNOSTIC AREA'N\ 


BYTE 

oASE} TS MELTNER R/W READY NOR ATTENTION SET AFTER RECALIBRATE COMMAND’ 'NR1\ 
“ASCII \"'SUBUNIT CHARACTERISTICS SAY LESS THAN 1 DIAGNOSTIC CYLINDER'W\ 
“ASCII\' ‘READ/WRITE READY DROPPED BEFORE FORMAT OPERATION''N\ 


"ASCII FORMAT OPERATION REPORTED TIME-OUT FAILURE'N\ 
ASCII\"" CYLINDER ‘D28"", GROUP ‘'D8’'. TRACK ‘D8'*."N\ 


-BYTE 0 

“ASCII\"AFTER RECAL, ERROR BITS WERE SET’NRI\ 

-ASCII\N' LOGGABLE INFORMATION AFTER RECAL''NRI\ 
-ASCII\"READ/WRITE READY DROPPED BEFORE WRITE OPERATION’ W\ 
“ASCII\" COULD NOT WRITE AND READ ANY BLOCK ON THIS TRACK. ON ay BLOCK :"'N\ 
eASCII\' WRITE OPERATION REPORTED Lea =~ ERROR CODE ‘'08"" OCTAL."'W\ 

‘evie Oe N ‘'D24"". CYLINDER ‘D28’". GROUP ‘D8’. TRACK DB" “N\ 
metily READ/WRITE READY DROPPED BEFORE READ OPERATION’ W\ 
eASCII\’‘COULD NOT WRITE AND yl ANY BLOCK om THIS TRACK. < bast, BLOCK :*'W\ 


ASCII\"'READ OPERATION REPORTED FAILURE == ERROR CODE "08" 0 NA 
"ASCLIN"DBN "D024". CYLINDER “D28"'. GROUP “D8"*, TRACK De aN 
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002676 
002705 


-—- O- —— s~o8owoe 
o— mr cooooo°o 
—O WW Weufw 


— O- ==) «3-3-3568 
*+- oo WoOWo— 
ON UMW =—WoO-wv 


116 


MS26: 


MS27: 


MS28: 


MS29: 


MS30: 
MS31: 
MS32: 
MS33: 
MS34: 
MS35: 
MS36: 
MS37: 


MS38: 


SEP 36: 


SER39: 
SEROO: 


MS.ONL: 
MS.CLR: 
MS.DIS: 
MS.GCR: 
MS.SCR: 
MS.GST: 
MS.MOD: 
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-BYTE 0 

eASCIIN''COULD NOT WRITE AND READ ANY BLOCK ON THIS TRACK. ON LAST BLOCK:'W\ 
eASCIIN' DATA aa FAILURE ON WORD *'D16"*."'N\ 

eASCIIN'EXPECTED DATA ‘‘HI6N\ 

ASCLINTACTUAL DATA “HI6N\ 

Byte LINDER ‘D28"". GROUP ‘D8"’. TRACK ‘'D8’’."'N\ 

“ASCII\''SEEK COMPLETE TIME-OUT == READ/WRITE READY DID NOT SET.'N\ 
ity Y ‘SEEK WAS TO CYLINDER ‘D28"*. GROUP *'D8"’."'N\ 

: ASCII\"'NO BLOCK ON THIS TRACK CAN BE soe LAST BLOCK TRIED:"N\ 
“ASCLI\AT BN ‘BN *'D24"", CYLINDER ‘D28"*. GROUP ‘D8"’. TRACK ‘D8''."'N\ 
“ASCII \"AVAILABLE WAS NOT ASSERTED AFTER DISCONNECT’ W\ 

rn y \' STATE RECEIVED ‘'HI6N\ 

“ASCTIN"INVALID COMMAND ‘'H16"' WAS SUCCESSFUL''W\ 


“ASCIIN"COMMAND WITH "'R1"* LENGTH = "'D8"’ WAS SUCCESSFUL'N\ 

“ASCIIN' UNIT DID NOT REPORT TRANSMITTION ERROR’ 'NR1\ 

“ASCII\' UNIT ACCEPTED AN INVALID GROUP NUMBER FROM GROUP SELECT LEVEL 1°N\ 
“ASCII\" UNABLE TO CORRECTLY READ OVERLAY "‘O3NR1\ 

“ASCII\" SUCCESSFULLY WROTE IN DBN AREA WHEN DRIVE WAS WRITE PROTECTED’ N\ 
ASCII \"DRIVE IS NOT PROPERLY FORMATTED."'NR1\ 

ALL \REYEySLIGMAMER? HLS’SARVESAEEBE"T ae ronmarten 

ASCII \"IN 512 BYTE MODE. “N\ 


ASCII ;* COPY OF THE FCT COULD BE READ.’'NRI\ 


-BY 
ASCII \I'UDA WILL SPIN DOWN THIS DRIVE IF USED IN NORMAL SYSTEM OPERATION."N\ 


“ASCII \""THIS DRIVE NEEDS TO BE FORMATTED.'\ 
“ASCIIN'THIS UDA AND ALL DRIVES ATTACHED WILL BE REMOVED FROM TESTING'N\ 
~ASCIIN““COMMAND WAS "RIN 

“ASCII\" ONLINE’ W\ 

“ASCIIN' DRIVE CLEAR''N\ 

~ASCII\' DISCONNECT'N\ 

-ASCI I\"GET COMMON CHARACTERISTICS’ N\ 
“ASCLIN“GET SUBUNIT CHARACTERISTICS'N\ 
“ASCIIN“GET STATUS''N\ 

~ASCII\''CHANGE MODE"'N\ 

-BYTE 0 





SEQ 0424 
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003603 


123 


105 


MS.SEK: 
MS.INR: 
MS .RUN: 
MS2000: 


SER10: 
SER11: 
SER12: 
SER13: 
SER14: 
SER15: 
SER16: 
SER17: 
SER18: 


SER18D: 


SER18A: 


SER22: 


SER23: 
SER4O: 
SER41: 
SER5O: 
SER5S1: 
SERS2: 
SER53: 
SERS4: 
SER5SS: 
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-ASCLIN"'SEEK™N\ 
SASCIIN INITIATE RECALIBRATE' 'N\ 


-BY 
Ove ON UP"'N\ 


\' yas 1 bor REQUESTED DRIVE FOR TESTING'N\ 
te ook ING IS VISIBLE ON THE PORTS''N\ 


\"UDA PORT 3 == 
\"'NO DRIVE ATTACHED’ 'N\ 

\""RCVR RDY NEVER ASSERTED‘ 'N\ 

\""TIMEOUT OF SEND''N\ 

\""TIMEOUT OF RECEIVE’'N\ 

\""FIRST WORD RECEIVED WAS NOT START FRAME''N\ 
\""FRAMING ERROR ON LEVEL 0 RECEIVE''N\ 

\""CHECKSUM ERROR ON LEVEL 0 RECEIVE''N\ 

\""RESPONSE LONGER THAN EXPECTED FOR GET STATUS CMD''N\ 
\"DRIVE "'R1\ 


YT 0 
~ASCII\'REAL TIME STATE “yt6N 
ose A IN’ STATUS (R TOL): HN1682H16S2H16S2H16S2H16S2H16S2H16N\ 


“ASCIIV"REAL TIME STATE "'H16N\ 


“ASCII 
“BYTE 
“ASCII 


\"'DRIVE NOT AVAILABLE TO THIS UDA''N\ 
\"DRIVE NOT SPINABLE’'N\ 


“ASCII\"CORMAND'N 
on ee 
“ASCIIN"WHEN A CONTINUE OR END FRAME DID NOT FOLLOW A START FRAME'N\ 
“ASCII WHEN AN END FRAME WAS SENT WITH NO START FRAME'N\ 
“ASCII\'WHEN AN END FRAME WITH A BAD CHECKSUM WAS SENT'N\ 


-BY 
mee LIV en A CONTINUE FRAME WAS SENT WITH NO START FRAME’'N\ 


SEQ 0425 | 





1 
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003604 042 
003633 000 
003634 042 

1 000 


00367 
47 003672 

003672 112505 
48 000001 


127 
127 


110 SERS6: 
110 SERS?: 


ony pen TWO CONSECUTIVE START FRAMES WERE SENT’'N\ 
-ASCIIN'WHEN AN END FRAME WAS SENT AFTER A START FRAME TIMED OUT''N\ 


DMEND 
— OUTPUT EDC FOR THIS OVERLAY 
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SYMBOL T 
AREA _ 003624 


3471 

cr 003503 
CR.CLR 003372 
° 003377 

. 003365 


DRVONL= 000213 


DRVRUN= 000014 
DR.CLR 2407 


GRPCYL= 000002 


GRPOFF= 000011 
GST 003455 


MS.CNT= 152000 


MS.DIS 002 
MS.END= Aa} 


$14 000501 
MS15 000555 
MS16 000635 
MS17 00067 
MS18 0007 
MS19 00077% 

S2 000014 
MS20 001050 
MS2000 002734 

$21 001073 
MS22 001117 
MS23 001151 
MS24 001306 
MS25 001337 
MS26 001473 
MS27 001633 
MS28 001716 
MS29 002007 
MS3 000032 
MS30 002053 
MS31 002077 

$32 002130 


MS38 002422 
MS4 000063 
MS5 000110 
MS6 000135 
MS? 000160 
MS8 000221 
MS9 000306 
MWR = 000017 
NOERR 012130 
NSCSL_ 003543 
NUMPTR= 000014 
OBUFF 003767 
OLDGRP bo ses 
ONL 00344 


520 
UT. 001521 
T.02 001522 
T.03 001523 
-04 001524 
OUT.05 001525 
OUT.06 001526 
OUT.07 001527 
OUT.08 001530 
OUT.09 001531 
OUT.10 001532 
OUT.11 001533 
OUT.12 001534 
OUT.135 001535 
OUT.14 001536 
OUT.15 001537 
OUT.16 001540 
OUT.17 001541 
OUT.18 00154 
OUT.19 001543 
OUT.20 001544 
OUT.21 001545 
OUT.22 001546 
OUT.235 001547 
OUT.24 001550 
UT.25 001551 
T.26 001552 
$0 001553 
-28 001554 
UT.29 001555 
-30 001556 


T.31 001557 


-- = 015070 
PATPTR 003656 
003663 


RBUFD 004377 


SEQ 0427 


| R Dives ee te pee i es eee 7 
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SYMBOL TABLE 
RBUFLN= 000415 SDIVER= 000000 SNDONE= 003376 TRKBOT 011222 17 007111 
RBUFO 004370 SECCNT 003623 SS = 000001 TRKEXT 011227 T7A 007124 
= 000000 SECCYL 003617 SSCTOR tye TRKGRP= 000003 T7C 007165 
RCTCPS= 000001 SECGRP 003616 ST 00347 TRKLOP 011175 17x 007355 
TCSZ= 000014 SECTRK 003603 STACK 002360 TRKTST 011162 T 007440 
= 000005 SEC512= 000400 TART 004377 TSTBLK 003604 T8A 007511 
RCVERR= 000400 = tl 000440 STATUS= 000007 TSTCMD 010566 T88 007534 
RCVRDY= 000601 EEK 2621 ST. 002572 TSTCME 010717 T8D 007571 
001432 SEEKA 002634 TRIS? 005774 TSTCM2 010570 T8E 007627 
READB 011602 SEEK1 002652 STSRES= 000366 TSTCYL 003606 T8F 007715 
READ1 003013 SEEK2 002653 ST.C_ = 000002 TOA 006152 T8T rene 
READIA 003104 SEEKS 003006 $1.CON= 000002 T0B 006162 1041 
READIB 003247 SEND_ = 000004 ST.DB = 001000 007470 awe 001000 G 
READIC 003221 SERRTY 003473 ST.DF = TIMSIZ= 060000 S 00 
READIE 003251 SEROO 02573 ST.DR = 000040 010425 U Age = 000001 
READ1X 003326 SER10 003052 ST.EL = 000010 TIOLOP 010426 UNITNB 003555 
REDERR 012033 SER11 003065 ST.ERR= 000002 007717 UNITS 003335 
REDEXT 012037 SER12 003103 ST.FE = 000200 TITER 010606 UNITO = 000001 
RETRY 003472 SER13 003115 ST.FO = 002000 T11X1 =. 010645 UNIT? = 000002 
ETS = 000001 SER14 003130 ST.MOD= 000001 T11X2 010672 UNIT2 = 000004 
REVECT= 000004 SER15 003156 ST.MSK= 000000 T12 010542 UNITS = 000010 
REVS = 000007 SER16 03200 ST.OA = 000200 T2CMD = 06000 UNSSUC= 000175 
RGO 011741 SER17 003223 ST.PE = 00 T2DLL = 060001 UREAD = 000013 
RM = 000004 SER18 03255 ST.PS = 000002 T3A 006340 UTOTST= 060012 
ROFDBN 003565 SER18A 003274 ST.RE = 000100 738 6372 UWRITE= 000014 
ROFDC 003567 . SER18B 00327% ST.RR = 000100 T3C 006254 U.SUBU= 000050 
RREAL = 013400 SER18C 003266 ST.RTY= 000003 T3D 06373 U.UNUM= 0000: 
RSTOP = 100000 SER18D 003263 ST.RU = 000001 T3STRT 002265 VAR1 003633 
RTDS 001371 SER18E 002261 ST.SR = 000020 T4A 06424 VAR2 003635 
RTOSL 001422 SER22 003276 ST.STA= 000001 T4A1 006474 VARS 003637 
RUN 3456 SER23 003344 ST.S7 = 000400 T4B 006531 VAR4 003640 
RUNCMD 003470 SER36 002446 ST.UNT= 000000 T48B1 = 060005 WAITSI= 000012 
RUNLBC= 000014 SER39 002532 ST.WE = 000010 T4BB2 = 060006 WBUFLN= 000401 
RWRDY = 100000 R40 003360 SUB = 00351 T4C 006566 WCONT = 040000 
RW.ANG= 000007 SER41 003402 SUBUNT 003454 T4D 006573 WFLAG 003627 
RW.BUF= 000002 SER50 003415 006054 T4MPRM= 060003 wGO 
RW.CMD= SER51 003422 kK 001563 T4MXFR= 060011 WR = 0 
RW.CPT= 000000 SER52 0034350 TESTED 002400 T4SEEK= 060010 WRITEB 011314 
RwW.HI = 000004 ERS3 003467 TESTEV 002364 T4SOFT= 060007 = 02 
RW.LOW= 000003 SER54 003520 TESTEW 002355 T4UPRM= 060004 WRTEXT 011600 
RW.SDI= 0 SER55 003551 TESTEX 002372 0067 a 00 
RW.STA= 000001 SER56 003604 TESTEY 002376 16 006606 WIRCMP 011231 
SBCRES= 000167 SERS? 003634 TESTX 002336 T6A 006615 WTREXT 011265 
SCR 003453 SHRTTO= 000000 TEST4 = 000000 T6C 006660 XBNCYL= 000021 
SCTWRD= 000377 SL.GRP= 107000 TIMEQU= 000001 T6D 006665 oo page 000000 
SDI 003356 SNDAGN 001473 TO 002175 T6E 007072 XREAD = 000002 
SDILTO 002174 SNDLV1 010552 TOOBIG= 000001 TOF 007111 XWRITE= 000005 
SDISTO 002173 SNDL1A 010555 TRACK 003644 T66 007040 
- ABS. 032160 000 
000 1 


000 00 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: eye tones ( 83 PAGES) 
DYNAMIC MEMORY AVAILABLE F 
B:UDAT$.052,B:UDAT3.L52/C= 50, SOIDMAES2/M, B:UDATS 


--_——_—_———__— —- 


UDAT3 DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE S=1 
/ CROSS REFERENCE TABLE (CREF V04.00 ) 


| CURBLE 


CURGRP 
CURPAT 
CuRTRE« 
Cv’? 
CVLLO 
DATPRE 


34-1014 


50-31* 
37-14 
36-75 


34-924 
50-18* 
50-14* 


35-814 
22-21 


57-43* 
64-31* 


50-32 
44-11 
5 


Pe 


49-79 
57-107 


62-20 
54-35¢ 
34-115e 


64-54 
49-26 


2929 


the 


50-42* 
46-16 


50=22* 
50-48* 


64-59 


57-56* 
65-10* 


32-16% 
56-15* 


34-22 
57-103 
43-11 


46-21 


54-63 


49-84 
61-8¢ 


54-44 
50-38¢ 
69-43 


50-44* 


50-49« 
50-85 


65-45 


57-57* 
65-14" 


34-154 
56-21* 


34-25 
43-15 


54-90 
55-48 
49-93 


61-10¢ 


60-51 
50-40¢ 


N 1 


50-56 


50-82 


43-6* 
56-308 


34-26 
43-19 


55-22 


55-17« 


49-968 


61-18 


60-67 
57-20 


57-60* 
65-19 


43-32* 
58-3* 


34-28 
57-105 


55-23 


56-40 


49-978 


61=20+ 


64-27 


57-62 
65-41 


44-5 
59-27 


34-29 


55-25* 


58-34* 


49-99« 


61-22 


64-71 


57-88* 


44-26" 
59-35 


65-15 


57-93 


45-6* 


59-18 


53-7* 
64-15 


65-55 


64-108 


45-198 


57-8: 
64-17 


66-15 


64-14% 


46-5* 


57-9 
64-71 


64-16* 


46-22* 


57-10 
64-71 


SEQ 0429 


64-26* 


47-13 


57-47 
65-55 


iinet | 


nS 


8 
H JO-AUG=Ce 15:45:56 PAGE S-2 SEQ 0430 | 





UDAT3 DISK FUNCTIONAL DMACR x04.0 
CROSS REFERENCE TABLE (CREF V04.0 


DONECD 27-534 27-55 39-41 
DR.CLR 29-12% 53-21 54-96 59-37 
D 34-394 


| 
| 
j 
} 


RC 4-20 
DRTYPE 5-154 
DRVCLR 6-354 34-39 
DRVID 5-144 
DRVONL 6-334 
DRVRUN 6-344 
ECC 4-168 57-94 
ECCFLG 3-684 57-88 
ECCRSH 5-114 57-97 
ECHO 4-114 
ECHOC 6-464 
ENDGTU 39-474 39-50 
ENDPNT 39-524 
EOC 3-694 
ERECOV 6-314 
ERHARD ey 6-54 6-54 24-23 24-43 24-47 24-51 24-55 24-59 24-64 24-71 32-29 32- 32-41 | 
-6 3-6 33-70 33-96 42-37 46-29 46-44 48-37 49-46 49-53 53-19 54-94 57-111 57-117 | 
57-119 58-17 58-20 58-28 59-31 59-33 59-35 60-35 60-38 60-43 60-67 64-38 64-41 
64- 65-26 65-29 65-36 65-55 66-15 
ERLEV 5-104 
ERRMC 6-154 | 
ERRMES 6-148 21-8 24-23 24-43 24-47 24-51 24-55 24-59 24-64 24-71 32-29 32-33 32-41 33-60 | 
33-64 33-70 33-96 39-38 42-37 46-29 46-44 48-37 49-46 49-53 53-19 54-94 57-111 = §7=117 | 
57-119 58-17 58-20 58-28 59-31 59-33 59-35 60-35 60-38 60-43 60-67 64-38 64-41 64-48 
-71 65-26 65-29 65-36 65-55 66-15 
ERRN 6-94 
ERRORS 29-12% 34-408 44-24% 
ERRPOS 21-9* 24-61% 24-66% 24-73% 29-4 29-6 32-44% 33-97% 34-1044 60-68* 64-72% 65-37% 65-56% 
ERSOFT 6-534 6-54 6-54 
EXIT 4-208 
FB.DAT 3-334 
FB.EDC 3-344 
FCARY 60-23 60-254 
FCHAIN 36-114 60-18 60-45 | 
FCTSIZ -364 57-105 
FDIACY 30-15 30-16% 34-844 48-28% 48-29% 50-52 50-54 53-9 53-10 54-27 54-28 57-11 
FGO 60-42 60-454 
FLAG 34-1074 54-18% 54-36% 54-69% 54-718 
FLOOP 60-19% 60-26 
FND3 30-12 30-194 
FND4 30-18 30-27 30-324 
FNDCY2 30-154 49-85 
FNDCYL 30-104 30-60 50-37 50-64 57-14 
FOR.SZ 3-1094 
FOREXT 60-66 60-724 
FORMAT 4-44 
FORTRK 54-38 60-24 
FRAME 5-664 
FSTOP $374 60-27 
FT.BUF -264# 
FT.HI $-Sa0 
LOW -284 


FT 
rresy 6-514 21-8 39-38 





UDAT3 DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE S$-3 
CROSS REFERENCE TABLE (CREF V04.00 ) 


, FXBNCY 
GCR 

GENEXT 
GENIN 


24-26 


its 34-854 48-18% 48-21% 50-38 
4-418 


9-12 
-27# 


30-65 
50-70% 
49-16 


30-30 
33-36 
60-14 


30-50* 


33-50 


34-1164 
50-71% 
49-55 


30-33 
33-45 


64-24 


50-20 


37-10 
57-53 


48-49 
57-98 


39-40 


32-41 
65-55 


43-1 
48-1 


50-6 
49~4 
33-32* 


54-78 





54-52 


47-31 
60-13 


49-9 


60-47 


46-38 


32-41 
65-55 


49-49 
33-96 


50-40 


49-17 


60-50 


50-80 


33-96 
66-15 


49-87 49-89 
34-1024 49-80* 


49-26 


64-55 


66-17 


33-96 
66-15 


49=44 49-56 49-96 
33-96 34-26 34-474 
66-15 

¢ 
50-32*  50-56* 50-63 


50-11 


60-67 


50-13 


60-67 


SEQ 0431 


50-21 


60-67 














LONGTO 5-68 43-15 
mt ata 13 
33, % 


3-64 3-70 3-9 
7-111) 0 57=117)— 57=119 
rae} 64-48 64-71 


6-80 


33-64 4-43 $3-66 


54-8 


56-14 56-22 56-29 
66-434 
66-434 


56-19 
60-35 64-38 65-26 
58-20 60-38 64-41 








UDATS DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE S-4 
CROSS REFERENCE TABLE (CREF V04.00 ) 


4-51 24-55 24-59 24-64 24-71 5-1 7- 
9-38 42-37 46-29 46-38 46-44 ta-s7 25-46. 
58-17 58-20 58-28 59-31 59-33 59-35 60-35 
65-26 65-29 65-36 65-55 66-15 
66-434 


65-29 66-434 


32-29 
9-53 
60-38 


32-33 


SEQ 0432 | 


i 
' 
i 


FUNCTIONAL DMACR X04.01 18=AUG-82 15:45:56 PAGE S=5 SEQ 0433 
ENCE TABLE (CREF V04.00 ) 
35 66-434 
94 66-434 
66-434 
19 66-434 
11? = 66-434 
119 66-434 
111 66-434 
24-51 66-434 
24-55 66-434 
24-59 66-434 
24 66-434 
24-71 66-434 
42-37 66-434 
4-184 22-22 
i ~204 
34-70# 48-12* 

1-84 24-2358 24-438 = 24-47# = 24-514 = 24-55% = 24-59% = 24-60 24-60 34-60 24-60 24-604 24-60% 24-604 
24-648 24-65 24-65 ~65 24-65 -65 24-65 24-654 24-654 4-654 24-654 24-718 24-72 24-72 
24-72 24-72 24-72 24-72 4-72 4-72 4-728 = 24-72 = 2472 h=72H b= 72H 29 29-2 9-2 

-2 9-24 9-28 9-24 2-298 2-334 2-41 32-41 32-41 32-41 32-41 32-41 32-418 32-414 
32-414 32-414 3-604 3-644 33-704 33-96 33-96 33-96 33-96 33-96 33-96 33-96 33-96 33-96 

3-96 =%6 33-96 33-96 33-96 33-964 33-96% 33-964 33-964 33-964 33-964 33-964 33-964 9-384 

42-374 46-29 46-29 46-298 rs mf 46-38 -38 46-384 6-384 6-448 48-378 49-464 49-534 53-198 
54-948 = 57-111 57-111 57-111 = 57-1118 57-117) = 57-117) 57117 =57=1174 57-1198 58-178 58-20% 58-28 58-28 
58-284 58-284 59-31 31 59-31 59-31 59-318 59-314 59-314 33 59-33 59-334 59-334 59-35 
59-35 59-354 59-354 60-354 60-384 0-434 60-67 60-67 60-67 60-67 60-67 60-67 60-67 60-67 
60-674 60-674 60-674 60-674 60-674 64-384 64-41% 64-484 64-71 4-71 64-71 4-71 64-71 64-71 
64-71 64-71 64-71 64-71 64-71 4-71 64-71 64-71 64-718 64-718 64-718 64-718 64-718 64-714 
64-718 64-718 65-264 65-29% 65-364 65-55 65-55 65-55 65-55 5-55 65-55 -55 65-55 65-55 
65-55 65-55 65-55 65-55 65-55 65-558 65-55# 65-554 65-554 65-554 65-554 65-554 65-55% 66-15 
66-15 66-15 66-15 66-15 6-15 66-15 66-15 =15 66-15 66-15 =15 6-15 =15 66-154 
66-154 66-154 66-154 66-154 66-154 66-154  66-15¢ 
35-80# 60-16 63-1 97-38 6-7 
ae at 30-62 4-109% 50-30*  50-50« 
21-8* 3-64 4-23* 24-43% G-47% = 24-51% = 24-55% = 24-59% = 24-64% 24-71% = 32-29% = 32-33% = 32-41% =. 33-60 
33-64% 3-70* 3-96* 38-6 9-38* 42-37 = 46-29% = 46-38% 469448 4BH37*# 49-46% 8964 9-53e = 50-75" 39 553-19 
54-94% = S7=111% = 57-177%% = 57-119% 58-17% 58-20% 58-28 59-31% 59-33e 59-35" 60-35 60-38 3* 60-67* 
64-38 64-41% “48 64-71% 5-26* 65-29%  65-36* 65-55 66-15% 

1-8+ 3-74 4-23* 4-43* Qn47e  — 2h-51% 2h=55* 9 24-59% = 2h 64e = 2he71% «= 32-298 §3=— 32-33% = 32-414 = 33-608 

3-64* 3-70* ~96* 9-38* = 42-37% = 46-29% = 46-384 46-44% | 48-37% 49~46% = 49-53" «= 50-76% 953-198 9 54-948 
S7-111% = 57=117% = 57-119* 58-17* 58-20" 58-28 59-31% 59-33" 59-35" 60-35" 60-38 60-43% 60-67" 64-38 
64-41% 64-48 “71* 65-26% 65-29% 65-36% 65-55"  66-15* 
21-8+ 22-13% ~84 24-25% «= 24-43 QnG47e  2h-S1*# 24-55% = 24-59% = 24-64% 9 24-71% = 52-29" = 32-33% = 32-418 
33-60* 33-64% 33-70" 33-96%  39-5« 9-38e 42-37 46-29% = 46-384 46-44% 948-37" = 49-462 «= 49-53% 9-50-77 
53-19% = 54-94% = 57=111% = 57-117% 57-119" 58-17" 58-20% 58-28% 59-31% 59-33 59-35% 60-35" 60-38 60-43* 

7e 64-38 = =—64-41% = 64-48% = 64-71% = 65-26% = 5-29 5-36* 65-55%  66-15* 

1-8+ $3.95 $762¢ Gn-43" 24-47% = 2h-51*% = 24-558 G-59% = 24-64% = 2h-71* = 32-29% = 52-332 = 52-412 3 * 

~64 3-70 3-96* 9-38 42-37" 46-29% 46-36 46-44% 48-372 49-46% «= 49-53% = 50-78* «= 53-19" = 54-948 
S7-111* 57-117 57-119* 58-17" 58-20" 58-28% 59-31% 59-332 59-35e 60-35" 60-38% 60-43 60-67"  64-38+ 
1* 64-48 64-718 53-26% 65-29%  65-36* 937736 96-378 
3-10  24-60* $-8 * 4-72e 29-2 29-48 arth a 39-6 46-29% 50-79% S7-111* 57-117" 58-28 
9-31e 59-335 9-35* 60-67 -/71* 5-37* g “55* 66-15* 
“118 24-60* 4-65* 4-72 9-2 wie 5-288 46-31 59-31" 60-67 64-71% 65-55* 66-15 
124 = 24-618 4-65* 4-72e we th ~96* $76 * 64-71% 65-55". 66-15* 
1 24-66" 4-72* 2-44e “96* 60-67" 64-71% 65-55" 66-15 








. 





SEQ 0434 
24-640 | 
46-29 
59-33 
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mi ee —o 


G 2 
UDAT3 DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE S-7 SEQ 0435 
CROSS REFERENCE TABLE (CREF V04.00 ) 
RCTCPS 5-84 43-19 


RCV 4-84 24-34 6-100 
RCVERR 6-254 21-32 2-27 33-58 58-15 60-33 64-36 65-24 


RDSTAT 21-15 21-208 32-24 33-55 36-59 36-67 37-13 58-12 60-30 64-33 65-21 
READ1 3-148 49-95 50-61 50-69 


33-964 
~ poy 33-62 33-66 33-72 33-84 33-1014 


REDEXT 65-35 65-52 - 65-614 
RETRY oa 57-7* 57=102* 57-103 
REVECT 5-634 

5-164 

65-33 65-394 

RM 5-324 
ROFDBN 34-804 49-76% 49-77% 
ROFDC 34-818 49-48% 49-49% 49-60% 49-62% 49-68% 54-60% 54-62% 54-64% 
RREAL 3-674 35- 57-58 65-16 


34-29 34-454 54-81% 55-5* 55-13* 55-15  56-5* 56-8* 56-10" 56-14% 56-19% 56-22% 56-26%  56-27* — 
56-29%  58-33+ * 59-29% 59-33 

RUNCMD 564 55-15 58-33 59-29 

RUNLBC  34-57# 56-27 59 


RW. ANG 
RW.BUF 3-524 3-53 57-60* 64-31% 65-19% 
RW.CMD 3-55# 3-56 33-96 57-57* = =—57=58* 64-29% 65-178 
RW.CPT 3-424 3-43 57-43% 57-88 64-10* 65-10% 
RW.HI 3-544 3-55 33-96 57-56* 64-26% 
33-87 33-96 57-47% 64-16% 


RW.STA 3-434 3-52 64-14% 65-14% 
RWRDY 6-264 32-37 33-68 46-40 57-29 60-41 64-44 65-32 


21-14 24-8 25-19 27-32 29-8 31-9 32-11 32-23 33-54 33-73 34-134 42-14 54-84 57-15 
57-61 58-11 59-6 60-29 64-32 64-51 65-20 65-39 


SECCNT 34-994 61-13% 61-25 64-46 64-69 65-34 65-53 66-13 


SECTRK 30-17 30-31 34-864 48-10" 49-10 49-94 49-97 50-47 50-60 50-66 54-41 57-12 60-17 61-11 
aeek, $5.19" 35-339 49-92 50-58 50-67 53-13 54-31 54-67 57-21 


2 






UDAT3 DISK FUNCTIONAL DMACR X04.01 18-AUG-82 15:45:56 PAGE S-8 
CROSS REFERENCE TABLE (CREF V04.00 ) 




















SEEK2 32-238 32-40 

SEEKS 33-21 32-31 32=35. 32-38 «(32-468 

SEEKA 32-158 

SEND 4-78 24=16 «36-86 54-87 «5949 

SEROO 26-60 94-65 24-72 6-434 

SERIO 36-62 66-434 

SERI11 36-73 66-438 

SERI2 36-52 66-434 

SER1$ 36-108 66-438 

SERIG 36-114 66-434 

SERIS 36-118 66-438 

SERI6 36-122 66-434 

SERI? 36-124 66-434 

SERI8B 39-18 66-434 

SERIBA 26-11 66-434 

SERISB 26-12 66-434 

SERIBC 36-13 66-434 

SERISD 26-14 66-434 

Re ee SO ee Pe re 2 

SER23 39-2 66-438 

SERS36.«§7-111 57-117 66-434 

SER39 66-4 

SER4O 36-77. 66-434 

SER41 39-16 66-434 

SERSO 55-18 66-434 

SERS] 55-21 66-434 

SERS2 56-7 66-434 

SERSS 56-15 66-434 

SERS 56-21 66-434 

SERSS 56-30 66-434 

SERS6 66-434 

SERS? 66-434 

SERRTY 34-61% S7-6*  57=109% 

SHRTTO 5-34 43-11 

SL.GRP 3-884 54-80 56-8 

SNDAGN 22-15# 22-19 

SNDLIA 56-9  59-5# 

SNDLV1 56-6 56-20 56-28 59-4 

SN 34-10 34-218 

Ss 5-94 

pn ae 2 ee Ee ee ee he ee lee 5 
54-92% 57-97 59-24 

ST.C 4-354 

STCON 4-348 

ST.DB. 4-534 

ST.DF 4-504 

ST.DR 4-434 

STIEL  4-40# 46-34 

STIERR 4-334 46-26 54-92% 59~ 248 

TIFE 4-478) 46-27 54-99 «59-94 


65-37 65-56 


36-97 37-8 


66-434 


46-26 


SEQ 0436 


46-34% 
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ST.PE 4-498# 46-27 


ST.PS 4-454 
ST.RE 4-484 46-27 
ST.RR 4-428 
ST.RTY 4-364 
T.RU 4-464 
$7 4-544 
ST.SR 4-448 
ST.STA 4-314 
T.UNT 4-294 
WE 4-514 46-27 
STACK 2-34 26-64 
START 2-44 36-184 


SUBUNT 34-43 47-11% 
42-34 43-44 
TO8 54-194 54-72 
TOA 44-8 44-104 
T 44-12 44-154 
58-6 58-104 
TIOLOP 58-114 58-26 
54-79 55-24 
TITER 59-21 59-278 
T11X1 5930 59-334 
T11X2. 559-28 59-354 
58-24 58-324 
TIMSIZ 6-34 
CMD 6-54 
T2DLL 6-44 
A 46-28 46-344 
738 46-35 46-394 


46-33 46-41 
T4A1 48-54 
4B 48-26 48-284 
T4681 6- 
T4BB2 6-94 
T4C 48-36 48-394 
T4D 48-44 48-464 
T4MPRM 6 
T4MXFR = 6-124 
T4SEEK 6-114 
T4SOFT 6-10 50-74 
T4UPRM 8 6-7# 
15 57-44 
16 49-78 


T6A 49-11% 49-13 
T6C 49-35# 49-39 


54-92 
54-92 


54-92 
27-47 


47-44 


59-24 
59=24 


59-24 


30-25 
48-33 
60- 


30-48 33-24 . 33-35 33-40 3 
49-8 49-16 49=24 49-43 4 
60-48 64-18 64-54 


SEQ 0437 


34-71 47-30 48-5 48-7 
50-10 50-12 50-20 54-46 
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TESTEW 
TESTEX 


TESTEY 
TESTX 


49-384 


54-51" 


2-12 


2-3 
60-53 


27-23 


27-49 


rat ad 


49-10 


50-88 


54-68 
54-604 
54-964 
32-17 
59-19 
57-120 


57-57 


50-10 


34-104 


43-7 
59-23 


54-56% 
3-15 


2-36 
64-57 


47-4 


43-33 


50-28* 
60-15 


56-16 
30-64* 
50-54* 
54-57 
3-46 


3-10 
65-8 


26-17 


3-40 
65-45 


44-27 


53-20 
44-14 


44-9 


50-45% 
61-9 
56-31 
34-894 
50-65 
54-60 


27-34 


27-41 
66-27 


45-7 45-20 46-6 


54-95 58-29 60-44 
46-15 46-45 58-18 


44-30 45-10 45-23 


50-46* 50-59 50-82* 


59-184 

47-28 47-29% 47-30* 
53-9* 53-10* 53-118 
54-62 54-64 54-66 
28-2 36-28 39-59 
33-76 34-125 35-87 


46-23 


58-21 
46-10 


50-84* 


47-31% 
53-12 


51-3 
41-10 


47-14 


60-36 
47-17 


50-85* 


47-32* 
54-27% 


57-36 
52-10 


54-10 


60-39 
54-13 


50-87* 


49-87 
54-28 


57-81 
57-41 


SEQ 0438 — 


54-91 


64-39 
58-7 


54-33* 
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UNITS 
UNS 


27-11 
6-424 


34-64 


64-514 
64-28 


36-56 


30-47 


34-1124 


57-63 


53-22* 


64-24 
64-66 
62-23 
62-19 


57-75 


38-7 38-19 38-26 39-7 39-36 


34-1114 


64-52 65-40 


64-65* 


64-68 64-70 64-774 


62-244 


65-49 





SEQ 0440 


2 








34-86 
33-64 


49-88 


34-85 
49-72 
33-60 


49-61 
65-56 
32-41 


49-36 
65-37 
32-33 


64-72 
32-29 


60-68 
24-71 


33-97 
24-64 


32-44 
24-59 


29-4 
24-55 


24-73 
24-51 


18=-AUG-82 15:45:56 PAGE M-1 
29-2 


24-72 
24-66 
24-47 


24-65 
39-38 
66-43 


24-61 
24-43 


24-60 


21-8 
24-23 


CROSS REFERENCE TABLE (CREF V 
14-394 


HARDER 14-344 


UDAT3 DISK FUNCTIONAL DMACR X 
CERROR 14-664 
























UDAT3 
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DISK_FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 


—— 


— 


N en 
=D SO FP SN OO I 2 OW OS HS 2 WO 2 St 2 SS SS Fe SS ONY OP So Se 


— ~ 


Nm 


™ 


START OF 43 ert 

UDA_DM PROGRAM PARAMETERS 

TEST 4 aia INFORMATION 

MACRO DEFINITIONS 

MACRO FOR OVERLAY TABLE 

aoe “CMR beth DRIVE STATE ROUTINE WITH ERROR REPORTING (TEST 4) 
RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 

HOSTRQ = HOST REQUEST = REPORT or; MEGABYTES TRANSFERRED, ETC. 
TALK SDI _LEVEL 2 ppl ape! ROUTINE 

TO = CALCULATE TIMEOUT INTERVALS 

sn - INIT THE DRIVE 

STACK_AREA 

TEST 3 START AND LOOP ON UNITS 

ent PROCESS FOR BRINGING IN OVERLAY 

FNDCYL - FIND CYLINDER 

A = STORE INFORMATION IN AREA ‘ST' 


SEEK 

READ1 = READ SECTORS ON A TRACK FOR TEST 

UNITS, SDI COMMANDS AND PROGRAM VARIABLES 

DATA PATTERNS 

START, GE TU<POLL ALL PORTS>, RBUFD, & FCHAIN 
GETU _ = POLL ALL PORTS, THEN GET UNITS TO TEST 
REST OF FORMAT CHAIN 

MESSAGES 

wheat oie an 1 *eeee SETUP ( AND START TESTING ) 
INIT DRIVE AND LOOK AT DRIVE SIGNALS 

GET gk CHARACTERISTICS 

ISSUE ONLINE COMMAND 

ISSUE ONLINE COMMAND 

ISSUE DRIVE CLEAR COMMAND 

ISSUE CHANGE MODE COMMAND 

SPIN UP DRIVE 


ISSUE INITIATE RECALIBRATE COMMAND 

GET SUBUNIT CHARACTERISTICS 

SEEK TO CYLINDER 0, GROUP C 

CALCULATE NUMB 

READ ALL FACTORY FORMATTED TRACKS 

SEEK TO SELECTED GROUP, READ HDR, seek TO DIAGNOSTIC AREA 
see#*DM OVERLAY 2eeeexCHECK WRITE PROTECT 

CHANGE MODE TO ALLOW 4 tpg Slee AND WRITING 


TRACK 
WRTCMP = WRITE A DATA PATTERN AND COMPARE 
GENERATE A PATTERN 


CMPDAT = COMPARE DATA 


SEQ 0441 





SK FUNCTIONAL DM4CR X04.01 23-AUG-82 12:01:30 PAGE 2 SEQ 0442 
IC MACHINE MACYS = OVERLAY VERSION WITH ‘RELOCATION’ 


Pau 


-TITLE UDAT3 DISK FUNCTIONAL 


COPYRIGHT (C) 1981 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED he aa al gaa 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR OTHER 
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE NAVAILABLE 
TO. ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DIGITAL ASSUMES NO RESPONSIB 
ITS SOFTWARE ON EQUIPMENT WHI 


ILITY FOR THE USE OR RELIABILITY OF 
CH IS NOT SUPPLIED BY DIGITAL. 


000001 UDASO=1 


000000 DA52=0 
THIS PROGRAM SHALL BE ASSEMBLED WITH THE PROGRAM DMACRO 
[USING A COMMAND LINE SIMILAR TO: 


+ UDAT3,UDAT3/C=[1,2DMACRO,UDAT3 

39 - - :THEN LINK THE OBJECT FILE USING A COMMAND LINE SIMILAR TO: 
| 
| 
| 


WNWWWNANWWAIWIPIPIDPININDNINININID 2 a es 
DWONANEWN 0 ODNOAUS WN 0 ODNOUEWH 0 OONOUFwh— 


40 ; 
4} + UDAT3.BIN/L=UDAT3 
43 ‘ 


44 000000 TEST4 = 0 ; THIS IS NOT TEST4 









UDAT3 DISK 
START OF Tf 


F 
ES 
1 
\ 000000 
27 000714 
31 
32 


33 
34 000715 
ae 000717 


46 


114007 


104206 001542 


003665 


a) ae DMACR X04.01 23-AUG-82 12:91:30 PAGE 3 


-SBTTL START OF TEST CODE 
DMCODE UDADM3,0,714,3,0,1000 


CLR RO 

s INITIALIZE STACK 
MOV #STACK,SP 
BR START 


CHANGE TO BREAKPOINT FOR DEBUG 


SET UP STACK POINTER 
; BRANCH OVER SUPPORT CODE 


SEQ 0443 | 


! 
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} .SBTTL UDA DM PROGRAM PARAMETERS 
; .LIST MEB 
3 : EQUATES 
4 : HIGHEST USABLE LOCATION OF UDA MEMORY + 1 
17 007774 HIMEM = 7774 : HIGH MEMORY+1 
18 007774 OVSTRT = 7774 + OVERLAY ADDRESS LOCATION 
23 : 
34 ; OFFSETS FOR FORMAT TRACK TABLE 
26 000000 FT.BUF = 0. ;BUFFER POINTER OFFSET 
27 000001 FT.HI = 1. ‘HI ORDER HEADER OFFSET 
28 000002 FT.LOW = 2. [LOW ORDER HEADER OFFSET 
30 : 
3 : OFFSETS FOR FORMAT TRACK BUFFER 
33 000000 FB.DAT = 0. ZFIRST DATA WORD OFFSET 
34 000400 FB.EDC = 256. SEDC WORD OFFSET 
36 : 
37 ; OFFSETS FOR READ/WRITE 1/0 CHAIN TABLES 
48 000000 RW.STAT = 0. :STATUS AND NEXT BUFFER POINTER OFFSET 
52 000001 RW.BUF = RW.STAT#+1. [POINTER TO DATA BUFFER 
53 000002 RW.LOW = RW. BUF +1, SHI ORDER EXPECTED HEADER 
54 000003 RW.HI = RW.LOW+. ‘LOW ORDER EXPECTED HEADER 
55 000004 RW.CMD = RW.HI+1, :SDI COMMAND AND HEAD ADDRESS 
56 000005 W. = RW.CMD+1. [DUMMY SDI CONTROL BLOCK POINTER 
37 x = RW.SDI+1. S THETA FROM INDEX 
3 : CONSTANTS FOR READ AND WRITE XFC'S 
61 140000 WSTOP = 140000 : LAST ENTRY IN CHAIN FOR WRITE 
62 040690 CONT = 40000 + WRITE CONT 
63 100000 RSTOP = 100000 : LAST ENTRY IN CHAIN FOR READ 
64 000000 RCONT = : READ CONTINU 
65 100000 FSTOP = 100000 : LAST ENTRY IN CHAIN FOR FORMAT 
66 122400 WREAL = 122400 : WRITE REAL TIME ECOMMAND 
67 013400 EAL = 3400 : READ REAL TIME COMMAND 
68 010000 ECCFLG = 000 : ECC ERROR IN BUFFER BIT 
69 100000 EOC = 100000 : END OF CHAI 
70 040000 BUFFLG = 000 : BUFFER FULL OR EMPTY FLAG 
a 001750 MAXSND = 00. 
73 ; 
2 ; HEADER CODES 
= 000000 :G00D LBN 
= 060000 GOOD RBN PERHAPS UNUSED 
= 030000 ZRE VECTORED LBN 
= 110000 BLOCK 
= 050000 {PRIMARY REVECTORED BLOCK 


SEQ 0444 — 


So00000050 
=) ooo 
DHNRAP AVI OD 


000000 
000400 
000401 


000401 
000415 
000007 


000050 
000063 


001375 





HD. XBN 
HD.DBN 


RBUF LN 
LINKLN 


U. SUBU 
U.UNUM 


FOR.SZ 
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= 120000 :XBN BLOCK 

~ 140000 3DBN BLOCK 

LEVEL 1 CODES 

= 70400 sMESSAGE START 

= 131000 MESSAGE END 

= 152000 sMESSAGE CONTINUE 


107000 SELECT GROUP 
OFFSETS FOR DATA BUFFERS 


° sDATA 
256. sERROR DETECTION CODE 
° sLAST 17 ECC RESIDUES 
BUFFER AND READ/WRITE CHAIN LINK SIZES 


= 257. ; WRITE BUFFER SIZE 
= WBUFLN+12. ; READ BUFFER SIZE 
= 7. 3 LINK SIZE 

UNIT PARAMETER USED BY TEST3 

S 50 

= 63 


FORMAT CHAIN SIZE 
= 255.*3 


SEQ 0445 


i 


E 3 
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J H XFC DEFINITION EQUATES 
3 00 BREAK = 0. He tes XFC CODE 
4 000001 FORMAT = 1, FORMAT TRACK XFC CODE 
5 is XREAD = ¢: ;READ_N SECTORS XFC CODE 
6 0 XWRITE = ° ;WRITE N SECTORS XFC CODE 
7 SEND = 4, SEND SDI COMMAND XFC CODE 
8 000005 RCV = 5. RECEIVE SDI MESSAGE XFC C 
9 000006 COMPARE = 6. 7COMPARE DATA PATTERN TO BUFFER 
10 07 STATUS = 7. sRETURN DRIVE STATUS XFC COD 
11 000010 ECHO = 8. 3E DATA_TO DRIVE XFC CODE 
12 000011 DINIT = 9. sDRIVE INITIALIZE XFC CODE 
13 000012 WAITSI = 10. WAIT FOR SECTOR OR INDEX PULSE 
14 000013 UREAD = 11. sREAD UNIBUS MEMORY XFC CODE 
15 00014 UWRITE = 12. + I IBUS 7 XFC CODE 
16 15 ECC = 13. :D0 ECC ON BUFFER XFC CODE 
17 0016 MRD ~ 14, 7SEND BUFFER TO MAINTENANCE READ COMMAND 
18 000017 MWR = 15. GET BUFFER FROM MAINTENANCE WRITE COMMAND 
19 000020 CvT = 16. ;CONVERT TO PHYSICAL ADDRESS XFC CODE 
$e 000021 EXIT “ 17. TERMINATE DM PROGRAM XFC CODE 
$$ 3 MEDIA TYPE 
eh 126736 MOD512 = 126736 
$2 074161 MOD576 = 074161 
34 ; GET STATUS OFFSETS 
29 000000 ST.UNT = 0. UNIT NUMBER 
30 000000 ST.MSK = 0. SUBUNIT MASK 
31 000001 ST.STA = 1. sSTATUS BYTE 
32 000001 ST.MOD = 1. 2M0D au 
33 000002 ST.ERR = 2. sERROR BYTE 
34 000002 ST.CON = 2. CONTROLLER BYTE 
35 000002 ST.C = ¢° :C BITS 
4 000003 ST.RTY = ° RETRY COUNT/FAILURE CODE 
$ : STATUS BIT DEFINITIONS 
40 000010 ST.EL = 10 3 LOGGABLE INFO IN EXTENDED STATUS 
41 000200 ST. = 200 3 ONLINE TO ANOTHER (SET IF DRIVE UNAVAIL 
42 000100 ST.RR = 100 : READJUSTMENT BIT (SET IF RECALIBRATION REQUIRED) 
000040 ST. = 40 3 DIAGNOSTIC REQUEST (SET IF DIAGNOSTIC REQUESTED) 
44 000020 ST. = 20 : SPINDLE READY (SET IF SPINDLE READY) 
45 000002 ST. = 2 : PORT SWITCH (SET IF PORT SWITCH IN) 
46 000001 ST.RU = 1 : RUN/STOP SWITCH (SET IF RUN/STOP SWITCH IN) 
47 000200 ST.FE = 200 2 FATAL ERROR (SET IF FATAL ERROR OCCURRED) 
48 000100 ST.RE = 100 : RETRIABLE ERROR (SET IF RETRIABLE ERROR OCCURRED) 
49 000040 ST.PE = 40 3 PROTOCOL ERROR (SET IF PROTOCOL ERROR OCCURRED) 
50 000020 ST.DF = 20 : INITIALIZATION FAILURE (SET IF INIT FAILED) 
51 000010 ST.WE = 10 : WRITE ENABLE (SET IF WRT ATTEMPTED ON PROT DISK) 
5 002000 ST.FO = 2000 3 FORMATTING (SET IF FORMATTING E ED) 
5 001000 37.08 = 1000 ; DIAGNOSTIC CYLS (SET if DIAG CYL ACCESS ENABLED) 
54 ST.S 7 400 3 SECTOR SIZE (SET FOR 576 BYTE SECTORS) 





ae 
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j F GET COMMON CHARACTERISTICS OFFSETS 
3 000000 SHRTTO = 0. :SHORT TIMEOUT <3: 0> 
4 000000 SDIVER = 0. SSDI VERSION <7:4 
5 000000 XFERRT = 0. : TRANSFER RATE i: 0> 
6 000001 LONGTO = 1. SLONG TIMEOUT <3:0> 
7 000001 $ = 1. SRETRIES <7: 
5 000001 RCTCPS = 1. SF/RCT COPIES <11:8> 
9 000001 S = 1. SSECTOR SIZE <15:1 
10 000002 RLEV = 2. TERROR RETRY LEVELS <7 0> 
11 00000 ECCRSH = 2. SECC THRESHOLD <15: 
12 00000 MICREV = 3. sMICROCODE REVISION NUMBER <7:0> 
13 000003 HRDREV = 3. s HARDWARE REVISION NUMBER <15:8> 
14 04 DRVID = 4. SUNIQUE DRIVE ID 
15 000007 DRTYPE = a ‘DRIVE TYPE IDENTIFIER ” or: 0> 
16 07 REVS = 7. SREVS/SECOND <15:8> 
18 ; GET SUBUNIT CHARACTERISTICS OFFSETS 
20 S THESE OFFSETS ARE CURRENTLY GIVEN AS FOLLOWING THE COMMON CHARACTERISTICS 
22 000013 SUB = 11. :OFFSCT TO PUT SUBUNIT AFTER COMMON: 
23 000000 LBNCYL = 0. NUMBER OF CYLINDERS IN LBN AREA <31:0> 
24 000001 HICYL = -B SHI ORDER CYLINDER BITS <15:12> 
25 000002 GRPCYL = 7 [GROUPS PER CYLINDER <7:0> 
26 000002 HILBN = 2. ‘HI STARTING LBN <11:8> 
27 000002 HIX = 2. SHI STARTING XBN <15:12> 
28 000003 TRKGRP = 3. [TRACKS PER GROUP <7:0> 
29 000003 I = ‘ tH] STARTING RBN <11:8> 
30 000003 HI 2 3. SHI STARTING DBN <15:12> 
31 000004 RBNTRK = 4. [RBNS PER TRACK <6:0> 
32 04 RM _ 4. SREMOVABLE MEDIA <7:7> 1=REMOVEABLE 
33 000005 DATPRE = 5. [DATA PREAMBLE SIZE IN WORDS <7:0> 
34 05 HDRPRE = 5: SHEADER PREAMBLE SIZE IN WORDS <15:8> 
35 06 MEDTYP = .. :MEDIA TYPE <31:0> 
000010 FCTSIZ = 8. ‘FCT COPY SIZE <15 :0> 
37 000011 LBNTRK = 9. SLBNS PER TRACK < 
za 000011 GRPOFF -: 9. :GROUP OFFSET (SECTORS) <15: 8> 
39 000012 LBNHST = 10. *LBNS IN HOST AREA 
40 000014 RCTCSZ = 12. 3RCT COPY SIZE <15:0 
41 000021 XBNCYL = 17. LS IN XBN AREA <15:0> 
42 000022 = 18. :CYLS IN DBN AREA <15:8> 
é ; UNIT CODES 
46 000001 UNITO = 3 ZUNIT ZERO CODE 
47 000002 UNIT1 = 2. [UNIT ONE CODE 
48 000004 UNIT2 = 2 [UNIT TWO CODE 
49 000010 UNIT3 = 8. [UNIT THREE CODE 
31 ; BIT MASK DEFINITIONS 
53 : 
54 177400 HIBYTE = 177400 :HIGH BYTE MASK 
55 000377 LOBYTE = 000377 [LOW BYTE MASK 
56 007777 HBHINB = 7777 SHI BYTE, HI NIBBLE MASK 
57 170377 HBLONB = 170377 SHI BYTE. LO NIBBLE MASK 
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177417 
177760 


000001 
000002 
0004 


000001 
000002 


000001 
000002 


LBHINB 
LBLONB 


TIMEOUT 
HEADER 
REVECT 


LARGE 
OVERFL 


MmM— CSM fSy—- —— 
2 . 


3LO BYTE, HI NIBBLE MASK 
:LO BYTE, LO NIBBLE MASK 


sDRIVE TIMEOUT CODE 
HEADER COMPARE FAILURE CODE 
sREVECTOR NEEDED CODE 


sFIRST WORD Hi START FRAME CODE 
FRAMING ERROR CODE 
;CHECKSUM ERROR CODE 


NUMBER OF WORDS EXCEEDS 7064 
;DM BUFFER ADDRESS IS LESS THAN 714 


BLOCK NUMBER TOO LARGE 
SECTOR NUMBER LARGER THAN 16 BITS 


SEQ 0448 


H 3 
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NONNOTY s s 
WHO OONOUSWN—OVDONOULSWwN— 


WWIWNWIWIWIPNUNofonon 
RARWW IS O00 Nous 


Ww 
~N 





000001 
000002 


000004 
000100 
000400 
100000 


sMAINTANENCE READ/WRITE REQUEST NUMBERS 


TIMSIZ = 0.+60000 7GET FREE MEMORY PARAMETERS 
T2DLL_ = 1. #60000 [DOWNLINE LOAD DRIVE DIAGNOSTIC 
TOCMD = g- +0000 [MANUAL INTERVENTION TEST 2 PROTOCOL 
T4MPRM = .+60000 [GET MASTER PARAMETERS FROM SW QUESTIONS 
T4UPRM = 4. +60000 [GET UNIT PARAMETERS FROM HW QUESTIONS 
T4BB1 = 5. #60000 [GET BAD BLOCKS (1 THRU 1 
T4BB2. = g. #60000 7GET REST OF BAD BLOCKS (15 AND 16) 
T46SOFT = - #60000 sADD TO SOFT ERROR A 
T4SEEK = 8. +60000 ; ADD 1 TO SEEK COUNT 
T4MXFR = 9. +60000 ZADD TO MEGABITS READ AND WRITTEN 
UTOTST = 10. +6000 eer UNITS TO T 
ERRMES = 11.+60000 [PRINT ERROR ME AGE 
RRMC = 12. +60000 [TEST 4 ERROR REPORTING 
MESSAG = -+60000 S INFORMATION MESSAGE 
DONE = 14. +60000 ZMARK DM PROGRAM AS NO LONGER RUNNING 
; OTHER BIT DEFINITIIONS 
RCVRDY = 1 : RECIEVER READY 1 = READY 
TIN = 2 : ATTENTION BIT FOR RETURN DRIVE SIGNALS XFC 
DCLOCK = 4 + TRANSMIT ERR 
VAIL = 100 : AVAILABLE 1 = AVAILABLE | 
RCVERR = 400 : RECIEVER E 
RWRDY = 100000 : IF SET, UDA IS ABLE TO READ AND/OR WRITE TO DRIVE 
3 SDI COMMANDS AND RESPONSES 
ISCON = 204 : DISCONNECT DRIVE 
ERECOV = A : ERROR RECOVERY 
CHGMOD = 201 : CHANGE MODE 
DRVONL = 213 : DRIVE ONLINE 
DRVRUN = 14 : DRIVE RUN 
DRVCLR = 5 : DRIVE CLEAR OPCODE 
GETCHR = 207 : GET CHARACTERISTICS 
ETSUB = 210 : GET SUBUNIT CHARACTERISTICS 
GETSTA = 11 : GET STATUS 
IRECLB = 216 : RECALIBRATE 
INSEEK = 12 : INITIATE SEEK 
COMPLT = 176 : SUCCESSFUL COMPLETION 
UNSSUC = 175 : UNSUCCESSFUL COMPLETION 
CHRRES = 170 > GET CHARACTERISTICS ESPONSE 
SBCRES = 167 : GET SUBUNIT CHAR ACTERISTICS RESPONSE 
STSRES = 366 : GET STATUS RESPON 
ECHOC = 350 : DIAGNOSTIC ECHO COMMAND AND RESPONSE 
; ERROR CODES 
FILSYS = 0 : SYSTEM FATAL ERROR 
FTILDEV 46900 : DEVICE FATAL 
ERHARD = 100000 : HARD ERROR 
ERSOFT = 140000 : SOFT ERROR 
C2HARD = <ERHARD&“CERSOF T>! <ERSOF T&*CERHARD> : CHANGE SOFT TO HARD ERROR 


SEQ 0449 





UDATS DISK F 
TEST & SPECIFIC INFORMATION 


1 
2 
3 
4 
5 
6 
4 
8 
9 


000377 
000105 
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-SBTTL TEST 4 SPECIFIC INFORMATION 


CONSTANTS 
Sc TWRD = 255. 
INTEDC = 69. 


a ee 


TEST 4 SPECIFIC INFORMATION 


; NUMBER OF WORDS IN SECTOR TO FILL 
3 INITIAL EDC VALUE 


SEQ 0450 





J 3 
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O DEFINITIONS 
| .SBTTL MACRO DEFINITIONS 

. ; MESSAGE CONTROL TABLE MACRO 

& .MACRO MSG CMDBUF , CMDSZ,RPLBUF, RPLSZ. SUCCOM 
6 “WORD CMDBUF sADDRESS OF COMMAND 
7 -WORD CMDSZ ZE OF COMMAND IN BYTES 
8 -WORD RPLBUF T ADDRESS OF REPLY 
9 -WORD RPLSZ :SIZE OF REPLY IN WORDS 
10 .1F NB NUMBER 

11 “WORD SUCCOM y SUCCESSFUL COMPLETION CODE 
12 “ENDC 


SEQ 0451 . 


TTS oe 
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kK 3 
UDAT3 DISK FUNCTI 
MACRO DEFINITIONS 
1 - «MACRO BCS LAB..,?B 
¢ BCC B 
LAB.. 
4 
5 ~ENDM 


: 
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I 
S 


ee es 


PUSH REGISTER MACRO 


«MACRO PUSH R9 
IRP X,<R9> 


~ENDR 
-ENDM 


POP REGISTER MACRO 


MACRO POP R9 
~IRP X,<R9> 


~ENDR 
DM 





W 
SOVWONAUSWN $$ O VONOUESWN OC OONOUSWN— Oo 








WARNS ed ed cd aed etd end ce end ed 


ae 


sERROR MACROS 
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; THESE sta Gans ae TO REPORT ERRORS TO THE HOST PROGRAM. 


THE MACRO 


;BEING + lta TO REPORT THE 
RGUMENTS: (MS$) MES 


FOLLOWING T 


;THERE IS DATA 


(P2$) 
(P3$) 
(P4$) 
(P5$) 
(P6$) 
(P7$) 
(P8$) 


4) 
WOONAULSWN > 


(P1$) PARAM 


ODE. USED # R 
STOPRINTS "must CONTAIN AN ASCII FORMAT STRING TO DETERMINE THE MESSAGE 


; THE PARAMETER ARGUMENTS ARE OPTIONAL. THEY SHOULD BF SUPPLIED ONLY WHEN 


SAGE POINTER 
TER #1 


PARAMETER #8 


THE are Bay thy MUST POINT TO AN ADDRESS IN THE wie *MS*’ IMMEDIATELY 
ANY ADDRESS MODE MAY BE 


TO BE PASSED TO THE HOST THAT WILL 


BE 


» ERR no. ERRHRD, ERRSFT. EACH RESULTS IN THE HOST 


(E.G. 


USED_IN PRINTING THE 


;MESSAGE.. THESE PARAMET gs ry hy ARE THE ADDRESS OF DATA TO BE PASSED 


sUSING ANY A 


ADDRESSING MOD 


ZALL_REGISTERS ARE RETURNED UNCHANGED. IT SHOULD BE os THAT pate re 


CONTAINING SOMETHING OTHER THAN A REGISTE 


0 OR MEMADR 


R_NAME (E.G. 
ASSEMBLE TO INSTRUCTIONS THAT SAVE AND RESTORE A REGISTER ON THE STACK. 


«MACRO ERRSF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 
»NARG ARGS$ 


«RADIX 
eon FTLSYS,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 


-MACRO An MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 


eNARG A 


»RADIX 10 
ERRORS FTLDEV,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$,\ERRN 


-MACRO ERRHRD MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 
=NARG ARGSS 
ERRORS ERHARD ,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 


ENDM 
.MACRO ERRSFT MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 
NARG ARGS$ 


»RADIX 10 
wry ERSOFT,MS$,P1$,P2$,P3$,P4$,P5$,P6$.P7$,P8$, \ERRN 
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DI C 
| MACRO DEFINITIONS 
j ;THE FOLLOWING MACRO ACTUALLY PROCESSES THE ERROR CALL TO THE HOST PROGRAM 
; -MACRO ERRORS ETS,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$, PBS, ERRNS 
2 PRHS=ARGSS=1 
7 *JERROR;NOT ENOUGH ARGUMENTS IN ERROR CALL 
& .ENDC 
9 REGS$=- 
10 .IIF GE,<PRMS-8.> -PARGS. P8$ 
11 “LIF GE.<PRMS-7.>,PARGS. P7$ 
12 “1IF GE.<PRMS-6.>, PARGS. P6$ 
13 [IIF GE.<PRMS=5.>,PARGS. P5$ 
14 “1IF GE.<PRMS=4.>,PARGS. P4$ 
15 “IIF GE.<PRMS-3.>,PARGS. P3$ 
16 SIIF GE.<PRMS-2.>,PARGS. P2$ 
17 SIIF GE. <PRMS-1.>,.PARGS. P1$ 
18 IF GE REGS$ 
19 RSTRS \REGS$ 
20 -ENDC 
21 ;RADIX 10 
22 “LIST 
23 CALL RERROR ERROR # ERRNS’. 
24 .NLIST 
25 “RADIX 8 
26 “LIST 
27 .WORD ET$+ERRN 
28 “WORD <PRMS*10000>+MS$ 
29 .NLIST 
30 ERRN=ERRN¢1 
3 .ENDM 
33 .MACRO PARGS.,ADDRS 
3z, .NTYPE PTYPES, ADDRS 
35 "IF EQ,<PTYPE$&70> 
36 HE EQ,<PTYPE$&7>=REGSS,RSTR$ \REGSS$ 
38 : MOV ADDR$,-(SP) 
39 :NLIST 
41 , IF £0 <PTYPE$&7>=1 ;PICK A REGISTER TO USE 
42 my: Gu$=2 ZSELECT R2 IF R1 IS USED IN PARAMETER FETCH 
44 eREGUS=1 ZOTHERWISE USE R1 
46 "IF NE .<REGUS-REGSS> :IF REGISTER NOT ALREADY SAVED 
48 “eesins \REGSS ;RESTORE CURRENT SAVED REGISTER 
50 SAVRS \REGUS :THEN SAVE SELECTED REGISTER 
52 GETP$ \REGS$,ADDRS 
53 .ENDC 


54 -ENDM 


B 4 | 
it TY tse ONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 14 SEQ 0456 | 





l 
E 


-MACRO_SAVR$ REGN 
«LIST 


MOV R'REGN, SAVREG 
.NLIST 
REGS$=REGN 
.ENDM 
.MACRO RSTR$ REGN 
LIST 
MOV SAVREG,R*REGN 
.NLIST 
REGS$==1 
ENDM 
-MACRO GETPS REGN, ADDRS 
, MOV ADDR$,R'REGN 
MOV R'REGN,=(SP) 


»NLIST 
~ENDM 


A) 
Dd 
1 
2 
3 
4 
5 
6 
7? 
8 
9 
0 
1 
2 
3 
4 
5 
6 
4 
8 ; 
9 
0 


N32 SS SS 


ze 





ISK 
EFI 


PONQPINIPOPONPINONIR) 2 Oo oS 


3D 
Dd 
4 
5 
6 
? 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 


UW 
_ 


32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 


\NUMPTR 
= 





PRIMARY ERROR REPORTING (TEST 4) 


SOFTER NUM,ARGS 
ERSOFT,NUM,<ARGS> 


REPSFT SFTFLG,ECCFG,SEKFLG 
SFTFLG 


NB, SEKFLG 


HARDER NUM,ARGS 
ERHARD ,NUM, <ARGS> 


DEVFTL NUM,ARGS 
FTLDEV,.NUM,<ARGS> 


NUM, ARGS 


FTLSYS,NUM,<ARGS> 


MOV 


MOV 


MOV 


MOV 


#ERRMES ,OUT.RQ 


#1,0UT.02 
OUT .02 


#1,0UT.03 
OUT.03 


#1,0UT.04 
OUT.04 


RO 
U.UNUM(RS5) ,RO 
U. SUBU(R5S) ,RC 


RO,OUT. 
ATESOFT,20 
HOSTRQ 

RO 


#ERRMES ,OUT.RQ 


#ERRMES ,OUT.RQ 


#ERRMES ,OUT.RQ 


> 


Ne a oe oe } 


ve 
& 
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MACRO DEFINITIONS 
58 ~ENDC 
59 MOV LUNIT,OUT.03 
60 MOV #NUM! TYPE+3000. ,R2 | 
61 MOV R2,0UT.02 
6 MOV #.,0UT.01 
6 RADIX | 
6% ~ENDM | 
66 «MACRO CERROR STNUM,ARGS 
67 eRADIX 10 
68 NUMPTR = STNUM | 
69 .IRP =X, <ARGS> | 
70 MOVMSG X,\NUMPTR 
71 NUMPTR = NUMPTR + 1 
72 .ENDR | 
73 «RADIX 
m ~ENDM 
76 «MACRO ERRORC ARGS 
77 «RADIX 10 
78 .IRP  —- X, <ARGS> 
79 MOVMSG X,\NUMPTR | 
80 NUMPTR = NUMPTR + 1 
& .ENDR | 
83 ~ENDM 
gs -MACRO MOVMSG ARG,INDX | 
87 IF LT, INDX=10 
88 MOV ARG, OUT.0° INDX 
89 IFF 
90 MOV — ARG, OUT. " INDX 
91 -ENDC | 
4 ~ENDM 
94 «MACRO ENDERR POS 
95 eRADIX 10 
96 IF NB. POS 
97 NDERR POS | 
99 NDERR  \NUMPTR 
100 -ENDC 
«RADIX 
eENDM } 


ans NDERR POS 


MOVMSG #SER22,P0S 
MOV #POS+1,ERRPOS ; SET THE POSITION | 


CLR ERRPOS ; CLEAR THE POSITION | 


— a a os 





rc 






~ 
Ow 
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SRR RSE a at Med bah teh teed teh $b Ad the eA aing) p —ee—ar 
WN — SO OBNAUES WN —OVOnoul bd 
_ 


kk a kk kk td dd td ot 
OWONAOUSWN—OVOONOu 





PUSH 
MOV 


MOV 
CALL 
POP 


PUSH 
MOV 
CALL 
POP 


SEQ 0459 


<RO,R1> 
LUNIT,OUT.01 
#MESSAG,RO 
HOSTRQ 
<R1,R0> 


1> 


<RO,R 
#MESSAG,RO 
HOSTRQ 


<R1,RO> 


F 4 
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MACRO DEFINITIONS 

1 ZASSUME MACRO 

3 -MACRO ASSUME P1,P2 

4 -ERROR . THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 

6 [ENDM 


a ee 





G 4 
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MACRO DEFINITIONS 


FWN— OO OONAUESWN OC OONOUS wh 


NINRINIDID 2 


25 


SEQ 0461 


sRETURN DRIVE STATUS MACRO WITH ERROR REPORTING 


2$: 


DSTAT,LAB$,E1,E2 
MEB 
ME 
RDSTAT 
#10000,R1 
#4000,R1 


GET DRIVE STATUS 
SEE IF ANY FRRORS 
F_NO ER 


IF SO, BRANCH 
REPORT INVALID STATUS ERROR 


BRANCH TO DONE 


REPGRT XMIT ERROR 


BRANCH TO DONE 





H 4 
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MACRO DEFINITIONS 

1 ; 

g ; XOR THE CONTENTS OF TWO REGISTERS 

4 ; .MACRO RXOR _—REG1, REG2 

5 MOV G2,-(SP) : SAVE REGISTER REG2 

é BIC REG1,REG2 : CLEAR COORESPONDING BITS IN REG2 

7 BIC (SP)+,REG1 : CLEAR COORESPONDING BITS IN REG? 

g Bis REG1,REG2 + OR WHAT'S LEFT 





aonigenremaninnemrainan were - 
ONAL DMACR X04.01 23=AUG-82 12:01:30 PAGE 19 SEQ 0463 \ 
CONVERT .BLKW CALLS TO ACTUAL WORDS GENERATED 
«MACRO .BLKW COUNT 
»NLIST 
COUNT 


«WORD 0 
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D 
Dd 
1 
2 
3 
4 
5 
6 
4 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3. 


MONON 2 2 ss 


SDI INTERCHANGE WITH DRIVE WITH ERROR REPORTING 
»MACRO TALKX ERRLAB,E1,E2 


TIATE SDI INTERCHANGE 
IF ERROR OCCURRED 


@ 
m 
o 
=z=-—2 
nN 
an 
Sete See 


HARDER €E1 SEND COMMAND ERROR 


ME 

ERRLAB 
ME 

LIST MEB 

HARDER E2 RECEIVE COMMAND ERROR 

Mist MEB 


ME 
ERRLAB 


Ss 

ST ME 
matt MEB 

M 


NOMONONONONO Ry 3 2 
MEW =| 0 OONOAU SWAN $0 OONOUSWH— 


o 








OCNTS 


K 
UDAT3 DISK FUNCT'UNAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 21 SEQ 0465 
MACRO FOR OVERL’Y TABLE 


~SBTTL MACRO FOR OVERLAY TABLE 
ie — LABL$ ,ONAME , SAREA,EAREA 


-WOR 

~WORD OVL."ONAME'*4 

IF NE. OCNTS=LABLS 

—- * ; OVERLAY NUMBER AND POSITION IN TABLE DO NOT MATCH 
= OCNT$+1 

-ENDM 


»MACRO MESSAGES 


-SBTTL MESSAGES 
MESSAGE STORAGE OVERLAY 


MS1: 


MS2: 


MS3: 


MS4: 


MSS: 


MS6: 


MS7: 


MS8: 


MS9: 


MS10: 
MS11: 


MS12: 
MS13: 
MS14: 


eASCII\''TIME-OUT ON SEND''N\ 

eASCII\RIRIN\ 

-BYTE 0 

eASCII\''TIME-OUT ON RECEIVE''N\ 

oo? pam 

-ASCII\"'FIRST WORD RECEIVED WAS NOT A START FRAME'N\ 

—. 

-ASCII\"'FRAMING ERROR ON LEVEL 0 RESPONSE''N\ 

rae TR1I\ 

-ASCII\"'CHECKSUM ERROR ON LEVEL 0 RESPONSE'W\ 

“ar 

-ASCII\"RESPONSE LONGER THAN EXPECTED''N\ 

. ae 

“ASCII\"'CODE FROM RECEIVE WAS UNINTELLIGIBLE FROM SUBSYSTEM = ‘‘H16N\ 

. avie On 

7 iit eee DID NOT RETURN EXPECTED RESPONSE CODE''N\ 
ASCII\'’ EXPECTED RESPONSE ‘'H8N\ 

“ASCII\'' ACTUAL RESPONSE “HEN\ 

ae 

i 8 hep NOT ASSERTING RECEIVER READY IN DRIVE STATE*'N\ 


“astiy ‘FAILED TO RECEIVE VALID DRIVE STATE''NR1\ 


E 
-ASCII\"'CANNOT RECEIVE DRIVE stATE FROM DRIVE*'N\ 
oASCI TN CHECK IF DRIVE IS POWERED ON.*'NR1\ 


“ASCII. ‘DRIVE STATE RECEIVED HAS BAD PARITY''NR1\ 
ASCII\"NO VALID STATE FROM DRIVE''WR1\ 
“ASCII \"'SUBUNIT CHARACTERISTICS SAY THERE ARE ZERO READ ONLY GROUPS'N\ 


ow 


L 4 
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MACRO FOR OVERLAY TABLE 

4 roaly \""IN THE DIAGNOSTIC AREA''N\ 

60 MS15: ASCII \iISUBUNIT CHARACTERISTICS SAY THERE ARE LESS THAN 1 READ/WRITE'N\ 

6} ASCII 5 are IN THE DIAGNOSTIC AREA''N\ 

oF MS16: “ASCLIV’NELTHER R/W READY NOR ATTENTION SET AFTER RECALIBRATE COMMAND''NR1\ 

34 MS17: -ASCII\"'SUBUNIT CHARACTERISTICS SAY LESS THAN 1 DIAGNOSTIC CYLINDER’W\ 

4 MS18: -ASCIIN"READ/URITE READY DROPPED BEFORE FORMAT OPERATION’ 'N\ 

69 MS19: — .ASCIT\'"FORMAT OPERATION REPORTED TIME-OUT Moy ges W\ 

a aie CYLINDER ‘'D28"". GROUP ‘‘D8’’. TRACK ‘'D8"’."'N\ 

i: MS20: -ASCII\"AFTER RECAL, ERROR BITS WERE SET''NR1\ 

ee MS21: -ASCII\N" LOGGABLE INFORMATION AFTER RECAL*'WR1\ 

a] MS22: “ASCII\"READ/URITE READY DROPPED BEFORE WRITE OPERATION’ N\ 

78 MS23: "ASCIIN" COULD NOT WRITE AND READ ANY BLOCK ON THIS TRACK. ON ary BLOCK :"'N\ 

79 -ASCIIN' went OPERATION REPORTED FAILURE <= ERROR CODE *'08"’ 0 -N\ 

” -ASCII\"DBN N "D24"", CYLINDER ‘D28"'. GROUP ‘D8’. TRACK DB" WN 

36 MS24: -ASCII\" ‘READ/WRITE READY DROPPED BEFORE READ OPERATION’ N\ 

84 MS25:  <ASCII\'COULD NOT WRITE AND a ANY BLOCK ON ote Lg? c ree BLOCK:"'N\ 

85 eASCII\''READ OPERATION REPORTED ae - FERRO E "08'' 0 -"N\ 

ae ‘eyte 0 N *D24"". CYLINDER *'D28"’. be “TRACK Da AN 

88 MS26: “A SCII\'"COULD NOT WRITE AND READ ANY BLOCK eM THIS TRACK. ON LAST BLOCK:'W\ 

89 ASCII\''DATA Sefer ent FAILURE ON WORD *'D16°'."'N 

90 ASCII\' EXPEC Fy “HION\ 

91 "ASCLINT ACTUAL 16N\ 

4 . Soest) CHLENDE INDER O28". GROUP "D8*'. TRACK ‘'D8’’."'N\ 

4 MS27: ASCII\''SEEK COMPLETE TIME-OUT == mg to READY DID NOT SET.*'N\ 

<3 ° ara) eee WAS TO CYLINDER ‘D28"'. GROUP ‘'D8"*."'N\ 

97 MS28:  .ASCII\"'NO BLOCK ON THIS TRACK CAN BE READ. LAST BLOCK TRIED:"'N\ 

+ ° ae N ‘'D24"". CYLINDER *D28"'. GROUP "D8". TRACK *D8"*."'N\ 

100 MS29: ASCII \"AVAILABLE WAS NOT ASSERTED AFTER DISCONNECT''N\ 

159 aera 7 STATE RECEIVED ‘'HI6N\ 

4 MS30: “ASCIIN" INVALID COMMAND *'H16"' WAS SUCCESSFUL''W\ 

+4 MS31: “ASCII\" COMMAND WITH “'R1°* LENGTH = ‘'D8"’ WAS SUCCESSFUL'W\ 

4 34 MS32: i a DID NOT REPORT TRANSMITTION ERROR’ 'WNR1\ 

+4 MS33: oASELIN’ ur ACCEPTED AN INVALID GROUP NUMBER FROM GROUP SELECT LEVEL 1°'N\ 

3 MS34: “ASCIIN’ ‘UNABLE TO CORRECTLY READ OVERLAY ‘‘O3NR1\ 

it? MS35: -ASCIIN"SUCCESSFULLY WROTE IN DBN AREA WHEN DRIVE WAS WRITE PROTECTED''W\ 





SEEKER SWWWWWWWWWAII NN NNNNNIND 2 2 eS 


CaO 2S WOO Orn RUD 2 DOO WAU PNT 2 OOO SOUR NI SO OOd YORUM OMe OOD IRN 


— = SS Sh SS SS SS SS SS 2 2S 2 SS 2 Ss 2 SS SS os Ss es SS oO 


SS SSS SSS SS VV ye 


-“O0ONOUW 
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FOR OVERLAY TABLE 


MS36: 
MS37: 


MS38: 
SER36: 


SER39: 
SEROO: 


MS .ONL: 
MS.CLR: 
MS.DIS: 
MS.GCR: 
MS.SCR: 
MS.GST: 
MS.MOD: 
MS.SEK: 
MS.INR: 
MS .RUN: 
MS2000: 


SER10: 
SER11: 
SER12: 
SER13: 
SER14: 
SER15: 
SER16: 
SER17: 


mM 4 


i) \"DRIVE IS NOT PROPERLY FORMATTED."NR1\ 

eASCII \"DRIVE IS FORMATTED IN 576 BYTE MODE.‘'N\ 
CII \''TO RUN WITH A UDA, THIS DRIVE NEEDS TO BE FORMATTED ‘“\ 

“Deeee ha 512 BYTE MODE."N\ 

“Bote! \""NO COPY OF THE FCT COULD BE READ.‘'NR1\ 


-ASCII \"'UDA WILL SPIN DOWN THIS DRIVE IF USED IN NORMAL SYSTEM OPERATION. "'N\ 
eASCII \""THIS DRIVE NEEDS TO BE FORMATTED.*'\ 


“BYTE 
“ASCIIN" THIS UDA AND ALL DRIVES ATTACHED WILL BE REMOVED FROM TESTING'N\ 
“ASCII\"COMMAND WAS ‘'R1\ 

“ASCII\" ONLINE” W\ 

SASCIIN' DRIVE CLEAR''N\ 
-ASCIIN"DISCONWECT*N\ 

“ASCIIN''GET COMMON CHARACTERISTICS’ N\ 
“ASCIIN"GET SUBUNIT CHARACTERISTICS''N\ 
“ASCIIN“GET STATUS'N\ 

“ASCII\''CHANGE MODE"'N\ 

“ASCII\" SEEK N\ 

“ASCIIN“ INITIATE RECALIBRATE'N\ 


ASCII \‘UNABLE FIND REQUESTED DRIVE FOR TESTING'N\ 
ASCII \"'THE FOLLOWING IS VISIBLE ON THE PORTS'N\ 
ASCII \'UDA PORT 0 == ‘RI\ 

ASCII \'UDA PORT 1 == “RIN 

“ASCII \"UDA PORT 2 == "RIN 

“ASCII \"UDA PORT 3 == “RI\ 


“ASCII NO DRIVE ATTACHED’ 'N\ 

“aetae  ataan RDY NEVER ASSERTED''N\ 

eASCII \"'TIMEQUT OF SEND''N\ 

oBoeae \""TIMEOUT OF RECEIVE''N\ 

itt \""FIRST WORD RECEIVED WAS NOT START FRAME''N\ 
“nota \""FRAMING ERROR ON LEVEL 0 RECEIVE''N\ 


-BYTE 0 
neta! 5 CHECKSUN ERROR ON LEVEL 0 RECEIVE’'N\ 


“ASCII \"RESPONSE LONGER THAN EXPECTED FOR GET STATUS CMD''N\ 


ne ee Ce i ee - en 


SEQ 0467 
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MACRO FOR OVERLAY TABLE 
172 .BYTE 0 
173 SER18: .ASCII \"DRIVE "R1\ 
174 “BYTE 0 
175 SER18D: .ASCII \D6", ‘ 
176 SER18C: .ASCII \D6". ° 
177 SER18B: .ASCII \D6". "\ 
178 SERI8A: .ASCII \DO6N\ 
179 “BYTE 0 
180 SER22: .ASCII\REAL TIME STATE “'H16N\ 
181 -ASCIIN"'STATUS (R TO L): ''H16S2H16S2H16S2H16S2H16S2H16S2H16N\ 
183 SER23: -ASCIIN"REAL TIME STATE “'HI6N\ 
185 SER4O: “ASCII \"DRIVE NOT AVAILABLE TO THIS UDA''N\ 
187 SER41: ASCII \"DRIVE NOT SPINABLE''N\ 
189 SERSO: <ASCII\''COMMAND''\ 
190 “BY 
191 SERS1: -ASCI1\""RESPONSE"\ 
193 SERS2: -ASCIIN" WHEN A CONTINUE OR END FRAME CID NOT FOLLOW A START FRAME''N\ 
198 SERS3: “ASCII\' WHEN AN END FRAME WAS SENT WITH NO START FRAME''N\ 
197 SER54: .ASCII\'WHEN AN END FRAME WITH A BAD CHECKSUM WAS SENT''N\ 
199 SER55: .ASCII\'WHEN A CONTINUE FRAME WAS SENT WITH NO START FRAME''N\ 
SERS6: “ASCII\' WHEN TWO CONSECUTIVE START FRAMES WERE SENT'N\ 
SERS?: “ASCII\" WHEN AN END FRAME WAS SENT AFTER A START FRAME TIMED OUT''N\ 
OVL.MS = 


.ENDM 










So 
[=] 
o 
~“ 
o 
— ae et OC OC 


— 
m™ 
So 
So 
So 


003116 


oO 
g 
S 


0000 


002646 
077674 


NOPE @ 2 OS 
NOUSWN 0 OONOUS WR 


3 
? 
3 024000 
201 000004 
000400 


33 
3 
S 


HUE BS 
- 
w 


Ww 
w 
S 
= 
SaSe 
So 
w 
: 
oa 
oO 


177777 


001037 
001036 


001034 
001033 


1$: 


RTDSL: 


RDSTAT: 


RETURN 
STATUS 


1$: 
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RTDS = REAL TIME DRIVE STATE ROUTINE WITH ERROR REPORTING (T 


RTDS <= REAL TIME DRIVE STATE ROUTINE WITH ERROR REPORTING (TEST 4) 


-SBTTL 






DIFF BETWEEN SEND + RECEIVE ERRORS, REPORT HERE 


CALL 
TST 


BEQ 
DEVFTL 


ENDERR 
RETURN 
~SBTTL 


RTDOSL 
R2 


1$ 
13 


: GET REAL TIME rine 


SEE IF ERROR OCCUR 


IF NOT, BRANCH 
REPORT DEVICE hes ERROR 


RTDSL = CALL RDSTAT 


SDI,R2 
RDSTAT 
#077674,R1 


OV #MS13,0UT.04 
MOV LUNIT,OUT.03 
MOV #13!FTLDEV+3000. ,R2 
MOV R2,0UT.02 
MOV #. ,OUT.01 
MOV #ERRMES ,OUT.RQ 
CLR ERRPOS 


: GET INTERCONNECT CODE 
: CLEAR UNUSED BITS 


RDSTAT = GET DRIVE’S REAL TIME DRIVE STATE 


DRIVE STATUS 
RETURNED IN DM REGISTER 1 


INPUT R2 MUST HAVE INTERCONNECT CODE 


PUSH 


RETURN 


<R3,RO> 


4 pt ar fe oR3 
mee oR1 
#RCVERR,R1 
2$ 
R3 
1$ 
#177777 ,R2 
3$ 


R2 
<RO,R3> 


SAVE R3 AND RO 
MOV R3,-(SP) 
MOV RO,=-(SP) 


; ERROR COUNT 
; GET DRIVE'S $ 
; SE IF DRIVE tLocK IS PRESENT 


COUNT 
F R COUNT NON-ZERO, BRANCH 
MARK AS RECEIVE ERROR 


NO ERRORS 
RESTORE RO, R3 
MOV (SP)+,RO 


MOV (SP)+,R3 
RETURN TO CALLING MODULE 


3; CLEAR THE POSITION 





001000 


NO CONOUS wr 


—— 


& 


FWN $C OONOULW 
Sooococ[eoeo 
NR at tt 
WW NAaUSNMO 


NOPoNoN NY 2 Se Oe 


031 
25 001032 


001475 001036 
001033 


001033 
000043 


001033 
000043 


177777 001033 


HOSTRQ: 


UDAT3 DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 23 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


-SBTTL HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 








; SEND yr ft at TO HOST AND WAIT FOR RESPONSE. 
ARG REA OF OUT BUFFER IN PREPARATION 
;FOR NEXT HOSTRQ CALL. 


;CLEAR 


INPUTS: 


SNDAGN: 





UMENT A 


RO_= HOST REQUEST NUMBER 
OUT BUFFER LOADED WITH DATA 


PUSH 


RETURN 


<RO,R1,R2> 


LUNIT,OUT.03 
RO RQ 


#OUT.RQ,RO 
WBUFSIZ.R1 
MRD 


R1 

SNDAGN 
#OUT.RQ,RO 
#BUFSIZ,R1 
MWR 


#-1 ,OUT.RQ 
<R2,R1,R0> 


MOV RO,=(SP) 
MOV R1,=-(SP) 
MOV R2,=(SP) 


STORE REQUEST NUMBER IN BUFFER 
SEND BUFFER TO HOST 


CHECK FOR oe 
IF CRROR, TRY AGAIN 
WAIT FOR RESPONSE FROM HOST 


MAKE REQUEST ILLEGAL 
MOV (SP)+,R2 


MOV (SP)+,R1 
MOV (SP)+, *RO 


ac 
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HOSTRG = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


SEQ 0471 


1 sSTORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 

5 OUT BUFFER = DATA TO SEND TO HOST 

5 001033 000000 OUT.RQ: .WORD 0 HOST REQUEST CODe 
6 001034 00 OUT.01: .WORD 0 zDATA ARGUMENT 1 
7? 001035 000000 OUT.02: .WORD 0 sDATA ARGUMENT § 
8 001036 000000 OUT.03: .WORD 0 sDATA ARGUMENT 

9 001037 000 OUT.04: .WORD 0 sDATA ARGUMENT 4 
10 001040 000000 OUT.05: .WORD 0 3 ARGUMENT 5 
11 001041 000 OUT.06: .WORD 0 zDATA ARGUMENT 6 
12 001042 000000 OUT.07: .WORD 0 sDATA ARGUMENT 7 
13 001043 000000 OUT.08: .WORD 0 zDATA ARGUMENT 8 
14 001044 0000 OUT.09: .WORD 0 zDATA ARGUMENT 9 
15 001045 000000 OUT.10: .WORD 0 zDATA ARGUMENT 10 
16 001046 000000 -11: .WORD 0 zDATA ARGUMENT 11 
17 001047 00 OUT.12: .WORD 0 : ARGUMENT 12 
18 001050 000000 OUT.13: .WORD 0 ARGUMENT 13 
19 001051 000000 OUT.14: .WORD 0 sDATA ARGUMENT 14 
20 001052 000000 OUT.15: .WORD 0 sDATA ARGUMENT 15 
21 001053 000000 OUT.16: .WORD 0 zDATA ARGUMENT 16 
22 001054 000000 OUT.17: .WORD 0 zDATA ARGUMENT 17 
23 001055 OUT.18: .WORD 0 zDATA ARGUMENT 18 
24 001056 000000 OUT.19: .WORD 0 zDATA ARGUMENT 19 
25 001057 0000 OUT.20: .WORD 0 zDATA ARGUMENT 20 
26 001060 000000 OUT.21: .WORD 0 zDATA ARGUMENT 21 
27 001061 000000 OUT.22: .WORD 0 zDATA ARGUMENT 22 
28 001062 000000 out gz -WORD 0 zDATA ARGUMENT 25 
29 001063 000000 OUT.24: .WORD 0 zDATA ARGUMENT 24 
30 001064 000000 UT.25: .WORD 0 zDATA ARGUMENT 25 
31 001065 000000 OUT.26: .WORD 0 : ARGUMENT 26 
32 001066 000000 OUT.27: .WORD 0 ; GUMENT 27 
33 001067 000000 OUT.28: .WORD 0 zDATA ARGUMENT 28 
34 001070 OUT.29: .WORD 0 zDATA ARGUMENT 29 
35 001071 000000 OUT.30: .WORD 0 sDATA ARGUMENT 30 
36 001072 000000 OUT.31: .WORD 0 zDATA ARGUMENT 3 
37 001073 000000 OUT.32: .WORD 0 sDATA ARGUMENT 3 
38 001074 000000 OUT.33: .WORD 0 3D ARGUMENT 3 
39 001075 000000 OUT.34: .WORD 0 sDATA ARGUMENT 34 
40 0043 BUFSIZ = - = OUT.RQ SIZE OF BUFFER 
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TALK = SDI LEVEL 2 INTERCHANGE ROUTINE 








~-SBTTL TALK = SDI LEVEL 2 INTERCHANGE ROUTINE 


1 
‘ 001076 TALK: 
4 : TALK SENDS THE COMMAND TO THE DRIVE. IF AN ERROR OCCURRS, R2 IS 
2 ; RETURNED NONZERO 
7 001076 PUSH <R4,R5> ; SAVE POINTER TO UNIT AND SUBUNIT PARAMETERS 
001676 100464 MOV R4,=(SP) 
001077 100465 MOV R5,=(SP) 
8 001100 104302 002646 MOV SDI,R2 : GET UNIT SDI SELECT MASK 
9 001102 104205 000001 MOV #1,R5 : SEND TIMEOUT DEFAULT IS ONE 
10 001104 104207 002666 MOV #SNDONE , RO : MOVE SNDONE ADDR RO 
11 001106 106037 CMP R3 RO : SEE IF ONLY TO BE SENT ONCE 
12 001107 041112 BCC 10$ : IF $0, BRANCH 
13 0017310 104205 001750 MOV #MAXSND,R5 : SEND MAXIMUM NUMBER OF TIMES (ONLINE) 
14 001112 104137 10$: MOV R3) ,RO : POINTS TO SDI COMMAND BUFFER 
15 001113 104631 000001 MOV 1(R35,R1 : LOAD BYTE COUNT 
16 001115 060004 XFC SEND : SEND SDI COMMAND 
17 001116 115001 TST : SEE IF SDI COMMAND SENT SUCESSFULLY 
18 001117 011145 BEQ 15$ : IF $0, BRANCH 
19 001120 117405 DEC 5 : DECREMENT TIMEOUT 
20 001121 051112 BNE 10$ : IF UNEXPIRED, BRANCH 
21 001122 POP 5 : RESTORE R5 
001122 104265 MOV (SP)+,R5 
22 001123 PUSH = R3 : SAVE SDI PACKET POINTER 
001123 100463 MOV R3,-(SP) 
23 001124 HARDER 1 
001124 104200 000000 001037 MOV #MS1,0UT.04 
001127 104300 001475 001036 MOV LUNIT ,OUT.03 
001132 104202 105671 MOV #1 !ERHARD+3000. ,R2 
001134 104020 001035 MOV R2,0UT.02 
001136 104200 001136 001034 MOV #..OUT.01 
001141 104200 060013 001033 MOV #ERRMES ,OUT.RO 
24 001144 001335 BR 50$ : BRANCH 
25 001145 15$: POP RS + RESTORE RS 
001145 104265 MOV (SP)+,R5 
26 001146 106203 002717 CMP #LONG,R3 : SEE IF LONG TIMEOUT TO BE USED 
27 001150 071154 BMI 20$ : IF $0, H 
28 001151 104304 001461 MOV SDISTO,R4 : R4 HAS SHORT TIMEOUT 
29 001153 001156 BR 25$ : BRANCH 
30 001154 104304 00146? 20$ MOV SDILTO,R4 : R4 HAS LONG TIMEOUT 
1 001156 104637 000002 25$ MOV 2(R3),RO : POINT TO RECEIVE BUFFER 
32 001160 104631 000003 MOV 3(R3)_R1 + NUMBER OF WORDS IN RESFONSE 
33 001162 PUSH = R3 : SAVE POINTER TO COMMAND 
001162 100463 MOV R3,=(SP) 
34 001163 060005 XFC RCV : RECEIVE SDI RESPONSE 
35 001164 POP R3 : RESTORE R3 
001164 104263 MOV (SP)+,R3 
36 001165 115001 TST R1 ; SEE IF SDI RESPONSE RECEIVED SUCESSFULLY 
37 001166 011412 BEQ 60$ : IF SO, BRANCH 
38 001167 106201 000001 CMP #1,R1 : SEE If TIMEOUT 
39 001171 051216 BNE 30$ + IF NOT, BRANCH 
40 00117 117404 DEC R4 + DECREMENT TIMEOUT VALUE 
41 001173 051156 BNE ‘- : IF TIMEOUT UNEXPIRED, BRANCH 
42 001174 PUSH Ro + SAVE R 
001174 100463 MOV R3,=(SP) 
43 001175 HARDER 2 
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UD 
TA 
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= SDI LEVEL 2 INTERCHANGE ROUTINE 


LK 


001175 
001200 
001203 
001205 
001207 
001212 
44 00121 
45 001216 
46 001220 
47 001221 
001221 
001224 
001227 
001231 
001233 
001236 
48 001241 
49 001242 
50 001244 
51 001245 
001245 
001250 
001253 
001255 
001257 
001262 
52 001265 
53 001266 
54 001270 
55 001271 
001271 
001274 
001277 
001301 
001303 
001306 
56 001311 
57 001312 
58 001314 
59 001315 
001315 
001320 
001323 
001325 
001327 
001332 
60 001335 
001335 
001340 
61 001343 
001343 
001346 
62 001351 
001351 
63 001352 
64 00135 
001353 


PEERS 
3 
So 


o-— 
ROS 
—o— 
ror 
fOw 
Neu 


RRREKR 


S262 —3 
4 
Ww 

OWS 

=No 


o— 


SERERE US 


_ 
WNMIWNNOWWw 


o-— 
IS 
SSSNSS ALUSSSNSS 


Ss8ssssse 
2RLRRRRRE 
onw 


Wrouw 
mow 
Wwreu 


Se Se Peeere 
88 SS8x8s 


Nm for im Rh 
Ss 


_ 

® 
Won 
Nw 


2 & 
Nm & 
8 


000014 
001475 


000002 


000160 


001037 
001036 


001034 
001033 


001034 
001033 


001037 
001036 
001034 
001033 


001037 
001036 


001034 
001033 


ss Ss SS $8 
Wwe == =. 


001037 


30$: 


35$: 


40$: 


45$: 


50$: 


55$: 


BR 

CMP 
BNE 
HARDER 


CERROR 
ENDERR 
POP 


BR 
HARDER 





50$ 
#2,R1 
35$ 
5 


50$ 
#4 ,R1 
4 


50$ 
#20,R1 
55$ 


5.<#SEROO, COMND> 


BRANCH 
SEE IF FIRST WORD NOT 
IF NOT, BRANCH 


BRANCH 
SEE IF FRAMING ERROR 
IF NOT, BRANCH 


BRANCH 
SEE IF CHECKSUM ERROR 
IF NOT, BRANCH 


BRANCH 
SEE IF BUFFER TOO SMAL 
IF NOT, BRANCH 


MOV 

MOV 
FLAG END OF REPORTING 

MOV 


MOV 
SAVE SDI PACKET POINTE 


EXIT 
UNKNOWN ERROR pe RED 


#MS2,0UT.04 

LUNIT ,OUT.03 

#2 'ERHARD+ 3000. ,R2 
R2,0UT.02 

4. ,OUT.01 

#ERRMES ,OUT.RO 
START FRAME 
#MS3,0UT.04 
LUNIT,OUT.03 

#3! ERHARD+3000. ,R2 


#.,0UT.O 
#ERRMES ,OUT.RQ 


#MS4 ,0UT.04 
LUNIT ,OUT.03 
= ta acetate 


ee 01 
#ERRMES ,OUT.RQ 


#MS5,,OUT.04 

LUNIT ,OUT.03 

#5 ERHARD 5000. .R2 
. ,OUT.01 

#ERRMES ,OUT.RO 

L 


#™S6,0UT.04 
LUNIT ,OUT.03 
#6 !ERHARD+3000. .R2 
#..OUT.01 
#ERRMES ,OUT.RO 
#SEROO,OUT.05 
ouT. 
BUFFER 


#SER22,0UT.07 
g70t ERAPGS 


BY_UDA 
#MS7 ,OUT.04 


SEQ 0473 


: SET THE POSITION 
MOV (SP)+,R3 


ae | 


cutesy + ieee eae _ —s 
vous DISK FUNCTIONAL DMACR X04.01 tr saa 12:01:30 PAGE 25-2 SEQ 0474 — 


~ SOI LEVEL 2 INTERCHANGE ROUTIN 


001356 104300 001475 001036 MOV LUNIT -OUT .03 
001361 104202 105677 MOV #7 'ERHARD+3000. ,R2 
001363 104020 001035 MOV R2,0UT.02 
001365 104200 001365 001034 MOV #.,0UT.01 
001370 104200 060013 001033 MOV #ERRMES ,OUT.RO 
65 001373 CERROR 5,<R1,#SEROO, COMND> ; REPORT ERROR 
001373 104010 001040 MOV OUT.05 
001375 104200 002573 001041 MOV BSERDO. OUT. 06 
001400 104300 002647 001042 MOV C , 
66 001403 ENDERR 8 ; FLAG END OF REPORTING BUFFER 
001403 104200 003276 001043 MOV ER22,0UT.08 
001406 104200 000011 003116 MOV $801 SERRPOS ; SET THE POSITION 
67 001411 001457 BR 65$ 3; EXIT 
68 001412 114002 60$: CLR R2 ; FLAG AS NO ERROR OCCURED 
69 001413 106637 000004 CMP 4(R3),R0 ; SEE IF COMMAND ACCEPTED 
70 001415 011457 EQ 65$ : IF SO, BRANCH 
71 001416 HARDER 
001416 104200 000221 001037 MOV #MS8,OUT.04 | 
001421 104300 001475 001036 MOV LUNIT,OUT.03 
001424 104202 105700 MOV #8! ERHARD+3000. ,R2 
001426 104020 001035 MOV R2,0UT.02 
001430 104200 001430 001034 MOV #..OUT.01 
001433 104200 060013 001033 MOV #ERRMES ,OUT.RO 
72 001436 CERROR 5,<#SEROO,COMND,4(R3),RO> ; REPORT FURTHER ERRORS 
001436 104200 002573 001040 MOV #SER R00, OUT.05 | 
001441 104300 002647 001041 MOV COMND ,OUT .06 | 
001444 104630 000004 001042 MOV 4(R3) ,OUT.07 
001447 104070 001043 MOV RO,OUT.08 
73 001451 ENDERR 9 
001451 104200 003276 001044 MOV #SER22,0UT.09 
001454 104200 000012 003116 MOV #9+1,ERRPOS ; SET THE POSITION 
74 001457 65$: POP R4 ; RESTORE R4 
001457 104264 MOV (SP)+,R4 
z5 001460 000000 RETURN 


77 001461 000012 SDISTO: .WORD 10. : SDI SHORT TIMEOUT 
78 001462 000024 SDILTO: .WORD 20. : SDI LONG TIMEOUT 


2c 


canara aay 
ors DISK FUNCTIONAL DMACR X04. ‘' 23-AUG=82 12:01:30 PAGE 26 


TO = CALCULATE TIMEOUT INTERVALS 


SEQ 0475 


1 -SBTTL TO = CALCULATE TIMEOUT INTERVALS 

¢ 001463 TO: 

¢ : SAL CATE THE TIMEOUT IN 9SEC INTERVALS (SDI RECEIVE XFC TAKES 
é ; 

7 001463 104201 000001 MOV #1,R1 3; SET UP LOG2 SHIFTER 

8 001465 105011 1$: ADD R1,R1 ; DOUBLE eg i aaa VALUE 

9 001466 117407 DEC RO 3; DECREMENT C 

10 001467 051465 BNE 1$ 3 IF COUNT IN OUNPLETE, BRANCH 

11 001470 115407 2$: INC RO 3; INCREMENT 9 SEC 

12 001471 107201 000011 SUB #9.,R1 3 SUBTRACT 9 SEC FROM TIMEOUT 

13 001473 031470 BPL 2$ 3; IF MORE TIME TO GO, BRANCH 

1% 001474 000000 RETURN 3; RETURN TO CALLING PROGRAM 

ig 001475 177777 LUNIT: .WORD -1 ;LOGICAL UNIT NUMBER (-1 FOR NOT AVAILABLE) 
18 -SBTTL LINIT = INIT THE DRIVE 

19 001476 104302 002646 LINIT: MOV SDI,R2 3; R2 HAS INTERCONNECT CODE 

20 001500 060011 C DINIT 

$3 001501 000000 RETURN 


cc 





I 5 
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123456 
123456 


UDA . 
STACK AREA 
003274 
000000 
0000 
29 


-SBTTL STACK AREA 
;STACK AREA 


«WORD 123456 
-BLKW 31. 
STACK: .WORD 123456 


SEQ 0476 


END MARKER FOR STACK 
SMARKER FOR STACK UNDERFLOW 


1 

2 

3 

4 

5 

? 

8 003006 SUB SUB + CR MODIFY SUB TO POINT AT SUBUNIT CHAR 
10 005670 ERRN=3000. zSTART ERROR NUMBERS AT 3000. 
11 001543 SER18E: .WORD SER18A : FOR MULTIPLE SUBUNIT ERROR REPORTING 
12 001544 003271 -WORD SER18B 
13 001545 003266 -WORD SER18C 
1 001546 003263 WORD SER18D 
19 : 
$9 : EACH OVERLAY TABLE IS COMPOSED OF TWO WORDS: 

22 ; 0) LOW ORDER STARTING ADDRESS OF OVERLAY 
23 3 1) <1::0> HI ORDER STARTING UNIBUS ADDRESS 
$¢ : <15::2> LENGTH OF OVERLAY 
26 000000 MSSG$ = 0 
27 OCNTS$ = 0 
28 001547 OTABLE: DFOVLY MSSG$,MS 
001547 00 -WORD 0 
001550 017354 «WORD OVL.MS*4 
001551 DFOVLY “aoe 
001551 000000 - WORD 
001552 005070 WORD OVL.SU*4 
30 001553 DFOVLY TEST,TS 
001553 000000 - WORD 
001554 011460 - WORD - TS*4 
31 000003 NUMOVL = - OTABLE> / 2 


= 
“wi 
“wi 
uw 


WER 


23 I BS SS SS SI 
av 
“ 
arw-on oa 


AAAAAAAO 


Od WWWIWNWIWNIRIDIPUDINENINININNY 2 2 Oo 
WOON ONAN = © O00 NOUS WN $0 OONOAUSWWH "0 VONOUSWwh— 
— td wd od 


sssssss §S SS8SSSSSSSSSSSSSsssssss § 


1617 


as 


xd oad ond od 
AAA 


50 
51 
52 
53 
Phy 
55 





tO ot IO 
rie et oy 9 4 gee us 
$ Fk dN domed 
Nm o 


sss 





002625 


000003 
000003 
040000 
002645 


001475 
000001 


177760 


000001 
002646 


001542 
002645 
000020 
060016 
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TEST 3 START AND LOOP ON UNITS 


R1 
#UNITS,RO 
R1 

(RO) ,R3 


R3, 
#UNITO. R2 
R1 


R1 
#LBLONB,R1 


OVRLAY 


#STACK,SP 
UNITNB,R1 
R 


DONE CD 


Sete Ge Ge Se Ge Ge Se Ge Ge Se . 


SEQ 0477 


D 
TESTING FIRST SUBUNIT OF A DRIVE 


NUMBE 
D NUMBER FOR TESTING SECOND SUBUNIT OF A DRIVE 
:START WITH UNIT 0 INDEX 


4 5 eer TO UNITS TABLE 


eT CONTENTS OF TABLE 

IF THIS UNIT IS PRESENT, BRANCH 

SEE IF ON SUBUNIT O OF UNIT 

IF NOT, TEST NEXT SUBUNIT 

IF NO SUBUNIT 0, THEN NO UNIT = SKIP OTHER SUBUNITS 
BYPASS IF NO UNIT 

re. Ar THIS UNIT IS TO BE TESTED 

IF _N 77 tae 

STORE init INDEX 

hh ewe UNIT NUMBER FOR DRIVE 
GET UNIT 0 INTERCONNECT CODE 

DIVIDE UNITNB BY FOUR 


CLEAR UNUSED BITS 


; FOR EACH DR.VE OVER O SHIFT R2 LEFT 
; CLEAR CARRY ROTATED INTO REG (IF ANY) 


STORE SDI os ees CODE 

po mp OVERLAY IN 
PERFORM TEST ON aie Ment 
TEST RETURNS TO T 

RESET STACK DUE TO JUMPS OUT OF 

SUBROUTINES 

GET UNIT at 

INCREMENT INDEX 

CHECK _IF 16 ret ALREADY SELECTED 

REPEAT FOR ALL DRIVES 

END OF PROGRAM 


REPEAT IF RETURNED 


co 










ee a ee ee 


OVRLAY = OVERLAY PROCESS FOR BRINGING IN OVERLAY 


4 ering Ih oovRLay = OVERLAY PROCESS FOR BRINGING IN OVERLAY 
H eee 

6 001633 104206 001542 OVRLAY: MOV #STACK,SP : RESET STACK DUE TO JUMPS OUT OF 

7 001635 104307 001730 MOV OVRLNM.RO : GET WHICH OVERLAY TO BRING IN 

8 001637 103207 177776 BIC #177776,RO : CLEAR ALL BUT LAST BIT 

9 001641 115407 INC + INCREMENT P POINTER 

10 001642 104070 001731 MOV RO, OVRPNT : SAVE OVERLAY NUMBER FOR ERROR 

11 001644 110207 ROL RO : HIFT FOR PROPER POINTER 

12 001645 104205 000003 MOV #3,R5 ; Ger TRIES 

13 001647 104671 001550 1$: MOV OTABLE+1(RO),R1 : GET THE HI ORDER BITS OF UNIBUS ADDRESS 

14 001651 104012 MOV R1,R2 : GET NUMBER OF WORDS OF TRANSFER 

15 001652 110602 ROR : ROTATE BIS O CORRECT POSITION 

16 001653 110602 ROR R2 

17 001654 103202 140000 BIC #140000, R2 3 CLEAR UNUSED BITS 

18 001656 103201 177774 BIC #77774 AR ; CLEAR UNUSED BITS FOR HI ORDER 

19 001660 104203 005262 MOV #OVR RS : POINT TO WHERE TO LOAD OVERLAY IN UDA RAM 

20 001662 104677 001547 MOV OTABLE (RO), RO : GET LO ORDER UNIBUS ADDRESS 

21 001664 060013 XFC UREAD : READ THE OVERLAY INTO UDA MEMORY 

22 001665 115001 TST : DONE? 

23 001666 011724 BEQ 2$ : IF $0, QoPANCH 

24 001667 117405 DEC R5 : ELSE TRY AGAIN 

25 001670 051647 BNE 1$ : IF RETRIES NOT ALL USED, BRANCH 

26 001671 DEVFTL 34,<OVRPNT,#SER39> UNASLE TO READ FROM HOST MEMORY 
001671 104200 002220 001037 ov 4#MS34,OUT. 
001674 104300 001731 001040 MOV OVRPNT, our. 05 
001677 104200 002532 001041 MOV #SER39 OU T.06 
001702 104300 001475 001036 MOV T our .03 
001705 104202 045732 MOV SUT FTL DEVs 3000. .R2 
001707 104020 001035 MOV R2,0UT.02 
001711 104200 001711 001034 MOV #.,OUT.01 
001714 104200 060013 001033 MOV #ERRMES ,OUT.RO 

27 001717 104200 177777 001036 MOV #-1,0UT.03 : FLAG AS NOT ASSOCIATED WITH ANY UNIT 

28 001722 021753 CALL ‘TESTED + AND REPORT ERROR 

29 001723 001727 BR 3$ + AND BRANCH 

30 001724 115400 001730 2s: INC OVRLNM : GET READY FOR NEXT OVERLAY 

31 001726 025262 CALL OVRLPT : GO EXECUTE CODE 

32 001727 001617 3$: BR TESTX : HERE IF ERROR 

34 001730 000000 OVRLNM: .WORD 0 : OVERLAY NUMBER 

35 001731 000000 OVRPNT: .WORD 0 





K = | 
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— 4 3s — 
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1 -SBTTL ERROR EXIT 
2 001732 TESTEW: CERROR 5,<#SER23,R1> 
001732 104200 003344 001040 
001735 104010 001041 
3 001737 001753 BR TESTED 
4 001740 TESTEV: ENDERR 5 
001740 104200 003276 001040 
001743 104200 000006 003116 
5 001746 104203 00103 TESTEX: MOV #OUT.RO,R3 
6 001750 105303 003116 ADD ERRPOS ,R3 
? 001752 022131 TESTEY: CALL STRST 
8 001755 104302 002646 TESTED: MOV SDI ,R2 
9 001755 060011 XFC DINIT 
0 001756 104307 001033 MOV OUT.RQ,RO 
1 001760 021000 CALL HOSTR 
2 001761 104200 000377 002741 DR.CLR: MOV #LOBYTE ,ERRORS 
3 001764 104203 002662 MOV #CR.CLR,RS 
4 001766 021076 CALL TALK 
5 001767 000000 RETURN 


eee ee ce a te ne nee - 


MOV 
; SET UP POSITION IN R3 


SEQ 0479 


; PRINT REAL TIME DRIVE STATE ONLY 
MOV #SER23, 5 


MOV R1,0UT.06 


MOV #SER22 ,0UT.05 


#5+1,ERRPOS ; SET THE POSITION 


GET STATUS FROM ST 

R2 HAS INTERCONNECT CODE 
AND INIT DRIVE 

PRINT ERROR 


; CLEAR ALL ERRORS 


; GO TO CALLING ROUTINE 


or 


sain ANS EW OF SL Tee ian 
‘eall DISK tie X04.01 23-AUG-82 12:01:30 PAGE 31 


FNDCYL = FIND CYLINDE 


j ~SBTTL FNDCYL = FIND CYLINDER 
? 3 FNDCYL FIND CYLINDER 

5 ; INPUTS: R4 => HIGHEST CYL (VAR1) 
é ; R5 => DESIRED BN (VAR2) 
7 : Ag VAR3 

: 3 R1 = VAR4 

10 001770 FNDCYL: 

11 001770 106200 000104 003115 CMP #'D, LETTER 

12 001773 052006 BNE FND3 

13 : *** FOR DBN AREA 

14 001774 104205 003062 MOV #LCDBN,RS 

15 001776 104204 003067 FNDCY2: MOV #FDIACYL,R4 

16 002000 103200 170000 003070 BIC #°CHBHING FDIACYL#1 
17 002003 104303 003073 MOV SECTRK,R3 

18 002005 002034 BR FND 

19 06 106200 6001174 003115 FND3: CMP #'L, LETTER 

20 002011 052025 NE 

21 : **® FOR LBN AREA 

22 002012 114000 003076 CLR TSTCYL 

23 002014 114000 003077 CLR TSTCYL#1 

24 002016 104204 003076 MOV #TSTCYL, 

25 002020 104303 003017 MOV SUB+LBNTRK,R3 
26 002022 103203 177400 BIC MHIBYTE,R3 

27 002024 002034 BR FND4 

8 - wee FOR XBN AREA 

29 002025 104204 003071 i$: MOV #FXBNCYL,R4 

30 002027 103200 170000 003072 BIC #°CHBHINB, FXBNCYL#1 
31 002032 104303 003073 MOV SECTRK,R 

32 002034 104302 003007 FND4: MOV SUB+LBNCYL+#1,R2 
33 002036 103202 007777 BIC #HBHINB, R2 

34 002040 101642 000001 BIS 1(R4) ,RO 

35 002042 100642 000001 MOV R2,1(R4) 

36 002044 4$: 

37 002044 104247 MOV (R4)+,RO 

38 002045 104070 003123 MOV RO, VAR1 

39 002047 104147 MOV (R4),RO 

40 002050 104070 003124 MOV RO, VAR1+1 

41 002052 104257 MOV (R5)+,R0 

42 002053 104070 003125 MOV RO, VAR2 

43 002055 104157 MOV (R5),RO 

44 002056 104070 003126 MOV RO,VAR2+1 

45 002060 104030 003127 MOV R3,VAR3 

46 002062 104010 003130 MOV R1,VARG 

47 002064 104207 003123 MOV #VAR1,RO 

48 002066 104201 003006 MOV #SUB,R1 

49 002070 060020 XFC CVT 

50 002071 106200 000104 003115 CMP #'D, LETTER 

51 002074 012117 BEQ ? 

52 002075 106300 003133 003122 CMP GROUP, OLDGRP 

53 002100 032114 BPL $ 

54 002101 107300 003103 003074 SUB BLOCKC, TSTBLK 
55 002104 042107 BCC 5$ 

56 002105 117400 003075 DEC TSTBLK+1 

57 002107 114000 003122 5$: CLR OLDGRP 





1 


S IT A DIAGNOSTIC BLOCK? 


IT A LOGICAL BLOCK? 
NOT, BRANCH 


; R3 = LBN'S PER TRACK (VAR3) 

: CONTINUE 

SET POINTER TO FIRST XBN CYL=>VAR2 
zR3 = SECTORS PER TRACK (VAR3) 


:START LOADING VARIABLES 


3C 


; RO = VARIABLES 

;_R1 => SUBUNIT re i lade 
ONVERT TO CYLINDER 

; DON'T COMPARE IF IN. DBN AREA 


HAVE WE GONE OVER 2 CYL BOUNDARIES? 
IF NOT, BRANCH 


ELSE, GO BACK ONE CYLYINDER 
IF NOT CARRY, BRANCH 


NEW GROUP 


SEQ 0480 


117404 
117405 
001770 


104300 


000000 


CYLLO+1,TSTCYL#1 
GROUP, TSTCYL +2 


SEQ 0481 


; RESET POINTERS 
; AND TRY AGAIN 


; SAVE IN OLD GROUP FOR NEXT TIME THROUGH 
STORE IN TSTCYL 


mc 





ONOUSwr— 


002131 


Se eV we 
CONOULSWI—O”O 


154 
20 005185 


100467 


So 
So 


— O-m2o2s4ow 
o wo 


4262 


002646 
077674 


000007 
002773 


1$: 
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STRST = STORE INFORMATION IN AREA ' 


6 


«SBTTL STRST = STORE INFORMATION IN AREA ‘ST‘ 


STRST 
INPUT 
OUTPUT 
PUSH 


RETURN 


STORE ST 


R3_=> OUTPUT BUFFER 


OUTPUT BUFFER FILLED WITH VALUES FROM ST 


<RO,R1,R2> 


SDI,R2 
STATUS 
#077674,R1 
R1,(R3)+ 


#ST+7,RO 
=(RO)-R1 
a , (R3)¢+ 


tR2,R1.RO> 


3R2_HAS INTER 
3GET DRIVE STA 
;CLEAR UNUSE 


MOV RO,=(SP) 
MOV R1,=(SP) 


"ae CODE 


D BITS 
STORE by OUT BUFFER 
R2 IS # OF WORDS TO MOVE 
RO => STATUS 


MOV R2,-(SP) 


MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 


SEQ 0482 | 
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1 .SBTTL SEEK 
é SEEK 
4 :SEEK TO CYLINDER POINTED TO BY CONTENTS OF R1 
6 : INPUTS: 
7 3 R1 = POINTER TO CYLINDER NUMBER 
g ; R2 = SDI INTERCONNECT 
10 002156 SEEK: PUSH <RO,R1,R3> 
002156 100467 MOV RO,=(SP) 
002157 100461 MOV R1,=(SP) 
002160 100463 MOV R3,-(SP) 
11 002161 104302 002646 MOV SD1,R2 
12 002763 104210 002751 MOV (R1)+, INS#1 :PUT CYLINDER INTO COMMAND 
13 002165 104210 00275 MOV (R1)+,INS#2 
14 002167 104110 00275 MOV (R1),INS+3 ;PUT GROUP INTO COMMAND 
15 002171 104203 002713 SEEKA: MOV A#CR.SEK,R3 sPOINT TO COMMAND 
16 002173 104200 002706 002647 MOV #MS.SEK,COMND : SET UP FOR ERROR 
17 002176 021076 CALL TALK ; INITIATE SDI INTERCHANGE 
18 002177 115002 TST : SEE IF ERROR OCCURRED 
19 002200 012203 BEQ SEEK1 : IF KOT, BRANCH 
20 002201 021746 CALL TESTEX 3: IF SO, REPORT } 
21 002202 00232 BR SEEK3 3; AND EXIT . 
22 002203 114003 SEEK1: CLR R3 :SET UP WORST CASE SEEK TIME 
23 002204 104302 002646 SEEK2: MOV SD1,R2 : MOVE MASK TO R2 
24 002206 020754 CALL RDSTAT : GET DRIVE STATUS 
25 002207 11500 ¢ R2 : WAS IT OK? 
26 002210 01226 BFQ 2$ : IF SO, BRANCH 
27 002211 102201 000400 RIT #RCVERR,R1 : SEE WHICH ERROR | 
28 002213 052236 BNE 1$ : AND BRANCH | 
29 002214 HARDER 10 ; REPORT INVALID STATUS ERROR | 
002214 104200 000341 001037 MOV #MS10,0UT.04 
002217 104300 001475 001036 MOV LUNIT,OUT.03 
002222 104202 105702 MOV #10! ERHARD+3000. ,R2 
002224 104020 001035 MOV ,OUT. 
002226 104200 002226 001034 MOV #.,0UT. 
002231 104200 060013 001033 MOV #ERRMES ,OUT.ROQ 
0 002234 021732 CALL =‘ TESTEW : BRANCH TO DONE 
31 002235 002325 BR SEEK3 
32 002236 1$: | 
33 002236 HARDER 12 ; REPORT XMIT ERROR 
002236 104200 000434 001037 MOV #MS12,0UT.04 
002241 104300 001475 001036 MOV LUNIT,OUT.03 | 
002244 104202 105704 MOV #12! ERHARD+3000. ,R2 
2246 104020 001035 MOV R2,0UT.02 
002250 104200 002250 001034 MOV #.,OUT.01 
002253 104200 060013 001033 MOV #ERRMES ,OUT.RO 
34 002256 02173 CALL TESTEW ; BRANCH TO DONE 
35 002257 00232 BR SEEK3 
36 002260 2$: 
37 002260 102201 100000 BIT #RWRDY,R1 r1S R/wW READY SET? 
38 002262 052325 BNE SEEK3 3. YES 
39 002263 115403 INC R3 ‘BUMP COUNT 
40 002264 052204 BNE SEEK SKEEP WAITING 
41 002265 HARDER 27,<INS+1,INS#2,INS#3> SEEK COMPLETE TIME OUT 
002265 104200 001633 001037 MOV #MS27 ,QUT.04 





ac 





002270 
002273 


ae 

43 

44 002316 
002316 
002321 

45 002324 

46 002325 


002327 
4? 002330 


2 
FRRRRRRK 
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001040 


001036 


001034 
001033 


001043 
003116 


C 
POP <R3,R1,R0> 


SEQ 0484 


INS+1,0UT.05 
Ho 
,OUT.0 


LUNIT OUT. 03 
#27 /ERWARD+ 3000. .R2 


#.,OUT.01 
#ERRMES ,OUT.RO 


#SER22 ,0UT.08 
#8+1,ERRPOS ; SET THE POSITION 


MOV (SP)+,R3 
MOV (SP)+,R1 
MOV (SP)+,RO 


aT 


E 
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READ1 = READ SECTORS ON A TRACK FOR TEST 


-SBTTL READ1 = READ SECTORS ON A TRACK FOR TEST 


1 

g :READ1 

4 SREAD SECTORS ON THE SELECTED TRACK UNTIL ONE IS READ CORRECTLY 

2 [OR THE MAXIMUM NUMBER OF SECTORS IS READ 

7 : INPUTS: 

8 ; R3 HAS MAX NUMBER OF SECTORS TO READ 

9 : TRACK HAS TRACK NUMBER 

10 : R5 => POINTER TO BLOCK NUMBER OF FIRST SECTOR 

11 ‘OUTPUTS: 

12 : R2 1S CLOBBERED 

14 002331 READ1: PUSH <RO,R1,R3,R4,R5> 
002331 100467 MOV RO,=(SP) 
002332 100461 MOV R1,=(SP) 
002333 100463 MOV R3,-(SP) 
002334 100464 MOV R4.=(SP) 
002335 100465 MOV RS,=(SP) 

15 002336 104304 003134 MOV TRACK, RG :R4 IS TRACK 

16 002340 104207 003661 MOV #RBUFO+RW.LOW,RO 

17 002342 104251 MOV (R5)+,R1 :PUT GLOCK NUMBER IN 

18 002343 100271 MOV R1,(RO)+ : READ BUFFER 

19 002344 104151 MOV (R5),R1 

21 002345 106200 000130 003115 CMP #°X, LETTER : DO WE DO PROCESS FOR XBN? 

22 002350 052364 BN > IF NOT, BRANCH 

33 : *** FOR XBN AREA 

4 002351 104305 603010 MOV SUB+HIXBN,R : DO SPECIAL PROCESSING TO PUT HEADERIN PLACE 

25 002353 110605 ROR R5 : SHIFT TO NEXT NIBBLE 

26 002354 110605 ROR R5 

27 002355 110605 ROR R5 

28 002356 110605 ROR R5 

29 002357 103205 170377 BIC #HBLONB, RS ; STRIP OFF UNUSED PORTION 

30 002361 101205 120000 BIS #HD.XBN.RS : SET HEADER CODE 

31 002363 002407 BR 10 

32 002364 106200 000104 003115 9$: CMP #'D, LETTER : DO WE PROCESS FOR DBN? 

33 002367 012375 BEQ 11$ ; IF SO, BRANCH 

34 y *** FOR LBN AREA 

35 002370 104305 003010 MOV SUB+HILBN,RS : GET HI LBN VALUE (DON'T HAVE TO RUR) 

36 002372 103205 170377 BIC #HBLONB, R5 

37 002374 ASSUME HD.LBN,O 

38 002374 002407 R 10$ : 

39 ; *** FOR DBN AREA ; 

40 002375 104305 003011 11$: MOV SUB+HIDBN,RS : GET HIGH ORDER BITS OF STARTING DBN 

41 002377 110605 ROR RS : MOVE TO CORRECT POSITION 

42 002400 110605 ROR R5 

43 002401 110605 ROR R5 

44 002402 110605 ROR R5 

45 002403 103205 170377 BIC #HBLONB,RS : CLEAR UNUSED BITS 

46 002405 101205 140000 BIS #HD.DBN.RS : SET HEADER CODE 

47 002407 105051 10$: ADD R5,R 

48 002410 100271 MOV R1.(ROS+ 

49 002411 104171 MOV (RO),R1 :PUT IN TRACK NUMBER 

50 002412 103201 000377 BIC #LOBYTE,R1 [ (MERGE WITH REAL-TIME COMMAND) 

51 002414 101041 IS R4,R1 

52 002415 100171 MOV R1,(RO) 





ac 


Ga ANIA isp RGAE IER RE HC Cw oe ae —— seemcngeliaiin 
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READ] = READ SECTORS ON A TRACK FOR TEST 
53 002416 104207 003657 READIA: HOV #RBUFO, RO :POINT TO READ BUFFER 
54 d0242 104302 002645 MOV DI,R2 : MOVE MASK TO R2 
55 00 age 020754 CALL = RDSTAT ; Ger DRIVE STATUS 
56 002423 115002 TST R2 : WAS I Ok? 
57 002424 012474 BEQ 2$ : IF S ANCH 
58 002425 102201 000400 BIT #RCVERR,R1 ; SEE. if ONY ERRORS 
59 002427 052452 BNE $ : REPO 
60 002430 HARDER 10 : REPORT INVALID STATUS ERROR 
002430 104200 000341 001037 MOV #™S10,0UT.04 
002433 104300 001475 001036 MOV LUNIT,OUT.03 
002436 104202 105702 MOV #10! ERHARD+3000. ,R2 | 
002440 104020 001035 MOV R2,0UT.02 
002442 104200 002442 001034 MOV #.,0UT.01 
002445 104200 060013 001033 MOV #ERRMES ,OUT.RO 
61 002450 021732 CALL _—*‘TESTEW : BRANCH TO DONE 
62 002451 002617 BR READ1X 
63 002452 1$: 
64 002452 HARDER 12 : REPORT XMIT ERROR 
002452 104200 000434 001037 MOV #MS12,0UT.04 
002455 104300 001475 001036 MOV LUNIT,OUT.03 
2460 104202 105704 MOV #12! ERHARD+3000. ,R2 
002462 104020 001035 MOV R2,0UT.02 
002464 104200 002464 001034 MOV #.,0UT.01 | 
002467 104200 060013 001033 MOV #ERRMES ,OUT.RO 
65 002472 021732 CALL =‘ TESTEW : BRANCH TO DONE 
66 002473 002617 BR READ1X 
67 002474 2s: 
68 002474 102201 100000 BIT #RWRDY,R1 : SEE_IF READ WRITE READY IS STILL HIGH 
69 002476 05 1 BNE READIC IF So, ANCH 
70 002477 HARDER 24 {READ IURITE READY DROPPED BEFORE READ | 
002477 104200 001306 001037 MOV mms24, OUT.04 
002502 104300 001475 001036 MOV T.OUT.03 
002505 104202 105720 MOV HoT ERMARDs 3000. .R2 | 
002507 104020 001035 MOV R2,0UT.02 
002511 104200 002511 001034 MOV #.,0UT.01 
002514 104200 060013 001033 MOV #ERRMES ,OUT.RO | 
71 002517 021740 CALL _—«C*TESTEV : BRANCH | 
72 002520 002617 BR READ 1X 
73 002521 104302 002646 READIC: MOV SD1,R2 
74 002523 060012 XFC WAITS! :WAIT FOR SECTOR OR INDEX PULSE B4 READ 
82 002524 060002 XFC XREAD [READ THE SECTOR 
83 002525 115001 TST R1 :CHECK FOR ERROR 
84 002526 012617 BEQ READ1X SEND ROUTINE IF 
85 002527 117403 DEC R3 :COUNT MAX SECTORS TO READ 
86 002530 012543 BEQ READIE [REPORT ERROR IF ALL READ 
87 002531 104207 003661 MOV #RBUFO+RW. LOW, RO 
88 002533 104171 MOV (RO).R ZINCREMENT BLOCK NUMBER 
89 002534 115401 INC R1 
90 002535 100271 MOV R1,(RO)+ 
91 002536 042542 BCC READ1B 
4 002537 104171 MOV (RO), 
93 002540 115401 
94 002541 100171 V R1, (RO) 
3 ae eraete RE apie: BR READ "35, <LETTER, RBUFO+RW.LOW, ReUFOsRY. WL INSe] Ins 2. INS*#3, RBUFO+RW. CMD 
+ + + > 
002543 104200 001716 001037 MOV #ns2 
2546 104300 003115 001040 MOV LETTER, OUT.OS 





ac 





UDAT3 DISK FUNC 
READ1 = READ SE 


002613 
98 002616 
99 


100 
101 002617 
002617 


002623 
102 002624 


T 
C 


S ON A TRACK FOR TEST 
300 003661 001041 
00 


001036 
002602 001034 
060013 001033 


003276 001047 
000015 003116 


READ1X: 
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ENDERR 12 


CALL TESTEX 

MOV OUT.RQ,RO 
CALL HOSTRQ 

POP <R5,R4,R3,R1,R0> 


RETURN 


SEQ 0487 


RBUF 0+RW. LOW, OUT .06 
I ,OUT.07 


LUNIT,OUT. 
nea 


OUT. 
ee -01 
#ERRMES ,OUT.RQ 


#SER22 ,0UT.12 


#12+1, ERRPOS 3 SET THE POSITION 


MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV (SP)+,R1 
MOV (SP)+,RO 


> | 











002625 


CONOUS wr 


002625 
00 


002645 


000020 


177777 


177777 
000000 


000000 
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UNITS, SDI COMMANDS AND PROGRAM VARIABLES 


:PROGRAM VARIABLES 


UNITS: 


CR.GCR: 


CR.CLR: 


SNDONE 


CR.DIS: 


SEQ 0488 
.SBTTL UNITS, SDI COMMANDS AND PROGRAM VARIABLES 
:UNIT NUMBER STORAGE FOR DISK DRIVES TO TEST 
.REPT 16. ; 16. SUBUNITS (8 MAX) 4 ON EACH UNIT 
-WORD 177777 : L UNITS AS NON-EXISTANT TO START WITH 
“WORD 177777 z MARK ALL UNITS AS NON-EXISTANT TO START WITH 
"WORD 177777 : MARK ALL UNITS AS NON-EXISTANT TO START WITH 
“WORD 177777 : MARK ALL UNITS AS NON-EXISTANT TO START WITH 
“WORD 177777 : MARK ALL UNITS AS NON-EXISTANT TO START WITH 
“WORD 177777 : MAR UNITS AS NON-EXISTANT TO START WITH 
“WORD 177777 + MARK UNITS AS NON-EXISTANT TO START WITH 
“WORD 177777 : MARK ALL UNITS AS NON-EXISTANT TO START WITH 
“WORD 177777 : MARK ALL UNITS AS NON-EXISTANT TO START WITH 
“WORD 177777 : MARK ALL UNITS AS NON-EXISTANT TO START WITH 
“WORD 177777 : MARK ALL UNITS AS NON-EXISTANT TO START WITH 
"WORD 177777 : MARK ALL UNITS AS NON-EXISTANT TO START WITH 
“WORD 177777 : MARK UNITS AS NON-EXISTANT TO START WITH 
“WORD 177777 > MARK ALL UNITS AS NON-EXISTANT TO START WITH 
“WORD 177777 : MARK ALL UNITS AS NON-EXISTANT TO START WITH 
“WORD 177777 : MARK ALL UNITS AS NON-EXISTANT TO START WITH 
“WORD 177777 : MARK ALL UNITS AS NON-EXISTANT TO START WITH 
.WORD 0 ZNUMBER OF UNIT CURRENTLY UNDER TEST 
[POINTER TO TABLE ABOVE 
.WORD 0 7SD1 INTERCONNECT CODE FOR XFC CALLS 
.WORD 0 : POINTER TO COMMAND MESSAGE 
MESSAGE TABLES 
: MSG ONL,2,ST.7,.COMPLT : DRIVE ONLINE 
.WORD ONL ZADDRESS OF COMMAND 
“WORD 2 SIZE oF” COMMAND IN BYTES 
“WORD ST RESS OF REPLY 
“WORD 7 :SIZE OF "REPLY IN WORDS 
;WORD COMPLT z SUCCESSFUL COMPLETION CODE 
MSG GCR,1,CR,12.,170 : GET CHARACTERISTICS 
.WORD GCR SADDRESS OF COMMAND 
“WORD 1 :SIZE OF COMMAND IN BYTES 
“WORD CR ZADDRESS OF REPLY 
“WORD 12. :SIZE OF REPLY IN 
-WORD 170 : SUCCESSFUL COMPLET ION CODE 
MSG DRC,2,$T,7,COMPLT : DRIVE CLEAR 
.WORD DRC SADDRESS OF COMMAND 
“WORD 2 :SIZE OF COMMAND IN BYT 
“WORD § zADDRESS OF REPLY 
“WORD 7 :SIZE OF REPLY IN WORDS 
“WORD COMPLT SUCCESSFUL COMPLETION CODE 
= -1 ; PREVIOUS COMMANDS CAN BE SENNT TO AN OFFLINE DRIVE 
MSG DIS, 2,ST.7,COMPLT 3 DISC T 
.WORD DIS SADDRESS OF COMMAN 
“WORD 2 :SIZE OF COMMAND IN BYTES 
“WORD § sADDRESS OF REPLY 
“WORD 7 :SIZE OF REPLY IN WORDS 








| I 6 
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| UNITS, SDI COMMANDS AND PROGRAM VARIABLE 
002673 000176 .WORD COMPL ¢ SUCCESSFUL COMPLETION CODE 
23 002674 CR.SCR: MSG SCR.2,SUB,21.,167 ; GET SUBUNIT CHARACTERISTICS 
002674 002743 «WORD SCR sADDRESS OF COMMAND 
002675 000002 «WORD 2 ;SIZE OF COMMAND IN BYTES 
002676 003006 «WORD SUB sADDRESS OF REPLY 
002677 00002 «WORD 21. sSIZE OF REPLY IN WORDS 
002700 000167 -WORD 167 3 SUCCESSFUL COMPLETION CODE 
24 002701 CR.GST: MSG GST,1,S1,7,366 STATUS 
002701 002745 «WORD GST SADDRESS OF COMMAN ND 
002702 00000 «WORD 1 ;SIZE OF COMMAND IN BYTES 
002703 002764 «WORD ST gADDRESS OF REPLY 
002704 -WORD 7 ;SIZE OF REPLY IN WORDS 
002705 000366 «WORD 366 3 SUCCESSFUL COMPLETION CODE 
25 002706 CR.MOD: MSG MOD,3,ST,7,COMPLT 7 MODE 
002706 002754 -WORD MOD ZADDRESS OF COMMAND 
002707 000003 «WORD 3 3SIZE OF COMMAND IN BYTES 
002710 002764 «WORD ST zADDRESS OF REPLY 
002711 000007 -WORD 7 sSIZE OF REPLY IN WORDS 
002712 000176 -WORD COMPL ; SUCCESSFUL COMPLETION CODE 
26 002713 CR.SEK: MSG INS. "6. ST,7,COMPLT 3: INITIATE SEEK 
002713 002750 «WORD INS sADDRESS OF C 
002714 00 «WORD 6 sSIZE OF C IN 
002715 002764 ~WORD ST sADDRESS OF REPLY 
002716 000007 -WORD 7 :SIZE OF REPLY IN WORDS 
002717 000176 «WORD COMPLT 3 SUCCESSFUL COMPLETION CODE 
002717 LONG = .=1 ; LONG TIMEOUT COMMANDS FOLLOW 
28 002720 CR.INR: MSG INR,1,ST,7,COMPLT ; INITIATE RECALIBRATE 
902720 002747 «WORD INR ADDRESS OF COMMAN 
002721 000001 «WORD 1 3SIZE OF'C 
002722 002764 -WORD ST sADDRESS OF REPLY 
002723 00000 «WORD 7 3SIZE OF REPLY IN WORDS 
002724 000176 -WORD COMPLT 3 SUCCESSFUL COMPLETION CODE 
29 002725 CR.RUN: MSG RUN,1,ST,7,COMPLT 3 RUN 
002725 002746 «WORD RUN SADDRESS OF COMMAND 
002726 000 ~WORD 1 3SIZE OF COMMAND IN BYTE 
002727 002764 -WORD ST sADDRESS OF REPLY 
002730 «WORD 7 :SIZE OF REPLY IN WORDS 
= 002731 000176 «WORD COMPLT 3 SUCCESSFUL COMPLETION CODE 
4 $ LEVEL 2 COMMAND MESSAGE DATA STRUCTURES 
33 002732 000 213 ONL BYTE 0,213 ; BRING DRIVE ONLINE 
000 -BYTE 0,3 3 DIAGNOSE 
-WORD 0 
-BYTE 0,204 3 DISCONNECT 
-WORD 0 
-BYTE 0,DRVCLR ; DRIVE CLEAR 
: 0 ; ERROR FLAGS 
-BYTE 0,GETCHR ; GET CHARACTERISTICS 
-BYTE 0,GETSUB ; GET SUBUNIT CHARACTERISTICS 
-WORD 0 ; SUBUNIT SELECTION IN LOW ORDER BYTE 
-BYTE 0,GETSTA ; GET STATUS 
-BYTE 0,14 ; SPI! UP DRIVE 
-BYTE 0,IRECLB 3 INITIATE RECALIBRATE 
-BYTE 0, INSEEK 3: INITIA K 
«WORD 0 ; INS CYLINDER/HEAD ARGUMENTS 
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49 00275 
50 00275 


55 
56 002760 
57 
58 
59 002761 
60 002762 
61 002763 
62 
63 


64 
65 002764 
$6 002773 


Sr 4s 
RAVLSSSLE 
ss 8s $ssss 

WW WWW 
—— at aed td IO 
NO Wt wh-on 


So 
w 
WGN 





000000 
000000 


000 
000000 
362 
006 


000000 
000000 
003001 


003026 


000000 
000000 
000000 
000600 
000000 


000000 
000000 


201 


377 
377 


014 


MOD: 
MODE : 
MODE1: 
MODE2: 
RUNCMD : 
RUNLBC 
COPY: 


RETRY: 
SERRTY: 


ST: 
CR: 


SECTRK: 
TSTBLK: 


SECCNT: 


AREA: . 
LETTER: . 


ERRPOS: 
WFLAG: 


: .BLKW 
W 





a 
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UNITS, SDI COMMANDS AND PROGRAM VARIABLE 


RESPONSE MESSAGE DATA BUFFERS 


-BLKW 7 : 
-BLKW 31. : 
SSUME SUB,CR+11. 

-WORD O : 
«WORD 0 é 
-WORD SUB-5 : 
-BLK 5 : 
-BLKW 2 : 
-BLKW ‘ 


8. 
WORD DMSDI-4 
DISK LOCATION POINTERS 


Wn 


eo 
@ 
-< 
z 
< 
oo o0Oo O00] 290———WN —fhrowlry 


SEQ 0490 


; CHANGE MODE 


; RUN COMMAND 


RETRY COUNT 


STATUS MESSAGE BUFFER 
CHARACTERISTICS MESSAGE BUFF 


DUMMY SDI CONTROL BLK 

# Of SECTORS IN a SEARCH 

POINTER TO SUBUNIT 

WORD DMSDI+7 IS CLOBBERED BY UDA 

SO SET ASIDE SPACE 

oEID Space 10 Po UDA —e REVECTORING 
PRI REV INFO WRITTEN IN DMSDI+8 AND 9 


RST READ ONLY DBN 

RST READ ONLY CYL AND GROUP 
R&T FACTORY FORMATTED DBN 
Ul FORMATTED CYLINDER 

R 


TEST BLOCK NUMBER 

TEST CYLINDER NUMBER 

BLOCKS ON CURRENT TRACK 
LOCKS ON CURRENT GROUP 
LOCKS ON CURRENT CYL 
CURRENT BLOCK NUMBER 

NUMBER OF SECTORS PER GROUP 
NUMBER OF SECTORS PER CYL 

CURRENT GROUP NUMBER 

CURRENT TRACK 

CURRENT PATTERN 

SECTOR COUNT 

TO STORE AREA LETTER L OR X (BN) 

TO STORE CURRENT AREA L, D OR X (BN) 


FOR WRITE PROTECTION TEST 


f zc | 
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$s 


So 
So 
WWW 


Ssssess Ss 
WWWWonT:)S so furor 


Sa ee 
RARWoOS NUN No 


WWWNWWANNWNWW 


NINN SOONANR Wooo we 
oo 
oo 
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CTIONAL DMACR X04.01 23-A 
NDS AND PROGRAM VARIABL 


000000 
000000 
000000 


000000 
000000 
000000 


003032 


000000 
000000 


000000 


yee 12:01:30 PAGE 35-3 


FLAG: WORD 
GRPCNT: .WORD 
OLDGRP: .WORD 
VAR1: WORD 
VAR2: WORD 
VARS: WORD 
VAR4: WORD 
CYLLO: .WORD 
ROUP: .WORD 
TRACK: .WORD 
SSCTOR: .WORD 
INDEXS: .WORD 
3 WRITE 
CHAIN: 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 


SooaoocecKeo ooo 


oo 


. 
o 


K 6 


DATA BUFFERS 


0 
0 
0 
0 
0 
D 


MSDI 


SEQ 0491 


TEST ALL CYLINDER FLAG 
COUNT OF CYL"S HANDLED 
HOLDS OLD GROUP VALUE FROM EVL COMPUTE 


FOR CONVERT XFC 


READ AND WRITE CHAIN AREA 
STATUS AREA 


4I GRDER HEADER 
REAL _TIME COMMAND AND TRACK NUMBER 
POINTER TO DUMMY SDI CONTROL BLOCK 


~~ we | 





Sooss 


WWW 
= 


Sooooooooooo 
RAS 


MEWS ODONAOULSWH $0 OONOUS wh 
(=) 
Ww 
—_ 
io 
~N 


NORITININIR) 


PATPTR: . 


PATS: 


— PATTERNS 


000000 


UDAT3 DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 36 
DATA PATTERNS 


SEQ 0492 


: FOUR PATTERNS WILL BE TESTED 


3 SHIFTING ONES 


: SHIFTING ZEROS 


; ALTERNATING ZERO WORD AND ONE WORD IN 
3 3-2-1-1-1 SEQUENCE 


—— 7 


58 00323 


60 

61 Bosse 
62 003236 

es OO 3Sz6 


a 003255 


80 003256 


93 003657 
94 003660 





177777 


=—0O-0—-0——00—| =| 0000— 
NRNVINUVINIUVIPIN VIVIfororng 


100000 
003665 


013400 
003032 


OBUF F : 


BUFFSZ = 


RBUFO: 


-BLKW 
256. 


READ DATA BUFFERS 


UDATS DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 36-1 
DATA PATTERNS 


on 
on 
on 
on 
Non 


-—o—-0—-0—>- O00] |] |0O00—--0— 
MUIPI VID VINNY IVIPININIWNUT UO 
MMMM VITO VIVID VIUIUIPOPOND 

MUNI UIP VITOR IPO NU 


Nm 
i) 
~N 
7 


RSTOP 
rahe 


RREAL 
DMSDI 


SEQ 0493 


10101" AND 
01010° 
SEQURNCE 


WRITE DATA BUFFER 


FIRST BUFFER 
STATUS AND LINK POINTER 
POINTER TO DATA 


LEVEL 1 SDI COMMAN 
POINTER TO DUMMY SDI CONTROL BLOCK 


— 


003665 


003665 


So 
o 


3665 
3665 


So 
So 


NNR) oe 
VEWN =O OONOAUSWN OC OONOUSwr— 


roronrr 
o 


003665 
32 003667 


62 003735 





114000 
104302 


104205 
104204 


100464 


104203 


001730 
007774 


000001 
100001 


000002 
000003 


000003 
000002 


000001 
002625 


003052 


UDAT3 DISK FUNCTIONAL DMACR x04.01 Te 12:01:30 PAGE 37 
START, GETU<POLL ALL PORTS>, RBUFD, 


& FCHAIN 


SEQ 0494 


-SBTTL START, GETU<POLL ALL PORTS>, RBUFD, & FCHAIN 


IF GE ,<. #<255.*3>>-HIMEM 
ERROR 


-ENDC 
RBUFD:; .BLKW 274. 
: FORMAT CHAIN 
FCHAIN: 
$ REPT 255. 
2 ~ WORD 0 
: ~ WORD 0 

~ WORD 0 
: END 
: WO 0 
START 
GETU: 


~SBTTL GETU = POLL ALL 
GET THE UNITS TO TEST 


CLR OVRLNM 
; *** SET UP OVERLAY TABLE 

MOV OVSTRT.R 

MOV OVSTRT+1, 2R3 

MOV R2,OTABLE 

MOV #NUMOVL=1 

MOV #OTABLE, ner? 
1$: MOV VRS), ORI 
BIT #100001,R1 


2$: MOV 


= 
o 
< 
DRDAIWDBDNWwD 
ON -WANWOR 
. 
ZD 


3 eee — =" GETU 
MOV WUNITS, R4 
R4 


5$: PUSH : 
MOV R5,R2 : 
CALL - RDSTAT : 
TST R2 : 
BEQ s 


10$ 
MOV #SER10,R3 


READ DATA BUFFER 


UP TO eo wa MAXIMUM 
BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 


EXTRA WORD FOR END-OF=CHAIN FLAG 


PORTS, THEN GET UNITS TO TEST 


POLL ALL PORTS AND FILL IN A UDA PORT INFORMATION TABLE (UNITS) 
: CLEAR OVERLAY NUMBER TO INITATE 


GET STARTING ADDRESS OF OVERLAY (LO) 
GET STARTING ADDRESS OF OVERLAY (HI) 
MOVE SiARTING ADDRESS OF OVERLAY 
RO = NUMBER OF OVERLAYS 
R5 => OVERLAY 
R1 HAS OVER LAY LENGTH 
a TO MAKE BYTES 
CLEAR UNUSED BITS 
FIND grt y OF NEXT OVERLAY 
IF NO CARRY BRANCH 
PROPOGATE CARRY 
STORE STARTING ADDRESS OF NEAT OVERLAY 
GET OVERLAY LENGTH (<<2) 
ne | HI ORDER OVERLAY ADDRESS 


POINT TO NEXT _ AREA 


DECREMENT COU 
IF ALL OVERLAYS NOT SET UP, BRANCH 


MOVE INITIAL MASK TO R5 
R4 wie TO UNIT TABLE 


MOV R4,-(SP) 


; MOVE MA 


TO R2 
GET oRIVE . STATUS 
SEE IF ERR 

IF NOT, BRANCH 

NO DRIVE ATTACHED 


~ 


ac 


A SS A A ee a — — = -——-y 


8B 7 | 
UDAT3 DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 37-1 SEQ 0495 | 
GETU = POLL ALL PORTS, THEN GET UNITS TO TEST 
63 003737 100643 000001 MOV R3,1(R4) : SAVE ERROR MESSAGE 
64 063741 00413 BR 85$ + REPORT 
65 003742 114003 10$: CLR R : SET UP TIMEOUT COUNT 
66 003743 10405 15$: MOV R5,R2 + MOVE MASK TO R2 
67 003744 020754 CALL = RDSTAT : GET STATUS 
68 003745 102201 000001 BIT ARCVRDY,R1 + SEE IF RECEIVER READY ASSERTED 
69 003747 053757 BNE 20$ : IF $0, CH 
70 003750 117403 DEC R3 : DECREMENT COUNT 
71 003751 053743 BNE 15$ : IF sNCOMPLETE, BRANCH 
72 003752 104203 003065 MOV #SER11,R3 t RECEIVER READY NEVER ASSERTED 
73 003754 100643 000001 MOV R3,1(R4) + SAVE ERROR MESSAGE 
74 003756 00413 BR 5$ + REPORT 
75 003757 102201 000100 20$: BIT #AVAIL,R1 : SEE IF DRIVE IS AVAILABLE 
76 003761 053767 BNE 25$ ; IF SO, BRANCH 
77 003762 104203 003360 MOV #SERGO,R3 : GET SECONDARY ERROR 
8 003764 100643 000001 MOV R3,1(R4) : SAVE 
79 003766 004133 BR 8 : EXIT 
0 003767 104202 001750 25$: MOV #MAXSND ,R2 : SET UP MAXIMUM TRIES AT SENDING 
81 003771 104203 002701 MOV #CR.GST.R3 : R3 POINTS TO GET STATUS COMMAND 
82 003773 104137 30$: MOV (R3),R : SET ADR OF SDI COMMAND BUFFER 
3 003774 104631 000001 MOV 1(R35,R1 : SET BUFFER LENGTH 
00377 PUSH R2 + SAVE R2 
003776 100462 MOV R2,=(SP) 
85 003777 104052 MOV R5S,R2 : SETUP FOR SEND 
004 060004 KFC SEND : SEND COMMAND 
87 004001 =on R2 + RESTORE COUNT 
004001 104262 MOV (SP)+,R2 
88 004002 115001 TST R1 : DID UNIT ACCEPT COMMAND 
89 004003 014013 BEQ 35$ : IF $0, BRANCH | 
90 004 117408 DEC R2 : DECREMENT COUNT 
91 004005 05377 BNE 30$ : IF UNEXPIRED, BRANCH 
92 004 104203 003103 MOV WSER12,R3 : GET ERROR NUMBER 
93 004010 100643 000001 MOV R3,1(R4) : SAVE 
94 004012 004133 BR 85$ 
95 004013 35$: PUSH 4 : SAVE R4 
004013 100464 MOV R4,=(SP) 
96 004014 104204 000003 MOV #3,R4 : SET UP SHORT TIMEOUT 
97 004016 104207 002764 40$: MOV #ST.RO 3; SET DATA BUFFER ADDRESS 
98 004020 104631 000003 MOV 3(R3),R1 + SET BUFFER LENG 
99 904028 104052 MOV R5,R2 3 SETUP FOR RECEIVE 
100 004023 060005 KFC v : RECEIVE SDI C | 
101 004024 115001 TST 1 + DID ERROR OCC 
102 004025 014065 BEQ 70$ : IF NOT, BR 
103 004026 106201 000001 CMP #1,R1 : SEE IF TIMEOUT 
104 004030 054037 BNE 45$ : IF NOT, BRANCH 
105 004031 117404 DEC RG + DECREMENT TIMEOUT VALUE 
106 004032 054016 BNE 40$ : IF NOT TIMEOUT, BRANCH 
107 00403 POP R4 : RESTORE R4 
004033 104264 MOV (SP)+,R4 
108 004034 104203 003115 MOV #SER13,R3 : GET ERROR NUMBER 
109 004036 004062 BR 65$ + BRANCH TO EXIT 
110 004037 45$: POP RG + RESTORE R4 
004037 104264 MOV (SP)+,R4 
111 004040 110601 ROR R1 : ROTATE INTO POSITION TO TEST 
112 004041 110601 ROR R1 : SEE IF FIRST WORD NOT START FRAME 
11 004042 044046 BCC 50$ : IF NOT, BRANCH 
114 004043 104203 003130 MOV WSER14,R3 : GET ERROR NUMBER 





4 ss sd 


Mrorroronrn ooo 
AUEWN@O0DNAW 


003156 


003200 


003223 
000001 





pets DISK FUNCTIONAL DMACR X04.01 23-AUG-82 as" 01:30 PAGE 37-2 
GET ~ POLL ALL PORTS, THEN GET UNITS TO TES 


65$ 

R1 

55$ 

#SER15,R3 

65$ 

R1 

60$ 

#SER16,R3 
5$ 

#SER17,R3 


R3,10(R4) 
85$ 


BRANCH TO END OF LOOP 
SEE IF FRAMING ERROR 
IF NOT, BRANCH 

GET ERROR NUMBER 
BRANCH TO END OF LOOP 
SEE IF CHECKSUM ERROR 
IF NOT, BRANCH 

GET ERROR NUMBER 
BRANCH TO END OF LOOP 
Se ERROR NUMBER 


SAVE 
BRANCH TO END OF LOOP 


SEQ 0496 | 








UDAT3 DISK FUN 
GETU == POLL 


333333 


—“SOOOnouw Swf 
[=] 
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— 


NOU Swry 


SSSSSe SSSSSSSSSSSSSeeeeserersee 


a et a 
SSR 


SS HY 


ee ee ee ee ee ee ce ee a ed ed ed Sd 
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1 
2 
2 
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2 
2 
2 
2 
2 
3 
3 
3 
3 
a4 
3 
3 
3 
38 


CTIONAL DMACR X04.01 23-AUG-82 
ALL PORTS, THEN GET UNITS TO TE 


pete t tte 


w 
oO 
—- NNN 


ek eed 
SkRS2S3 
oS 
—OUVIVIAo 
MmM— nor 


WERE Wows 
oooco o-oo 
NNN Nhe 


— nO — 
NMNOfLWOLOCOSCSO 


-~ 
wi 

oO 

ANNWPM POPPONoP 





177777 
000001 
000002 
002764 


170000 


000002 


010000 


040000 


177760 


000004 
000C_0 





75$: 


80$: 


85$: 


1 
ST 


2:01:30 PAGE 38 


NOW FILL IN THE TABLE WITH ALL THE SUBUNIT NUMBERS 


POP 





R4 


<R1, 


R5,R2 
RDSTAT 
Nai 
#10000 ,RO 
<R2,R1> 


g50008 Re 


R 

#LBLONB ,R2 
RO, (R4) 
85$ 

RO, (R4)+ 
RO 


80$ 


R4 
#4 RG 
R 
#20,R5 
5$ 


RO,R 
#*CHBHINB,RO 
R2> 


S 
; SWAP R2°S BYTES 


RESTORE R4 


MOV (SP)+,R4 
GET "NO UNITS’ FLAG 
CLEAR ANY ERRORS THAT ARE FLAGGED 
CLEAR ANY ERRORS THAT ARE FLAGGED 
RO HAS UNIT NUMBER 
COPY R 2 
RO HAS UNIT NUMBER 
SAVE R1 AND R2 
MOV R1,=-(SP) 
MOV R2,=(SP) 
MOVE UDA PORT MASK TO R2 
GET STATUS 
SEE IF SPINABLE 


IF SO, BRANCH 
SET "NOT SPINABLE® FLAG 
RESTORE 
MOV (SP)+,R2 


MOV (SP)+,R1 


FLAG UNIT AS NOT TESTED 


MOVE SUBUNIT MASK TO LO NIBBLE 


MOVE SUBUNIT NUMBER TO TABLE 
INCREMENT SUBUNIT NUMBER 
BRANCH 


R4 POINTS TO START OF UNIT JUST HANDLED 


V (SP)+,Re 
R4 WILL POINT TO NEXT UNIT (CLEAR CARRY FOR ROL) 
R5_HAS NEXT UNIT PORT MASK 
SEE IF ALL PORTS TESTED 
IF NOT, BRANCH 


SEQ 0497 


— on 





—, 
NO SWIMS NUE 
SES RESETS 
—=—rnrrvor 


uw 


—_- —§—O——2— OHIO 
&* 


eS 
NM— VWRN] URDo~! 


wea 
MNO 
ooo 
mMmnN— 


NOW FSWMOOONO YVEWN] OCVOONOUF Wh 
SSnneu 


PRREEREERREERREERRREERRERES 


MONON PONMPNININ AAS SO Oo 


=@NUS EWN SN 
Boos Golooo= 
a =o00-4 
Fear F 


ISK FUNCTIONAL DMACR X04.01 23-AUG-82 
= POLL ALL PORTS, THEN GET UNITS TO 


060012 


001034 
002625 


160000 


002625 
000003 


aR 


00 
26 


oo 
oo 


105$: 


1108: 
115$: 


1 
TES 


2:01:30 PAGE 39 


NOW GET THE PLUG NUMBERS TO TEST AND FIND THEM IN THE TABLE 


MOV #UTOTST,RO : GET WHAT SUBUNIT NUMBERS TO TEST REQUEST 
CALL §-HOSTRQ : GET THE PLUG NUMBERS 

V #0UT.01,RO : RO POINTS TO UNIT NUMBERS TO TEST 
MOV #UNITS,R1 + R1 POINTS TO UDA PORT INFORMATION 
MOV (R1),R2 t R2 HAS UNIT 
BMI 115$ : IF NONE, BRANCH 
PUSH RI + SAVE RI 

MOV R1,-(SP) 

BIC #160000,R2 ; CLEAR "NOT TESTED’, LEAVE ‘UNSPINABLE® SET 
CMP (RO) ,R2 : SEE IF IT 1S A UNIT TO TEST 
MOV R2,(R1) : SAVE UNIT AS ONE TO TEST 
POP R1 : RESTORE STACK 


MOV (SP)+,R1 


BR 160% 3 LOOK FOR THE NEXT ONE 
INC R1 : POINT TO NEXT SUBUNIT 
MOV Ri ,R2 ; COPY TO R2 
SUB #UNITS ,R2 3 SUBTRACT STARTING ADDRESS 
BIT #3,R2 : SEE IF STILL ON SAME UNIT 
BEQ 1108 3 IF NOT, BRANCH 
MOV (R1) ,R2 : SEE IF ANY MORE SUBUNITS 
BPL 1008 : IF SO, BRANCH 
POP R1 3 RESTORE R1 

MOV (SP)+,R1 
ADD #4,R1 3; LOOK AT NEXT UNIT 
CMP WUNITS*#+16.,R1 ; SEE IF ENTIRE TABLE SEARCHED 
BNE 95$ 3 IF NOT, BRANCH 


co 


WWIWIWNININIDNINDID 2 2 2 Ss 


CNESWN—$OO0OnOuke WN OCVOVNOuUsSwr— 
w oO 


NONINONPIAINIR at et eat 


7 004241 
8 004242 


Sian RAN 
seeeseee 


NEGRGLSS 
gses8 ssssssese 
BESHe SERhSNSS 


o 


Bea SSF 


NNN NNO OO NU 


Ss2ss 
— 
RES 
NWOOWUMS £FONONON 


So 
AMM Srv Snonnynnyr 


& 


+, ort 
RERARRES 


_ 
& 
MN 
So 


NSSeeree 
SSss 


S 


o>> 
FERS 
VIinnnN Sw 


S 


001036 
001040 
002625 


000001 


010000 
003402 
003255 


000004 
001542 


10 


We-nw 
WWOoOW 


001034 
001033 


120$: 


125$: 


130$: 
135$: 


140$: 


145$: 


150$: 


155$: 


160$: 


B 
ENDGTU: 








UDAT3 DISK FUNCTIONAL DMACR X04.01 fps me igs 01:30 PAGE 40 
GET = POLL ALL PORTS, THEN GET UNITS TO T 


DIDN*T FIND THE REQUESTED 
UDA PORTS AND DIE 


(RO) ,OUT.03 
R4 


#0UT.0 


#UNITS RS 


#10000 ,R0 
wseest. oRO 


sg bs RO 
RO, (RGS+ 


(R5)+,R1 
145$ 


RO 
#4 RO 


140$ 
SER18E=-1(RO) ,R1 
R1,(R4)+ 


RS 


(R5)+,R1 
R1,(R4)+ 
RO 


1508 
RS 

1 
2000 


OUT .RQ,RO 
HOSTRQ 
DONE CD 

RO 

(RO) ,R2 


TSSTRT 


#4 ,R5 
#UNITS+16. ,R5 
208 


UNITS == DUMP ALL KNOWLEDGE OF THE 


; SAVE UNIT NUMBER IN apy ty BUFFER 
; R4 POINTS TO OUTPUT BUFFER 
IT TABLE 


pol 
VALID UNIT WAS FOUND, BRANCH 


IF 
; GET POINTER TO ERROR MESSAGE 
; SAVE IN OUTPUT BUFFER 


EXIT 

SAVE POINTER TO UNIT TABLE 
F's Mi DRIVE UNSPINABLE 

IF SPINABLE, BRANCH 

~ DRIVE(S) UNSPINABLE 
i TO ERROR MESSAGE 
CLEAR bay 

GET UNIT NUMBER 

IF pa BRANCH 

INCREMENT COUNT 

SEE IF 

IF NOT, LOOP 

GET POINTER TO er th a MESSAGE 
nove INTO OUTPUT BUF 

RESTORE R5 

SAVE R5 

1 anal NUMBER 
DECREMENT COUNT 


IF COUNT INCOMPLETE, BRANCH 
RESTORE R5 


MOV R5,-(SP) 


MOV (SP)+,R5 
MOV R5,-(SP) 


MOV (SP)+,R5 


; POINT TO NEXT UNIT TABLE 

; SEE IF ENTIRE TABLE SEARCHED 

; IF NOT, BRANCH 

; REPORT FATAL ERROR (WILL SHOW UP AS A 5000) 
MOV #MS2 


000 ,0UT.04 
MOV LUNIT ,OUT.03 
MOV #2000! FTLDEV+3000. ,R2 
MOV R2,0UT.02 


#., -01 
#ERRMES ,OUT.ROQ 


; SET 4 FOR REPORT 
; REPORT ERROR 
END TEST 


POINT A weny UNIT TO TEST 
CHECK NEXT UNIT 

FIND IN UDA PORT INFORMATION 
START TEST 





UDATS DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 40-1 
REST OF FORMAT CHAIN 


48 


005262 


005262 


-SBTTL REST OF FORMAT CHAIN 
eBLKW = <<255.*#3>-<ENDGTU-GETU>> 
ENDPNT = . 

: OVERLAYS START HERE!!! 

OVRLPT = . 


SEQ 0500 





REST OF FORMA] CHA 
1 005262 


005262 000105 

000000 042 124 111 

000011 122 061 122 
000013 000 

000014 042 124 111 

000027 122 061 122 
000631 000 

000032 042 106 111 

0 122 061 122 
2 000 

0 3 042 106 122 

000105 122 061 122 
000107 000 

000310 042 103 110 

000132 122 061 122 
000134 000 

000135 042 122 105 

000155 122 061 122 
000 

042 103 117 

122 061 122 

042 117 

040 


UDAT3 DISK cine DMACR X04.01 23-AUG-82 12:01:30 PAGE a 


MS1: 
MS2: 
MS3: 
MS4: 
MSS: 
MS6: 


MS7: 








to 


5 
m 
J 
o 


sOUTPUT EDC FOR THIS OVERLAY 
“OUT’ON SEND''N\ 


= 
=z -—-=z 


zs “um ai 9 om 


“OUT ON RECEIVE’'N\ 


a 


POrrwrre 
NMN<NHN<UNM 


° 
<M nn < 
SAAIAOA AAAI AOS AOA AOMOAOMAAOOAGMO 


T WORD RECEIVED WAS NOT A START FRAME''N\ 


mal 
=n => =D = 


ING ERROR ON LEVEL 0 RESPONSE’'N\ 


@>>ow> 
>: BD 
a Te — 


KSUM ERROR ON LEVEL 0 RESPONSE''W\ 


owm7o7 “9°3-" 3°." S* 
— 
Zar DD De De De 


-8Y 


Fe] 


ONSE LONGER THAN EXPECTED’ 'N\ 


: 2 
oo = 
zo wm 


nm 
—o of 
“3 


FROM RECEIVE WAS UNINTELLIGIBLE FROM SUBSYSTEM = ‘‘H16N\ 


om -UuU ro UF 


Zz 
-50.—C =! 


AND DID NOT RETURN EXPECTED RESPONSE CODE''N\ 


XPECTED RESPONSE ‘‘H8N\ 
CTUAL RESPONSE “HEN\ 


feme Gos) eee fet et deed fee fee bees te be ona ba fd et tan) ey fmt Dee 
=m 


OorO4 4427 27°9O27270427 


FFT be tame tame tome Some FFE Ome Ome PTY Ome Ooms TY me Ome PTY Ome tome PTY tome Ome FY be Ome (TY Ome Ome 
Zz 
as 
a“ 


-ASCII\" DRIVE NOT ASSERTING RECEIVER READY I? DRIVE STATE*'W\ 
“ASCII\" FAILED TO RECEIVE VALID DRIVE STATE''WR1\ 


T 
ASCIIN''CANNOT RECEIVE DRIVE STATE FROM DRIVE''N\ 
eASCIIN''CHECK IF DRIVE IS POWERED ON."'NR1\ 


-BYTE 0 
metnt) DRIVE STATE RECEIVED HAS BAD PARITY’'NR1\ 
-ASCIIN’ ‘NO VALID STATE FROM DRIVE''NR1\ 


“ASCII \;'SUBUNIT CHARACTERISTICS SAY THERE ARE ZERO READ ONLY GROUPS''N\ 
nt \""IN THE DIAGNOSTIC AREA'N\ 


ASCII \"*SUBUNIT CHARACTERISTICS SAY THERE ARE LESS THAN 1 READ/WRITE’'N\ 
eASCII \"'GROUPS IN THE DIAGNOSTIC AREA'N\ 


oASCIIN NEITHER R/W READY NOR ATTENTION SET AFTER RECALIBRATE COMMAND’ 'NR1\ 
“ASCII \"'SUBUNIT CHARACTERISTICS SAY LESS THAN 1 DIAGNOSTIC CYLINDER’ 'W\ 
-ASCII\"READ/URITE READY DROPPED BEFORE FORMAT OPERATION’ W\ 


ASCIIN'TSRNAT OPERATION REPORTED TIME-OUT FAILURE’'N\ 
“ASCII\"' CYLINDER "D28". GROUP D8", TRACK "D8''."N\ 


-BYT 
“ASCII\"AFTER RECAL, ERROR BITS WERE SET’'NRI\ 


NEES oe merase “ ; 
vars 01s FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 41-1 SEQ 0502 


wn” 
ssseseses 
—_ 3) wd od wd 
OMe UNS 
MeO NOw 


WWWRN ee HO 


oe 


oo 
sss 
paar Peers 

Ww 

Ww 

~N 


116 


042 
122 


RNG 


—@ Om afed atatatased 23-5 
“Of WW WeUew 


Ss a— mn cococeco 


040 
111 
103 
125 
125 
125 
123 
104 
104 
Mi 
116 


125 
124 


124 
103 
117 


114 


s- oo WOoOWOo- oo 
oO MN UM ]—]WORAN NUN 


—- O- = Seow 


MS21: 
MS22: 
MS23: 


MS24: 
MS25: 


MS26: 


MS27: 
MS28: 
MS29: 


MS30: 
MS31: 
MS32: 
MS33: 
MS34: 
MS35: 
MS36: 
MS37: 


MS38: 
SER36: 


SER39: 
SEROO: 


MS.ONL: 


ae INFORMATION AFTER RECAL’'NR1\ 

te} ‘READ/WRITE READY DROPPED BEFORE WRITE OPERATION’ N\ 

eASCII\’‘COULD NOT WRITE AND READ ANY BLOCK ON THIS TRACK. ON LAST BLOCK :"'N\ 
ASCII\''WRITE OPERATION REPORTED FAILURE == ERROR CODE "08" 0 OCTAL.*'N\ 

-ASCII\ \''DBN "D246". CYLINDER ‘D28"*. GROUP "D8". TRACK ‘D8"’."'N\ 

“ASCHTS ‘READ/WRITE READY DROPPED BEFORE READ OPERATION’ W\ 


“ASCIIN"COULD NOT WRITE AND READ ANY BLOCK ON THIS TRACK. Pa ree BLOCK :"'N\ 
SASCIIN' READ OPERATION REPORTED FAILURE == ERROR CODE ‘'08"' 0 WA 


mame 
o-o- 


oi N 'D24"". CYLINDER D28". GROUP "D8". TRACK "DB aK 
-ASCII\'COULD NOT WRITE AND READ ANY BLOCK ON THIS TRACK. ON LAST BLOCK:"W\ 
“SCLIN DATA, COMPARE FAILURE ON WORD 'D16"°."'N\ 

ASCIIN’EXP “HION\ 

ASCLIN'A OAL DATA \ 
2 cago "D28"'. GROUP "D8". TRACK ‘D8''."'N\ 

SCII\''SEEK COMPLETE TIME-OUT -- READ/WRITE READY DID NOT SET."N\ 

“ASCIIN’SEEK WAS TO CYLINDER 'D28"'. GROUP 'D8''."'N\ 
-ASC TI\"'NO BLOCK ON THIS TRACK CAN BE READ. LAST BLOCK TRIED:"N\ 
~AS ASCIINAT"BN ‘BN ''D24"". CYLINDER "D28"'. GROUP DB’. TRACK ‘D8''.""N\ 
-ASCII \''AVAILABLE WAS NOT ASSERTED AFTER DISCONNECT'N\ 
“ASCII \"" STATE RECEIVED ‘H16N\ 
“ASCII"TNVALID COMMAND ''H16"" WAS SUCCESSFUL''N\ 


“ASCII\"CORMAND WITH "'R1" LENGTH = "D8" WAS SUCCESSFUL'W\ 

“ASCIIN"UNIT DID NOT REPORT TRANSMITTION ERROR’ 'NR1\ 

“ASCIIN'UNIT ACCEPTED AN INVALID GROUP NUMBER FROM GROUP SELECT LEVEL 1°W\ 
“ASCII\" UNABLE TO CORRECTLY READ OVERLAY “‘O3NR1\ 

-ASCII\" SUCCESSFULLY WROTE IN DBN AREA WHEN DRIVE WAS WRITE PROTECTED’ W\ 
ASCII \"DRIVE IS NOT PROPERLY FORMATTED."NR1\ 

“ASCII \"DRIVE IS FORMATTED IN 576 BYTE MODE."N\ 

ASCII N70 RUN WITH A UDA, THIS DRIVE NEEDS TO BE FORMATTED “*\ 

ASCII No COPY OF THE FCT COULD BE READ."'NR1\ 


B 
ASCII \\"UDA WILL SPIN DOWN THIS DRIVE IF USED IN NORMAL SYSTEM OPERATION."'N\ 
eASCII \"'THIS DRIVE NEEDS TO BE FORMATTED.''\ 


“BYTE 
-ASCIIN’ ‘THIS UDA AND ALL DRIVES ATTACHED WILL BE REMOVED FROM TESTING’ 'W\ 
-ASCII\"'COMMAND WAS “RIN 

ASCIIN" ONLINE 'N\ 


ze | 





a7 
UDAT3 DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 41-2 SEQ 0503 
MESSAGES 
002610 000 BYTE 0 : 
2611 042 104 122 MS.CLR: .ASCII\'DRIVE CLEAR'N\ 
002620 000 -BYTE 
2621 042 104 111 MS.DIS: .ASCII\'DISCONNECT’'N\ 
002627 000 ‘BYTE ; 
902630 O42 107 105 MS.GCR: -ASCIIN ‘GET COMMON CHARACTERISTICS’ N\ 
002647 042 107 105 MS.SCR: -ASCIIN' GET SUBUNIT CHARACTERISTICS’ N\ 
002667 042 107 105 MS.GST: .ASCIIN'GET STATUS''N\ 
002675 000 -BYTE 
002676 042 103 110 MS.MOD: .ASCII\''CHANGE MODE''N\ 
002705 000 “BY 
2706 042 123 105 MS.SEK: .ASCII\'SEEK'N\ 
002711 000 “BYTE 
002712 042 111 116 MS.INR: .ASCII\“INITIATE RECALIBRATE’'N\ 
002725 000 -BYTE 
002726 042 123 120 MS.RUN: .ASCII\''SPIN UP’'N\ 
00273 000 “BYTE 
002734 O42 125 116 MS2000: .ASCII \‘"UNABLE FIND REQUESTED DRIVE FOR TESTING'N\ 
002761 04 124 110 “ASCII \"'THE FOLLOWING IS VISIBLE ON THE PORTS'N\ 
3005 042 125 104 “ASCII \"UDA PORT 0 == "R1\ 
003016 042 125 104 “ASCII \' UDA PORT 1 == "RIN 
003027 042 125 104 “ASCII \"UDA PORT 2 == “RI\ 
003040 042 125 104 “ASCII \"UDA PORT 3 == "'R1\ 
003051 000 <BYTE 0 
003052 042 116 117 SER10: ASCII \"NO DRIVE ATTACHED'N\ 
003064 000 BYTE 0, 
003065 042 122 103 SER11: ASCII \"RCVR RDY NEVER ASSERTED’ 'N\ 
003102 000 “BYTE 0 
003103 042 124 111 SER12: ASCII \"TIMEOQUT OF SEND''N\ 
003114 000 “BYTE 0 
003115 042 124 111 SER13: ASCII \"TIMEOUT OF RECEIVE'N\ 
003127 000 -BYTE 0. 
003130 042 106 111 SER14: ASCII \“FIRST WORD RECEIVED WAS NOT START FRAME''N\ 
003156 042 106 122 SEP15: ASCII \"FRAMING ERROR ON LEVEL 0 RECEIVE''N\ 
003177 000 ‘BYTE 0 
005200 042 103 110 SER16: “ASCII \"CHECKSUM ERROR ON LEVEL 0 RECEIVE'W\ 
00322 042 122 105 SER17: ASCII \"RESPONSE LONGER THAN EXPECTED FOR GET STATUS CMD"'N\ 
003254 000 BYTE 0. ’ 
003255 042 104 122 SER18: ASCII \"DRIVE "'R1\ 
003262 000 -BYTE 0 
003263 104 066 042 SERI8D: .ASCII \D6", ‘\ 
32 104 066 042 SERI8C: .ASCII \D6"", ‘\ 
003271 104 066 042 SER18B: .ASCII \D6"". ‘\ 
003274 104 066 116 SER1BA: .ASCII \D6N\ 
003275 000 “BYTE 0 : 
003276 042 12 105 SER22: ‘ASCII\"'REAL TIME STATE “H16N\ 
003311 042 12 124 “ASCIIN'ST ATUS (R TO L): Hf OS2H16S2H16S2H16S2H16S2H16S2H16N\ 
003344 042 122 105 SER23: 7 Wal TIME STATE “'HI6N\ 
003560 042 104 122 SER4O: ASCII \DRIVE NOT AVAILABLE TO THIS UDA'N\ 
003402 042 104 122 SER41: <ASCII \"DRIVE NOT SPINABLE'N\ 





ne 
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UDAT3 DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 41-3 SEQ 0504 
MESSAGES 

003414 000 BYTE 0 

003415 042 103 117 SERSO: .ASCII\'*COMMAND’'\ 

003421 000 -BY 

OO 35$ Bae 122 105 SERS1: "ah SPONSE*'\ 

tobe 03 127 110 SERS2: -ASCIIN' WHEN A CONTINUE OR END FRAME DID NOT FOLLOW A START FRAME’'N\ 

ites Bae 127 110 SERS3: “ASCII\' WHEN AN END FRAME WAS SENT WITH NO START FRAME''N\ 

ttt! Bae 127 110 SERS4: “ASCII\' WHEN AN END FRAME WITH A BAD CHECKSUM WAS SENT’'N\ 

st Fea os 127 110 SERSS: -ASCIIN'WHEN A CONTINUE FRAME WAS SENT WITH NO START FRAME''N\ 

Oats rs 127 110 SERS6: <ASCII\"WHEN TWO CONSECUTIVE START FRAMES WERE SENT'N\ 

03634 042 127 110 SERS7: .ASCII\"WHEN AN END FRAME WAS SENT AFTER A START FRAME TIMED OUT'N\ 

003671 000 -BYTE 0 


— 


UDAT3 DISK FUNCTIONAL DMACR ye 01 23-AUG-82 12:01: i PAGE 42 
weeee OVERLAY 1 eeeee 


NOUWUEW fT 


003672 
003672 000105 


000001 


SETUP (¢ 


L 7 


AND START TESTING ) 


-SBTTL **#eee +: ae 1 seeee SETUP ( AND START TESTING ) 
DMOVLY SU,OVRLPT 
- WREDC sOUTPUT EDC FOR THIS OVERLAY 


TITIIIIT TITTLE LLL LLL LETTE TELL TTT TTT TTT TTT TT TTT 
SRE RAE EE EEE EERE RARER ER EREREEEEAEREREAAAEEAEEEEERERAREREREREEEE 
SERRA AEEEAAAE REE EEE EEE EERE REEEAEREREAEEAEAEEEREEEEEEEEEEEEEEEEEEEEEEEE 
SERA REAERAEEEEEREREEEAEEEEEEREAAEEEAEEEEEAEEAEREEEEEERAEEEEREEEKEEEEEE 


SETUP = 


SEQ 0505 


Ses hae wie nk ene GET) —— 
‘oars Rive FUNCTIONAL DMACR X04.01 gornue-ee 12:01:30 PAGE 43 


E AND LOOK AT DRIVE SIGNAL 


SEQ 0506 


¢ ~SBTTL INIT DRIVE AND LOOK AT DRIVE SIGNALS 

S s START OF TEST CODE 

8 INPUTS: 

9 ; LUNIT = LOGICAL UNIT NUMBER OF DRIVE UNDER TEST 

19 ; SDI = SDI INTERCONNECT CODE FOR DRIVE 

\¢ sINITIALIZE THE DRIVE 

14 005262 104302 002646 STR™ST: MOV SDI,R2 GET SDI SELECT CODE 

F 005264 060011 XFC DINIT s INITIALIZE THE DRIVE 

17 WAIT FOR DRIVE - ASSERT RECEIVER READY 

is TIME OUT AFTER ...? 

20 005265 104201 001400 MOV #1400,R1 3 SETUP TIMEOUT 

21 005267 117401 1$: DEC R1 : DECREMENT DELAY 

22 005270 055267 BNE 1$ ; LOOP UNTIL DONE 

23 005271 114005 CLR R5 ; GET TIMEOUT COUNTER 

24 005272 104201 000310 2$ MOV #200.,R1 : INNER LOOP TIMEOUT 

25 005274 117401 3$ DEC R1 : DELAY 

26 005275 055274 BNE 3$ : _UNTIL DONE 

27 005276 020720 CALL RTDS : GET REAL TIME DRIVE STATE 

28 005277 115002 TST R2 : SEE IF ERROR OCCURRED 

29 005300 015304 BEQ 4$ + IF OK, CONTINUE 

30 005301 PUSH R1 
005301 100461 riOV R1,-(SP) 

31 005302 021752 CALL TESTEW ; IF SO, BRANCH 

32 005303 POP R1 
005303 104261 MOV (SP)+,R1 

33 005304 102201 000001 4$: BIT #RCVRDY ,R1 3 CHECK RECEIVER READY LINES 

34 0053 055332 BNE T : ADVANCE IF AS D 

35 005307 117405 DEC R5 : DECREMENT TIME OUT COUNTER 

36 005310 055272 BNE 2$ :_IF UNEXPIRED, BRANCH 

37 005311 HARDER 9 REPORT ERROR 
005311 104200 000306 001037 MOV #MS9,0UT.04 
005314 104300 001475 001036 MOV LUNIT,OUT.03 
005317 104202 105701 MOV #9! ERHARD+3000. .R2 
005321 104020 001035 MOV Re. OUT .Ge 
005323 104200 005323 001034 a #.,OUT.01 
005326 104200 060013 001033 #ERRMES ,OUT.RO 

38 005331 021740 CALL TESTEV sEXIT TESTING THIS DRIVE 


a ee ee ee ee ee ee ee ae 


bey AT3 DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 44 


T DRIVE CHARACTERISTICS 


Sssssssss 


Soooooooooooooooo 
ooo0o°0eo 
MVIUIVIUIV 
WWW 
AOU 
—NVUIWI 


oS 
wi 
WWW 
aon 
&* 


FW SC ODNOUESWN—CVOONOUFSWwh— 
ooo 
ooo 
wv 
Ww 
oO 
N 


RNONIDINDIA) tt ot ot et et tt 


25 


37 005404 


104070 


104203 


021746 


000003 
00265 
002630 


002773 
177760 


001461 
002774 
177760 


001462 
002774 


177760 
002761 


002650 
002604 





N 7 


SBTTL GET DRIVE CHARACTERISTICS 
GET DRIVE CHARACTERISTICS 


001461 T: MOV #3,SDISTO : 
MOV #CR.GCR,R3 : 
002647 MOV #MS.GCR,COMND 
CALL _—*iTALK ; 
TST $ 
BEQ 1$ : 
CALL =‘ TESTEX : 
1$: MOV CR+SHRTTO,RO : 
BIC #LBLONB,RO : 
CALL TO : 
MOV RO,SDIS ; 
MOV CR+LONGTO,RO : 
BIC #LBLONB,RO : 
CALL : 
MOV RO, SDILTO : 
MOV CR+RCTCPS,RO 
SWAB ORR 
BIC #177760,R0 
MOV RO, COPY : 
.SBTTL ISSUE ONLINE COMMAND 
:ISSUE ONLINE COMMAND AND CHECK RESPONSE 
MOV #CR.ONL,R3 F 
002647 MOV #MS ONL COMND : 
CALL _—*iTALK F 
TST : 
BEQ 2$ : 
CALL =‘ TESTEX : 


2$: 


SEQ 0507 


SET UP_TEMPORARY SHORT bai VALUE 
POINT TO GET CHARS COMMAND 


SDI INTERCHANGE 
SEE IF — 


GET LONG TIMEOUT 


P 
SAVE IN LONG” TIMEOUT 


GET AND SAVE NUMBER OF RCT COPIES 


; POINT " ONLINE COMMAND 
; SET UP_FOR ERROR 

; SDI INTERCHANGE 

; SEE IF ERROR OCCURRED 

>; IF NOT, BRANCH 

; IF $0, REPORT 


sc! 


ISSUE 


ONLINE C 


Ss S8Ssssssss 
N— OOULWH— 


Wwronnr 


SODNAUSWN $$ O OONAOUSWN—ODONOUSWwh— 
Wwronuits 


Sssssso 


WRININMININNNININID 2 2 2 2 SO oe 


MVIMmiuvMiMmuwyi 
yr et at et et te 


Ww 
wu 


021746 


002701 


002667 002647 


000002 


000377 
002611 


002741 
002647 
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ISSUE ONLINE COMMAND 


.SBTTL 
ISSUE GET STATUS COMMAND AND CHECK THAT ATTENTION DROPS 


-SBTTL 


#CR.GST,R 


rae -GST,COMND 


TOA 
TESTEX 
RTDS 
—— 


ATTEN NOT DEASSERTED 
TESTEW 


ISSUE DRIVE CLEAR COMMAND 


R3 


;ISSUE DRIVE CLEAR COMMAND 


#LOBYTE ,ERRORS 
#CR.CLR,R3 
rae -CLR,COMND 


1$ 
TESTEX 


Be De Ge Ge Ge Ge Ge Ge Se 


POINT dete STATUS COMMAND 


COMMAND SHOULD HAVE CLEARED IT 


; MOVE TO DRIVE ore SDI AREA 
; POINT TO iy he CLEAR 


SET UP FO 


RRO 
; SDI INTERCHANGE 


SEE IF ERROR OCCURRED 
NOT, BRANCH 
SO, REPORT 


SEQ 0508 


ee ee a ee eed 


SSsssess 


2SIRASESE 


FWD —$OOONAVSWN SO ODONOUFSWAN— OO 


NONIPINIAR) SO OS 


- 
S 
oO 
Ww 


Pascoe 
onnroSoS 


104203 


021746 


002706 
002756 
002676 


002725 
002726 





Sorte 
002647 


002647 


~SBTTL 
;SPIN UP DRIVE 
: MOV 


Cc 8 


SEQ 0509 
-SBTTL ISSUE CHANGE MODE COMMAND 
ISSUE CHANGE MODE COMMAND TO ENABLE DIAG CYL ACCESS 
MOV #CR.MO 3 POINT TO CHANGE MODE COMMAND 
MOV MODE 1 TOMOBE ; er » trate DIAG CYL ACCESS, NO FORMATTING 
MOV #MS .MOD , COMND 3 SET FOR ERROR 
CALL TALK : SDI INT ERCHANGE 
TST : SEE IF ERROR OCCURRED 
BEQ 2$ : IF NOT, BRANCH 
CALL TESTEX ; IF SO, REPOR 


SPIN UP DRIVE 


#CR.RUN,R3 3 POINT TO RUN COMMAND 
MOV #MS RUN, COMND : SET UP_FOR ta a 
CALL TALK 3 SDI INTERCHANGE 
TST ; IF oo OCCURRED 
BEQ 3$ : IF NOT, BRANCH 
CALL TESTEX : IF So, REPORT 


UDAT3 DISK FUNCTIONAL DMACR X04. 23-AUG=82 12:01:30 PAGE 47 ‘ SEQ 0510 | 





ISSUE INITIATE RECALIBRATE COMMAN 
1 .SATTL ISSUE INITIATE RECAL IBRATE COMMAND 
4 : ISSUE INITIATE RECALIBRATE COMMAND 
4 005463 104203 002720 MOV #CR.INR,R3 : POINT TO RECALIBRATE COMMAND 
5 005465 104200 002712 002647 MOV #MS. INR. COMND + SET UP FOR ERR OR 
6 005470 021076 CALL _—«*iTALK t SDI INTERCHANGE 
7 005471 115002 TST R2 + SEE IF ERROR OCCURRED 
8 005472 015476 BEQ 4$ : IF NOT, BRANCH 
9 005473 PUSH = R17. 
005473 100461 MOV R1,=(SP) 
10 005474 021746 CALL _—«*TESTEX 
11 005475 POP R1 
005475 104261 MOV (SP)+,R1 
12 005476 104204 000004 4$: MOV #4 RG : R46 IS DECREMENT COUNTER 
13 005500 020720 T3C: CALL RTOS : GET DRIVE aslonA 
14 005501 115002 TST R2 : SEE IF ERR 
15 005502 051732 BNE TESTEW : IF SO, BRA NCH 
16 005503 102201 000002 #ATIN,R1 ; DID ATTENTION SET? 
17 005505 015604 BEQ 13D N 
18 ; CHECK ERROR BITS = IF SET, REPORT “AFTER RECAL ERROR BITS ARE SET’ OR SOMETHING THEN EXIT 
19 : IF LOGGABLE INFO BIT SET (NO ERROR BITS) MESSAGE LOGGABLE INFO AFTER RECAL, CONTINUE TEST 
20 005506 PUS R1 7 SAVE R 
005506 100461 MOV R1,-(SP) 
21 005507 104203 002701 MOV #CR.GST,R3 : POINT TO GET STATUS COMMAND 
22 005511 104200 002667 002647 MOV #MS.GST.COMND : SET UP FOR ERROR 
23 005514 021076 CALL _—s*TALK ; SEND AND RECEIVE COMMAND 
24 005515 115002 TST R2 > ANY ERRORS 
33 005516 055547 BNE $ : Irs NT 
6 005517 104303 002766 MOV ST+ST.ERR,R3 1" Bhnon INFORMATION 
27 005521 102203 000350 #<sT. FE+ST.RE+ST.PE+ST. ué>. By Y ERRORS? 
28 005523 015554 T3A iF Ok i CONTINUE 
29 005524 20, #SER22 
005524 104200 001050 001037 MOV #MS20,0UT.04 
005527 104200 003276 001040 MOV PSERZS DUT OS 
005532 104300 001475 001036 MOV LUNIT,OUT.O 
005535 104202 105714 MOV #20! ERHARD+3000. ,R2 
005537 104020 001035 MOV R2,0UT.02 
005541 104200 005541 001034 MOV #..OUT.01 
005544 104200 060013 001033 MOV #ERRMES ,OUT.RO 
30 005547 R1 
005547 104261 MOV (SP)+,R1 
31 005550 104203 001041 #OUT.06,R3 : ELSE SET UP ERROR INFO 
32 005552 021752 TESTEY 
33 005553 005632 T4A 
34 005554 102200 000010 002765 #ST.EL,ST+1 ; ANY LOGGABLE INFO? 
35 005557 015603 : IF NOT CONTINUE 
005560 104203 001037 #OUT.04,R3 : IF SO, SET up POINTER 
37 00556¢ 022131 STRST : AND SET UP INFO 
00556 21, #SER22 
005563 104200 001073 001035 #Ms21,0UT. 02, 
005566 104200 003276 001036 mov #SER22,0U 
005571 100467 i R. -(SP) 
003572 100461 ROW RI -=(3P) 
005573 104300 001475 001034 MOV LUNIT,OUT.01 
005576 104207 060015 MOV #MESSAG,R 
005600 021000 CALL - HOSTRO 
005601 104261 MOV (SP)+,R1 


oc 


yest? ° 





DISK FUNCTIONAL DMACR X04. 23-AUG=82 12:01:30 PAGE 47-1 


INITIATE 


005626 
45 005631 


RECALIBRATE COMMAND 


104267 


100000 


001037 
001036 


T3B8: 
T3D: 


POP R1 

BIT #RWRDOY ,R1 
BNE 7. 

DEC 

BNE Rc 
HARDER 16 

CALL TESTEW 


; RESTORE R1 


MOV (SP)+,RO 
MOV (SP)+,R1 


DID R/W READY SET? 
0, BRANCH 


i _" 
Y AGAIN? 


SEQ 0511 


3R/W READY DID NOT SET AFTER RECALIBRATE COMMAND 
#MS16 4 


a ae ae e+ 


LUNIT,OUT.03 
#16 !ERHARD+3000. ,R2 
R OUT .02 


#.,0U T.01 
#ERRMES ,OUT.RO 
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T CHARACTERISTICS 


AAO 
Nm 
SER 
-—S 
SxS 
wm 
ono 
NS 
onruw 


SFFSSFE 


Ssssssooses 
NVYIWN oO 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
6 


ao 
vw 
nS = 


-SBTTL GET SUBUNIT CHARACTERISTICS 
GET SUBUNIT CHARACTERISTICS 


MOV UNITNB,R1 : FIND SUBUNIT MASK FOR COMMAND 
#°C3,R1 


BIC : CLEAR UNUSED BITS OF INDEX 
MOV #10,R0 
ROL RO : ROTATE 
DEC R1 : UNTIL DONE 
BPL 1$ 
BIC #LBHINB,RO 3 CLEAR UNUSABLE BITS 
MOV RO, SUBUNT 
MOV #CR.SCR,R3 : POINT TO GET SUBUNIT CHARACTERISTICS 
MOV we SCR, COMND : SET UP As Binns 
CALL TAL : SDI INTERCHANGE 
: SEE IF ERROR OCCURRED 


2s 
CALL TESTEX 


-SBTTL SEEK TO a 0, GROUP 0 


sSEEK TO CYLINDER 0, GROUP 





MOV #TSTCYL,RI 

CLR TSTCYL : LO ORDER CYL 0 
MOV SUB+LBNCYL*#1,TSTCYL+1 HI ORDER CYL 0 
BIC #HBHINB, TSTCYL#1 

CLR TSTCYL#2 : GROUP 0 

CALL SEEK 


UDAT3 DISK i“ DMACR X04.01 23=AUG-82 12:01:30 PAGE 49 SEQ 0513 
CALCULATE NUMBERS 
1 -SBTTL CALCULATE NUMBERS 
2 : CALCULATE NUMBER OF SECTORS PER TRACK 
? : NO. OF SECTORS/TRACK =(NO. OF aN’ S/TRACK) + (NO. OF RBN'S/TRACK) 
5 005675 104301 003012 T4A1: MOV sp Mey «Ws Tad : GET RBN'S/TRACK 
6 005677 103201 177600 BIC #177600,R1 
7 005701 104307 003017 MOV SUB+LBNTRK,RO : GET LBN'S/TRACK 
8 005703 103207 177400 BIC #HIBYTE,RO : ZERO UPPER BITS 
9 005705 105071 ADD RO,R1 ; ADD NUMBER OF LBN'S TO RBN'S 
10 005706 104010 003073 MOV R1,SECTRK : SAVE 
11 005710 105011 AD s COMPUTE SECTORS TIMES T 
12 005711 104010 003033 MOV R1,NSCSL : AS SECTORS READ BEFORE DECLARING 
i? : NO HEADER FOUND 
1? COMPUTE FIRST CYLINDER IN XBN AREA 
17 005713 104301 003006 MOV SUB+LBNCYL ,R1 
18 005715 104010 003071 MOV R1,FXBNCYL : FIRST XBN CYLINDER (LO) 
19 005717 104307 003007 MOV SUB+LBNCYL+1,RO 
20 005721 103207 170000 BIC #*CHBHINB,RO- CLEAR SUBUNIT CYL BITS 
} 005723 104070 003072 MOV RO, FXBNCYL+1 3 FIRST XBN CYLINDER (HI) 
Si COMPUTE FIRST CYLINDER IN DBN AREA 
25 005725 105301 003027 ADD 77 tamale : ADD NUMBER OF XBN CYLINDERS 
26 005727 045731 BCC 148 : BRANCH IF NO CARRY 
27 005730 115407 INC RO : INCREMENT HI ORDER CYL 
28 005731 104010 003067 T4B: MOV R1,FDIACYL : STORE STARTING DBN CYLINDER | 
34 005733 104070 003070 MOV RO,FDIACYL+1 
Hy sCOMPUTE LAST CYLINDER IN DBN AREA | 
33 005735 104303 003030 MOV SUB+DBNCYL ,R3 : GET NUMBER OF DBN CYLINDERS 
34 005737 110703 SWAB | 
35 005740 103203 177400 BIC #HIBYTE ,R3 
36 005742 055764 BNE T4C 
37 005743 HARDER 17 s CHARACTERISTICS SAY_LESS THAN 1 DIAGNOSTIC CYLINDER | 
005743 104200 77? ~+001037 MOV #MS17,QUT.04 
005746 104300 001475 001036 MOV LUNIT,OUT.03 | 
005751 104202 105711 MOV #17! ERHARD+3000. .R2 
005753 104020 001035 MOV 2,0UT.02 
005755 104200 005755 001034 MOV #.,0UT.01 
0057: 104200 060013 001033 MOV #ERRMES ,OUT.RQ 
goatee 021740 CALL TESTEV 
: NO LONGER NEED LAST DIAG CYL = JUST SAVE STARTING DBN, LAST TRACK, LAST GROUP, LAST CYL 
: AND USE COMPUT XFC HEAVILY 
5764 117403 DEC RS : “nepy CE BY ONE AND ADD TO 
43 005765 105031 ADD Rie R1 : FIRST DBN CYLINDER TO 
44 005766 045770 BCC : COMPUTE LAST CYLINDER 
5 005767 115407 INC Me 
46 005770 104010 003064 T4D: MOV R1,LDIACYL 3 STORE LAST DBN CYLINDER 
? 005772 104070 003065 MOV RO,LDIACYL#1 
48 005774 104303 003010 MOV SUBGRPCYL R3 : GET eres kine 
005776 103203 177400 BIC #HIBYTE,R3- : CLEAR UNUSED BITS 
50 006000 117403 DEC R : LAST 
51 006001 104030 003066 MOV R3,LDIACYL+2 





H 
UDAT3 DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 50 SEQ 0514 
READ ALL FACTORY FORMATTED TRACKS 


1 .SBTTL READ ALL FACTORY FORMATTED TRACKS 
é sREAD ALL FACTORY FORMATTED TRACKS. 
; SREPORT ERROR IF ALL SECTORS ON A TRACK READ WITH AN ERROR. 
3 sCOMPUTE DBN OF FIRST BLOCK ON F,.CTORY FORMATTED CYLINDER 
7 006003 114005 16: CLR RS 
8 006604 104303 003011 MOV SUB*TRKGRP, R3 : TRACKS/GROUP 
9 006006 103203 177400 BIC WHIBYTE,R3_ 
10 006010 104304 003073 MOV SECTRK,R4 : X SECTORS/TRACK 
11 006012 105035 T6A: ADD R3,R5 : TO COMPUTE NUMBER OF SECTORS PER GROUP 
12 006013 117404 DEC 
13 006014 056012 BNE T6A 
14 006015 104050 003106 MOV RS, SECGRP : SAVE SECTORS/GROUP 
15 006017 PUSH = R2 + SAVE R2 
006017 100462 MOV R2,-(SP) 
16 006020 104302 003010 MOV SUB+GRPCYL ,R2 ; GET GROUPS/CYL __ 
17 006022 103202 177400 BIC WHIBYTE,R2 : CLEAR UNUSED BITS 
18 006024 PUSH : SAVE R2 
006024 100462 MOV R2,-(SP) 
19 006025 114000 003107 CLR SECCYL 
20 006027 105300 003106 003107 2%: ADD SECGRP, SECCYL : GET SECTORS/CYL 
21 006032 117402 DEC R2 
22 006033 056027 BNE 2$ 
23 006034 POP R2 : RESTORE R2 
006034 104262 MOV (SP)+,R2 
24 006035 104301 003030 MOV SUB+DBNCYL ,R1 3 GET CYLINDERS IN DBN AREA 
25 006037 110701 SWAB 
26 006040 103201 177400 BIC #HIBYTE,R1 3 TO COMPUTE BLOCK NUMBER OF FIRST BLOCK 
27 006042 114005 CLR Ro ; CLEAR PRODUCT 
28 006043 105025 1$: ADD R2,R5 
29 006044 117401 DEC R1 
006045 056043 BNE 1$ 
006046 POP R2 : RESTORE R2 
006046 104262 MOV (SP)+,R2 
32 006047 114007 CLR RO 
33 006050 PUSH RS 3 SAVE NUMBER OF GROUPS IN DIAGNOSTIC AREA 
006050 100465 MOV RS,-(SP) 
006051 117405 DEC RS ; SO DBN COMPUTED IS FIRST ON LAST GROUP 
35 006052 105301 003106 T6C: ADD SECGRP,R1 
36 006054 046056 BCC T6D 
37 006055 115407 INC RO 
38 006056 117405 16D:  —DEC R5 
39 006057 056052 BNE 
40 006060 104010 003062 MOV R1,LCDBN 
41 006062 104070 003063 MOV RO,LCDBN+1 
42 006064 POP R5 : RS 1S NUMBER OF GROUPS IN DIAG AREA 
006064 104265 MOV (SP)+,R5 
43 006065 104307 003030 MOV SUB+DBNCYL RO : GET NUMBER OF READ ONLY GROUPS 
44 006067 103207 177400 BIC #HIBYTE,RO : CLEAR UNUSED BIT 
45 006071 056113 BNE 1$ ; IF READ ONLY GROUPS > 0 THEN BRANCH 
46 006072 HARDER 14 : ZERO READ ONLY GROUPS 
006072 104200 000501 001037 MOV amsi 14 ,OUT.04 
006075 104300 001475 001036 MOV OUT.03 
906100 104202 1057 MOV Hit ERGARD+3000. .R2 
006102 104020 90105 MOV R2,0UT.02 
006104 104200 104 001034 MOV #.,QUT.01 





ia a ne 
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UDATS DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 50-1 
READ ALL FACTORY FORMATTED TRACKS 


006107 
47 poet ig 
48 00611 
49 006116 
50 Sects 
51 0061 ¢ 
26 00612 
5 ope ise 

006124 

pool es 

0061 

006134 

006136 

006141 
54 006144 
55 006145 
56 006147 
57 006151 
58 OE 
59 00615 
60 006154 
€1 006157 
62 006160 
63 ead 
64 00616 
65 006165 
66 006166 
67 006167 
68 006170 
69 006172 
70 006173 
71 006174 
72 006176 
73 006177 
74 0062 
75 006201 
76 006202 
77 006204 
78 006206 
79 006210 
80 006212 
81 
82 
83 
84 006215 
$3 006217 
87 006220 
88 006223 

006223 

006224 
89 006225 

006230 

006230 

006231 
91 006232 
92 006234 


SSEEREE HASSE 
SSSSNSS GRISSSS 


2 
MElSESS 


WONWWW— 


S= 


Sons 


Sereenee 
z 


fp ere ere 
© 
w 


ANWO 
&Srw 


onwom 
iw os 


ESESNSSS 


PESER 
es 


S 


006255 
104201 
022156 


060013 


64 
003065 


-—ONeu 
Wwonui 
Vinvinmn 


Ss & 
$s 
SS we 


003061 


003106 


003104 


003065 


003064 


003076 


001033 


003057 
003060 


001037 
001036 


001034 
001033 


003057 


003115 


003077 


003076 


1$: MOV 


2$: HARDER 


3$: MOV 
4$: 


5$: 


6$: MOV 
7$: ADD 


8$: DEC 


: POINT TO CURBL 
; AN 


CALL 
; THEN SEE IF CY 
i$: CMP 

BCS 


CMP 
BCS 


MOV 
CALL 


D THE "LETTER 


TESTEV 

LDIACYL ,ROFDC 
LDIACYL+1,ROFDC+1 
RO,R5S 

$ 

15 


TESTEV 
SUB+GRPCYL ,R4 
#HIBYTE,R4 
R4,RO 


6$ 

#1 ,ROFOC 
4$ 

ROFDC+1 
#-1 oR3 
RO,R3 

R3 

R3,RO 
RO,ROFDC+2 
R3 


R4 
SECGRP,R3 


7 
R3,ROFOBN 
R4 ,ROF DBN+1 
R3,CURBLK 
R4,CURBLK+1 
ag LETT 


AND COMPUTS 


FNDCY 
L COMPUTED IS > MAX CYL. 
pep ACeLer Force! 


LDIACYL, TSTCYL 
T6F 


#TSTCYL,R1 
SEEK 





: ER ; MAKE DBN 
; CALL SOME SUB THAT LOOKS AT THE 
CYL, TRK, AND 


MOV 


RS HAS NUMBER 
IF R/W GROUPS 


#ERRMES ,OUT.RQ 


OF yay A be GROUPS 


ZERO, ERRO 


IF GREATER THAN ZERO, BRANCH 
OUPS 


NO —_—_" 


GR 
#MS15,0UT.04 


LUNIT,OUT.03 

MOV 1 ar - llaaaa 
#.,0UT.01 

MOV #ERRMES ,OUT.ROQ 


GET NUMBER OF GROUPS/CYL 
ty fo UNUSED BITS 


UBTRACT NUMBER OF GROUPS/CYL 


DECREMENT STARTING READ ONLY CYL BY 1 
IF tO P 


O CARRY, 
PROPOGATE BORROW 
RANCH 
(1°S) 


2°S_ COMPLEMENT 
RESTORE T 


IF NO CARRY, BR 
PROPOGATE CARRY 
DECREMENT COUNT 
LOOP 


; SET UP FOR COMPLEMENT 
; COMPLEMENT 


0 RO 
; SAVE IN STARTING GROUP 
; CLEAR LO ORDER FIRST READ ONLY DBN 
; CLEAR HI ORDER FIRST READ ONLY DBN 
; ADD SEC/GRP TO + naa STRT SEC 


Ss 

POINTER PASSED 

GRP. THEN RETUR 

: THEN SEE IF CYL COMPUTED IS > MAX CYL IF SO, THIS PHASE OF TEST IS OVER (BR TGX) 
T6G: MOV #CURB 5 


: GO DIRECTLY TO DBN WILL BE PROCESSED 
IF SO, THIS PHASE OF TEST IS OVER (BR TGX) 


: SEEK TO REQUESTED CYL 


BCC 64% 
8 TOF 
BCC 65$ 
B Tet 


SEQ 0515 
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UDAT3 DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 50-2 SEQ 0516 
READ ALL FACTORY FORMATTED TRACKS 

93 006235 104205 003104 MOV #CURBLK,RS 

36 rere bo3333 nent T6E CALL SEC TAR ORS READ EACH SECTOR TILL ONE READS OK 

006242 103200 177400 003105 “BIC #HIBYTE, CURBLK+1 , 

97 006245 105300 003073 003104 ADD SECTRK, CURBLK 

98 006250 046215 BCC T66 

99 006251 115400 003105 INC CURBLK+1 

100 006253 115404 INC R4 

101 006254 006215 BR T66 

103 006255 T6F: 


— a 


k 8 
UDAT3 DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 51 SEQ 0517 
SEEK TO SELECTED GROUP, READ HDR, SEEK TO DIAGNOSTIC AREA 
1 -SBTTL SEEK TO ets ee READ HDR, SEEK TO a gurney ie AREA 
¢ STARTING WITH cibieere GROUP D INCREMENTING THROUGH EVERY GROUP 
0N THE DISK, PERFO A SéEC . THe SELECTED GROUP, READ A HEADER 
4 :0N THAT GROUP AND T THEN A SEEK TO THE FACTORY FORMATTED DIAGNOSTIC 
2 ;GROUP TO VERIFY HEADS POSITIONED CORRECTLY. 
‘ :COMPUTE LBNS PER GROUP 
9 006255 114001 T?: CLR R1 ; LBN'S/TRK X TRK/GROUP 
10 006256 104305 003011 MOV pany Hn ne R5 
11 006260 103205 177400 BIC #HIBYTE RS 
12 006262 104303 003017 MOV SUB+LBNTRK, R3 :GET LBN*S PER TRACK 
13 006264 103203 177400 BIC #HIBYTE,R3_ CLEAR UNUSED BITS 
14 006266 104030 003101 MOV R3,BLOCKT 
15 006270 105031 T7A: ADD R3,R1 
16 006271 117405 DEC R5 
17 006272 056270 BNE T7A 
18 006273 104010 003102 MOV R1,BLOCKG sSAVE IN BLOCKG 
19 006275 114000 003103 CLR BLOCKC 
20 006277 104307 003010 MOV ae RO 
21 006301 103207 177400 BIC #HIBYT 
22 006303 105300 003102 003103 1$: ADD BLOCKG,BLOCKC 
23 006306 117407 DEC RO 
24 006307 056303 BNE 
25 006310 114 076 CLR 
26 006312 114000 003100 CLR TSTCYL+2 :GROUP ZERO 
006314 114000 003074 CLR 
28 006316 114000 003075 CLR TSTBLK+1 
006320 114000 003121 CLR PCNT 
30 006322 114000 003122 CLR OLDGRP : CLEAR OLD GROUP VALUE USED IN FNDCYL 
31 006324 104200 000114 003114 MOV #°L, AREA sAREA BEING SEEKED INTO IS LBNS 
32 006327 104300 003114 003115 T7C: MOV AREA, LETTER : MOVE TO LETTER FOR REPORTING 
3 006352 104205 003074 a. ote ack kad. POINT TO LBN NUMBER FOR => VAR1 
35 ; IF CYL < STARTING CYL THEN CONTINUE ELSE IF CYL >= ayy DIAG CYL THEN OUT (BR T7X) 
36 + ELSE IF CYL = STARTING XBN CYL CLR TSTBLK, TSTBLK*+1 AND BR T7C 
37 006334 021770 CALL FNDCYL FIND CY Ll NDER 
38 006335 106300 003071 003131 CMP FXBNCYL,CYLLO 21S CYL = STARTING XBN? 
39 006340 056374 BNE 1$ :1F NOT, “BRANCH 
40 006341 106300 003072 003132 CMP FXBNCYL+1,CYLLO+1 : 
41 006344 056374 BNE 1 
42 006345 106200 000130 003114 CMP #°X, AREA : IF HERE AGAIN, BRANCH 
43 006350 016374 BEQ 1$ 
44 006351 1042 000130 003114 MOV #*X, AREA : NOW IN XBN AREA 
006354 114000 003074 CLR TSTBLK sIF SO, CLEAR TSTBLK 
46 006356 114000 003075 CLR TSTBLK+1 
47 006360 104300 003073 003101 MOV SECTRK ,BLOCKT sCHANGE BLOCK COUNT PER TRACK 
8 006363 104300 003106 003102 MOV SECGRP ,BLOCKG CHANGE BLOCK COUNT PER GROUP 
006366 104300 003107 003103 MOV aetebe BLOCKC 3CH ANGE BLOCK COUNT PER CYL 
50 006371 114000 003122 CLR LDGRP 3 CLEAR OLD GROU 
006373 006327 BR Tr ; AND TRY AGAIN WITH XBN 
52 006374 106300 003067 003076 1$: cMP FDIACYL, TSTCYL ; DONE? 
53 006377 056404 BNE 2s cif NOT, CONTINUE 
54 006400 106300 903070 003077 CMP FDIACYL+1,TSTCYL+1 INE? 
55 006403 016476 BEQ T?x TIF SO. EXIT 
56 006404 104300 003114 003115 28: MOV AREA, LETTER 
57 006407 104201 003076 MOV #TSTCYL,R1 :SEEK TO CYLINDER 





ae 


UDAT3 DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 51-1 
SEEK TO SELECTED GROUP, READ HDR, SEEK TO DIAGNOSTIC AREA 


SEQ 0518 


58 006411 022156 CALL SEEK 
59 006412 104205 003074 MOV ATSTBLK,RS ; SET UP POINTER TO TEST BLOCK 
60 006414 104303 003073 MOV SECTRK,R3 'GET MAXIMUM NUMBER OF SECTORS TO READ 
61 006416 022331 CALL READ [READ UNTIL AT LEAST ONE RECORD READ WITHOUT ERROR 
62 . COMPUTE CYL FROM LCDBN 
63 006417 104200 000104 003115 3s: MOV #°D, LETTER ; IN DIAGNOSTIC AREA 
64 006422 021770 CALL —- FNDCYL 
65 006423 104201 003076 MOV #TSTCYL,R1 
66 006425 104303 003073 MOV SECTRK,R3 : R3 = SECTORS/TRACK 
67 006427 022156 CALL SEEK 
68 006430 104205 003062 MOV #LCOBN,RS : SET UP POINTER TO TEST BLOCK 
69 006432 022331 CALL = READ1 [READ UNTIL AT LEAST ONE RECORD READ WITHOUT ERROR 
70 006433 115400 003121 INC GRPCNT 
71 006435 103200 177400 003121 BIC #HIBYTE ,GRPCNT 
72 006440 056461 BNE 5 
73 006441 PUSH RO : SAVE RO 
006441 100467 MOV RO,-(SP) 
006442 104207 060007 MOV #T4SOFT,RO : TO INTERRUPT HOST <<ONLY>> 
75 006444 104300 001475 001034 MOV LUNIT,OUT.01 : IDENTIFY uN IT 
76 006447 114000 001035 CLR UT.02 : NO SOFT ERRORS 
77 006451 114000 001036 CLR UT.03 : NO ECC CORRECTIONS 
096453 114000 001037 CLR OUT .04 
79 006455 114000 001040 CLR OUT.05 
80 006457 021000 CALL § HOSTRQ ; REPORT (NOTHING) 
81 006460 POP R : RESTORE RO 
006460 104267 MOV (SP)+,RO 
82 006461 105300 003103 003074 5$: ADD BLOCKC, TSTBLK 
006464 046467 BCC 6$ 
84 006465 115400 003075 INC TSTBLK+1 
85 006467 105300 003102 003074 6$: ADD BLOCKG, TSTBLK 
006472 046475 BCC 
87 006473 115400 003075 INC TSTBLK+1 
0063 7$: BR T7C 
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ULATS DISK FUNCTIONAL DMACR K04.01 23-AUG-82 12:01:30 PAGE 52 SEQ 0519 
SEEK TO SELECTED GROUP, READ HDR, SEEK TO DIAGNOSTIC AREA 


006476 T7X: 
006476 001633 BR OVRLAY ; BRING IN REST OF THE CODE 


1 
é 
7 006475 OVL.SU = »*TEST 


nN 8 
UDATS DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 53 SEQ 0520 
weeeeDM OVERLAY 2**ee*eCHECK WRITE PROTECT 





-SBTTL *#eeeDM _— 2eexeeCHECK WRITE PROTECT 
006477 DMOVLY TS,OVRLP 
006477 000105 » WREDC JourPuT EDC FOR THIS OVERLAY 


PETTITTE TE LILLE ELLE TTL LTLTTT LLLP TTT TTT TTT TTT TTT TTT TT TET 
_ dana anette ter tbe etch inlaid toriiete tp 


d 
3 
4 
5 
6 
7 


000002 if ST = 


part DISK FUNCTIONAL DMACR X04.01 23-AUG=82 12:01:30 PAGE 54 


weeeeDM OVERLAY 2teeeeCHECK WRITE PROTECT 


00366 
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22 005335 
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=> io 

w 

oa 


Nm Wow 
oO 
= 


elo 
REEERE 

™m 

So 


—Morn 
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oa 
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177777 
4 


003117 


00307 
00307 


001037 
001036 


001034 
001033 


1$: 


#=1 ,WFLAG 
CURBLK 
fvothee® 
CURTRK 
FDIACYL, 


TSTCYL 
FDIACYLS1, o TSTCYL+1 


TSTC 
#TSTCYL,R1 
SEEK 
WRITEB 

RO 

1$ 

R1 

1$ 

35 


TESTEV 
DR.CLR 
WFLAG 


Be te Ge Ge Ge Ge Ge Ge Be 


SET FLAG 
; CLEAR BLOCK 


CLEAR T 
POINT 10. CYL TO TEST 


CLEAR GROUP 

R1_ => TEST CYL 

SEEK THERE 

AND ATTEMPT TO 1 Ne 

WAS IT SUCCESSFU 

IF NOT, THAT WAS EXPECTED 


REPORT ERROR 
M #MS35 ,OUT.04 
LUNIT,OUT.03 
MOV #35! ERHARD+3000. ,R2 
MOV R2,0UT.02 
#. ,OUT.01 
MOV #ERRMES ,OUT.RQ 
CLEAR DRIVE 
CLEAR FLAG 


~y 


Seo 0521 


¢ 9 
UDAT3 DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 55 SEQ 0522 
CHANGE MODE TO ALLOW FORMATTING AND WRITING 

1 ~SBTTL CHANGE MODE TO ALLOW FORMATTING AND WRITING 

: 005337 18: 

4 : FIRST CHANGE MODE TO ALLOW FORMATTING AND WRITING 

6 005337 104204 000004 MOV #4 ,RG : R4 HAS DECREMENT COUNTER 

005341 104203 002706 2s: MOV #CR.MOD,R3 : POINT TO CHANGE MODE COMMAND 

8 005343 104300 002757 002755 MOV MODE2, MODE ; WRITE pPROTECT, DIAG CYL ACCESS, NO FORMATTING 

9 005346 104200 002676 002647 MOV #MS..MOD, COMND : SET UP FOR ER 

10 005351 021076 CALL _—s*'TALK ; INITIATE spl INTERCHANGE 

11 00935¢ 115002 TST : SEE IF ERROR OCCURRED 

12 005353 015360 BEQ 1$ : IF NOT, H 

13 005354 021746 CALL _—*TESTEX : IF so, “ERROR 

14 005355 117404 DEC RG : DONE? 

15 005356 055341 BNE 2$ : IF NOT, BRANCH | (try AGAIN BECAUSE FORMAT 

16 ; WON'T WORK WITH A WRITE PROTECTED DRIVE) 

17 005357 001617 BR TESTX : ELSE, EXIT 

18 005360 114000 003120 18: CLR FLAG : USE FLAG TO DECIDE IF WE FORMAT OR TEST A TRACK 
20 .SBTTL FORMAT A TRACK THEN CHECK IT. 
22 : FORMAT ALL TRACKS, THEN DO SEVERAL WRITES. READS AND DATA COMPARES 

23 ; UNTIL ONE SECTOR PASSES. DO THIS FOR EACH TRACK IN EACH GROUP 

24 ; ON EACH CYLINDER IN THE DIAGNOSTIC AREA EXCEPT FOR THE LAST 

35 : (FACTORY FORMATTED) CYLINDER ON THE PAC | 
27 005362 104300 003067 003076 MOV FDIACYL, TSTCYL y START AT FIRST DIAGNOSTIC CYL | 

005365 104300 003070 003077 MOV FDIACYL#1,TSTCYL#1 

9 005370 104201 003076 MOV ATSTCYL,RI z POINT TO CYLINDER TO SEEK TO 

30 005372 114000 003100 CLR TSTCYL#2 t START WITH G | 
31 005374 022156 CALL SEEK : SEEK TO FIRST DIAGNOSTIC CYLINDER 
32 005375 114004 LR RG : START WITH DBN 0 

33 005376 104040 003074 MOV R4, TSTBLK 

34 005400 104040 003075 MOV R4.TSTBLK+1 : CLEAR BLOCK 
35 005402 104040 003111 TBA: MOV R4,CURTRK : SAVE TRACK NUMBER | 
36 005404 115000 003120 TST FLAG : DO WE FORMAT | 
37 005406 055411 BNE 1$ : IF NOT ZERO. TEST TRACK 

38 005407 026465 CALL  FORTRK + FORMAT THE TRACK 

39 005410 005412 BR 2$ + DO NOT TEST TRACK UNTIL ALL FORMATTED 

40 005411 026710 1$: CALL ‘ TRKTST : TEST THE TRACK 

41 005412 105300 003073 003074 2$: ADD SECTRK , TSTBLK + ADD SECTORS/TRACK 

42 005415 045420 BCC T8B : IF NO CARRY, BRANCH 

43 005416 115400 003075 INC TSTBLK+1 : INCREMENT 

44 005420 104304 003111 188: MOV CURTRK,R4 : GET TRACK NUMBER 

45 005422 115404 INC R 3 INCREMENT TRACK NUMBER 

46 005423 104303 003011 MOV SUB+TRKGRP,R3 : T NUMBER OF TRACKS/GROUP 

47 005425 103203 177400 BIC #HIBYTE,R3 ; CLEAR UNUSED B 

48 005427 106034 CMP R3,R4 : CEE IF ALL TRACKS READ 

49 005430 055402 BNE TBA : IF NOT, BRANCH 

50 005431 114004 CLR R4 : ZERO R4 

51 005432 115400 003100 INC TSTCYL+2 : MOVE TO NEXT GROUP 

32 005434 104301 003010 MOV SUB+GRPCYL,R1 : GET GROUPS/CYLINDER 

53 005436 103201 177400 BIC #HIBYTE,R1 : CLEAR UNUSED BITS 

54 005440 106010 003100 CMP R1,TSTCYL#2 : COMPARE 

55 005442 05545 BNE 18 ; IF ALL GROUPS NOT TESTED, BRANCH 

56 005443 104040 003100 MOV R4, TSTCYL#2 3 START WITH GROUP 0 ON NEW CYLINDER 

57 005445 115400 003076 INC TSTCYL : INCREMENT CYLINDER 





UDAT3_DISK F 
FORMAT A TRACK 
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003077 
003076 


003077 
003100 
003076 


003120 
177777 


003057 
003060 
003061 


003120 


001462 


002766 


001037 
001036 


001034 
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AL DMACR X04.01 23-AUG-82 12:01:30 PAGE 55-1 
EN CHECK IT. 





BCC T8D : IF NO CARRY, BRANCH 

INC TSTCYL+#1 + INCREMENT HI CYLINDER 

CMP TSTCYL,ROFDC : SEE IF ON LAST CYLINDER (LO ORDER) 

BNE 1$ : IF NOT, BRANCH 

CMP TSTCYL+1,ROFDC#1 : SEE IF ON LAST CYLINDER (HI ORDER) 

BNE 1$ : IF NOT, CH 

CMP TSTCYL#+2,ROFDC+2 : SEE IF ON RESERVED GROUPS 

BEQ T8T : IF $O, END THIS PHASE OF TEST 

MOV #TSTCYL,RI1 + POINT TO NEW CYLINDER OR GROUP 

CALL SEEK : ISSUE SEEK 

BR 8A + BRANCH 

TST FLAG + ARE WE DONE? 

BNE E 3 IF $0, BRANCH 

MOV #=1,FLAG : ELSE, CHANGE FLAG 

BR : AND CHECK TRACKS 

;_*** NOW SEND INVALID SELECT GROUP COMMAND AND EXPECT ERROR 
T8E: MOV #1,SDILTO z CHANGE LONG TIMEOUT 

MOV #SUB+GRPCYL,RO + RO HAS GROUP # 

BIC #HIBYTE RO + STRIP OFF UNUSED BITS 

CMP #LOBYTE.RO : IS THIS UNIT USE MAX BITS? 

BEQ 111 : IF 50, BRANCH (DON'T DO TEST) 

BIS #SL.GRP,RO : SET SELECT GROUP CODE 

MOV RO, RUN : STORE IN 

CLR CR.RUN#1 : SET UP FOR LEVEL 1 EXCHANGE 

MOV #CR.RUN,R3 : R3 => PACKET 

MOV SDI,R2 + SEND MESSAGE 

MOV (R35+,RO : SET UP PARAMETERS 

MOV (R3),R1 : 

XFC SEND + SEND COMMAND 

TST ; IF FAIL, BRANCH 

BNE T8F 

MOV #CR.GST,R3 : CHECK OUT STATUS 

CALL _—«*iTALK 

BIT #<ST.PE+ST.RE+ST.FE+ST.WE>,ST.ERR#ST ERROR? 

BNE TSF 3 IF SO, BRANCH 

HARDER 33 : ELSE ERROR 
MOV 4#MS33,0UT.04 
MOV LUNIT,OUT.03 
MOV #33! ERHARD+3000. ,R2 
MOV R2,0UT.02 
MOV #. OUT. 
MOV #ERRMES ,OUT.RO 

CALL _—*TESTEV 

CALL  DR.CLR : CLEAR DRIVE OF ERROR 


UDATS DISK FUNCTIONAL DMACR 
SEND INVALID LEVEL 2 COMMAN 
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002647 


000001 
002746 


000400 
000377 
002760 

0 


0 
002701 


000007 002704 


X04.01 23-AUG-82 12: 
DS 





SEND INVALID LEVEL 2 C 
COMND 


RO 
#1,CR.RUN+1 
RO,RUN 


TSTCMD 
RO 


RO 

2$ 

#400,R0 

1$ 
#377,RUN 
TSTCMD 
RUNCMD , RUN 
#64. ,R5 
RS,CR.RUN#1 
#SERSO, 


RS 
#SERS1,R4 
R5,CR.GST+3 
#CR.GST,R3 


TSTCM2 
#7,CR.GST+3 


OMMANDS 


CLEAR COMMAND CODE AS A FLAG 
ND VALUE 


; CLEAR SDI COMMA 
; RESET PROPER LENGTH 
; SET CODE 


SAVE RO 
MOV RO,=(SP) 


; AND TEST 
; RESTORE RO 
; TRY INVALID OPCODE ONCE 


MOV (SP)+,RO 
EXIT WHEN I te WITH INVALID CODE 
IF NOT DONE, TEST AGAIN 


; TRY WITH LOW BITS SET 
; RESTORE RUN COMMAND 
; STORE INVALID COMMAND LENGTH 


; TRY AGAIN WITH 0 COMMAND LENGTH BUT INVALID COMMAN 
; DESTROY RESPONSE LENGTH 


; RESTORE COMMAND LENGTH 


NONONONONY @ 2 
FW — OC OONAOUESWN “CO OONOUSwr— 


31 005714 


o-oo = 
OR ROPE 

S 

So 


Se 
aS 


002726 
070400 


003430 
107000 


131000 


131000 
003467 


070400 


003520 
131000 


152000 
000014 


131000 
003551 


002746 


002647 
002746 


002746 


002746 
002647 


002746 


002647 
002746 


002746 
002746 


002746 
002647 


F 


UDAT3 DISK SU ey a le 01 23-AUG-82 12:01:30 PAGE 57 
SEND INVALID LEVEL 1 COMMAND 





-SBTTL SEND INVALID LEVEL 1 COMMANDS 


CALL 


Vv 
MOV 
CALL 


Vv 
CALL 
MOV 
MOV 
CALL 


BIS 
CALL 
MO 


; tee wat START THEN SELECT GROUP 
CR.RUN+1 


ams. Beare »RUN 


SNOLV 
#SERS2,COMND 
oe maa 


ND 
#MS.END,RUN 
TSTCMD 


; eee —_ END WITH NO START 


-END,RUN 
corre eeee 


SNDLV1 
#SERS4,COMND 
#MS .END,RUN 
TSTCMD 


; ** SEND CONTINUE WITH NO START 
MOV #MS. 


#RUNLBC , RUN 
v1 


SNDL 
#MS.END,RUN 
#SERS9, COMND 


SET UP C 


; OMMAND 
; SEND LEVEL 1 START COMMAND 


; *** SEND START THEN END WITH BAD CHECKSUM 
MO am R,RUN 


MOVE SELECT | CODE INTO COMMAND 


; CHECK IF CAUGHT 


; SET UP END FRAME 


CHECK IF CAUGHT 
SET « STAPT FRAME 
SEND FRAME 


SET UP END FRAME (ZERO CHECKSUM) 
CHECK IF CAUGHT 


SET CONTINUE FRAME 


SEND IT 
SET UP END FRAME 
CHECK IF CAUGHT 


SEQ 0525 


en sipeienieien eo ‘ 
oar’ DISK yr ‘ey DMACR 01 23-AUG-82 12:01:30 PAGE 58 SEQ 0526 


SEND INVALID LEVEL 1 COMMANDS 


1 3 

é : FIND IF DRIVE WAS FORMATTED IN 512 BYTE MODE. 

4 005715 104307 002761 TS: MOV COPY,RO 3 GET NUMBER OF XBN COPIES 

5 005717 105077 ADD RO,R : - 
6 005720 104070 002763 MOV RO, SERRTY : RETRY 2 TIMES THE NUMBER OF COPIES 
7 005722 114000 002762 1$: CLR RETRY : TO SET UP COPIES AND SETUP CALC 
8 005724 114000 003104 CLR CURBLK : PUT LO ORDER XEN IN CURBLK 

9 005726 114000 003105 CLR CURBLK+1 : PUT HI ORDER XBN IN CURBLK+1 
10 005730 104205 003104 2$: MOV #CURBLK,RS 
11 005732 104204 003067 MOV #FDIACYL,R4 
12 005734 104303 003073 MOV SECTRK,RS 
13 005736 114001 CLR R 
14 005737 021770 CALL = FNDCYL 
15 005740 104302 002646 MOV SDI,R2 
16 005742 104203 002720 MOV #CR.INR,R3 : SET UP FOR RECALIBRATE 

17 005744 021076 CALL _—«*iTALK + RECALIBRATE DRIVE 

18 005745 115002 TST : SEE IF ERROR OCCURRED 

19 005746 056077 BNE 8$ 3 IF SO, BRANCH 
20 005747 104201 003131 MOV #CYLLO,R1 
21 005751 022156 CALL SEEK 
22 005752 104301 001462 3$: MOV SDILTO,R1 : INNER LOOP TIMEOUT 
23 005754 114005 CLR 
24 005755 020746 4$: CALL RTDSL ; GET REAL TIME otcian STATE 
25 005756 115002 ah R2 : SEE IF ERROR OCCURRED 
26 005757 056077 BNE $ : IF $0, BRANCH 
27 005760 115001 TST R1 > SEE IF READ/WRITE READY IS ASSERTED 
28 005761 075767 BMI 5$ : IF SO, BRANCH 
29 005762 ASSUME RWRDY,100000 
30 005762 117405 DEC R5 
31 005763 055755 BNE 4$ 
32 005764 117404 DEC RG 
33 005765 055755 BNE 4$ 
34 005766 006077 BR rt : ERROR IF TIMED OUT 

38 005767 104200 100000 003137 S$: MOV #RSTOP,CHAIN¢RW.STAT |; MOVE LAST CHAIN FLAG TO CHAIN 
47 005772 104300 003104 003141 MOV CURBLK, CHAIN¢RW.LOW : MOVE TO OUTPUT 
48 005775 104301 003010 MOV SUB+HIX : GET HI XBN BITS 
49 005777 110601 ROR R1 : ROTATE TO CORRECT POSITION 
006000 110601 ROR R1 : ROTATE TO CORRECT POSITION 

1 006001 110601 ROR R1 : ROTATE TO CORRECT POSITION 

52 006002 110601 ROR R1 : ROTATE TO CORRECT POSITION 

3 006003 103201 170377 BIC #HBLONB,R1 ; CLEAR UNUSED BITS 

54 006005 101201 120000 BIS #HD.XBN,R1 3 MAKE A XBN 

55 006007 105301 003105 ADD CURBLK+1,R1 : SET IN HI XBN BITS 

56 006011 104010 003142 MOV R1, CHAIN¢RW.HI 3 SAV 

57 006013 104300 003134 003143 MOV TRACK, CHAIN¢RW. CMD : MOVE TRACK TO CHAIN 

58 006016 101200 013400 003143 BIS #RREAL, CHAIN¢RW. CMD > SET IN REAL TIME COMMAND 

59 006021 104207 003665 MOV #RBUFD, 
60 006023 104070 003140 MOV RO, CHAIN¢RW.BUF 
61 006025 104302 002646 MOV a) ; R2 HAS UDA PORT MA 
62 006027 104207 003137 MOV ACHAIN. RO : RO POINTS TO CHA An 
63 006031 060012 XFC WAITSI : WAIT FOR SECTOR OR INDEX 

006052 115001 TST : SEE IF ERROR OCCURRED 

65 006033 056077 BNE 8$ 3: IF RAN 4 

5 006034 060002 XFC XREAD ; READ O's SECTO 

76 006035 106201 000004 CMP #4,R1 : SEE IF XBN NEADER COMPARE FAILURE 
77 006037 016062 BEQ 7$ : IF SO, TRY NEXT COPY 


UDATS 
SEND 








78 006040 
79 006043 
83 00604 


8 Betis 
93 006046 


so 
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see8 
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DISK FUNCTIONAL DMACR 
INVALID LEVEL 1 COMMAN 


Ro. 
ISR 


om 
ne 
2 

N= NNN aI ON 


106200 
016162 


010000 
003137 


002766 
177400 


002762 
002761 


003003 
003105 
002763 


002422 
00244 


= NWA 
WEIN 


003137 


002762 
003104 


001037 
001040 
001036 


001034 
001033 
003665 
003665 
001037 


001040 
001036 


001034 
001033 


001037 
001036 


001034 
001033 





6$: 
7$: 


9$: 


12$: 





Bi 
HARDER 


BEQ 
HARDER 


BR 
HARDER 


CALL 
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R1 
8$ 

"aac naiamcactate ites 
#CHAIN,RO 

ECC 

R1 

7$ 
ST+ECCRSH 
#HIBYTE, 


E non” 


RETRY 

COPY ,RETRY 
CR+FCTSIZ,CURBLK 
CURBLK+1 

SERRTY 

38, #SER36 


11$ 
#M0D512,RBUFD 
$900576.RBUFS 
36 ,#SER36 


TESTED 


Be Se Se Be Se Se 


SEQ 0527 
SEE IF AN ERROR OCCURRED 
IF SO, BRANCH 
SEE If BUFFER HAS AN ECC ERROR 
IF NOT, BRANCH 
POIN CHA 
CORRECT THE BUFFER 
SEE IF ERROR 


IF SO, BRANCH 


INCREMENT CURRENT COPY NUMBER 
SEE IF ALL COPIES TRIED 

IF SO, BRANCH 

ADD TO CURRENT BLOCK 


oc 
; CALCULATE AND TRY NEXT SECTOR 


¥ PROPOGATE CARRY 


8 
DECREMENT RETRY COUNT 
IF UNEXHAUSTED, BRANCH 


MOV #MS38,0UT.04 
MOV #SER36,0UT.05 
MOV LUNIT,OUT.03 
MOV #38! ERHARD+3000. ,R2 
MOV R2,0UT.02 
MOV . OUT. 
MOV #ERRMES ,OUT.RO 
SEE IF 512 BYTE MODE DRIVE 


SEE IF 576 BYTE MODE DRIVE 
SET UP REPORT 
MOV 


#MS36,0UT.04 
MOV #SER36,0UT.05 
MOV LUNIT,OUT.03 
MOV #36! ERHARD+3000. .R2 
MOV R2,0UT.02 
MOV #..OUT. 
MOV #ERRMES ,OUT.RO 
MOV #MS37,0UT.04 
MOV LUNIT,OUT.03 
MOV #37! ERHARD+3000. .R2 
MOV R2,0UT.02 
MOV #. .OUT.01 
MOV #ERRMES ,OUT.RO 


| ae ee coe Ss ee 19) 
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ISSUE DISCONNECT COMMAND 
1 .SBTTL ISSUE DISCONNECT COMMAND 
é 906205 104203 002667 19: MOV #CR.DIS,R3 : POINT TO DISCONNECT COMMAND 
006205 104200 002621 002647 MOV #MS.D1S,COMND : SET UP FOR ERROR 
4 906210 021076 CALL _—s*iTALK : INITIATE SDI INTERCHANGE 
§ 006211 11500 TST R2 : SEE IF ERROR OCCURRED 
6 006212 016214 BEQ 710 
c 006213 021746 CALL =‘ TESTEX 3 IF SO, BRANCH 
9 -SBTTL CHECK AVAIL FLAG 
10 006214 114005 710: CLR R5 : ser uP TIMEOUT COUNTER 
11 006215 104302 002646 TIOLOP: MOV SD1,R2 : MOVE MASK TO R2 
12 006217 020754 CALL RDSTAT : GET DRIVE “STATUS 
13 006220 115002 TST R2 > WAS wit OK? 
14 006221 016267 BEQ 2$ : IF NO ERROR, BRANCH 
15 006222 102201 000400 BIT #RCVERR,R1 + SEE IF ANY ERRORS 
16 006224 056246 BNE 1$ : IF NOT, ERROR 
17 006225 HARDER 11 : REPORT INVALID STATUS ERROR 
006225 104200 000366 001037 MOV asi .OUT .04 
006230 104300 001475 001036 MOV LUNIT,OUT.03 
006233 104202 105703 MOV #11 'ERHARD+3000. ,R2 
006235 104020 001035 MOV R2,0UT.02 
006237 104200 006237 001034 MOV . ,OUT.01 
006242 104200 060013 001033 MOV #ERRMES ,OUT.RO 
18 006245 001732 BR TESTEW : BRANCH TO DONE 
19 006246 1$: 
20 006246 HARDER 12 ; REPORT XMIT ERROR 
006246 104200 000434 001037 MOV amsi2. QUT .04 
006251 104300 001475 001036 MOV 03 
006254 104202 105704 MOV sr RGanos 000. ,R2 
006256 104020 001035 MOV R2,0UT.02 
006260 104200 006260 001034 MOV #.,0UT.01 
006263 104200 060013 001033 MOV #ERRMES ,OUT.RO 
21 906266 001732 - BR TESTEW : BRANCH TO DONE 
23 006267 102201 000100 BIT #AVAIL,R1 z SEE IF AVAILABLE IS ASSERTED 
24 006271 056321 BNE T12 3 IF SO, BRANCH TO LAST TEST 
25 006272 117405 DEC R5 : DECREMENT TIMEOUT 
26 006273 056215 BNE TIOLOP ; XPIRED, BRANCH 
7 006274 103201 077674 BIC #077674,R1 : CLEAR UNUSED BITS 
28 006276 HARDER 29,R1 + REPORT ERROR 
00627 104200 002007 001037 MOV #™S29,0UT.04 
006 104010 001040 MOV RI 05 
006303 104300 001475 001036 MOV T,OUT.03 
006306 104202 105725 MOV £99! ERMARDs 3000. .R2 
006310 104020 001035 MOV R2,0UT.02 
006212 104200 006312 001034 MOV . OUT .01 
006315 104200 060013 001033 MOV #ERRMES ,OUT.RO 
29 006320 021740 CALL _—*TESTEV 
31 
32 006321 112: 
33 006321 104300 002760 002746 MOV RUNCMD, RUN : RESTORE RUN COMMAND 
34 006324 104200 000001 002726 MOV #1,CR.RUN¢1 : RESTORE COMMAND LENGTH 
35 006327 001617 BR TESTX : BRANCH TO TEST NEXT UNIT 
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SNDLV1 AND TSTCMD 
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0064 

006452 
006454 
006457 


060013 


002746 SNDLV1: BIS 
SNDL1A: 


002766 


002746 
001037 


001036 


001036 
001034 
001033 
001037 


001040 
001036 


001034 
001033 


; te SEND LEVEL 1 START COMMAND 
: ART FRAME AND RETURN 
UNLBC, RUN 


ATEVER FOR LEVEL 
OUTPUT WILL NOT RETURN IF ERROR OCCURED 
TSTCMD: MOV > amma 3; SEND COMMAND 
TSTCM2: CALL 
TST 3; DID IT FAIL? 
BEQ : 


TER: 


mt 
BNE 
;.*** DID NOT FAIL => ERROR 
11 TST COMND 
BNE T11x2 
CMP RUNCMD , RUN 
BNE T11x1 
HARDER 31,<R4,R5> 


T11X1: 


T11X2: 


SBTTL at +} AND TSTCMD 


SEND THE ST 
#R 


MOV #CR.RUN.RS 
MOV SD1,R2 
MOV RSS e. RO 
MOV (R3),R1 
KFC SEND 
RETURN 


wee TEST THE COMMAND 
INPUT 


; R2 => PORT 


; SET RUN COMMAND 
; SEND COMMAND 


R 
SET UP PARAMETERS 


SEND COMMAND 


RUN HAS LEVEL 1 OR 2 COMMAND SET UP 
CR.RUN 7. i INITIATE LEVEL 1 TRANMITTION 


eR TESTED 
HARDER 30,RUN 


BR TESTED 
HARDER 32,COMND 





TITER 
MOV #CR.GST,R3 
ALK 


IF NOT, BRANCH TO REPORT AND EXIT 


CHECK STAT 


TA GET STATUS 
BIT #<ST.PE+ST.RE+ST.FE+ST. ué>, ST+ST.ERR 


; BRANCH IF ERROR 
DID WE HAVE .*"1 ue 


IF SO, LEVEL 1 X 


MIT ERR 
ELSE, WHAT TYPE MTEVEL 3° XMIT ERROR? 
IF RUN NOT SET TO RUN COMMAND, BRANCH 


#MS31,0UT.04 
R4 5 


LUNIT ,OUT.03 

#31! ERHARD+3000. ,R2 
R2,0UT.02 

#. OU 01 

#ERRMES ,OUT.RQ 
LUNIT ,OUT.03 

#30! ERHARD+3000. ,R2 
R2,0UT.02 

#.,OUT.01 

#ERRMES ,OUT.RQ 


ons Se Out 


LUNIT.OUT.03 
#32 'ERHARD+3000. .R2 
R2,0UT.02 


#..OUT.01 
#ERRMES ,OUT.RO 


SEQ 0529 
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SNDLV1 AND TSTCMD 
36 006462 001753 BR TESTED 


37 006463 021761 TSTCME: CALL DR.CLR : CLEAR ERROR 
38 006464 000000 RETURN 
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FORTRK = FORMAT 


1 
4 006465 FORTRK: 
& ; 
? ; 
7 006465 104307 003074 
8 006467 104301 003011 
9 006471 110601 
10 006472 110601 
11 006473 110601 
12 006474 110601 
13 006475 103201 170377 
14 006477 101201 140000 
15 006501 101301 003075 
16 006503 104203 003256 
17 006505 104304 003073 
18 006507 104205 003665 
19 006511 100253 FLOOP: 
20 006512 100257 
21 006513 100251 
22 006514 115407 
23 006515 046517 
24 006516 115401 
25 006517 117404 FCARY: 
26 006520 056511 
27 006521 104207 100000 
28 006523 100157 
29 006524 104302 002646 
30 006526 020754 
31 006527 115002 
32 006530 016576 
33 006531 102201 000400 
34 006533 056555 
35 006534 
006534 104200 0003 001037 
006537 104300 001475 001036 
006542 104202 105702 
006544 104020 001035 
006546 104200 006546 001034 
006551 104200 060013 001033 
36 006554 001732 
37 006555 1$: 
38 006555 
006555 104200 000434 001037 
006560 104300 001475 001036 
006563 104202 105704 
006565 104020 001035 
006567 104200 006567 001034 
006572 104200 060013 001033 
39 006575 001732 
40 006576 2s: 
41 006576 102201 100000 
006600 056622 
43 006601 
006601 104200 000737 001037 
006604 104300 001475 001036 


SEQ 0531 


~SBTTL FORTRK = FORMAT TRACK 


FORMAT TRACK GIVEN BY CURTRK 


STARTING WITH DBN GIVEN IN TSTBLK 


THE DATA WRITTEN IS UNPREDICTABLE 


BNE 
HARDER 


BR 
HARDER 


BR 

BIT 
BNE 
HARDER 





TSTBLK ,RO 
aaa ta 


R1 
R1 


R1 
#HBLONB,R1 
#HD.DBN,R1 
TSTBLK+i ,R1 
#OBUFF RS 
SECTRK.R4 
#FCHAIN,RS 
3, (R5)+ 


RO. (R5)+ 
emnere 
FCARY 

R1 

FLOOP 
#FSTOP,RO 
RO, (R5) 
SDI,R2 
RDSTAT 

R2 

2$ 
#RCVERR,R1 
10 


TESTEW 
12 


TESTEW 
#RWRDY,R1 
FGO 

18 


MOV 
; BRANCH TO DONE 


GET LO STARTING DBN 
GET HIGH ORDER BITS OF STARTING DBN 
MOVE TO CORRECT POSITION 


; CLEAR UNUSED BITS 
; SET HEADER CODE 
; GET HI _ STARTING DBN | 


; BUFFER 

; R4 CONTAINS NUMBER OF SECTORS TO FORMAT 
; RS POINTS TO FORMAT CHAIN 

; MOVE POINTER Pn At TO CHAIN 


N 
; DECREMENT SECTOR COUNT 
; BRANCH IF COUNT UNEXHAUSTED 
; GET FORMAT END-OF=CHAIN FLAG 
; MOVE INTO CHAIN 
; MOVE MASK TO R2 
; s. Saw 


; K? 

; IF NO ERROR, BRANCH 

; SEE IF ANY ERRORS 

; IF NOT, ERROR 

; REPORT INVALID STATUS ERROR 
y #™S10 04 


Be Se Ge Ge Ge Ge Ge Be Ge Ge Se Ge Se Be Ge Ge Ge Se Be Se Be Be & 
£ ba 
> 2 
oO 
» 
m 
= 


LUNIT.OUT.03 
MOV #10! ERHARD+3000. ,R2 
MOV Re .OUT .02 
#ERRMES ,OUT.RQ 


; REPORT i ERROR 


MO #MS12,0UT.04 

MOV LUNIT,OUT.03 

MOV #12! ERHARD+3000. ,R2 
MOV R2,0UT.02 

MOV #.,O0UT.01 

MO #ERRMES ,OUT.RQ 


V 
: BRANCH TO DONE 
: TEST R/W READY 
:_IF ASSERTED, BRANCH 
sREAD/WRITE READY DROPPED BEFORE FORMAT 
MOV #MS18,0UT.04 
MOV LUNIT ,OUT.03 


poe 


71 
72 006707 


oh 53 


104200 
104200 


104200 
021746 


000000 


177400 
003111 
002646 


000771 


060013 


003276 
000024 


001037 


001036 
001034 
001033 


001056 
003116 


FGO: MOV 


BEQ 
HARDER 


ENDERR 


CALL 
: MOV 


A CALL 
FOREXT: RETURN 
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FORTRK = FORMAT TRACK 


TESTEV 


#HIBYTE, 
pean 


#HIBYTE ,R3 
CURTRK,R1 
SDI,R 
FORMAT 

7 


SEQ 0532 — 


MOV #18! ERHARD+3000. ,R2 

MOV R2,0UT.02 

MOV . -OUT.01 

MOV #ERRMES ,OUT.RQ 
BRANCH TO EXIT 


POINT TO FORMAT CHAIN (FOR XFC) 
GET DATA PREAMBLE LENGTHS 


CLEAR UNUSED BITS 
AR ees PREAMBLE LENGTH 


CLEAR UNUSED BYTES 
TRACK NUMBER 
SET PORT INDICATOR 


FORMAT THE TRACK (GUFFER CONTENTS ARE A SON'T cane 
SEE IF ANY A pgp OCCURRED 


OREXT IF NOT, BRA 
19, <INS+1, INS+2, INS+3, cuRTRKk> Timeout By Pt mathe READY DROPPED | 


i 


TESTEX 
OUT.RQ,RO 
HOSTRQ 


ee + Se Ce + Oe se 


LUNIT,OUT.03 

MOV #19! ERHARD+3000. ,R2 

MO R2,0UT.02 
#. ,OUT.01 

MOV #ERRMES ,OUT.RQ 

MOV #SER22,0UT.19 

MOV #19+1 ,ERRPOS 


; PRINT ERROR 


: SET THE POSITION 


Oy 


Nn 9 
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TRKTST = TEST TRACK 





-SBTTL TRKTST = TEST TRACK 


006710 TRKTST: 

4 ; TEST THE ENTIRE TRACK UNTIL AT LEAST ONE BLOCK IS SUCCESSFULLY 

2 3 WRITTEN AND READ WITH SEVERAL DATA PATTERNS 

7 006710 104307 003074 MOV TSTBLK ,RO 3 MOVE LO STARTING DBN TO CURRENT DBN 
8 006712 104070 903104 MOV RO, CURBLK 

9 006714 104307 003075 MOV TSTBLK+1 ,RO : MOVE HI STARTING DBN TO CURRENT DBN 
10 006716 104070 003105 MOV RO ,CURBLE+1 

11 006720 104301 003073 MOV SECTRK,R1 : GET SECTORS/TRACK 

12 006722 117401 DEC R1 : ADJUST FOR END LOGP WHEN NEGATIVE 
13 006723 104010 003113 TRKLOP: MOV RI, a : SAVE SECTORS LEFT IN SECTOR COUNT 

14 006725 104201 000001 MOV #1,R : MOVE 1 TO CURRENT PATTERN 

15 006727 026752 CALL UTRCMP : WRITE THAN READ AND COMPARE THE SECTOR 
16 006730 1150 TST pd : SEE IF WRITES, READS AND COMPARES WERE GOOD 
17 006731 016751 BEQ TRKEXT : IF SO, BRANCH 

18 006 104307 003104 MOV CURBLK ,RO ; GET LO CURRENT BLOCK NUMBER 

19 0067 115407 INC R : INCREMENT PBN NUMBER 

20 006735 104070 003104 MOV RO, CURBLK : SAVE 

21 006737 046745 BCC TRKBOT : BRANCH IF NO CARRY 

22 006740 104307 003105 MOV CURBLK+1,RO : GET HI DBN NUMBER 

23 006742 115407 INC : INCREMENT 

24 006743 104070 003105 MOV RO, CURBLK+1 2 SAVE 

25 006745 104301 003113 TRKBOT: MOV SECCNT,R1 : GET AU oem 

26 006747 117401 DEC R1 : DECREMENT COUN 

27 006750 036723 BPL TRKLOP : BRANCH IF COUNT POSITIVE 

28 006751 000000 TRKEXT: RETURN 


So 
& 
“N 
uw 
Nm 


FWN—O OCONAUSWN OC OONOUS wr 


Naa aan danas 


000000 


003112 
003145 


WTRCMP: 


WTREXT: 





UDAT3 DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 63 
WRTCMP = WRITE A DATA PATTERN AND COMPARE 


B 10 


«SBTTL WRTICMP = WRITE A DATA PATTERN AND COMPARE 


iat 


PARE ON 

MOV R1,CURPAT 
ADD #PATPIR, R1 
CALL GENPAT 
CALL WRITEB 
TST RO 
BNE WTREXT 
CALL READB 

TST RO 
BNE WTREXT 
CALL CMPDAT 
TST RO 
BNE WTREXT 
MOV CURPAT,R1 
INC R1 

CMP PATPTR,R1 
PL WIRCMP 


B 
RETURN 


ae PATTERN TO A SECTOR, READ IT BACK, THEN DO A atte 
COM THE O THIS AS ANY TIMES AS THERE IS P 
CURRENT PATTERN NUMBER IN 'CURPAT 


ATTERNS. 


a tere PATTERN NUMBER 


POINTS TO PATTERN TO GENERATE 
GENERATE THE atte IN THE OUTPUT BUFFER 


WRITE THE PATTERN 
SEE IF ANY “te OCCURRED 


IF SO, 


BRA 
READ THE BL 


IF § 


OCK BACK 
SEE IF ANY i OCCURRED 


0, «+ 
COMPARE THE DATA 
SEE IF ANY ERRORS OCCURRED 


IF SO, 
NEXT P. 


COMARE AGAINST MAXIMUM PATTERN NUMBER 


8 H 
GET CURRENT PATTERN 


IF LESS OR EQUAL, LOOP 


SEQ 0534 — 
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GENERATE A PATTERN 


¢ 006777 


-SBTTL GENERATE A PATTERN 


GENERATE THE DATA PATTERN IN THE OUTPUT BUFFER 


Ri POINTS TO POINTER TO PATTERN BUFFER WHICH IS PATTERN LENGTH 
(1 WORD) FOLLOWED BY THAT MANY WORDS OF PATTERN 


PUSH R2 : SAVE R2 MOV R2.°(SP) 

MOV (R1),RO RO POINTS TO START OF PATTERN BUFFER 
MOV #256. .R3 ; R3 HOLDS PATTERN COUNT 

MOV #OBUFF ,R4 ; R4 POINTS TO OUTPUT BUFFER 

MOV RO,R R1 POINTS TO START OF PATTERN BUFFER 


MOV (Ri)+,R5 
MOV (R1)+#,R2 


RS CONTAINS LENGTH OF PATTERN 
MOV R2,(R4)+ 


T WORD OF PATTERN 
MOVE TO BUFFER 
DECREMEN’ BUFFER +t 


DEC R 
BEQ GENEXT IF BUFFER FULL, EXIT 
DEC R5 DECREMENT PATTERN COUNT 
BNE GENIN IF NON-ZERO, BRANCH 
BR GENOUT START PATTERN OVER AGAIN 
: POP R2 RESTORE R2 
MOV (SP)+,R2 
RETURN 


ae ee eC + ee — 
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WRITEB = WRITE A SECTOR 





1 .SBTTL WRITEB = WRITE A SECTOR 
: 007020 WRITEB: 
$ : WILL WRITE ONE SECTOR OF DATA TO THE DISK 
6 007020 104207 140000 MOV #wSTOP,RO 
14 007022 104070 003137 MOV RO, R. STAT+CHAIN; MOVE END=OF “CHAIN TO CHAIN 
15 007624 104307 003104 MOV CURBLK,RO : MOVE LO DBN TO CHAIN 
16 007026 104070 003141 MOV RO,RW.LOW+CHAIN 
17 007030 104307 003105 MOV CURBLK+1,RO : MOVE HI DBN TO CHAIN 
18 007032 104301 003011 MOV SUB+HIDBN,R1 + GET HIGH ORDER BITS OF STARTING DBN 
19 007034 110601 ROR R1 : MOVE TO CORRECT POSITION 
20 007035 110601 ROR R1 
21 007036 110601 ROR R1 
22 007037 110601 ROR R1 
23 007040 103201 170377 BIC #HBLONB,R1 : CLEAR UNUSED BITS 
24 007042 101201 140000 BIS #HD.DBN.R1 : SET HEADER CODE 
25 007044 101017 BIS R1,R : SET IN RO 
26 007045 104070 003142 MOV RO. RW.HI+CHAIN 
27 007047 104307 003111 MOV y RTRK,RO 3 MOVE TRACK + RTC TO CHAIN 
28 007051 101207 122400 BIS #WREAL RO : SET REAL TIME COMMAND WRITTE 
007053 104070 003143 MOV RO,RW.CMD+CHAIN 
30 007055 104207 003256 MOV #OBUFF RO : MOVE OUTPUT BUFFER TO CHAIN 
1 007057 104070 003140 MOV RO,RW. BUF +CHAIN 
32 007061 104302 002646 MOV SDI,R2 : MOVE MASK TO R2 
33 007063 020754 CALL RDSTAT g ped DRIVE “STATUS 
007 115002 TST R2 ; sit OK? 
35 007065 017133 BEQ 2$ ; TP No ERROR BRANCH 
007 102201 000400 BIT ARCVERR,R1 + SEE IF ANY ERRORS 
37 007070 057112 BNE $ : IF NOT, ERR R 
38 007071 HARDER 10 + REPORT INVALID STATUS ERROR 
007071 104200 000341 001037 MOV #Hsi0, OUT .04 
007074 104300 001475 001036 MOV T.OUT.03 
007077 104202 105702 MOV TOL ERMARD+ 3000. .R2 
007101 104020 001035 MOV R2,0UT.02 
007103 104200 007103 001034 MOV #.,OUT.01 
7106 104200 060013 001033 MOV #ERRMES ,OUT.RO 
39 007111 001732 BR TESTEW : BRANCH TO DONE 
40 007112 1$: 
41 007112 HARDER 12 : REPORT XMIT ERROR 
007112 104200 000434 001037 MOV amsi2, OUT.04 
007115 104300 001475 001036 MOV T.OUT.03 
007120 104202 105704 MOV §1 3! ERMARD +3000. .R2 
007122 104020 001035 MOV R2,0UT.02 
007124 104200 007124 001034 MOV #. ,OUT.01 
007127 104200 060013 001033 MOV #ERRMES ,OUT.ROQ 
42 007132 001732 =. BR TESTEW : BRANCH TO DONE 
44 007133 102201 100000 BIT #RWRDY,R1 : SEE IF READ/WRITE READY IS ASSERTED 
45 007135 057164 BNE W : 1 
007136 104307 003113 MOV SECCNT,RO + GET SECTOR 
47 007140 057264 BNE WRTEXT : IF NONZERO, bo NOT REPORT ERROR 
48 007141 HARDER 22 SREAD/WRITE DROPPED RZADY BEFORE WRITE 
007141 104200 901117 001037 MOV #Ms22,0UT. 04 
aes 194365 teas setae MOV ST ERGARD $3000 R2 
+ — 
007151 104020 001035 MOV R2,0UT.02 





007250 
72 007253 

007253 

007256 
73 007261 
74 


75 
76 007262 
77 007264 





sissees 


Sek SREtEstEsEET Sesiaitass 
S SSVsSsSssss2s SSsssssssss=sssss 
S gegssesessess 
Nm On 


No 
are 
so 
ac 


— 
So 
& 
Nm 
So 
N 


007153 
060013 
000001 


002646 
003137 


003013 
177400 


003117 





001037 
001041 


001036 
001034 
001033 


001047 
003116 


UDAT3 DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 65-1 
WRITEB = WRITE A SECTOR 


wGO: MOV 


HARDER 


ENDERR 


CALL 
: MOV 
; CALL 


MOV 
WRTEXT: RETURN 


E10. 


SEQ 0537 
MOV #.,0UT.01 
MOV #ERRMES ,OUT.RQ 
#1,R0 : FLAG ERROR 
WRTEXT : BRANCH 
SDI, : SET PORT INDICATOR 
WAITSI 3 WAIT FOR SECTOR OR INDEX PULSE 
#CHAIN,RO : POINT TO WRITE CHAIN 
SUB+DATPRE ,R4 3 MOVE DATA PREAMBLE LENGTH TO R4 
#HIBYTE ,R4 3 CLEAR UNUSED BITS 
XWRIT : WRITE THE BLOCK 
RO : FLAG AS_NO ERRORS 
WFLAG : DID WE TEST WHEN WRITE PROTECTED? 
WRTEXT : IF SO, EXIT 
R1 : SEE IF AN ERROR OCCURRED 
WRTEXT : IF NOT, BRANCH 
SECCNT,RO : SEE IF ERROR SHOULD BE REPORTED 


WRTEX ; ;_IF NOT, NCH 
SE A AT NET LE NOS — DURING WRITE 


MOV LUNIT ,OUT.03 
MOV 655, ERMARD® 5000. .R2 
MOV R2,OUT.02 
MOV #.,OUT.01 
12 MOV #ERRMES ,OUT.RQ 
MOV #SER22,0UT.12 
MOV #12+1,ERRPOS : SET THE POSITION 
TESTEX 
OUT.RQ,RO 
HOSTRQ 
#1,R0 ; MAKE RO NONZERO TO REPORT ERROR 


kia gunaei Ma’ < maices ao ae ' 
~~ DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 66 SEQ 0538 


READB = READ ONE SECTOR . 


1 -SBTTL READB = READ ONE SECTOR 
4 007265 READB: 
: 3 READ ONE SECTOR FROM DISK 
6 007265 104207 100000 MOV #RSTOP RO 3 MOVE END-OF-CHAIN TO CHAIN 
14 007267 104070 003137 MOV RO,RW.STAT+CHAIN 
15 007271 104307 003111 MOV CURTRK ,RO : MOVE TRACK NUMBER AND RTC TO CHAIN 
16 007273 101207 013400 BIS #RREAL ,RO 3 SET REAL TIME READ COMMMAND 
17 007275 104070 003143 MOV RO,RW.CMD+CHAIN 
18 007277 104207 003665 MOV #RBUFD, : MOVE POINTER TO INPUT BUFFER INTO CHAIN 
19 007301 104070 003140 MOV RO,RW.BUF +CHAIN 
20 007303 104302 002646 MOV SD1I,R2 : MOVE MASK TO R2 
21 007305 020754 CALL RDSTAT : GET DRIVE STATUS 
22 007 115002 TST R2 3 WAS IT OK? 
23 007307 017355 BEQ 2s ; IF NO ERROR, BRANCH 
24 007310 102201 000400 BIT #RCVERR,R1 : SEE IF ANY ERRORS 
25 007312 057334 BNE 1$ : IF NOT, ERROR 
26 007313 HARDER 10 : REPORT INVALID STATUS ERROR 
7313 104200 0003 001037 MOV #MS10,0UT.04 
007316 1043500 0014 001036 MOV LUNIT ,OUT.03 
007321 104202 105702 MOV #10! ERHARD+3000. ,R2 
007323 104020 0010 MOV -OUT.02 
007325 104200 007325 001034 MOV - OUT.01 
007330 104200 0600 001033 ‘ MOV #ERRMES ,OUT.RQ 
27 007333 001732 BR TESTEW : BRANCH TO DONE 
28 007334 1$: 
29 007334 HARDER 12 ; REPORT XMIT ERROR 
007334 104200 000434 001037 MOV #MS12,0UT.04 
007337 104300 001475 001036 MOV LUNIT,OUT.03 
7342 104202 105704 MOV #12!ERHARD+3000. ,R2 
007344 104027 001035 MOV R2,0UT.02 
007346 104200 007346 001034 MOV - ,OUT.01 
007351 104200 060013 001033 MOV #ERRMES ,OUT.ROQ 
3 the: 001732 2s BR TESTEW : BRANCH TO DONE 
32 007355 102201 100000 BIT #RWROY ,R1 3 SEE IF READ/WRITE READY IS ASSERTED 
33 007357 057412 BNE R : IF SO, BRANCH 
34 007360 104307 003113 MOV SECCNT RO : GET SECTOR COUNT 
35 007362 057503 BNE REDEXT :_IF NONZERO, DO NOT REPORT ERROR 
36 007363 HARDER 24 sREAD/WRITE DROPPED READY BEFORE READ 
007363 104200 001037 MOV #MS24,0UT. 
7366 104300 001475 001036 MOV LUNIT ,OUT.03 
007371 104202 105720 MOV #24! ERHARD+3000. ,R2 
007373 104020 001035 MOV R2,0UT.02 
007375 104200 007375 001034 MOV #.,OUT.01 
007400 104200 060013 001033 MOV #ERRMES ,OUT.RO 
37 007403 ENDERR 5 
007403 104200 003276 001040 MOV #SER22,0UT.05 
007406 104200 000006 003116 MOV #5+1 ,.ERRPOS : SET THE POSITION 
38 007411 007500 BR REDERR : GO PRINT THE ERROR 
39 007412 104302 002646 RGO: MOV SDI,R2 2 SET PORT INDICATOR 
007414 060012 XFC WAITSI : WAIT FOR SECTOR OR INDEX PULSE 
41 007415 104207 003137 MOV #CHAIN,RO : POINT TO READ CHAIN 
49 007417 060002 XFC XREAD ; READ THE SECTOR 
50 007420 114007 CLR R 3 FLAG AS _NO ERRORS 
51 007421 115001 TST R1 ; SEE IF ERROR OCCURRED 








ears DISK oes tect X04.01 23-AUG-82 12:01:30 PAGE 66-1 


= READ ONE SEC 


2g 00 rss 017503 
5 7423 104307 
54 007 425 057503 

55 00742 
007426 104200 
007431 104010 
007433 104300 
74 104300 
007441 104300 
007444 104300 
007447 104300 
007452 104300 
007455 104300 
0074 104202 
007462 104020 
0074 104200 
007467 104200 

56 007472 
0074 104200 
0074 104200 
57 007500 021746 


_ 
So 
&* 
Nm 
So 
N 


60 007501 
61 007503 000 


So 
So 
So 


003113 


001337 


00 

060013 
003276 
000015 


000001 


001037 
001041 


001036 
001034 
001033 


001047 
003116 


BEQ REDEXT 


SEQ 0539 


; IF NOT, BRANCH 
MOV SECCNT,RO : SEE IF ERROR SHOULD BE REPORTED 
NE REDEX IF NOT, BRANCH 
HARDER 25,<R1,CURBLK,CURBLK+1, 1is#1, INS#2. INS+3,CURTRK> ;ERROR DURING READ 
#MS25 ,0UT.04 
MOV R1,0UT.0 
MOV CURBLK ,OUT. 
MOV CURBLK+1, OUT .07 
MOV INS+1,OUT. 
MOV INS+2,0UT.09 
MOV INS*3,0UT.10 
MOV CURTRK ,OUT.11 
MOV LUNIT ,OUT.03 
MOV #25 !ERHARD+3000. ,R2 
MOV ,OUT.02 
MOV . ,OUT.01 
MOV #ERRMES ,OUT.RQ 
ENDERR 12 
MOV #SER22,0UT.12 
MOV #12+1,ERRPOS : SET THE POSITION 
REDERR: CALL TESTEX 
: MOV OUT.RQ,RO 
; CALL HOSTRQ 


MOV 
REDEXT: RETURN 


; FLAG ERROR 


#10 
UDATS_DISK ene oath DMACR X04.01 23-AUG-82 12:01:30 PAGE 67 SEQ 0540 
CMPDAT = COMPARE DAT 


1 -SBTTL CMPDAT = COMPARE DATA 

¢ 007504 CMPDAT: 

4 ; COMPARE THE So IN "OBUFF® (OUTPUT BUFFER) WITH ‘RBUFD* 

2 3 (INPUT BUFFER) 

7 007504 104207 003256 MOV #OBUFF ,RO ; RO POINTS AT OUTPUT BUFFER 
8 007506 104201 003665 MOV #RBUFD,R1 ; R1 POINTS AT INPUT BUFFER 
9 007510 114003 CLR R3 : COUNTER 

10 007511 Ht Ly CMPLOP: MOV (RO) +,R4 : GET OUTPUT BUFFER WORD 

11 007512 106214 CMP (R1)+#,R4 : COMPARE AGAINST INPUT BUFFER 

12 007513 017567 BEQ NOERR : IF _NO ERROR, BRANCH 

13 007514 104305 003113 MOV SECCNT,RS : if IF ERROR TO BE REPORTED 

14 007516 057574 BNE CMPEXT F NOT, 

15 007517 ‘ HARDER 36,<R3,-(RO) ,=(R1) ,INS#1INS#O,INSeS, CURTRK> zDATA COMPARE FAILURE 
007517 104200 001473 001037 MOV #MS26,0UT .04 
007522 104030 001040 MOV R3,0UT.0* 
007524 104470 001041 MOV -(RO),0U 36 
007526 104410 001042 MOV =(R1),0U, 07 
0075 104300 002751 001043 MOV INS+1 ,OUT.08 
007533 104300 002752 001044 MOV INS+2,0UT.09 

75 104300 002753 001045 MOV INS+3,0UT.10 
007541 104300 003111 001046 MOV CURTRK ,OUT.11 
007544 104300 001475 001036 MOV LUNIT,OUT.03 
007547 104202 105722 MOV #26! ERHARD+3000. ,R2 
007551 104020 001035 MOV R2,0UT.02 
007553 104200 007553 001034 MOV - OUT.01 
007556 ok 060013 001033 MOV #ERRMES ,OUT.RQ 

16 007561 1043507 001033 MOV OUT.RQ,RO 

17 007563 021000 CALL HOSTRQ 

18 007564 104207 000001 MOV #1,R0 : SET FOR ERROR 

19 007566 007574 BR CMPEXT 2 EXIT 

20 007567 115403 NOERR: INC R3 : INCREMENT COUNT 

21 007570 106203 000400 CMP #256. ,R3 : SEE IF COMPARE COMPLETE 

22 007572 057511 BNE CMPLOP : IF NOT, BRANCH 

23 007573 114007 CLR RO ; FLAG AS NO ERRORS 

Se 007574 000000 CMPEXT: RETURN 

38 001320 OVL.TS = 717 

47 007575 DMEND 
007575 000105 - WREDC OUTPUT EDC FOR THIS OVERLAY 

48 000001 ~END 
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UDAT3 DISK FUNCTIONAL DMACR K04.01 23-AUG-82 12:01:30 PAGE 67-1 SEQ 0541 
SYMBOL TABLE 
AREA 003114 DRVRUN= 000014 GRPOFF= 000011 MS.CNT= 152000 OCNT$ = 000003 
ATTN = 000002 DR.CLR 001761 GST 002745 MS.DIS 002621 OLDGRP 003122 
AVAIL = 000100 ECC = 000015 HBHINB= 007777 MS.END= 131000 ONL 002732 
.DAT= ECCFLG= 010000 ONB= 170377 : 002630 OTABLE 001547 
BF -ECC= 000401 ECCRSH= 000002 HDRPRE= 000005 002667 OUT.RQ 001033 
BF -EDC= ECHO = 000010 HD.BAD= 110000 MS.INR 002712 [01 001034 
BLOCKC 003103 ECHOC = 000350 HD.DBN= 140000 MS.MOD 002676 [02 001035 
BLOCKG 003102 ENDGT 04506 BN= 000000 MS.ONL 002604 [03 001036 
BLOCKT 003101 ENDPNT= 00526 HD. PRV= 050000 MS.RUN 002726 704 001037 
= Foc = 100000 HD.RBN= 060000 MS.SCR 002647 OUT.05 001040 
BUFFLG= 040000 ERECOV= 000006 HD.REV= 030000 MS.SEK 002706 706 001041 
BUFFSZ= 000400 ERHARD= 100000 XBN= MS.STR= 070400 707 001042 
$1Z= 00004 ERLEV = 000002 HEADER= 000002 msi 000000 OUT.08 001043 
CHAIN 003137 ERRMC = 060014 HIBYTE= 177400 MS10 000341 [09 001044 
HECK = 00001 ERRMES= 060013 HICYL = 000001 S11 000366 710 001045 
= 0002 = 005670 = 000003 MS12 000434 711 001046 
CHRRES= 000170 ERRORS 002741 HILBN = 000002 MS13. 000461 712 001047 
CMPDAT 0075 RRPOS 003116 HIMEM = 007774 MS14 000501 713 001050 
CMPEXT 007574 SOFT= 140000 HIRBN = 000003 MS15 000555 714 001051 
OP 007511 EXIT = 000021 = 000002 MS16 000635 OUT.15 001052 
002 FB.DAT= 000000 HOSTRQ 001000 MS17 000677 QUT.16 001053 
COMPAR= “EDC= 0004 HRDREV= 000003 MS18 000737 NUT.17 001054 
COMPLT= 000 FCARY 006517 INDEXS 003136 mS19 (000771 001055 
COPY 002761 FCHAIN 003665 INR 00274 MS2 00014 3UT.19 001056 | 
g 002773 FCTSIZ= 000010 INS 002 MS 01050 "20 001057 
CR.CLR 002 FDIACY 00306 INSEEK= 000012 MS2000 002734 [21 001060 
CR.DIS 00266 06622 INTEDC= 000 01073 722 001061 
CR.GCR 002655 FLAG 00312 IRECLB= 000216 mses 01117 OUT. 001066 
: 002701 FLOOP 006511 LARGE = 1 S 001151 724 00106 
CR.INR 002720 FNDCYL 001770 LBHINB= 177417 MS24 001306 725 001064 
CR. MOD 706 FNDCY2 001776 LBLONB= 1 MS25 001337 T.26 001065 
CR.ONL 002650 02006 LBNCYL= 00 MS26 73 727 001066 
CR.RUN 002725 FND4 002034 LBNHST= 000012 MS27 001633 *28 001067 
CR.SCR 002676 FOREXT 006707 LBNTRK= 000011 MS28 01716 °29 001070 
CR.SEK 002713 = 000001 LCDEN 0036 MS29 «002007 730 001071 
CURBLK 104 FORTRK 006465 LDIACY 003064 MS3 000032 731 001072 
CURGRP 003110 FOR.SZ= 001375 LETTER 003115 MS30 002053 °32 001073 
CURPAT 003112 RAME = 000004 LINIT 001476 MS31 002077 733 001074 
CURTRK 17 FSTOP = 100000 LINKLN= 000007 MS32. 002130 001075 
Cvl = FTLDEV= 040000 LOBYTE= 000377 33 002156 OVERFL= 000002 
CYLLO 003131 FILSYS= LONG = 002717 MS34 002220 .MN= 000714 
C2HARD= 04 FT.BUF= 00 LONGTO= 000001 MS35 002245 -MS= 
DATPRE= 000005 “HI = 000001 LOW = 000002 MS3G 002306 OVE .SU= 005262 
DBNCYL= 000022 *LOW= 02 LUNIT 001475 MS37 002331 TS= 005262 
DCLOCK= 000004 FXBNCY 003071 MAXSND= 001750 MS38 0242 "MN= 004347 
DIA 002734 R 02742 MEDTYP= 0000 MS& 00006 “MS= 003673 
DINIT = 000011 GENEXT 007016 MESSAG= 06 mss 000110 OVL.SU= 001216 
D 002736 GENIN 007007 MICREV= 900005 MS6 000135 VL.TS= 002314 
DISCON= 000204 007005 002 MS7 000160 eet 013776 
DMSDI 003032 GENPAT 006777 MODE 002755 mS8 900221 RLAY 001633 
= 060016 GETCHR= 000207 MODE? 002756 mS9 000306 OVRLNM 001730 
DONECD 001627 GETSTA= 000011 MODE2 002757 MR 000017 OVRLPT= 005262 
DRC 002740 = 000210 MOD512= 126736 NOE 007567 RPNT 001731 
DRTYPE= 000007 GET 03665 MOD576= 074161 NSCSL 003033 OVSTRT= 007774 
DRVCLR= 000005 GROUP 0031 MRD = 000016 VL= 000003 OVS.MN= 001040 
DRVID = 000004 GRPCNT 003121 MSSG$ = 000000 NUMPTR= 000014 OVS.MS= 011756 
DRVONL= 000213 GRPCYL= 000002 MS.CLR 002611 OBUFF 003256 OVS.SU= 021544 


UDAT3 DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE 67-2 SEQ 0842 
SYMBOL TABLE 
OVS.TS= 024200 RW.HI = 000003 SETUP = 000001 TEST4 = 4's 4! T6E 006241 
0 014414 LOw= 000002 SHRTTO= 000000 TIMEOU= 000001 T6F 006255 
003145 rpg 33 000005 SL.GRP= 107000 001463 166 006215 
003152 0000 AGN 010 TOOBIG= 000001 17 006255 
003173 SBCRES= 000167 SNDLV1 006330 CK 003134 T7A 006270 
003214 002743 SNDL1A 006333 TRKBOT Berk? T7C 006327 
003235 SCTWRD= 000377 SNDONE= 002666 RKEXT 00675 17x 006476 
001C00 002646 SS = 000001 TRKGRP= 000008 T 005337 
001556 SDILTO 001462 SSCTOR 003135 P 00672 T8A 005402 
001606 SDISTO 001461 ST 764 TRKTST 00671 T 00542 
001614 SDIVER= 000000 STACK 001542 TSTBLK 005074 T8D 005452 
001623 3113 ST 03665 TSTCMD 006343 T8E 00 
000004 SECCYL STATUS= 000007 TSTCME 006463 TSF 005562 
003665 SECGRP 003106 STRST 131 TSTCM2 006345 T8T 
000415 SECTRK 003073 STRTST 005262 TSTCYL 003076 
003657 kK 02156 STSRES= 000366 TOA 005415 UDADM3= 001000 G 
000000 SEEKA 002171 ST.C_ = 000002 T0B 005422 UDASO = 000001 
000001 SEEK1 002203 ST.CON= 000002 T08 005362 UDAS2 = 000000 
000014 SEEK2 002204 ST.DB = 001 TIMSIZ= 060000 UNITNB 002645 
000005 SEEKS 002325 ST.DF = 000020 0 6214 UNITS 002625 
0004 SEND = 000004 ST.DR = 000040 TIOLOP 006215 UNITO = 
00000 SERRTY 002763 ST.EL_ = 000010 1 005563 UNIT? = 000002 
000 SEROO 2573 ST.ERR= 000002 TITER 006357 UNIT2 = 000004 
007265 SER10 003052 ST.FE = 000200 T11X1 = 006413 T3 = 
2331 SER11 003065 ST.FO = 0020 T11X2 006437 UNSSUC= 000175 
002416 SER12 003103 ST.MOD= 000001 T12 06321 UREAD = 00001 
002542 SER13. 003115 ST.MSK= 000000 T2CMD = 060002 UTOTST= 060012 
002521 SER14 003130 ST.OA = 000200 VeDLL = 88000) UWRITE= said 
002543 SER15 003156 ST.PE = 000040 TSA 005554 U.SUBU= 000050 
002617 SER16 003200 ST.PS = 000002 138 005603 U.UNUM= 000063 
SER17 003223 ST.RE = 000100 T3C 005500 VARI 003123 
7503 SER18 003255 ST.RR = 000100 T3D 005604 VAR2 003125 
002762 SER18A 003274 ST.RTY= 000003 TSSTRT 001555 003127 
SER18B 003271 ST.RU = 000001 T4A 005632 VAR4 003130 
ER18C 003266 ST.SR = 000620 T4A1 005675 WAITSI= 000012 
SER18D 003265 ST.STA= 000001 T48 005731 WBUFLN= 000401 
007412 SERI8E 001543 ST.S7_ = 000400 T4881 = 060005 CONT = 00 
000004 SER22 003276 ST.UNT= 000000 T4BB2 = 060006 WFLAG 003117 
003055 SER25 003344 ST.WE = 000010 T4C 005764 wGO + 164 
003057 SER36 002446 SUB = 003006 T4D 005770 WREAL = 122400 
013400 SER39 002532 SUBUNT 002744 T4MPRM= 060003 WRITEB 007020 
1 SER4O 003360 T 005332 T4MXFR= 060011 WRONG = 000002 
SER41 003402 TALK 001076 T4SEEK= 060010 WRTEXT 007264 
000746 SERSO 003415 TEST = 000002 T4SOF T= 060007 Wy = 
002746 SERS1 003422 TEST 0017 T4UPRM= 060004 WIRCMP 00675 
RUNCMD 002760 SER5S2 003430 TESTEV 001740 5 5715 WTREXT 006776 
000014 SER53 003467 TESTEW 001732 T 006003 XBNCYL= 000021 
100000 SER5S4 003520 TESTEX 001746 T6A 006012 XFERRT= 000000 
000006 SER5S 003551 TESTEY 001752 T6C 006052 XREAD = 000002 
000001 SER56 003604 TESTX 001617 T6D 006056 XWRITE= 000005 
000004 SERS? 003634 





- ABS. 031030 600 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 8789 WORDS ( 35 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
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SYMBOL TABLE 


-B:UDAT3.L50/C=$DMACRO,B:UDAT3 


UDAT3 DISK FUNCTIONAL DMAC 
CROSS REFERENCE TABLE (CRE 


35-1014 51-31* 
7-22# 38-14 


37-75 


35-924 
51-18* 
51-14% 


23-21 


58-38* 
65-53 


24-404 


58-47 
66-14% 


50-79« 


35-136 
40-41 


58-56" 
66-17* 


33-16* 
57-15% 


55-83 


50-84 
62-8* 


55-44 
51-38* 
50-43 


43-15 


36-97 


51=49* 
51-85 


58-57* 
66-19* 


35-154 
57-21% 


35-25 
44-15 


55-90 


56-4 


50-93 


62-10% 


61-51 
51-40 


51-56 


51-82 


58-58* 
66-41 


44-6 
57-30* 


35-26 
44-19 


56-22* 


56-17% 


50-96* 


62-18 


61-67 
58-20 


58-60* 


44-32 
59-3* 


35-28 
58-105 


56-23 


57-4 


50-97* 


62-20* 


65-27 





58-62 


45-5* 
60-27* 


35-29 


56-25* 


59-34% 


50-99 


62-22 


65-71 


58-83* 


45-26* 
60-35 


60-22 
60-5 
54-6* 


62-24* 


66-15 


58-93 


46-6* 


60-18 


54-7% 
65-15 


66-55 


——y 





m10- 
UDAT3 DISK FUNCTIONAL DMACR x04.01 go Wess 12:01:30 PAGE S-2 
CROSS REFERENCE TABLE (CREF V04.00 ) 


DR.CLR 30-124 3e-84 55-96 60-37 
DRC 35-394 


DRVCLR 9 7=35# 35-39 


DRVONL 7=33# 
DRVRUN 7=34# 

5-164 58-94 
ECCFLG 4-6 58-83 
ECCRSH 6-114 58-97 


EOC 
ERECOV 7-314 


25-61% 25-66* 25-73% 30-4% 30-6 35-44% 34-97% 


5 
31-16% 35-844 49-28% 49-29% 51-52 51-54 54-9 
55-18* 55-36* 55-69%  55-71* 


31-60 51-37 51-64 58-14 


22-8 29-26 40-38 
31-30* 35-854 49-16% 49-21% 51-38 51-40 





35-1044 


54-10 


61-68* 


55-27 


55-28 


66-37* 


58-11 


SEQ 0545 


33-41 
58-117 
65-48 


33-41 
58-111 
65-41 


es th OD ee 
3-AUG-82 12:01:30 PAGE S-3 SEQ 0546 





UDAT3 DISK FUNCTIONAL DMACR x04. 
CROSS REFERENCE TABLE (CREF v04 


35-414 
64-224 
64-20 


~rM 


4 

31-62 31-65 35-1164 

51-29% 51-70% 51-71% 

49-48 50-16 50-55 51-20 55-52 55-76 


31-16 31-30 31-33 38-10 48-31 49-20 
34-29 34-36 34-45 58-53 61-13 65-23 


34-46 61-14 65-24 


34-30 58-54 


31-26 49-8 49-35 49-49 50-9 50-17 50-26 50-44 50-56 50-96 51-11 51-13 51-21 
55-47 55-53 55-77 58-98 61-47 61-50 65-55 


34-40 61-8 65-18 


34-24 58-48 
28-54 30-11 39-5 40-40 47-38 51-80 67-17 


33-13* 33-14% 33-41 33-41 33-41 34-96 34-96 34-96 35-26 35-474 61-67 61-67 61-67 
$273 65-71 66-55 66-55 66-55 67-15 67-15 67-15 


5-47 
35-46 
48-10 
28-26 38-24 - 44-16 
31-32 48-30 - 49-19 


a 
* 50-48 50-49 50-87 50-89 
* 34-32* 34-96 35-1024 50-80* 51-32* 51-56% 51-63% 


30-12 34-50 45-24 55-78 


SEQ 0547 
33-29 | 
50-53 


B 11 
66-29 


66-26 
65-41 


23-AUG-82 12:01:30 PAGE S$=4 
25-47 
34-70 
58-117 
65-48 
57-29 
65-38 
61-38 


57-22 
61-35 
59-20 


ee 


<a 


UDAT3 DISK FUNCTIONAL DM 
CROSS REFERENCE TABLE (C 








ce 


SEQ 0548 


eu 
vow 


UDAT3 DISK FUNCTIONAL DMA 
CROSS REFERENCE TABLE (CR 








we 
a zo 
ca awe bhhe eh’ 
oeeueee os 
pte tee An heer we 
CININICUIMMM Two 
& 
TRoOorn——-BVVVer OVonmmnew = -— 
rhb bbbbkhhhewceowwaaeei Mes 
nt dee et he che eee FRR y 
NeeT OOD RK KKK KK MAMROR NNW SAthihe ne 
BFDDDA SF FFF TOU OST MCU CMM M Tw 
ae Ne 
BzOBRB22--NO —a sane het tt: tate 
FNC CK KNMNN ORK Ve eek re a | OmMem 
eee eA nee euncin Win oven ey. 
core _ 


25-718 
9-26 
3-298 
47-38 
67-158 
33-33* 33-418 
50-53* 51-75 
61-38 6 1-43* 
33-332 33-418 
51-762 54-198 
61-43" 61-67" | 
29-278 33-298 | 
49-37* 50-46% 
60-35" 61-3 
33-29% 33-332 33-418 
50-532 51-78e = 54-198 
61-38 61-43" 61-678 
51-79" 58-111" 58-117% 


29-26% 
50-46% 
61-35* 
47-29% 


67-154 
27-304 


So 
~ 
uy 
~ 
~™N 








UDAT3 DISK FUNCTIONAL DMACR x04.0 
CROSS REFERENCE TABLE (CREF V04.0 


OUT 8 


33 


PDI) ed et ed et ot 2 2 


sesesececeeeeseee 
MFWN OC OONOULSWH—O 





4-118 


34-97% 


61-68* 


25-65* 


65-72* 


23-15 
30-5 
49-37% 
61-35* 


3-144 
67-474 





~T™ 


66-56* 


61-38* 
41-1 


37-30* 
42-2 


9-26" 
$307. 


67-15* 


23-23* 


61-43* 
41-1 


5 
67-474 


42-2 


30-2 


24-54 

33-33% 
54-19% 
61-67* 


41-1 


42-24 


53-2 


3-AUG-82 12:01:30 PAGE S-6 


33-41% 
61-67* 


65-71* 


24-40 

33-41% 
55-94% 
65-38 


41-1# 


53-2 


53-2 


34-96% 
65-71% 
66-55* 


25-23% 
34-60* 
58-111* 
65-41% 


42-2 


53-24 


25-43% 
34-64% 
58-117* 
65-48 


42-2 


67-47 


60-31*  61-67* 
67-15 


* 


25-47% 25-518 


67-474 


65-71« 


25-55* 


66-55 


SEQ 0549 


67-15* 


E11 
UDAT3 DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE S-7 SEQ 0550 
CROSS REFERENCE TABLE (CREF V04.00 ) 


36-278 





2 
3-14 3-14 3-14 3-144 


28-18 28-20 28-504 


34-%6 34-96 34-96 36-854 
37-78 58-59 58-113* 58-115* 66-18 67-8 


00 
g 34-58 59-15 61-33 65-36 66-24 
: 34-55 37-59 37-67 38-13 59-12 61-30 65-53 66-21 


34-66 34-72 34-84 34-1014 


50-48% 50-49% 50-60*  50-62* 50-68 55-60% 55-62%  55-64* 
36-96 58-58 66-16 


35-454 55-81%  56-5* 56-13* 56-15* 57-5 57-8* 57-10% 57-14% 57-19% 57-22 57-26% 57-27% 
59-33* 60-4* 60-29* 60-33 


4-53 58-60* 65-31% 66-19 
4-56 34-96 58-57* 58-58* 65-29% 66-17 


4-54 34-16 34-87 4-96 58-47* 65-16 


4-52 58-38* 58-83* 65-14%  66-14+ 
34-68 47-40 58-29 61-41 65-44 66-32 


35-424 


SEQ 0551 


F 11 


23-AUG-82 12:01:30 PAGE S-8 





ecu 


CROSS REFERENCE TABLE (CRE 





UDATS DISK FUNCTIONAL DMAC 


55-84 


43-14 


35-134 


67-13 


66-53 
50-97 
55-31 


33-464 


33-38 


41-14 47-29 47-38 61-68 65-72 66-37 66-56 


34-97 


35-28 35-29 35-654 37-97 38-8 


35-26 















G 11 
UDAT3 DISK FUNCTIONAL DMAC 


23-AUG=82 12:01:30 PAGE S-9 
CROSS REFERENCE TABLE (CRE ) 


"Dw 

So 
S 
. 


ST.C 5-354 
ST.CON 5-348 
ST.DB 5-534 
ST.DF 5-50# 
-DR 5-434 
. 5-408 47-34 
ST.ERR 5-334 47-26 55-92%  60-24* 
° 5-474 47-27 55-92 60-24 
ST.FO 5-524 
T. 5-324 
ST.MSK 5-30# 
-OA 5-414 
ST.PE 5-494 47-27 55-92 60-24 
ST.PS 5-454 


ST.RE 5-484 47-27 55-92 60-24 


ST.WE 5-51# 47-27 55-92 60-24 
STACK 3-34 27-64 28-47 29-6 


7-45 

6-224 27-8 27-84 31-25 31-32 31-48 34-24 34-35 34-40 
49-17 49-19 49-25 49-33 49-48 50-8 50-16 50-24 50-43 
55-52 55-76 58-48 61- 61-46 61-48 65-18 65-54 


SEQ 0552 | | 


-23 35-71 48-30 49-5 49-7 
55 51-10 51-12 51-20 55-46 











H 11 
UDAT3 DISK FUNCTIONAL DMACR x04.01 
CROSS REFERENCE TABLE (CREF Vv04.00 


T4BB2 7-98 
T4C 49-36 49-394 
T4D 49-44 49-464 
& 7-68 


g5-Aue-8e 12:01:30 PAGE S-10 


T4UPRM 7-74 
58-44 
T 50-74 


TOF 50-88 50-90 50-1034 
50-101 


T7C 51-324 51-51 51-88 


T8 55-24 
TBA 55-354 55-49 55-68 
T 5 55-444 


8B 55-4 

T8D 55-55 55-58 55-604 

TSF 55-89 55-93 55-964 

9 

TALK 25-24 30-14 33-17 44-7 44-33 45-6 45-27 
58-17 59-4 60-19 60-23 

TESTED i> 30-3 - 25-1¢° o0°75 60-34 60-36 

TESTEW 30-24 33-30 33-34 34-61 34-65 43-31 45-14 

TESTEX 30-5# 33-20 33-45 34-98 44-10 44-36 45-9 


TESTX 28-47 29-32 55-17 59-35 


TRKGRP 6-284 50-8 51-10 55-46 
6 
TSTBLK 31-54* 31-56" 35-884 51-27* 51-28% 51-33 51-45* 
55-34* 55-41 55-43" 61-7 61-15 62-7 62-9 
TSTCMD 56-7 56-14 56-19 57-11 57-16 57-23 57-31 


TSTCYL 31-22 31-23% 31-24 31-63* 31-64% 31-65 35-894 
50-91 51-25* 51-26% 51-52% 51-54% 51-57 51-65 


46-7 


55-95 
47-15 


45-30 


51-46* 


60-184 


48-28 
54-9 


46-20 


59-29 
47-45 


46-10 


51-59 


48-29% 
54-10* 


47-6 


61-44 
59-18 


46-23 


51-82* 


48-30+ 
54-11% 


47-23 


59-21 
47-10 


51-84% 


48-31% 
54-12 


48-14 


61-36 
48-17 


51-85* 


48-32 
55-278 


55-10 


61-39 
55-13 


51-87 


50-87* 
5528+ 


SEQ 0553 


55-91 


65-39 
59-7 


55-33* 


50-89* 
55-29 





UDATS DISK FUNCTIONAL DMACR X04.01 23-AUG-82 12:01:30 PAGE S-11 


CROSS REFERENCE TABLE (CREF V04.00 


3-12 


3-3 
61-53 


28-23 


28-49 
35-64 


29-21 
39-4 


31-40« 


3-25 
3-20 
65-8 


35-104 
37-56 


31-47 
35-1124 
58-63 
54-22* 


65-24 
65-66 
63-23 
63-19 


58-75 


) 


4-15 


3-36 
65-57 


48-4 
39-7 


35-1114 


65-52 


65-65* 


65-68 


63-244 


66-49 


4-46 


4-10 
66-8 


39-19 


66-40 


65-70 


55-59« 
27-17 


4-40 
66-43 


39-26 


65-774 


55-60 
28-34 


28-41 
67-27 


40-7 


55-62 55-64 
29-2 37-28 
34-76 35-125 
67-41 
40-36 


SEQ 0554 
55-66 
40-59 52-3 58-36 58-81 61-58 
36-87 42-10 53-10 58-41 58-67 





J 11 
res 4 QUESTIONS MACRO V04.00 18-AUG-82 11:40:09 PAGE 1 SEQ 0555 





| 3 sASSEMBLY CONTROL 
3 ;DEF INE yd SYMBOL ASS TO CONTROL THE i okin OF THIS PROGRAM AS FOLLOWS: 
& 100000 =100000 sFIELD SERVICE PROGRAM 
5 040000 £N=040000 : Sot chapatl PROGRAM (UDAHRD) 
6 1 A1=000001 APT COMPATIBLE PROGRAM FOR FAST, TEST 1-3 
7? 000002 A2=000002 ;APT COMPATIBLE PROGRAM FOR FA&T, TEST 4 (IUDB) 
8 000004 M1=000004 APT COMPATIBLE PROGRAM FOR MFG + EXTRAS, TEST 1-3 (IUDC) 
16 000010 M2=000010 APT COMPATIBLE PROGRAM FOR MFG + EXTRAS. TEST 4 (IUDD) 
3 000002 ASS=A2 sASSEMBLY CONTROL DEFINITION 
13 3 THE eg mF ARE COMBINATIONS oA THE ABOVE i FOR ASSEMBLY USE: 
14 000005 MD=A1+M1 sAPT COMPATIBLE, TEST 1-3 
15 000012 MX=A2eM2 zAPT COMPATIBLE, TEST 4 
16 000017 =MD +MX ;ANY APT COMPATIBLE 
17 000014 MC=M14+M2 zANY APT COMPATIBLE FOR MFG + EXTRAS 
+ 140000 EO=FS+EN EXECUTABLE ONLY (READ DM PROGRAMS FROM A FILE) 


| 
| 
| 
| 
| 
| 
| 


TEST 4 QUESTIONS MACRO V04.00 18-AUG-82 11:40:09 PAGE 2 


1 
2 
3 
4 
5 
6 
7? 
8 
3 
0 


— 


000000 
000000 





TITLE TEST 4 QUESTIONS 


-IF NZ FS&ASS 


~ENABLE ABS 

- = 2122 
 IFF 

~GLOBL T4QST 
-ENDC 

-MCALL SVC 

EQUALS 
: BIT DIFINITIONS 
BIT15== 100000 
B1T14== 40000 
BIT13== 20000 
BIT12== 10000 
BIT11== 4000 
BIT10== 2000 
BITO9== 1000 
BITO8== 400 
BITO7== 200 
BITO06== 100 
B1TOS== 40 
BIT04== 20 
BITO3== 10 
BITO2== 4 
BITO1== 2 
BITOO== 1 
BIT9== BITO9 
BIT8== BITO8 
BIT7== B1T07 
BIT6== BIT06 
BITS== BITOS 
BIT4== BITO4 
BIT3== BITO3 
BIT2== BITO2 
BITi== BITO1 
BITO== B1T00 
: EVENT FLAG DEFINITI 
: EF32:EF17 RESERVE 
EF .START== 32. 
EF .RESTART== 31. 
EF.CONTINUE== 30. 
EF .NEW== 29. 
EF .PWR== 28. 





K 11 


3 PRIORITY LEVEL DEFINITIONS 


ONS 
D FOR SUPERVISOR TO PROGRAM COMMUNICATION 
; ¢ START COMMAND WAS ISSUED 


D WAS ISSU 
; SA NEW PASS HAS BEEN STARTED 
; A POWER-FAIL/POWER-UP OCCURRED 


SEQ 0556 





TEST 4 QUESTIONS MACRO V04.00 18-AUG-82 11:40:09 PAGE 2-1 


000140 
000100 


000040 
000000 


100000 





PWN OC ODNAUEWN 0 OONOU SW 


NOMIPINIR a 


TEST 4 QUESTIONS MACRO V04.00 18-AUG-82 


11:40:09 PAGE 3 


7 USEFUL 
-MACRO 


-ENDM 
-MACRO 


-ENDM 
«MACRO 


- ENDM 
-MACRO 


- ENDM 
-MACRO 


~ENDM 





INSTRUCTION DEFINITIONS 
AND ARG. ADR LOGICAL AND INSTRUCTION 
; BIC #*C<ARG>, ADR 


.NLIST 
OR ARG.ADR ZLOGICAL OR INSTRUCTION 
; BIS #ARG,ADR 
.NLIST 
PUSH ARG :PUSH INSTRUCTION 
~IRP X,<ARG> 
“LIST 
MOV X,=(SP) 
.NLIST 
ENDM 
POP ARG :POP INSTRUCTION 
.IRP X,<ARG> 
“LIST 
V (SP)+, 
.NLIST er 
ENDM 
-BR ADR yA BRANCH TO THE NEXT LOCATION 
“VIF NE ADR 
a: .ERROR ; ILLEGAL .BR TO ADR 
.ENDC 


ASSUME FIRST CONDITION SECUND 
-IF CONDITION <F IRST>-<SECOND> 


oIFF 
ees BAD ASSUME OF <FIRST> CONDITION <SECOND> 


SEQ 0558 





N 11 





TEST 4 QUESTIONS MACRO V04.00 18-AUG-82 11:40:09 PAGE 4 SEQ 0559 

} ;MACRO DEFINITIONS FOR GLOBAL EQUATES 

; ; THESE MACROS ARE USED TO DEFINE INDEXES INTO A TABLE 

A ‘CALLING SEQUENCE MUST BE 

7 : TABLE 

8 : ITEM NAME BYTES 

9 : ITEM NAME BYTES 

10 : ITEM NAME BYTES 

13 : END SIZE 

13 [TABLE DEFINES THAT A TABLE 1S ABOUT TO BE DEFINED AND END TERMINATES THE DEFINITION. 
14 SANY NUMBER OF ITEM LINES CAN APPEAR. NAME IS THE NAME OF THE SYMBOL BEING EQUATED TO 
15 [THE INDEX. THE INDEX ALWAYS STARTS AT ZERO. BYTES SPECIFIES THE SIZE OF THE VALUE TO BE 
16 ;STORED AT THAT INDEX IN BYTES. THE SIZE ARGUMENT TO THE END STATEMENT IS OPTIONAL, IT 
17 SBE EQUATED TO THE SIZE OF THE TABLE IN BYTES. THE SYMBOL TINDEX IS USED TO KEEP TRACK 
18 [OF THE INDEX VALUE AND WILL BE EQUAL TO THE SIZE OF THE TABLE AFTER THE END STATEMENT. 
20 MACRO TABLE 

21 TINDEX=0 

22 ' 

23 
24 MACRO ITEM NAME BYTES 

25 NAME=T INDEX 

26 TINDEX=T INDEX+BYTES 

27 ENDM 

59 MACRO END SIZE 

30 IF NB SIZE 

31 S17Es TINDEX 

32 ENDC 


33 -ENDM 


SEQ 0560 









TEST 4 QUESTIONS MACRO V04.00 18-AUG-82 11:40:09 PAGE 5 


} ;CONTROLLER TABLE DEFINITIONS 

4 ZONE TABLE WILL BE SET UP BY INITIALIZE SECTION FOR EACH UDA SELECTED 

i R TESTING. TABLES ARE CONTIGUOUS. THE END OF THE TABLES I 

3 SMARKED BY A WORD OF ZEROS. 

7 [THE FIRST TABLE IS POINTED TO BY THE CONTENTS OF CTABS. 

8 [THE NUMBER OF TABLES IS CONTAINED IN CTRLRS. 

10 000000 TABLE ;START A TABLE DEFINITION 

12 000000 ITEM C.UAPR 2 ZUNIBUS ADDRESS OF UDAIP REGISTER 

13 ITEM C.UNIT 2 

14 000077 CT.UNT= 000077 : LOGICAL UNIT NUMBER (FIRS 

15 100000 CT.AVL= BIT15 + SET WHEN NOT AVAILABLE FOR TESTING 

16 000000 ITEM C.VEC 

17 000777 €T.VEC= 000777 : VECTOR ADDRESS 

18 007000 CT.BRL= 007000 ; BR LEV EL 

19 000000 ITEM C.BST 2 ; BURST LEVEL 

20 000000 ITEM C.JSR 2 S INTERRUPT SERVICE ROUTINE FOR CONTROLLER 
21 000000 ITEM C.JAD 2 : THESE TWO WORDS LOADED WITH CJSR RO-UDASRVJ 
22 000000 ITEM C.FLG 2 FLAGS 

23 000002 CT.RN= BIT1 'DM PROGRAM ING 

24 000004 CT.CMD= BIT2 [COMMAND ISSUE WAITING FOR RESPONSE 

25 000010 CT.MSG= BIT3 MESSAGE ISsUED. WA 1VED 

26 ‘WHENEVER THIS Bite is” SET, CT. CMD IS CLEARED 
27 000020 CT.REQ= BITS [BUFFER HAS BEEN GIVEN TO UDA FOR REQUEST 
a set WHENEVER READ STUD DATA COMMAND 

37 000000 ITEM C.RING 2 ‘RING BUFFER ADDRESS 

38 000000 ITEM C.DRO 2 SPOINTER TO DRIVE TABLES 

39 000000 ITEM C.DR1 2 : IF ZERO, NO DRIVE TABLE EXISTS 

40 000000 ITEM C.DR2 2 
41 000000 ITEM C.DR3 2 
42 000000 ITEM C.DR4 2 
43 000000 ITEM C.DRS 2 
44 000000 ITEM C.DR6 2 
45 000000 ITEM C.DR7 2 
46 000000 ITEM C.TO 2 ; TIMEOUT COUNTER 

47 000000 ITEM C.TOH 2 TWO WORDS) 

48 000000 ITEM C.REF 2 {COMMAND REFERENCE NUMBER 


END C.SIZE sSIZE OF CONTROLLER TABLE IN BYTES 


| 





TEST 4 QUESTIONS MACRO V04.00 18-AUG-82 11:40:09 PAGE 6 


VMIEWN $0 CONOUEWN OC DONOUSWN— 


NMONINININIR A oo 


26 


4 
48 090000 


& 
5 
5 
5 
5 
5 
5 
5 
5 


aa 
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SEQ 0561 


; DRIVE TABLE DEFINITIONS 


ONE DRIVE TABLE WILL BE SET UP BY THE st og He _ EACH 
:DRIVE SELECTED FOR TESTING. EACH TABLE IS POINTED TO BY 
D IN THE CONTROLLER TABLE ON WHICH THE RIVE EXISTS. 


TABLE sSTART A TABLE DEFINITION 
ITEM D.DRV 2 zDRIVE NUMBER 
ITEM D.UNIT é 
DT.UNT= 000077 + LOGICAL UNIT NUMBER OF DRIVE 
DT.AVL= BIT15 : SET WHEN NOT AVAILABLE FOR TESTING 
ITEM D.PRM 2 ; HARDWARE QUESTION FLAGS 
D.IW =BIT14 A yt IAL_WRITE 
D.DCY  =B1T13 sore conase CYLINDERS 
D.ECC =BITI2 ECC CORRECTION ENABLED 
D.RO =B1T11 zREAD ONLY 
D.WO =B1T10 WRITE ONLY 
D.RET  =BIT9 sRETRIES ENABLED 
D.CYL =B1T8 sSTART/END CYLINDERS SPECIFIED 
D.SEQ =BIT6 SEQUENTIAL ACCESS 
D.BE =BITS SBEGIK/END” BLOCKS USED 
D.TR =BIT4 ;WHEN D.BE=0: 1 = TRACKS, 0 = GROUPS 
D.WC =B1T3 sWRITE CHECKS ENABLED 
D.WCA =BIT2 sALWAYS WRITE CHECK 
D.DC =BIT1 zDATA COMPARES ENABLED 
D.DCA =BITO sALWAYS DATA COMPARE 
DDEF=D.ECC+D.WC+D.DC+D.RET :DEFAULT D.PRM 
D.ZERO=B1T15+B1 ° BITS TO BE CLEARED 
ITEM D.PAT 2 zDATA PATTERN NUMBER 
ITEM D.BB 2 BAD BLOCK cours 
ITEM D.6801 & BAD BLOCK 1 
ITEM 0.8802 4 : 2 
ITEM 0.8803 4 : 3 
ITEM D.BB04 4 ; 4 
ITEM 0.8805 & : 5 
ITEM D.BB06 4 : § 
ITEM D.BB07 4 : 
ITEM 0.8808 & : 8 
ITEM 0.8809 4 ; 9 
ITEM D.8810 4 : 10 
ITEM 0.8811 4 3 11 
ITEM sais 4 ; \¢ 
ITEM 0.681 4 3 1 
ITEM D.BB14 & 3 14 
ITEM 0.8815 4 : 15 
ITEM 0.6816 & : 16 


TEST 4 QUESTIONS MACRO V04.00 18-AUG-82 11:40:09 PAGE 7 SEQ 0562 

1 000000 ITEM D.BEC 2 ;BEGIN/END ad | COUNT 

2 000000 ITEM D.BGN1 4 3BEGIN BLOCK 

3 000000 ITEM D.END1 & 

4 000000 ITEM D.BGN2 A :BEGIN BLOCK 2 

5 000000 ITEM D.END 4 2 END 

6 000000 ITEM D.BGN & BEGIN BLOCK 3 

7 000000 ITEM D.ENDS 4 N 

8 000C00 ITEM D.BGN4 4 :BEGIN BLOCK 4 

9 000000 ITEM D.END4 4 

10 000000 ITEM D.BCYL 4 BEGIN CYLINDER 

11 000000 ITEM D.ECYL S END CYLINDER 

12 000000 ITEM D.XFRW 2 s:MEGABITS WRITTEN COUNT 

13 000000 ITEM D.XFRR § sMEGABITS READ C 

14 000000 ITEM D.HERR HARD ERROR COUNTER 

15 000000 ITEM D.SERR 2 oa ERROR COUNTER 

16 000000 ITEM D.SEEK 2 R OF = KS x1000 

17 000000 ITEM D.ECCC 2 SECC COUNT 

18 000000 ITEM D.SERN 6 ;DRIVE SERIAL NUMBER 
$e 000000 END D.SIZE SIZE OF DRIVE TABLE IN BYTES 





TEST 4 QUESTIONS MACRO V04.00 18-AUG-82 11:40:09 PAGE 8 


1 .LIST MEB 
2 000000 T4QST:: 

3 000000 000402 BR T4QUES 
5 000002 000167 001774 ‘ JMP T4QUE2 


: BRANCH TO TEST 4 QUESTIONS 


INPUT = NONE 
3 BRANCH TO_LAST OF THE TEST 4 QUESTIONS 
INPUT = R1 => PATTERN 16 SIZE 


SEQ 0563 















"OOO NOUS WN 


— 


016346 000002 
012746 003506" 
000004 


06 000012 
7 000010 004246 


016763 004222 000010 


000012 
004204 





; 


TEST 4 QUESTIONS MACRO V04.00 18-AUG-82 11:40:09 PAGE 9 


sASK TEST 4 MANUAL INTERVENTION QUESTIONS 


: INPUTS: 
: RS = POINTER TO yg Oy TABLE 
5 R3 = POINTER TO DRIVE TABLE 

; R2 AND R4 MUST BE PRESERVED 
sOUTPUTS: 

3 DRIVE TABLE WITH NEW PARAMETERS 
é RO AND R1 CONTENTS DESTROYED 


TGQUEST:PUSH <R2,R4> 
MOV R2,-(SP) 
MOV R4.-(SP) 
PRINTF #T4QHED,D.UNIT(R3), (R5), (R3) :PRINT HEADER 
MOV (R3) ,=(SP) 
MOV (R5) .=(SP) 
MOV D. ONiT CRS) 5 (SP) 
MOV #T4QHED (§P) 
MOV ‘(SPS 
sp’ “RO 
TRAP CSBNTE 


ADD #12,S 
MOV D. ’BB(R3),1 
Apart T48B, iEHP. et, 0,16.,YES ;NUMBER OF BAD BLOCKS 
TRAP CS$GMAN 
BR 10000$ 
«WORD TEMP 
-WORD TSCODE 
-WORD 1488 
«WORD 


"WORD TS$LOLIM 

"WORD TS$HILIM 
MOV TEMP,D.BB(R3) 
BEQ T4062 


MOV R3,R4 GET POINTER TO STORAGE 
ADD #0.B8B01,R4 :__FOR BAD BLOCKS 
MOV TEMP,R1 :GET COUNT OF BLOCKS TP INPUT 


SEQ 0564 


1 
2 


BEE EEEEEEEEEEE EEE 
RESERESEMERENS SS 


DWONOULW 


000154 
000156 
60 





004767 
104443 


002030 


002106 


004166 


000001 


001570 
000004 


002000 


004144 


004104 


004062 
004052 


| 6 12 
TEST 4 QUESTIONS MACRO V04.00 18-AUG-82 11:40:09 PAGE 10 .% 


DEC R 
BNE 14001 


CLR 


GMAN 
10002$ 


ee 
JMP T4030 


MOV D.PRM(R3), TEMP 
GMANIL T4RO,TEMP,D.RO, YES 


CSGMAN 

10003$ 

TEMP 

TSCODE 

T4RO 

D.RO 

BIT #D.RO, TEMP 

BEQ 14003 

BIC #D.WO, TEMP 

BR 14005 

pratt: T4WO0, TEMP,D.WO, YES 
10004$ 

TEMP 

TSCODE 

T4W0 

D.WO 

eons T4WCA, TEMP,D.WCA, YES 
10005$ 

TEMP 

TSCODE 

T4WCA 

D.WCA 

aT #D.WCA, TEMP 

GMANIL T4WCR,TEMP,D.WC,YES 


D28 
T4BB1, TEMP,A,-1,0,9.,VES 


ANYMOR 
Foon T4DMN,ANYMOR,ANY.YS,YES ~ 


SEQ 0565 


sBUILD DEFAULT ANSWER 
:BAD BLOCK 


CONVERT TO BINARY 
;REPEAT rs RIGHT 
sDECREMENT COUNT 
;GET ALL NUMBERS 


: DEFAULT ANYMORE WITH 0 


300 WE ASK ANY MORE QUESTIONS? 
; else chit CONT INUE 


GET PARAMETER BITS 
sREAD ONLY 


:1F NOT READ ONLY, GO TO WRITE ONLY QUESTION 
sELSE, CLEAR WRITE ONLY BI 
; AND BRANCH AROUND WRITE ONLY QUESTION 


WRITE ONLY 


sCHECK ALL WRITES 


CHECK ANSWER 
BRANCH IF YES 
zRANDOMLY CHECK WRITES 


| _» se = & 
TEST 4 QUESTIONS MACRO V04.00 18-AUG-82 11:40:09 PAGE 10-1 . 


104443 
000404 
004316" 
000130 
002650" 
000010 
000403 


TRAP C$GMAN 
BR 10006$ 
WORD TEMP 
WORD TS$CODE 
-WORD T4WCR 
«WORD D.WC 

BR 14005 


SEQ 0566 





g 


WVISOMVOu 
BSSSSE3e 
SNSNONS 


14 000446 


003724 
000004 
032767 004000 
002000 
000010 


000001 
032767 000001 
001007 


003764 
000004 
003750 


000006 
003714 
003706 
003676 


003666 


003626 















BIS #D.WC, TEMP 

MOV ree sehen teie 

MOV ig As EMP 

poratte T4DP, TEMP ,D,-1,0,16.,YES 
10007$ 

TEMP 

TSCODE 

T4DP 

TSLOLIM 

TSHILIM 


MOV TEMP,D.PAT(R3) 
MOV D.PRM(R3), TEMP 
BIT #D.RO, TEMP 


BIT #D.WC, TEMP 

GMARIL T4ECC,TEMP,D.ECC, YES 
100108 

TEMP 

TSCODE 

T4ECC 

D.ECC 

GMANIL T4DCA,TEMP,D.DCA, YES 
CSGMAN 

100118 

TEMP 

TSCODE 

T4DCA 

D.DCA 

BIT #D-DCA,TEMP 

GMANIL T4DCR, TEMP,D.DC. YES 

100128 

TEMP 

TSCODE 

T4DCR 


D.DC 
BR 14009 


SEQ 0567 


BOTH BITS GET SET 


zPUT PARAM BITS BACK 
DATA PATTERN 


GET PARAM BITS AGAIN 
sBYPASS NEXT 3 IF ONLY WRITING 


sENABLE ECC 


COMPARE ALL DATA 


CHECK ANSWER 
;BRANCH IF YES 
RANDOMLY CHECK WRITES 


sie 


35 


S 
& 
RRENSRARS 


“SOVONOUSWwh— 
i=) 


: 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 


052767 000002 003600 


104443 
000404 





003560 


003540 
003534 
003526 
000040 
003512 
000400 


000004 
000112 


003460 
000020 


003444 


000004 


000004 


000004 
003472 


000004 
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rears 
T4009: 


T4010: 


J 12 





C, TEMP 
TGRET, TEMP,D.RET, YES 


BIS #:.D 
NI 


a 
MOV TEMP, D.PRM(R3) 
CLR TEMP 
BIT #D.BE.D.PRM(R3) 
BEQ 14010 
T4Q11 
T #D.CYL,D.PRM(R3) 
T4011 
MOV #4, TEMP 
TST D.BEC(R3) 
T4Q11 
TEMP 
BIT #D.TR,D.PRMC(R3) 
T4Q11 
DEC TEMP 





BOTH BITS GET SET 
sENABLE RETRIES 


sENABLE SEEKS 


; COMPLIMENTED 


TERMINE DEFAULT SELECTION 
SET = LOAD 1 


L CLEAR = LOAD 0 


Ele 

F D.BE 

F D.CY 

F D.BEC ‘¥- tan 0 = LOAD 4 
F aS" D2 


7D 
:1 
:I 
:1 
:1 SET = 
sL 


OA 


SEQ 0568 






ion 
-—ooo 
Roux 


mn ws. 
offs 
NOOO 


& 
= 


“I 

io 
Oooo 
oo 


&* 
Off 
NOOO 


062706 


752 012746 
012746 
01060 


10600 
764 104417 
062706 


000772 012746 


222 I 
oS o 
ye Nw 
& 
_ 
~N 
N“N 
N 
N 
N 


003617" 
000001 
000004 
003645' 
000001 
000004 
003712" 
000001 
000004 
003764" 
000001 
000004 
004044" 
000001 
000004 
004124" 
000001 


000004 


003260 


000440 000004 


PRINTF #T4OPT1 
#T40PT1,=(SP) 
#1,=(SP) 


SP,RO 

CSPNTF 

#4,SP 

PRINTF #T4OPT2 
#T40PT2,-(SP) 
#1,-(SP) 

SP,RO 

CSPNTF 

#4,SP 

PRINTF #T4OPT3 
#T40PT3,-(SP) 


=(SP 




















SP,RO 

CSPNTF 

#4,SP 

PRINTF #T4OPTS 
#T4OPT4,-(SP) 
#1,-(SP) 

SP,RO 

CSPNTF 

#4,SP 

PRINTF #T4OPTS 
#T40PTS,-(SP) 
Baie 
CSPNTF 

#4,SP 

PRINTF #T4OPT6 
#T40PT6,-(SP) 
#1,-(SP) 

SP_RO 

CSPNTF 

#4,SP 

GMANID T4OPT7,TEMP,D,-1,0,4,YES ;WHICH SELECTION LIMITS 
CS$GMAN 

10015$ 

TEMP 


TSCODE 
T40PT? 


TSLOLIM 
TSHILIM 
EC TE 


BGE 14012 
BIC _#D.BE+D.CYL,D.PRM(R3) 
BR 14019 


SET UP D.PRM FROM ANSWER 
:IF 0 = CLEAR D.BE AND D.CYL 


SEQ 0569 . 


SEQ 0570 





1 001050 005367 003242 T4Q12: DEC TEMP stF 4 

2 001054 002013 BGE 14013 ; IF D.BE NOT SET 

3 001056 032763 000040 000004 BIT #0.BE,D.PRM(R3) : SET D.BE 

4 001064 001060 BNE 14019 é CLEAR D.CYL 

5 001066 052763 000040 000004 BIS #D.BE,D.PRM(R3) ; LOAD 1_ IN D.BEC 

6 001074 goers 000400 000004 BIC _#D.CYL,D.PRM(R3) ; CLEAR BLOCK STORAGE 
7 001102 000436 BR 14Q 

: 001104 042763 000040 000004 14013: BIC #D.BE,D.PRM(R3) gt fad oS 

10 001112 022767 000002 003176 CMP #2, TEMP : 

11 001120 001006 BNE 1401 : SET D.CYL 

12 001122 052763 000400 000004 BIS #D.CYL,D.PRM(R3) : CLEAR D.BEC 

13 001130 005063 000112 CLR_D.BEC(R3) 
14 001134 000434 BR 14019 
15 001336 T4014: PUSH D.PRM(R3) z1F 2 OR 3 

001136 016346 000004 MOV D.PRM(R3),-(SP) 

16 001142 052763 000420 000004 BIS #D.CYL+D.TR,D.PRM(R3) : SAVE D.PRM BITS 

17 001150 005367 003142 DEC TEMP : SET_D.CYL AND D.TR 

18 001154 100403 BMI 14015 3 

19 001156 042763 000020 000004 BIC #D.TR,D.PRM(R3) 3 CLEAR D.TR 
20 001164 022663 000004 T4Q15: <cMP (SP)+,D.PRM(R3) : IF D.CYL OR 0.TR CHANGED OR D.BEC = 0 
21 001170 001003 SNE T 
22 001172 005763 000112 TST D.BEC(R3) : LOAD 1 IN D.BEC 
23 001176 001013 BNE 14019 ; CLEAR BLOCK STORAGE 
24 001200 012763 000001 000112 14016: MOV #1,D.BEC(R3) 
25 001206 010304 T4017: MOV R3,R 
26 001210 062704 000114 ADD #D.BGN1,R4 
27 001214 012701 000020 MOV #16., 
28 001220 005024 T4Q18: CLR (R4)+ 
29 001222 005301 DEC R1 
30 001224 001375 BNE 14018 





ae EE eC ie 


= 


ee ee ee, ee, en, ee ee ee ee ee ee ee ee ee 
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fwn 

ooo 
ssssssssss 
ee cD ee ed ee ceed ce ed eed eed 
WWIROPOPUNINYNMONMOR Pononofnononory» 
SSFENVSSEEKSEY 
MOA LMVOALRL oa 


oo 


LS) 


oooooooooo 
one 


COON 


_ 
oO 

ooo 
SooocKeo 
Ww 


SS os ss 





032763 
001460 
016367 


104443 


004767 
104443 


000577 


000040 000004 14019: 


000112 003052 


003026 000112 
003020 


000114 
000636 


000714 
000604 


000662 


M 12 
BIT #D.BE,D.PRM(R3) 
BEQ 14022 
MOV D.BEC(R3), TEMP 
GMANID T4BE,TEMP,D,-1,1,4,VES 
CS$GMAN 
100168 
TEMP 
TSCODE 
4BE 
TSLOLIM 


TSHILIM 

MOV TEMP,D.BEC(R3) 
MOV TEMP,R1 

MOV R3,R4 

ADD #D.BGN1,R4 
CALL BLD28 


GMANID T4BEG, TEMP,A,-1,0,9.,YES 
C$GMAN 


10017$ 
TEMP 
TSCODE 
T4BEG 
TSLOLIM 
TSHILIM 
CALL_CNV28 
BCS T4020 
CAL 

10020$ 
TEMP 
TSCODE 
T4END 
TSLOLIM 
TSHILIM 
CALL_CNV28 
BCS 14021 
DEC R1 
BNE 14020 
BR 14030 


L BLD28 
GMANID T4END, TEMP,A,-1,0,9.,YES 
C$GMAN 


sNOW ASK THE QUESTIONS TO ALLOW THE 


3 NUMBERS TO CHANGE 
NUMBER OF B/E SETS 


GET COUNT OF SETS 
GET POINTER TO STORAGE AREA 


BEGIN BLOCK 


END BLOCK 











N 12 
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1 001376 032763 000400 000004 14022: BIT #D.CYL.D.PRM(R3) sIF D.CYL CLEAR = ALL DONE A 
2 001404 001573 BEQ 14 A 
3 001406 005763 000112 TST D.BEC(R3) :IF D.BEC CLEAR = GO RIGHT TO B/E CYLS A 
4 001412 001526 BEQ 14027 A 
5 001414 010304 MOV R3,R4 ‘ 
6 001416 062704 000112 ADD #D.BEC,R4 A 
7 001422 032763 000020 000004 BIT #D.TR,D.PRM(R3) LOOK AT D.TR.TO DETERMINE QUESTION ‘ 
8 001430 001434 BEQ T4024- E 
9 001432 011467 002660 MOV (R4),TEMP E 
10 001436 rated TGTRC,TEMP,D,-1,1.7,YES NUMBER OF TRACKS E 
001436 104443 TRAP see E 
001440 000406 BR 100218 E 
001442 004316" -WORD TEMP E 
001444 000052 -WORD TS$CODE E 
001446 003217" WORD T4TRC E 
001450 177777 -WORD =1 E 
001452 000001 - WORD bn rg E 
001454 000007 -WORD TS$HILI E 
11 001456 016714 002634 MOV TEMP, (R4) E 
12 001462 012401 MOV (R4)+,R1 GET COUNT OF TRACKS E 
13 001464 011467 002626 T4023: MOV (R4), TEMP E 
14 001470 Panels TATRAK, TEMP,D,-1,0,255.,YES 3 TRACK E 
001470 104443 TRAP C$GM E 
001472 000406 BR i0gzes E 
001474 004316" -WORD TEMP E 
001476 000052 WORD TS$CODE E 
001500 003250" -WORD T4TRAK E 
001502 177777 -WORD = E 
001504 000000 WORD TS$LOLIM E 
001506 000377 -WORD TSHILIM E 
15 001510 016724 002602 MOV TEMP, (R4)+ E 
16 001514 005301 DEC R1 E 
17 001516 001362 BNE 14023 E 
18 001520 000433 BR 14026 E 
19 001522 011467 002570 T4024: MOV (R4),TEMP E 
20 001526 Ames T4GRC,TEMP,D,-1,1,7,YES ;NUMBER OF GROUPS ( 
001526 104443 TREP C$GMA ( 
001530 000406 BR 100238 ( 
001532 sett - WORD ( 
001534 000052 - WORD TSCODE ( 
001536 003256' WORD T4GRC ( 
001540 177777 «WORD =1 ( 
001542 000001 -WORD TS$LOLIM ( 
001544 000007 «WORD TS$HILIM ( 
21 001546 016714 002544 MOV TEMP, (R4) ( 
22 001552 012401 MOV (R4)+,R1 GET COUNT OF GROUPS 
( 
( 
( 
( 
( 
( 
( 
( 
( 









Noe 
RSESRNSSFRSS 


$ 


ONAULSW 
S888SSS8S8838S3ss 


eb ds sd 2d dd ds 4 a 


oe 
NVAO 


Ssss 
22244 
AAA 
WW 
NOs 


no 
SEOS 


oS 
moO 


MO OBNOuUsSwr-oOo 


NONOR) 
ANANSI 
at od od 


™N 


eee ed aed as aed od od od oe = 2d = SY 
NOALLO 


Sssssssssesososesosoeseses 


mr 
ew 


011467 
104443 


002536 


002512 


000162 
002474 


002454 


60 
177777 
000162 
000162 
000154 
000232 


000310 


002500 


000162 
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74027: 


T4Q27A: 


T4028: 








MOV (R4) 
GMANID ThGRP, TEMP,D,-1,0,255., VES 


C 
10024$ 
TEMP 
TSCODE 
T4GRP 


; GROUP 


TSLOLIM 
TSHILIM 

MOV TEMP, (R4)+ 
DEC R1 


BNE 14025 
MOV P.ECYL#eCRS) . TEAP 


Pees TOCYL, TEMP,BIT15, YES 
10025$ 
TE 


WISH TO LIMIT CYLINDERS 


BM Q27 

CLR D.BCYL(R3) 

CLR D.BCYL+2(R3) 

CLR D.ECYL(R3) 

MOV #-1,D.ECYL+2(R3) 


BR 
TST D.ECYL*2(R3) 
BGE 14027 


CLR D.ECYL*2(R3) 

MOV oR 

ADD #D.BCYL,R4 

CALL BL 

GMANID T4CYLB,TEMP,A,-1,0,9.,VYES 


C 
10026$ 
TEMP 
TSCODE 
WOsvls 


TSLOLIM 
TSHILIM 
CALL _CNV28 
BCS 14028 


sSTARTING CYLINDER 


SEQ 0573 





AMAMAANAAAANAAANANAANAANMANMAMOQ|AAAANE 


004767 
104443 
000406 
oostes. 
00015 

003411" 
177777 
= 11 
004767 
103763 


012604 
012602 
000207 


000200 


000256 





CALL BLD28 
GMANID T4CYLE,TEMP,A,-1,0,9., YES 


10027$ 

TEMP 

TSCODE 
T4CYLE 
TSLOLIM 
TSHILIM 
CALL CNV28 
BCS T4029 
POP <R4,R2> 


sENDING CYLINDER 


mo he-8 
+, 
RETURN 


a eC 


ae 
' 


| 


SEQ 0574 





evv,v9rrvr9c9o0 vevvvoVvvoorvoro"r-"o"ooo°o°C 99 99 99999999 9C9VIVE FVII VGIVIIAMNONONMOM.QA a-- 






032767 000001 002332 
0014 

011167 002300 

104443 


a) 3 12 
MEW =O 
Ssssss 
Mmron 
EE 
BESS 
esese 


= 





002214 
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D 13 


sNOW GET DATA PATTERN 16 IF SELECTED BY ANY DRIVE 


INPUT R1 POINTS TO PATTERN 16 SIZE 


T4QUE2: 
BIT #ANY.YS, ANYMOR : DO WE ASK THESE QUESTIONS? 
BEQ T4QU2E : IF NOT, EXIT 
MOV (R1), TEMP 
TRAP  C$GMAN 
BR 10030$ 
«WORD TEMP 
.WORD TSCODE 
“WORD  T4DPC 
“WORD <1 
«WORD TS$LOLIM 
“WORD TSHILIM 
MOV TEMP, (R1)+ : GET COUNT OF WORDS 
MOV RI RA + R4 HAS ADDRESS OF STORAGE 
BEQ T4QuU2 : IF 0, NO DATA WORDS 
T4PRMS: MOV (R4), TEMP 
GMANID T4DPD,TEMP,0,-1,0,-1,YES ;DATA WORD 
TRAP  C$GMAN 
BR 10031$ 
.WORD TEMP 
-WORD TS$CODE 
“WORD  T4DPD 
;WORD = 
.WORD  TS$LOLIM 
WORD TSHILIM 
MOV TEMP, (R4)+ 
ZCOUNT THE WORDS 
BNE T4PRMS 
T4QU2E: RETURN 


SEQ 0575 © 





HD A AQOQOOOOOORMMARMMAMAMMBMBMMBMAMAN * OPNRRMMNMBMMMMMMMMMMOoOVCVVCVCVCVVCVCCSD om- 
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SEQ 0576 


sDIVIDE 


{DIVIDE A_32 BIT UNSIGNED NUMBER BY A 16 BIT UNSIGNED NUMBER. 
REPLACE DIVIDEN 4 WITH QUOTIENT AND RETURN REMAINDER. 
WILL NOT CHECK FOR DIVIDE BY ZERO. 


1 

2 

3 

4 

5 

6 3 

7 : INPUTS: 

8 3 R3 - LOW 16 BITS OF DIVIDEND 

GS ; R4 = HIGH 16 BITS OF DIVIDEND 

10 RO = DIVISOR 

11 ‘ ‘OUTPUTS: 

12 3 R3 = LOW 16 BITS OF QUOTIENT 

13 3 R4 = HIGH 16 BITS OF QUOTIENT 

13 : RS = REMAINDER 

16 002110 DIVIDE: PUSH R2 

002110 010246 MOV R2,-(SP) 

17 002112 012702 000040 MOV #32.,R2 ;SET UP SHIFT COUNT 

18 002116 005005 CLR RS sSTART WITH ZERO REMAINDER 

19 002120 006303 1$: ASL R3 sSHIFT LEFT INTO RS 
20 002122 006104 ROL R4 
21 002124 006105 ROL R5 
22 002126 020005 CMP RO,R5 sWILL DIVISOR GO INTO REMAINDER 
23 002130 101002 BHI 2 SONLY SUBTRACT IF IT WILL 

24 002132 1 SUB RO,RS ;SUBTRACT DIVISO 

25 002134 005203 INC R sPUT A ONE INTO QUOTIENT 

26 002136 005302 2$: DEC R2 sCOUNT THE SHIFTS 

27 $0128 001367 
28 00214 POP R2 

002142 012602 MOV (SP)+,R2 

29 002144 000207 RETURN 





= 
@ 
2 
mn 
—_ 
wn 
DVD DOO DO OOO OO BB BD BW BW Bil bres bs es rs es ts tt et st et et te FMA OMOOAM OO m—- ] 








CONOUE WN 


So 


St 
NORERSANSLESE 


SOONG UNFWN-O”O 
~m 
= 
&* 


NN ao td wd 
SS 


Se 
mo 


MorMonororn 
Quskwn — 


000002 
000012 


177710 
000060 


004316' 
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sBUILD DEFAULT 28-BIT NUMBER 


: INPUT: 
: R4 = POINTER TO 2 WORD DEFAULT NUMBER 
Zs OUTPUT: 


: TEMP = ASCIZ STRING REPRESENTING DEFAULT NUMBER 
BLD28: PUSH <RO,R1,R3,R4,R5> 
MOV RO,-(SP) 


Vv 
MOV R4,-(SP) 
MOV R5,-(SP) 


MOV (R4),R3 GET NUMBER 
MOV 2(R45 RG 
MOV #10.,R0 sDIVISOR IS 10. 
CLR ZCLEAR CHARACTER COUNT 
1$: CALL DIVIDE 
ADD #°0,R5 CONVERT REMAINDER TO ASCII CHARACTER 
PUSH R5 sSTORE ON STACK 
MOV R5,-(SP) 
INC R1 COUNT THE CHARACTER 
MOV R3.R5 REPEAT UNTIL QUOTIENT IS ZERO 
ae 7 Na 
MOV #TEMP,RO GET POINTER TO STRING 
2$: POP R5 PUT CHARACTERS INTO —_ cophe at 
+, 
MOVB R5,(RO)+ 
DEC R1 
BNE o 
CLRB (RO)+ END WITH NULL 


POP <R5,R4,R3,R1,RO> 
MOV (SP)+,R5 


P) 
RETURN non tapas 


oe 


ADTDTADDDDDB mm. ] 


tAtA 


[Ata 


VIEWN $0 OONOUS Wh 


Sas 


mn 
MhNoNnonon 
SERS 


Sssssossosesss 


NOUEWN $0 ODNO 
MorPofnonoforys 


NMNVNNNNMNN Se 





004316" 


000060 
000011 


170000 








6 13 
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sCONVERT ASCIZ STRING TO 28-BIT NUMBER 


INPUTS: 


CNV28: 


1$: 





SOUTPUTS: 


TEMP = ASCIZ STRING UP TO 9 CHARACTERS LONK 
R4 = ADDRESS OF TWO WORD STORAGE 


IF STRING IS VALID NUMBER 
TWO WORDS AT_R4 LOADED WITH NUMBER 
oan RY CLEAR TO WORD AFTER STORAGE 
IF STRING INV 
ERROR MESSAGE PRINTED 
CARRY SET 


PUSH <RO,R1,R2,R3> 


CLR RO 


CLR R1 
MOV #TEMP,R2 
MOVB_(R2)+,R3 


sSTART WITH ZEROS 


GET ADDRESS OF STRING 
GET A ie FROM STRING 


MOV RO,-(SP) 


MOV R2,-(SP) 
MOV R3,=-(SP) 


BEQ 3$ ;IF NULL CHARACTER, ALL DONE 
SUB #°O,R3 +: SUBTRACT CHARACTER 0 

BMI 2$ 

CMP #9.,R3 

BLO 2$ 

ASL RO sMULTIPLY BY 2 

ROL R1 

PUSH <R1,R0> sSAVE NX 2 


MOV R1,-(SP) 
MOV RO,-(SP) 


ASL RO sTIMES 2 AGAIN FOR N X 4 
ASL Rd zTIMES 2 AGAIN FOR N X 8 
of (SP)+,RO zADD N X 2 TO GIVE N X 10 
ADD (SP)+,R1 

ADD R3,R0 zADD CURRENT DIGIT 


R 
BIT #170000,R1 


CHECK SIZE OF NUMBER 
BEQ 1$ s:MUST NOT BE MORE THAN 28 BITS 


SEQ 0578 





a as as ss ss ss ss st 


1 002350 
002350 
002354 


gseses geessec 
s 


002432 
002 
13 002436 


oo 
NN 
MNEAns 
—Oo a 
we aon 


ssscce 
NS 


004167° 
000001 


000004 
004231" 
000001 


000004 


| 41 
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PRINTF #INP2BA 
#INP28A,=(SP) 


PRINTF #INP28B 
#INP28B,-(SP) 


#1,-(SP) 


MOV RO,(R4)+ 
MOV R1,(R4)+ 


CLC 
POP <R3,R2,R1,R0> 


RETURN 


PRINT PROPER RANGE 


sSET CARRY TO ASK AGAIN 


sPRINT ILLEGAL CHARACTER 


sMOVE NUMBER TO STORAGE AREA 
CLEAR CARRY TO INDICATE ALL IS WELL 


MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 


SEQ 0579 


1 
( 
1 
T 
1 
T 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
T 
1 
1 
1 
1 
1 
1 
1 
T 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 H eas a 

g 002440 116 125 115 1488 »ASCIZ\NUMBER OF BAD BLOCKS\ 
4 002465 104 117 040 T4DMN: 

5 002555 102 101 104 T4BBI: -ASCIZ\BAD BLOCK\ 

6 002567 122 105 101 T4RO: .ASCIZ\READ ONLY\ 
7 002601 127 122 111 T4WO: = =.ASCIZ\WRIT 

8 002614 103 110 105 T4WCA: .ASCI 

9 002650 122 101 116 T4WCR: eed: 

10 002711 104 101 124 T4DP: ASCIZ 

11 002757 105 116 101 T4ECC -ASCIZ 

12 0035012 103 117 115 T4DCA SCIZ 

13 003040 122 101 116 T4DCR ASCI2 

14 003073 105 116 101 T4RET: .ASCIZ\ENABLE RET 
15 003312 122 101 116 T4SEK AetiS 

16 003135 040 040 000 T40PT7: .ASCIZ 

17 003140 116 125 115 T4BE: ASCIZ 

18 003171 102 105 107 T4BEG: . “ALtIZ\BEGI 

19 003205 105 116 104 T4END: aes tinaeen BLOCK\ 
20 003217 116 125 115 T4TRC: .ASCIZ\ 
21 003250 124 122 101 T4TRAK: .ASCIZ\TR 
22 003256 116 125 115 T4GRC: -.ASCIZ\ 
23 003307 107 122 117 T4&GRP ASCIZ\GR 
24 003315 104 117 040 T4CYL: "ASCIZ\D 

25 003367 123 124 101 T4CYLB: ttn: 
26 003411 105 116 104 T4CYLE: .ASCIZ\E 
27 003431 116 125 115 T4DPC rtd} Ne 
003474 104 101 124 T4DPD SCIZ\DATA WORD\ 


RIES 
_—— ACCESS MODE\ 
‘weit ueeee SETS\ 


Therk’ OF TRACKS TO TEST\ 
NURBER OF GROUPS TO TEST\ 


O YOU WISH TO LIMIT THE CYLINDERS TESTED\ 
TARTING CYLINDER\ 

NDING CYLINDER\ 
NUMBER OF WORDS IN DATA PATTERN 16\ 


E ONLY\ 

Z\CHECK ALL WRITES BY READING\ 
\RANDOMLY CHECK WRITES BY READING\ 
\DATA PATTERN = 0 FOR RANDOM SELECTION\ 
\ENABLE ECC DATA CORRECTION\ 

\COMPARE ALL DATA READ\ 


\RANDOMLY i DATA READ\ 


ASCIZ\DO YOU ig TO CHANGE TESTING PARAMETERS FOR THIS DRIVE\ 


SEQ 0580 


— 


ee ee ee 


| ita | eee ee 
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} 3 FORMATTED QUESTIONS 

3 003506 045 116 045 T4QHED: .ASCIZ\ZNZATHE FOLLOWING QUESTIONS REFER TO UNIT %D2%A UDA AT %06%A DRIVE %D3ZN\ 
4 003617 045 116 045 T4OPT1: .ASCIZ\ZNZAD0 YOU WISH TO:ZN\ 

5 003645 045 101 040 T4OPT2: .ASCIZ\ZA - TEST ENTIRE AREA SELECTEDZN\ 

6 003712 045 101 040 T40PTS: .ASCIZ\ZA 1 = SPECIFY BEGIN/END SETS TO TESTZN\ 

7 003764 045 101 040 T4OPT4: .ASCIZ\ZA 2 = SPECIFY TRACKS AND CYLINDERS TO TESTZN\ 

8 004044 045 101 040 T40PTS: .ASCIZ\ZA 3 = SPECIFY GROUPS AND CYLINDERS TO TESTZN\ 

9 004124 045 101 040 T40PT6: .ASCIZ\ZA 4 = SPECIFY CYLINDERS TO TEST\. 

10 004167 045 101 114 INP28A: .ASCIZ\ZALIMITS = LO= 0, HI= 2684354552N\ 

11 004231 045 101 111. INP28B: .ASCIZ\ZA AINVALIO CHAR, TYPE DECIMAL NUMBER 0 TO 268435455%N\ 
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] EVEN 
2 004316 TEMP:  [BLKW 
3 004342 000000 ANYMOR: < WORD 
i 000001 ANY.YS = BITO 
5 000001 END 


12 
0 


: ANY MORE QUESTIONS 


SEQ 0582 





TEST 4 QUESTIONS MACRO V04.00 18-AUG-82 11:40:09 PAGE 26-1 SEQ 0583 
SYMBOL TABLE 
ADR. = 000020 G CSDRPT= 000024 C.UADR= 000000 D.WC = 000010 HOE = 100000 G 
ANYMOR 004342R C$dU__= 009053 C.UNIT= 000002 D.WCA = 000004 IBE = 010000 G 
ANY.YS= 000001 CSEDIT= 000005 C.VEC = 000004 D.WO = 002000 IDU = 000040 G 
A = 000002 CSERDF= 000055 DDEF = 011012 D.XFRR= 000166 IER. = 020000 G 
ASSEMB= 000010 CSERHR= 000056 DIAGMC= 000000 D.XFRW= 000164 INP28A 904167R 
A = 000001 CSERRO= 000060 DIVIDE 002110R D.ZERO= 140200 INP28B 004231R 
A2 = 000002 CSERSF= 000054 DT.AVL= 10000 EF .CON= 000036 G ISR = 000100 G 
BITO = 000C01 G CSERSO= 000057 DT.UNT= 000077 EF .NEW= 000035 G IXE = 004000 G 
1T00 = 000001 G SESCA= 000010 0.88 = 00001 EF .PWR= 000034 G ISAU_ = 000 
BITO1 = 000002 G SESEG= 000005 D.BB01= 000012 EF .RES= 000037 G ISAUTO= 000041 
1T02 = 000004 G = 000003 D.BB02= 000016 EF.STA= 000040 G ISCLN = 000041 
BITOS = 000010 G CSETST= 000001 D.BB803= 000022 EN = 040000 I$DU = 000041 
BITO4 = 000020 G CSEXIT= 000032 D.BB04= 000026 EO = 140000 ISINIT= 000041 
BITOS = 000040 G CSGETB= 000026 D.BB05= 000032 = 000004 G ISMOD = 000041 
BITO6 = 000;00 G C$GETW= 000027 D.BB806= 000036 ESEND = 002100 ISMSG = 000041 
BITO7? = 000200 G = 000 D.BB07= 000042 ESLOAD= 000035 ISPROT= 000041 
BITO8 = 000400 G $GPHR= 000042 D.BB08= 000046 FS = 10000 ISPTAB= 000041 
BITO9 = 001000 G C$GPLO= 000030 D.BB09= 000052 U_ = 00001 ISPWR = 000041 
BIT] = 000002 G C$GPRI= 000040 D.BB10= 000056 FSAUTO= 000020 ISRPT = 000041 
BIT10 = 002000 G INIT= 000011 D.8811= 000062 GN = 00004 ISSEG = 000041 
BIT11 = 004000 G CSINLP= 000020 D.BB12= 000066 FSCLEA= 000007 ISSETU= 000041 
BIT12 = 010000 G SMANI= 000 D.BB13= 000072 DU = 00001 ISSRV = 000041 
BIT13 = 020000 G C$MEM = 000031 D.B814= 000076 FSEND = 000041 ISSUB = 000041 
BIT14 = 040000 G C$MSG = 000023 D.8815= 000102 FSHARD= 000004 ISTST = 000041 
BIT15 = 100000 G CSOPEN= 000034 D.BB16= 000106 $HW = 000013 JSJMP = 000167 
BIT2 = 000004 G CS$PNTB= 000014 D.BCYL= 000154 FSINIT= 000006 LOE = 040000 G 
BITS = 000010 G CSPNTF= 000017 D.BE = 000040 FSJMP = 000050 LOT = 000010 G 
BIT4 = 000020 G CS$PNTS= 00001 D.BEC = 000112 FSMOD = 000000 MC = 000014 
BITS = 000040 G TX= 00001 D.BGN1 FSMSG = 000011 MD = 000005 
BIT6 = 000100 G C$Q10 = 000377 D.BGN2= 000124 FS$PROT= 000021 MM = 000017 
BIT? = 000200 G C$RDBU= 000007 D.BGNS= 00 FSPWR = 000017 MX = 000012 
BIT8 = 000400 G CSREFG= 000047 D.BGN4= 000144 FSRPT = 000012 M1 = 000004 
BIT9 = 001000 G C$RESE= 000033 D.CYL = 00 SEG = 000003 M2 = 000010 
BLO28 002146R C$REVI= 000003 D.DC = 000002 FS$SOFT= 000005 OSAPTS= 000000 
BOE. = 000400 G SRFLA= 000021 D.DCA = 000601 FS$SRV = 000010 OSAU = 000000 
CNV28 002250R C$RPT = 000025 D.DCY = 0 F$SUB = 000002 OSBGNR= 000000 
CT.AVL= 100000 S$SEFG= 000046 D.DRV = 000000 $SW = 000014 OSBGNS= 000000 
T.BRL= 007000 PRI= 000041 D.ECC = 010000 FSTEST= 000001 osdU = 000000 
-CMD= 000004 C$SVEC= 000037 D.ECCC= 000176 GSCNTO= 000200 OSERRT= 000000 
CT.MSG= 000010 CS$TPRI= 000013 D.ECYL= 1 GSDELM= 000372 OSGNSW= 000000 
CT.REQ= 000020 C.BST = 000006 D.ENDI= 00012 GS$DISP= 000003 OSPOIN= 000000 
CT.RN = 000002 C.DRO = 000020 D.END2= 000130 GSEXCP= 000400 O$SETU= 000000 
CT.UNT= 000077 C.DR1 = 000022 D.END3S= 000140 GS$HILI= 000002 NT = 001000 G 
CT.VEC= 000777 C.DR2 = 000024 D.END4= 000150 G$LOLI= 000001 PRI = 002000 
C$AU_ = 000052 C.DR3 = 000026 D.HERR= 000170 $n0 = 00 PRIOO = 000000 G 
C$AUTO= 000061 C.DR4 = 000030 D.IW = 040000 GSOFFS= 000400 PRIO1 = 000040 G 
$BRK = 000022 C.DR5 = 000032 D.PAT = 000006 GSOFSI= 000376 PRIO2 = 000190 G 
C$BSEG= 000004 C.DR6 = 000034 D.PRM = 000004 SPRMA= 000001 PRIOS = 000140 G 
= 000002 C.DR? = 000036 D.RET = 001000 GSPRMD= 000002 PRI04 = 000200 G 
SCEFG= 000045 C.FLG = 000014 D.RO_ = 004000 GS$PRML= 000000 PRIOS = 000240 G 
CS$CLCK= 000062 C.JAD = 000012 D.SEEK= 000174 GSRADA= 000140 PRI06 = 000500 G 
CSCLEA= 000012 C.JSR = 000010 D.SEQ = 000100 G$RADB= 000000 PRIO? = 000340 G 
C$c: OS= 000035 C.REF = 000044 D.SERN= 000200 GSRADD= 000040 SVCGBL= 177777 
LP1= 000006 C-RING= 000016 D.SERR= 000172 G$RADL= 000120 VCINS= 177777 
C$CVEC= 000036 C.SIZE= 000046 D.SIZE= 000206 G$RADO= 000020 SVCSUB= 177777 
DCLN= 000044 C.10 = 000040 D.TR = 000020 GS$XFER= 000004 SVCTAG= 177777 
C$DO0DU= 000051 C.TOH = 000042 D.UNIT= 000002 GSYES = 000010 SVCTST= 177777 





a 














SSLSYM= 010032 
TEMP 6R 


TSTEMP= 000010 
- ABS. 009000 
344 


ERRORS DETECTED: 


VIRTUAL MEMORY USED: 
DYNAMIC MEMORY AVAILAS8 
B: T6QUES ,B: T4QUES/C= 130, OJSVC34R.MLB/P:1,ASSEM, T4QUES 


000 
001 


aft te WORDS 


TSTEST= 000000 
TSTSTM= 177777 
TSTSTS= 000000 
T48B R 


T4GRP 003307R 


E FOR 70 PAGES 


( 110 PAGES) 


T40PT1 
T4 
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SYMBOL TABLE 


000402R 


001554R 


T4026 001610R 
T4027 


X$TRUE= 000020 


SEQ 0585 


N 13 
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CROSS REFERENCE TABLE (CREF V04.00 ) 
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BP OS 0 OS TTT HTH THT KT AAAAAAAAAAGAAAKAAAAOAAO 
(eoeteceesepoeevpevpvrepeerpevreeperepepeeevpeperevpevrerperrepeaerevreeeveevrevpeeeneee 
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CROSS REFERENCE TABLE (CREF V04.00 ) SEQ 0586 


CSESCA 2-98 
CSESEG 9 2-9F 
CSESUB 2-94 
CSETST we 
CSEXIT td 
C$GETB 2-94 


# 
CSGMAN -o# 9-14 1 5 14-13 11-14 11-17 - 
1 o® 15=4 1 0 16-14 16-20 17-2 17=8 17-22 18-2 19-9 19-45 eect 


0-2 10-9 10 
5-10 15-14 16- 


CSPNTF oe 9-12 13-1 13-2 13-3 13-4 13-5 13-6 23-1 23-5 


CSPNTX  2-9F 
10 2-94 
C$RDBU 2-94 
CSREFG 2-98 
CSRESE 2-94 2-98 
CSREVI 2-98 
CSRFLA S38 
CSRPT oF 
CSSEFG 2-9F 
CSSPRI 2-94 
VEC 2-94 
CSTPRI 2-98 
C.BST 5-194 
C.DRO 5-384 
C.OR1 5-394 
C.DR2 5-4 
C.DR3 5-414 
C.DR4 5-424 
C.DRS 5-434 
C.DR6 5-444 
C.DR7 5-454 
C.FLG 5-224 
C.JAD 5-214 
C.JSR 5-208 
C.REF 5-484 
C.RI 5-374 
C.SIZE 5-50# 
C.10 5-4 
C.TOH 5-474 
C.UADR 5-124 
C.UNIT 5-1 
C.VEC 5-1 


6a 
CNV28 8 10-3 . 15-11 15-15 17-23 18-3 22-154 





| 
| 
| 
| 
| 





SEQ 0587 


C 14 
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CROSS REFERENCE TABLE (CREF V04.00 ) 
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SEQ 0588 
2-9 
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SEQ 0590 
0- 
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CROSS REFERENCE TABLE (CREF V04.00 ) 
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CROSS REFERENCE TABLE (CREF V04.00 ) 





SEQ 0592 
11-18 


H 14 
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CROSS REFERENCE TABLE (CREF V04.00 ) 


SEQ 0593 
19-9 19-10 19-12 
5-20 
5-384 
5-435 
5-48 
6-40 
6-444 
6-49 
6-54 
7-14 
7-6 
7-11 


19=8« 


18-2 


17-22 
5-1 
3219 
5-414 
5-46 
6-10 
6-43 
6-474 


I 14 
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CROSS REFERENCE TABLE (CREF V04.00 ) 
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MACRO DEFINITIONS 
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KON FIND F 

ERROR RECOVERY SUPPORT pe aes 
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SEEK REQUIRED TO RE R 
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CLRUP = CLEAR ALL PARAMETER BIT 
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ooo 
” 
zZzoaom 
——mnaore 
x 
eeeuete 


ORW = DETERMINE IF A READ OR A WRITE IS TO BE DONE 
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, ~ IF WRITE, SEE IF A WRITE CHECK IS 


a READ OR WRITE W/WRITE CHECK, SEE IF DATA COMPARE IS TO BE DONE 
RANDOM = RANDOM NUMBER ROUTINE 
MASK = FIND MASK FOR RANDOM NUMB 
seeenteeee OVERLAY MODULE RNDBE - GET NEXT RANDOM BEGIN/END SET SECTOR 
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steeeeeeee OVERLAY SRT un 
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SCHRCP = SUBUNIT CHARACTERISTICS COMPARE 
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144= 108 UNIT AND SUBUNIT *GET CHARACTERISTICS AND RUN SDI _COMMAN $ 

144= 108 weeeexenee NON-OVERLAY MODULE START = TEST 4 INITIALIZATION 

144= 108 GFTMEM = ALLOCATES MEMORY FOR UNIT AND SUBUNIT BLOCK AND SUBUNIT PARAMETERS 
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000000 
000000 


T 
; WHO AGREES TO THESE LICENSE TERMS. TITLE 


-TITLE UDAT4 DISK EXERCISER 


COPYRIGHT (C) 1981,1982 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
; Sens mae Ciernic AND MAY BE COPIED ONLY WITH THE INCLUSION 


PYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 


ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DIGITAL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


THIS PROGRAM SHALL BE Gat on tie WITH THE PROGRAM DMACRO 


[USING A COMMAND LINE SIMILAR T 


UDAT4..BIN, UDAT4/C=SDMACRO,UDAT4 


; ONE, AND ONLY ONE OF THE FOLLOWING ASSEMBLY OPTIONS <<MUST>> BE 
: SELECTED 

UpASO = 0 : SET TO 1 IF ASSEMBLY IS FOR UDASO 

UDAS2 = 1 SET TO 1 IF ASSEMBLY IS FOR UDAS2 

QDA = 0 SET TO 1 IF ASSEMBLY IS FOR QDA 

: OTHER OPTIONS 

DEBUG = 0 z UNTIL TESTED, MUST BE 0 FOR UDAS2 

INCODT = 0 : SET TO 1 TO INCLUDE UDAS2 ODT 


ENABL ABS 

-MCALL DMCODE .DMEND ,DMOVLY 

-MCALL JMP,BR,BEQ,CALL ,BPL BCC BNE ,BMI ,RETURN 
-MCALL DMODT 


OMCODE UDADM4,0,1364,3,0,1000 





SEQ 0599 — 





¢ 15 ; 
ISK EXE SEQ 0600 ( 

MODIFICATION CONTR | 1 

45 .SBTTL MODIFICATION CONTROL 

46 000000 “REPT 0 

i 

49 MODIFICATION CONTROL == ALL CHANGES AFTER OCTOBER 29, 1981 WILL BE 

50 ENTER ED pW THES SECTION TO ALLOW THE HISTORY OF TEST’4 TO BE DOCUMENTED 

52 * “THE "GET STATUS AFTER ERROR’ CODE (IN ROUTINE CORECT) 

53 WAS CHANGED TO OVERCOME THE RA81 PROBLEM WHERE RECEIVER 

54 READY WAS NOT IMMEDIATELY ASSERTED AFTER AN ERROR (THE 

55 DRIVE WAS "PICKING UP THE PIECES’ AFTER AN ER 

56 ALL F°S USED TO BE DISPLAYED BECAUSE I WOULDN'T SEE 

57 RECEIVER READY WHEN | WANTED TO). THIS REQUIRED MOVING 

58 THE ‘WAIT FOR CLOCKS'’ CODE, WHICH USED TO BE IN THE 

59 "GET STATUS AFTER ERROR’ CODE (IN CORECT) TO THE MODULE 

60 GOINIT, AND REWRITING A SMALL AMOUNT OF CODE IN CORECT. 

62 ALL CODE ADDED FOR CONDITIONAL ASSEMBLY FOR THE 


63 UDASO/UDAS2. 
64 -ENDR 


61 
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FWODONAUS WR 


Moo 


25 
6 


037777 
001362 


000000 
000001 
000002 


- SBTTL 


OTe te teeee 
— 
= 
m 
=z 


B.DAT 


De Se Se Se Wi Vite Ss Se Se THT Ves Se Se te 


RW. CPT 


wSTOP 
SEC512 
SEC576 


HD.LBN 
H oR 
HD. REV 


UDA DM PROGRAM PARAMETERS 


-LIST MEB 

EQUATES 

HIGHEST USABLE LOCATION OF UDA MEMORY + 1 

= 37777 ; HIGH MEMORY+1 

= OVE .MN=2 ; OVERLAY ADDRESS LOCATION 


OFFSETS FOR FORMAT TRACK TABLE 


= 0. : BUFFER POINTER OFFSET 
= 1. : HI ORDER HEADER OFFSET 
= 2. ; LOW ORDER HEADER OFFSET 


OFFSETS FOR FORMAT TRACK BUFFER 


= 0. 3 FIRST DATA WORD OFFSET 
= 256. : EDC WORD OFFSET 


GFFSETS FOR READ/WRITE 1/0 CHAIN TABLES 


= 0. ; NEXT BUFFER POINTER OFFSET 

= RW.CPT+1. 3 STATUS 

= RW.STAT+1 : POINTER TO DATA BUFFER 

= RW. BUF +1 : HI ORDER EXPECTED HEADER 

= Rw. LOW+1 3; LOW ORDER EXPECTED HEADER 

= RW.HI+1 : SDI COMMAND AND HEAD ADDRESS 

= RW.CMD+1 3 DUMMY SDI CONTROL BLOCK POINTER 
= RW.SDI1+1 : THETA FROM INDEX 


CONSTANTS FOR READ AND WRITE XFC‘S 


= 40000 ; BUFFER FULL OR EMPTY FLAG 

= 10000 : ECC ERROR IN BUFFER BIT 

= 100000 : END OF CHA 

= 00000 : LAST ENTRY IN CHAIN FOR FORMAT 

s : READ CONTINUE 

= 13400 : READ REAL TIME COMMAND 

= oc : LAST ENTRY IN CHAIN FOR READ 

= 40000 : WRITE CONTI 

= 122400 : WRITE REAL TIME EC 

= EOC+BUFFLG : LAST ENTRY IN CHAIN FOR WRI~ 

= 256. : 256 WORDS IN A SECTOR IN 5ic “BYTE MODE 
= 288. ; 288 WORDS IN A SECTOR IN 576 BYTE MODE 


HEADER CODES 


00D LBN 
GOOD RBN, PERHAPS UNUSED 
REVECTORED LBN 


60000 
030000 


SEQ 0601 
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a4 110000 HD.BAD = 110000 : BAD BLOCK 

82 050000 HD.PRV = 050000 3 PRIMARY REVECTORED BLOCK 
83 120000 HD.XBN = 120000 : XBN BLOCK 

He 140000 HD.DBN = 140000 ; DBN BLOCK 

4 3 OFFSETS FOR DATA BUFFERS 

Ea 000000 BF.DAT = 0. 3 DATA 

89 000400 BF.EDC = 256. ; ERROR DETECTION CODE 
30 000401 BF.ECC = 257. 3 LAST 12 ECC RESIDUES 
os 3 BUFFER AND READ/WRITE CHAIN LINK SIZES 

94 000401 WBUFLN = 257. 3 WRITE BUFFER SIZE 

95 000415 RBUFLN = WBUFLN+12. 3 READ BUFFER SIZE 

104 000010 LINKLN = 8. 


SEQ 0602 
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q s XFC DEFINITION EQUATES 
3 000000 BREAK = 0. : BREAKPOINT XFC CODE 
& 000001 FORMAT = 1. : FORMAT TRACK XFC CODE 
5 ia ia XREAD = 2. : READ _N SECTORS XFC CODE 
6 00000 XWRITE = 3. 3 WRITE N SECTORS XFC CODE 
7? 000004 SEND = 4. : SEND SDI COMMAND XFC CODE 
8 000005 RCV = 5. 3 RECEIVE SDI MESSAGE XFC CODE 
9 000006 C = 6. : COMPARE DATA PATTERN TO BUFFER 
10 000007 STATUS = a 3 RETURN DRIVE STATUS XFC CODE 
11 10 ECHO = 8. : ECHO DATA TO DRIVE XFC CODE 
12 000011 DINIT = 9. : DRIVE INITIALIZE XFC COD 
13 12 WAITSI = 10. ; WAIT FOR SECTOR OR INDEX PULSE 
14 000013 UREAD = 11. 3 READ UNIBUS MEMORY XFC CODE 
15 000014 UWRITE = 12. ; WRITE UNIBUS MEMORY XFC CODE 
16 15 cc = 13. ; DO ECC ON BUFFER XFC CODE 
17 16 D = 14. : SEND BUFFER TO MAINTENANCE READ COMMAND 
18 000017 MWR = 15. : GET BUFFER FROM MAINTENANCE WRITE COMMAND 
19 000020 vT = 16. 2 CONVERT TO PHYSICAL ADDRESS XFC CODE 
$9 000021 EXIT = 17. ; TERMINATE DM PROGRAM XFC CODE 
$$ ; MEDIA TYPES 
$e : THIS WORD IS FOUND AS THE FIRST WORD OF XBN 0 (OR ANY OF ITS COPIES) 
26 126736 MODS12 = 126736 : 512 BYTE MODE 
34 074161 MODS76 = 074161 ; 576 BYTE MODE 
$3 : GET STATUS OFFSETS 
31 000000 ST.UNT = 0. ; UNIT NUMBER 
32 000000 ST.MSK = 0. 3 SUBUNIT MASK 
33 000001 ST.REQ = 1. : REQUEST BYTE 
34 000001 ST. = ° : MODE BYTE 
35 000002 ST.ERR = ° : ERROR BYTE 
36 000002 ST. = 2. : CONTROLLER BYTE 
37 000002 ST. = 2. : C BITS 
38 000003 ST.RTY = 3. : RETRY COUNT/FAILURE CODE 
39 100000 VALID = 100000 ; USED IN ERROR POSITION TO MARK VALID STATUS 
ra : IN INPUT BUFFER 
$¢ : STATUS BIT DEFINITIONS 
44 000200 ST.OA = 200 3 ONLINE TO ANOTHER (SET IF DRIVE UNAVAILABLE) 
45 000100 ST.RR = 100 ; READJUSTMENT BIT (SET IF RECALIBRATION REQUIRED) 
46 000040 ST.DR = 40 2 DIAGNOSTIC REQUEST (SET IF DIAGNOSTIC REQUESTED) 
47 000020 ST.SR = 20 3 SPINDLE READY (SET IF SPINDLE READY) 
48 000010 ST.EL = 10 ; LOGGABLE INFO IN EXTENDED STATUS 
49 000002 ST.PS = 2 : PORT SWITCH (SET IF PORT SWITCH IN) 
50 000001 ST.RU = 1 : RUN/STOP SWITCH (SET IF RUN/STOP SWITCH IN) 
51 000200 ST.DE = 200 : DRIVE ERROR 
000100 ST.RE = 100 : RETRIABLE ERROR (SET IF RETRIABLE ERROR OCCURRED) 
53 000040 ST.PE = 40 2 PROTOCOL ERROR (SET IF PROTOCOL ERROR OCCURRED) 
54 000020 ST.DF = 20 : INITIALIZATION FAILURE (SET IF INIT FAILED) 
55 000010 ST.WE = 10 : WRITE ENABLE (SET IF WRT ATTEMPTED ON PROT DISK) 
56 002000 ST.FO = 2000 : FORMATTING (SET IF FORMATTING ENABLED) 
57 001000 ST.D = 1000 3 DIAGNOSTIC CYLS (SET IF DIAG CYL ACCESS ENABLED) 
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UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 5-1 SEQ 0604 
UDA DM PROGRAM PARAMETERS 


58 000400 ST.S7 = 400 3 SECTOR SIZE (SET FOR 576 BYTE SECTORS) 


mi a - -e e 






UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 6 
UDA DM PROGRAM PARAMETERS 






H 15 


} : GET COMMON CHARACTERISTICS OFFSETS 
3 000000 SHRTTO = 0. : SHORT TIMEOUT <3:0> 
i 000000 SDIVER = 0. : SDI VERSION <7:4> 
5 000900 XFERRT = 0. : TRANSFER RATE <15:0> 
6 000001 LONGTO = - : LONG TIMEOUT <3:0> 
? 000001 RETS = :. : RETRIES <7:4> 
8 006001 RCTCPS = 1. : F/RCT COPIES <11:8> 
9 000001 SS = ‘. : SECTOR SIZE <15:15> 
10 000002 ERLEV = 2: ; ERROR RETRY LEVELS. <7:0> 
1 2 ECCRSH = 2. > ECC THRESHOLD <15: 
12 000003 MICREV = 3. t MICROCODE REVISION NUMBER <7:0> 
13 000003 HRDREV = 3: : HARDWARE REVISION NUMBER <15:8> 
14 000004 DRVID = ‘. : UNIQUE DRIVE ID <47:0> 
15 000007 DRTYPE = a : DRIVE TYPE IDENTIFIER <7:0> 
1g 7 REVS = 7. : REVS/SECOND <15:8> 
18 : GET SUBUNIT CHARACTERISTICS OFFSETS 
20 STHESE OFFSETS ARE CURRENTLY GIVEN AS FOLLOWING THE COMMON CHARACTERISTICS 
22 000000 (BNCYL = 0. ; NUMBER OF CYLINDERS IN LBN AREA <31:0> 
23 000001 HICYL = 1. : HI ORDER CYLINDER BITS <15:12> 
24 000002 GRPCYL = 2. : GROUPS PER CYLINDER <7:0> 
25 000002 HILBN = 2. : HI STARTING LBN <11:8> 
26 000002 IXBN = 2 : HI STARTING XBN <15:12> 
27 000003 TRKGRP = :. : TRACKS PER GROUP <7:0> 
28 000003 HIRBN = 3. : HI STARTING RBN <11:8> 
29 000003 IDBN = ‘ : HI STARTING DBN <15:12> 
30 000004 RBNTRK = i: : RBNS PER TRACK <6:0> 
31 000004 a = 4. : REMOVABLE MEDIA <7:7> 1=REMOVEABLE 
32 000005 DATPRE = 5. : DATA PREAMBLE SIZE IN WORDS <7:0> 
33 000005 HDRPRE = 5: : HEADER PREAMBLE SIZE IN WORDS <15:8> 
34 000006 MEDTYP = 6. : MEDIA TYPE <31:0> 
35 000010 FCTSIZ = 8. > FCT COPY SIZE <15:0> 
36 000011 LBNTRK = 9. > LBNS PER TRACK <7:0> 
37 000011 GRPOFF = 9: : GROUP OFFSET (SECTORS) <15:8> 
3 000012 LBNHST = 10.  LBNS IN HOST AREA <31:0> 
39 000014 RCTCSZ = 12. : RCT COPY SIZE <15:0> 
40 21 XBNCYL = 17. : CYLS IN XBN AREA <15:0> 
41 000022 DBNCYL = 18. : CYLS IN DBN AREA <15:8> 
43 : 
4 : BIT MASK DEFINITIONS 
6 : 
7 = 1774 ; HIGH BYTE MASK 
8 = 000377 > LOW BYTE MASK 
9 = 777 : HI BYTE, HI NIBBLE MASK 
0 = 170377 t HI BYTE. LO NIBBLE MASK 
1 : 177417 : LO BYTE. HI NIBBLE MASK 
2 = 177760 : LO BYTE. LO NIBBLE MASK 
1 2 0000 : UNUSED ADDRESSING BITS 
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UDAT4 DISK EXERCISES DMACR X04.01 23-AUG-82 12:06:46 PAGE 7 SEQ 0606 — 
UDA DM PROGRAM PARAMETERS 
} sMAINTANENCE READ/WRITE REQUEST NUMBERS 
3 060000 DUPPKT = 000 ; DUP SPECIAL PACKET NUMBER 
4 060000 TIMSIZ = 0.+DUPPKT 3 GET FREE MEMORY PARAMETERS 
5 0001 T2DLL_ = 1. +DUPPKT ; DOWNLINE LOAD DRIVE DIAGNOSTIC 
6 060002 T2CMD == 2.*DUPPKT 3; MANUAL INTERVENTION TEST 2 PROTOCOL 
4 0003 T4MPRM = 3. +DUPPKT ; GET MASTER PARAMETERS FROM SW QUESTIONS 
8 0004 TGUPRM = 4. +DUPPKT 3; GET UNIT PARAMETERS FROM HW QUESTIONS 
o 060005 T4881 = 5. +DUPPKT ; GET BAD BLOCKS (1 THRU 
10 0006 T4882. = 6. *DUPPKT : GET REST OF BAD BLOCKS (15 AND 16) 
11 060007 T4SOFT = 7. *DUPPKT ; ADD TO SOFT ERROR 
12 060010 T4SEEK = 8.+DUPPKT ; ADD 1170S T 
13 060011 T4MXFR = 9.+DUPPKT ; ADD TO MEGABITS READ AND WRITTEN 
14 060012 UTOTST = 10. +DUPPKT ; GET UNITS TO TEST 
15 060013 ERRMES = 11. +#DUPPKT ; PRINT ERROR MESSAGE 
16 60014 RRMC = 12. +DUPPKT ; TEST 4 ERROR REPORTING 
17 060015 MESSAG = 13. +#DUPPKT : INFORMATION MESSAGE 
4 001 DONE = 14. +*DUPPKT 3 MARK DM PROGRAM AS NO LONGER RUNNING 
o | 
$9 : STATE BIT DEFINITIIONS | 
22 000001 RCVRDY = 1 ; RECIEVER READY 1 = READY 
23 000002 ATTN = 2 ; ATTENTION BIT FOR RETURN DRIVE SIGNALS XFC 
24 000004 DCLOCK = 4 ; CONTROLLER STATE READY == THERE ARE CLOCKS | 
25 ; COMING FROM THE DRIVE 
26 000100 AIL = 100 ; AVAILABLE 1 = 
27 000400 RCVERR = 400 ; RECEIVE ERROR -- PARITY ERROR 
$8 100000 RWRDY = 100000 : IF SET, UDA IS ABLE TO READ AND/OR WRITE TO DRIVE 
° | 
3 : SDI COMMANDS AND RESPONSES 
32 000204 DISCON = 204 3; DISCONNECT DRIVE 
33 00 ERECOV = 6 ; ERROR RECOVERY 
34 000201 CHGMOD = 201 3 CHANGE MODE 
35 000213 DRVONL = 213 ; DRIVE ONLINE 
36 000014 DRVRUN = 14 ; DRIVE RUN 
37 000005 DRVCLR = 5 ; DRIVE CLEAR OPCODE 
38 000207 GETCHR = 207 ; GET CHARACTERISTICS 
39 000210 TSUB = 210 ; GET SUBUNIT CHARACTERISTICS 
40 00001 GETSTA = 11 3; GET STATUS | 
41 000216 IRECLB = 216 ; RECALIBRATE 
42 00001 INSEEK = 12 : INITIATE SEEK 
43 000176 COMPLT = 176 3; SUCCESSFUL COMPLETION 
44 00017 UNSSUC = 175 3; UNSUCCESSFUL otitis 
45 000170 CHRRES = 170 : GET CHARACTERISTICS RESPONSE 
46 00016 SBCRES = 167 ; GET SUBUNIT CHARACTERISTICS RESPONSE 
47 000366 STSRES = 366 ; GET STATUS RESPON 
rr 000350 ECHOC = 350 ; DIAGNOSTIC ECHO COMMAND AND RESPONSE 
30 : SDI LEVEL 2 COMMAND OFFSETS 
52 00 L2.0PC = 0 :; SDI LEVEL 2 OP CODE 
53 000001 L2.SLN = L2.0PC+i ; SDI LEVEL 2 SEND LENGTH IN BYTES 
54 000002 L2.RLN = L2.SLN+1 : SDI LEVEL 2 RECEIVE LENGTH IN WORDS 
55 000003 L2.ERS = L2.RLN¢1 ; SDI LEVEL 2 EXPECTED RESPONS 
56 00004 L2.EOF = L2.ERS+1 : SDI LEVEL 2 ERROR OFFSET INTO UNIT PARAMETERS 
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UDA DM PROGRAM PARAMETERS 


C2DFTL 


ERROR CODES 


SYSTEM care ERROR 
040000 DEVICE F 
100000 ; pons ERROR 


140000 SOFT 
CERHARDE“CERSOF TS! SERSOF 16° CERHARD> 
<F TLDEV&*CERSOF T>! <ERSOF T&“CFTLDEV> 


SEQ 0607 


3 CHANGE SOFT TO HARD ERROR 
: CHANGE SOFT TO DEVICE FATAL 
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TEST 4 SPECIFIC 
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06 
000071 
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TEST 4 SPECIFIC INFORMATION 
TEST 4 SPECIFIC INFORMATION 


UNIT PARAMETER OFFSETS 


wn 
& 
Cc 
2 
oe 
4 


Ev+1 


DVENMYMBZBWIMEBOABS? 
>v Pay a sa—-DPwnn 


U.CGRP+1 
U.LCYL+2 


PARAMETER OFFSET 


0. 
S.PARM+1 
S.SEEK+1 


DLeeMum2s 


gett TO NEXT UNIT (RING LINKED LIST) 
4 WORDS OF on ten acne POINTERS 


ISSUE SEEK TIMEQUT COUNTER 
READ RET 

MASTER SE T 
READ/WRITE TIME 


OUT AREA 
NEXT FUNCTION ADDRESS (FOR DEFERRED CALLS) 
PATTERN NUMBER TO WRITE 

CURRENT COUNT OF T/G LOOPS 

POINTER TO CURRENT TRACK OR GROUP 


UNIT MASK FOR XFC CALLS (0001 = 1000) 
WRITE PR OTECTION ON STATUS 


AT 
CURRENT ERROR RECOVERY LEVEL 
MAXIMUM NUMBER OF READ RETRIES 
MUM ak OF ERROR RECOVERY LEVELS 


R COUNTS 
; MASK 7 WRITE PROTECT READ-ONLY DRIVES 
TER WORD 


UNIT P 

RECOVERY PARAMETERS 

SUBUNIT OFFSET (0 = 3) 
MASTER L/DBN 


L/ 
CURRENT L/DBN FOR START OF CHAIN 
RBN TO BE READ/WRITTEN IF LBN REVECTORED 
NUMBER OF RCT COPIES ON EACH SUBUNIT 
CURRENT RCT COPY THAT + * at — ON 
ERROR (IF ANY) ON THE L 
ERROR THAT OCCURRED BEFOR. THE “REVECTOR OPERATION 
STARTING SUBUNIT NUMBER 
yc CYLINDER 
CURRENT GROUP 
LAST CYLINDER SEEKED TO 
LAST GROUP SEEKED TO 


SUBUNIT PARAMETER WORD 
COUNT OF NUMBER OF SEEKS 
STARTING DIAGNOSTIC CYLINDER 


SEQ 0608 


UD 


| UDAT4 DISK 
| TEST 4 SPECIFIC INFORMATION 


apa ANRARRRNRONGI ITS 


EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 8-1 


000004 


000013 
000015 
000017 


177740 


001750 


MAXSND 


L 15 
= $.SDCL+2 : 
= S.PAT+1 : 
= S.LETR+1 : 
= S$. TRKL+1 : 
= S.SCHR+1 : 
= S.MEGR+1 : 
= S.MEGW+1 : 
= §.BADP+1 : 


IF TRACK/GROUP LIMITS ARE 


SEQ 0609 


; PATTERN TO USE FOR hy 
; L OR D LETTER TO MAKE L/D 


NUMBER OF SECTORS IN ONE T 


; RACK 
; POINTER TO SUBUNIT CHARACTERISTICS 
; P TO 245) 


START OF BEGIN/END SETS 
ene THE SUBUNIT PARAMETERS HAVE THE 


FOLLOWING FIELDS ADDED TO THE 


= S.BESS ; 
= S.MCNT+2 3 
= S$. TGOF +2 3 
CONSTANTS 

= 255. 3 
= 69. e 
= U.LGRP+1 3 
= HIMEM-TLEN.U : 
= 0 : 
~ 1000. : 


MAXIMUM TRACK/GROUP COUNT 
ORIGINAL TRACK/GROUP OFFSET 
START OF TRACK/GROUP SETS 


NUMBER OF are SECTOR TO FILL 


; INITIAL EDC VA 

; UNIT PARAMETER LENGTH 

; LOCATION OF FIRST UNIT PARAMETER BLOCK 

; TO DETERMINE MAXIMUM SECTORS TO READ/WRITE 


MAXIMUM SECTOR MASK IS THE 2°S COMPLEMENT 


; OF THE MAXIMUM NUMBER OF SECTORS TO WRITE 
; MAXIMUM TIMES TO SEND A COMMAND TO AN OFFLINE DRIVE 





UDATS DISK EXERC 
TEST 4 SPECIFIC 


1 
2 
3 
4 
5 
6 
? 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 


NOPONONDY 2 2 2 OS 


25 


M15 


ER DMACR X04.01 23-AUG-82 12:06:46 PAGE 9 


IS 
C INFORMATION 


000001 
000002 


100000 
000002 
000001 


100000 


000100 


100000 


0 
001000 


020000 


000200 
000100 


000010 


000004 
000002 


DROP 


ONLYCL 
SEQSEK 


WCHECK 


WCHKAL 
DATCMP 


SEQ 0610 


DUMMY SDI CONTROL BLOCK OFFSETS 


1 
2 


: DUMMY SDI SEARCH LIMIT 
: DUMMY POINTER TO SUBUNIT CHAR=5 


MASTER PARAMETER BITS (M.PARM) 


100000 : 
000002 ; 
000001 


INITIAL WRITE IN PROGRESS 


: ERRORS DURING INITIALIZATION 
: INITIAL SETUP IN PROGRESS 


UNIT PARAMETER BITS (U.PARM(R5)) 


= 100000 : 
= 40000 : 
= 10000 : 
= 4000 3 
= 2000 : 
= 1000 : 
= 400 : 
= 200 ; 
= 100 : 
10 : 
2 3 
ERROR RECOVERY PARAMETERS 
= 100000 : 
= 40000 : 
= 20000 3 
= 10000 ; 
= 4006 : 
= 2000 ; 
= 1000 : 
SUBUNIT PARAMETER BITS (S. 
100000 5 
40000 5 
= 20000 : 
= 10000 3 
= 4000 : 
= 2000 : 
= 1000 : 
= 200 : 
= 100 3 
= 40 : 
= 20 : 
= 10 : 
= 4 
= 2 


; DROP BIT (SET IF UNIT OR SUBUNIT tg 

; INITIAL WRITE (SET IF INITIAL WRITE IN PROG) 

; DIRECTION (SET IF SEQUENTIAL ACCESSES DECREASING) 
; SET IF SEQUENTIAL SEEKS MOVED TO NEW SUBUNIT 

; SEEK a PROGRESS = SET IF TRUE 

; FIRST TIME FLAG = SET FOR INIT CODE 

; REVECTOR BIT (SET IF BLOCK REVECTORED) 


SEE IF WORKING ON RBN r 


; REDWRT (READ OR WRITE IN PROGRESS 4 IF WRITE) 
; RESERVED (SEE SUBUNIT PARAMETER BITS 
; RESERVED (SEE SUBUNIT PARAMETER BITS) 


(U.RCOV) 


ERROR RECOVERY IS DISABLED 
INDICATES THAT DRIVE WAS INITIALIZED 


VERY 
SEEK IS REQUIRED FOR ERROR RECOVERY 
RECALIBRATE IS REQUIRED FOR ERROR RECOVERY 
JUST RETRY THE SAME MODULE 
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PARM(R4)) 


; RESERVED (DROP BIT) 

; RESERVED (INITIAL WRITE) 

; DIAGNOSTIC CYLINDER FLAG (SET IF DBNS) 

; 1 IF ECC CORRECTION yr MASTER BITS 


AL 
; SET IF ONLY CYLINDERS SPECIFIED 
; USED DURING SETUP ONLY 

; SEQUENTIAL SEEK. (START UP TESTING ONLY) 
; TACKS OR SETS (USED IF ig T) 


F SET) 
CHECK BIT (IF SET, WRITE CHECK WILL BE DONE) 


; WRITE 
WCHECK : Ser ik USED FOR THE UNIT PARAMETERS 


F WRITE CHECK ALWAYS TO BE DONE 
: DATA COMPARE (SET IF DATA COMPARE TO BE DONE) 


| ere a a er 
UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 9-1 


IS 
TEST 4 SPECIFIC INFORMATI 
58 
59 000001 


DCMPAL = 1 


DATCMP IS ALSO USED FOR THE UNIT PARAMETERS 
; SET IF DATA COMPARE ALWAYS TO BE DONE 


SEQ 0611 


A 





NONININR 


B 16 


SER DMACR X04.01 23-AUG-82 12:06:46 PAGE 10 


MACRO DEFINITIONS 
DIAGNOSTIC MACRO FOR TEST4 OVERLAYS 


«MACRO DIAGSS$ 

TST SSDIAG*+SD01AG$ 
BEQ + 

MOV #60000,R0 

MOV RO ,@SSDIAG+$DIAGS 
eNLIST 

oh? NE ,UDASO 
LIST 

B +1 

eNLIST 

-ENDC 

IF NE ,UDAS2 
LIST 


-ERROR ; NOT CHECKED OUT YET 
BR +2 


2 SDIAGS + 1 


C 16 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 11 SEQ 0613 
MACRO DEFINITIONS 
} ; OVERLAY INFORMATION MACRO 
3 «MACRO DFOVLY ee SAREA,EAREA 
4 «WORD <SAREA=PARTO>/2 
5 IF NB ,EAREA 
6 “WORD <EAREA~SAREA>/2 
7 ~IFF 
8 -WORD 0 
9 a NDC 
10 ° 0 
11 WORD OVL.‘ONAME'*4 
12 IF NE ,OCNTS=LABLS 
\? ‘ioe ; OVERLAY NUMBER AND POSITION IN TABLE DO NOT MATCH 
15 OCNTS$ = OCNTS$+1 
16 -ENDM 
NY ; MESSAGE CONTROL TABLE MACRO 
20 ~MACRO MSG gat CMDSZ,RPLSZ, SUCCOM 
21 «WORD CMDBUF : ADDRESS OF COMMAND 
22 «WORD CMDSZ : SIZC OF COMMAND IN BYTES 
23 «WORD RPLSZ : SIZE OF REPLY IN WORDS 
eh «WORD SUCCOM : SUCCESSFUL wr rt | CODE 
25 WORD SDI$+U.SDI2 : RETRY COUNT OFFSET 
26 SDIS$ = SDI$+1 
27 -ENDM 
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SEQ 0614 
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SER DMACR X04.01 23-AUG-82 12:06:46 PAGE 13 SEQ 0615 
: PUSH REGISTER MACRO 


«MACRO PUSH R9 
~IRP X,<R9> 


) 
D 
1 
2 
3 
4 
5 MOV X,-(SP) 
6 -ENDR 

i -ENDM 

4 3 POP REGISTER MACRO 

1 

2 

3 

4 

5 


«MACRO POP R9 
~IRP X,<R9> 


-ENDR 
DM 


MOV (SP)+,X 


ee a a a ee ee 















UDATS 
MACRO 


"wm 
=z 
—rm 
Son ibend 
—rm 
Fs 


I 
S 


fT ee 
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NOD 8 2 St = 2 ot 2s od oe 


23 
24 


Se Se Fe Se Se Se Be Be Be 





F 16 


SER DMACR X04.01 23-AUG-82 12:06:46 PAGE 14 


PRIMARY ERROR REPORTING (TEST 4) 


-MACRO 
ERROR 
-ENDM 
-MACRO 
IF 
IF 
-IFF 
- ERROR 
-ENDC 


-ENDC 

IF 

IF 

- IFF 

-ERROR 

-ENDC 
FF 


-ENDC 

IF 

IF 

- IFF 

-ERROR 

-ENDC 
FF 


- ENDC 
IF 
IF 
-IFF 

- ERROR 
~ENDC 


-ENDC 


- ENDM 


-MACRO 
ERROR 


SOFTER NUM,ARGS 
ERSOF T ,NUM,<ARGS> 

MOV #ERRMES ,HRO.RQ 
REPSFT SFTFLG,ECCFG,SEKFLG,COMFLG 


IDN, SFTFLG, SOFT 
MOV #1,HRQ.02 


: NON SOFT ERROR FLAG IN SOFT ERROR POSITION 


CLR HRQ.02 


MOV #1,HRQ.03 
: NON ECC ERROR FLAG IN ECC ERROR POSITION 


CLR HRQ.03 
KFLG 
EKFLG, SEEK 


MOV #1,HRQ.04 
: NON SEEK ERROR FLAG IN SEEK ERROR POSITION 


CLR HRQ.04 
NB, COMFLG 
IDN, COMFLG, COMM 

MOV #1,HRQ.05 


+ NON COMMUMICATION ERROR FLAG IN COMMUNICATION ERROR POSITION 
CLR HRQ.05 


RO 
MOV U.UNUM(R5) ,RO 
ADD Buse) A 


MOV HRQ. 
MOV #T4SOFT.RO 
CALL §-HOSTRQ 

POP 


HARDER NUM,ARGS 
ERHARD ,NUM,<ARGS> 
#ERRMC ,HRQ.RO 





6 16 1 
UDATS DISK EXERCISER DMACR 04.01 23-AUG-82 12:06:46 PAGE 14-1 SEQ 0617 


DEFINITIONS 
38 ~ENDM 
60 -MACRO DEVFTL NUM,ARGS 
61 ERROR FTLDEV,NUM,<ARGS> 
62 MOV #ERRMC ,HRO.RO 
°° -ENDM 
65 -MACRO SYSFTL NUM,ARGS 
66 ERROR FTLSYS,NUM,<ARGS> 
67 MOV #ERRMC ,HRO.RO 
70 «MACRO ERROR TYPE,NUM,ARGS 
71 eRADIX 10 
72 NUMPTR = 
73 MOVMSG #ER‘NUM, 
74 IF NB ,<ARGS> 
75 - IRP X,<ARGS> 
76 MOVMSG X,\NUMPTR 
77 NUMPTR = NUMPTR + 1 
78 -ENDR 
79 -ENDC 
80 MOV #NUM! TYPE+4000. ,R2 
81 MOV R2,HRQ.02 
82 MOV = #. -HRO.01 | 
83 »RADIX 
Se ~ENDM 
86 -MACRO CERROR STNUM,ARGS 
87 RADIX 10 | 
88 NUMPTR = STNUM 
89 - IRP X, <ARGS> 
90 MOVMSG X,\NUMPTR 
91 NUMPTR = NUMPTR + 1 
92 -ENDR 
93 «RADIX 
-ENDM 
96 -MACRO ERRORC ARGS 
97 RADIX 10 
98 -IRP X, <ARGS> 
99 MOVMSG X,\NUMPTR 
100 NUMPTR = NUMPTR + 1 
101 -ENDR 
102 RADIX 
103 -ENDM 
104 
<4 -MACRO MOVMSG ARG, INDX 
107 IF LT, INDX-10 
108 MOV ARG,HRQ.0° INDX 
109 oIFF 
110 MOV ARG, HRQ. * INDX 
111 eENDC 
112 -ENDM 
113 
114 


~MACRO ENDERR POS 
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SER DMACR X04.01 23-AUG-82 12:06:46 PAGE 14-2 


10 
NB, POS 
POS 


\NUMPTR 


NDERR POS 
NE ,POS 
#SER22,POS 
LT,26. 


MOV #P0S+1,ERRPOS 


SEQ 0618 


: SET THE POSITION 


-POS 
s STATUS AT END OF ERROR MESSAGE WILL OVERFLOW HOST COMMUNICATION BUFFER 


REPORTING MACRO 
MSSG NUM, ARGS 


= NUMPTR + 1 


PUSH 
MOV 


CLR ERRPOS 


(RS 
U.SUBU(R5), 
RO 


MOV 
CALL HOSTRQ 
POP R 


: CLEAR THE POSITION 


),HRQ.01 
HRQ.01 


j 
| 
i 
| 
; 
| 
i 


i 


' 
j 


| 
| 





UDATS 
MACRO 


NUNN) 2 2 
FW 9 OOBNOUSWN $0 OONOUSWN— OS 


Ronmenonorn 
ODONOW 


SK 
FI 


sASSUME MACRO 
-MACRO 
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i — DMACR X04.01 23-AUG-82 12:06:46 PAGE 15 


oe P1,P2 


; =P 
ZERROR ; THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 


XOR THE CONTENTS OF TWO REGISTERS 


-MACRO RXOR REGT REGS 
MOV REG2,-(SP) 3 SAVE a ee REG2 


BIC REG1,REG2 CLEAR COORESPONDING BITS IN REG2 
BIC (SP)+,REG1 ; CLEAR COORE SPONDING ts IN REG1 
Oren REG1 ,REG2 ; OR WH LEFT 


CONVERT .BLKW CALLS TO ACTUAL WORDS GENERATED 
-MACRO .BLKW COUNT 
«REPT _— 


MASSIVE INLINE CODE MACROS NOT PRINTED 


SEQ 0619 
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UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 33 SEQ 0620 
START OF TEST CODE 


1 -SBTTL START OF TEST CODE 

4 sTHE FOLLOWING IS FOR DEBUG PURPOSES ONLY. CAN BE NOP OR BREAKPOINT. 
\¢ 001364 000000 -WORD 0 3 RESERVED LOCATION FOR UDAS2 DM ODT 
i s INITIALIZE STACK 

19 001365 104206 001416 MOV #STACK,SP ; SET UP STACK POINTER 

27 001367 BR START : BRANCH OVER SUPPORT CODE 

28 001367 000000 022654 “00,START 

$ STACK AREA 

31 001371 -BLKW 21. 7 STACK 

32 001416 123456 STACK: .WORD 123456 MARKER FOR STACK UNDERFLOW 
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a DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 34 SEQ 0621 | 
RTDS = REAL TIME DRIVE STATE ROUTINE WITH ERROR REPORTING (T 


Pt RTDS = REAL TIME DRIVE STATE ROUTINE WITH ERROR REPORTING (TEST 4) 


1 
2 001417 CALL RTDSL 3; GET REAL TIME DRIVE STATE 
001417 020000 001453 ‘926000, RTDSL 
3 001421 115002 Re 3; SEE IF ERROR OCCURRED 
4 001422 bea 1$ ; IF NOT, BRANCH 
001422 010000 001451 *010000,1$ 
5 001424 I 2 3; IF RECEIVE ERROR, BRANCH 
001424 070000 001433 *070000,2$ 
6 001426 CERROR 4,#ER17 ; REPORT NO CLOCKS ERROR MESSAGE 
001426 104200 001604 001601 MOV #ER17,HROQ.04 
7 001431 3$ ; BRANCH 
001431 000000 001436 *00,3$ 
8 001433 2$: CERROR 4,#ERI7A 3; REPORT RECEIVE ERRORS ERROR MESSAGE 
001433 104200 001634 001601 MOV #ER17A,HRQ.04 | 
9 001436 104200 044021 001577 3S: MOV #17. She elope HRQ.02 ; ERROR NUMBER SET 
10 001441 104200 001441 001576 MOV #.,HRQ.01 ADDRESS OF ERROR SET 
11 001444 104200 060014 001575 MOV #ERRMC, HRQ.RQ : DM REQUEST SET 
12 001447 ENDERR 0 
001447 114000 003013 CLR ERRPOS ; CLEAR THE POSITION 
13 001451 1$: RETURN 
‘. 001451 000000 000000 *00.0 
15 -SBTTL RTDSL = SAME AS RTDS BuT pode od A gy REPORTING | 
16 001453 104652 000025 RTDSL: rofl U.MASK(R5),R2 =; MOVE MA R2 
17 001455 aeetat 3; GET DRIVE STATUS 
001455 020000 001470 £056000, RDSTA 
18 001457 103201 077674 BIC #"CCRCVRDY !ATTN! AVAIL !RURDY> R1 ; CLEAR UNUSED BITS 
19 001461 115002 are R2 : TEST ST ATUS FoR ERROR 
20 001462 2$ 3; IF NO ERROR, BRANCH 
001462 010000 001466 2570000, 2$ 
21 001464 104201 177777 MOV #-1,R1 3; FLAG AS INVALID 
22 001466 2$: RETURN 
93 001466 000000 000000 *00.0 
24 -SBTTL RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 
$2 001470 RDSTAT: 
27 ;RETURN DRIVE STATUS 
$$ sSTATUS RETURNED IN DM REGISTER 1 
30 001470 PUSH RO 3; SAVE RO 
001470 100467 V RO,-(SP) 
31 001471 104207 024000 MOV #24000,R0 : MOVE 1/2 SECOND COUNT T9 "RO 
32 001473 060007 1$: XFC TATUS : GET REAL TIME DRIVE STATE 
33 001474 102201 000004 BIT #DCLOCK,R1 3; SEE IF DRIVE CLOCK IS PRESENT 
34 001476 BEQ : IF NOT, BRANCH 
001476 010000 001514 *010000,3$ 
35 001500 102201 000400 BIT #RCVERR,R1 ; SEE IF RECEIVE ERROR 
36 001502 BEQ 2s 3; IF NONE, BRANCH 
001502 010000 001513 py 10008. 2s 
37 001504 117407 ee RO ; DECREMENT COUNT 
38 001505 1$ : IF COUNT INCOMPLETE, BRANCH 
001505 050000 001473 2550000, 1$ 
39 001507 104202 177777 MOV #177777, R2 3: MARK AS RECEIVE ERROR 
40 001511 BR 3$ 3; BRANCH OVER ‘NO ERRORS‘ 
001511 000000 001514 *00,3$ 
41 001513 114002 2s: CLR R2 3; NO ERRORS 








UDATS DISK EXERCISER DMACR x04.01 ez-aue ee 12:06:46 PAGE 34-1 SEQ 0622 
RDSTAT = GET DRIVES REAL TIME DRIVE STATE 
42 001514 3$: POP RO ; RESTORE RO 
001514 104267 MOV (SP)+,RO 
43 001515 RETURN ; RETURN TO CALLING MODULE 
001515 000000 000000 “00,0 
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UDAT4 DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 35 
HSTTLK = TALK TO THE HOST CINTERRUPT THE HOST BEFORE 3 MIN) 


Saves? HSTTLK = TALK TO THE HOST (INTERRUPT THE HOST BEFORE 3 MIN) 


THIS ROUTINE INTERRUPTS THE HOST WITHOUT CONVEYING ANY USEFUL 
INFORMATION = ALL IT DOES IS SAY ‘I'M STILL ALIVE’ 


REPSFT ,,, 


CLR HRQ.02 
CLR HRQ. 
CLR HRQ. 


MOV_RO,=(SP) 


MOV U.UNUM(R5) ,RO 
ADD U.SUBU(R5) ,RO 
RO 01 


MOV #T4SOFT,R 
*020000,HOSTRA 0 


RETURN 
“00,0 


MOV (SP)+,R0 
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UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 36 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


BAU HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 


SEND REQUEST BUFFER TO HOST AND WAIT FOR RESPONSE. 
CLEAR ARGUMENT AREA OF OUT BUFFER IN PREPARATION 
FOR NEXT HOSTROQ CALL. 


INPUTS: 


SNDAGN: 


RO = HOST REQUEST NUMBER 
OUT BUFFER LOADED WITH DATA 


PUSH <RO,R1,R2> 


MOV RO,HRQ.RQ 


MOV #HRQ.RQ,RO 
MOV #BUFSIZ,R1 
XFC MRD 

TST 

BNE SNDAGN 
“050000, SNDAGN 

MOV #HRQ.RQ,RO 
MOV #BUFSIZ,R1 
XFC MWR 

MOV #-1,HRQ.RO 
PoP <R2,R1,R0> 


RETURN 
“00.0 


MOV RO,=(SP) 


STORE REQUEST NUMBER IN BUFFER 
SEND BUFFER TO HOST 
SIZE OF SEND BUFFER 


WAIT FOR RESPONSE FROM HOST 
SIZE OR RECEIVE BUFFER 
RECEIVE BUFFER 

MAKE REQUEST ILLEGAL 


MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,R0 


. 


SEQ 0624 


POON TS VARS Ae ALIA sae EE ri 
~— DISK EXERCISER DMAC® X04.01 23-AUG-82 12:06:46 PAGE 37 SEQ 0625 | 


HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


? sSTORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 

5 sHRQ BUFFER = DATA TO SEND/RECEIVE TO/FROM HOST 

5 001575 000000 HRQ.RQ: .WORD 0 sHOST REQUEST CODE 
6 001576 000000 HRQ.01: .WORD 0 sDATA ARGUMENT 1 
? 001577 000000 HRQ.02: .WORD 0 sDATA ARGUMENT ¢ 
8 001600 00000 HRQ.03: .WORD 0 sDATA ARGUMENT 

9 001601 000000 HRQ.04: .WORD 0 sDATA ARGUMENT 4 
10 001602 000000 HRQ.05: .WORD 0 zDATA ARGUMENT 5 
11 001603 000000 HRQ.06: .WORD 0 sDATA ARG 6 
12 001604 000000 HRQ.07: .WORD 0 sDATA ARGUMENT 7 
13 001605 000000 HRQ.08: .WORD 0 zDATA ARGUMENT 8 
14 001606 -09: .WORD 0 sDATA ARGUMENT 9 
15 001607 000000 HRQ.10: .WORD 0 ; ARGUMENT 10 
16 001610 000000 HRQ.11: .WORD 0 zDATA ARGUMENT 11 
17 001611 000000 HRQ.12: .WORD 0 sDATA ARGUMENT 12 
18 001612 000000 HRQ.13: .WORD 0 sDATA ARGUMENT 13 
19 001613 000000 HRQ.14: .WORD 0 sDATA ARGUMENT 14 
20 001614 000000 HRQ.15: .WORD 0 sDATA ARGUMENT 15 
21 901615 000000 HRQ.16: .WORD 0 sDATA ARGUMENT 16 
22 001616 000000 HRQ.17: .WORD 0 sDATA ARGUMENT 17 
23 001617 000000 HRQ.18: .WORD 0 zDATA ARGUMENT 18 
24 001620 000000 HRQ.19: .WORD 0 sDATA ARGUMENT 19 
25 001621 000000 HRQ.20: .WORD 0 zDATA ARGUMENT 20 
26 001622 000000 HRQ.21: .WORD 0 zDATA ARGUMENT 21 
27 001623 000000 HRQ.22: .WORD 0 sDATA ARGUMENT 22 
28 001624 000000 ee-art «WORD 8 DATA ARGUMENT 33 
29 001625 000000 RQ.24: .WORD sDATA ARGUMENT 24 
30 001626 000000 HRQ.25: .WORD 0 sDATA ARGUMENT 25 
31 001627 000000 HRQ.26: .WORD 0 zDATA ARGUMENT 26 
32 001630 000000 RQ.27: .WORD 0 zDATA ARG T 27 
33 001631 000000 HRQ.28: .WORD 0 sCATA ARGUMENT 28 
34 001632 000000 HRQ.29: .WORD 0 sDATA ARGUMENT 29 
35 001633 000000 HRQ.30: .WORD 0 sDATA ARGUMENT 30 
36 001634 000000 HRQ.31: .WORD 0 zDATA ARGUMENT 31 
37 001635 000060 HRC.32: .WORD 0 zDATA ARGUMENT 32 
38 001636 000000 HRQ.33: .WORD 0 sDATA ARGUMENT 33 
+4 001637 000000 HRQ.34: .WORD 0 :DATA ARGUMENT 34 
41 000043 BUFSIZ = - > HRQ.RQ :SIZE OF BUFFER 
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UDAT4 DISK EXERCISER DMACR x04. ¥ 23-AUG-82 12:06:46 PAGE 38 
CMPEDC = EDC CALCULATION ROUTIN 








CMPEDC = EDC CALCULATION ROUTINE 


THIS WILL COMPUTE THE EDC OF A SECTOR POINTED TO BY RO, RETURNING 


.SBTTL 
CMPEDC 
: THE VALUE IN R2 
‘ PUSH _— <R4&, R1,RO> 
MOV #256.,R1 
MOV #INTEDC,R2 
EDCLOP: MOV (RO)+,R4 
RXOR RG, 
MOV R2,-(SP) 
BIC R4,R2 
BIC (SP)+,R4 
BIS R4,R2 
ADD R2, 
BCC ZEREDC 
7040000, ZEREDC 
ZEREDC: DEC 


EDCLOP 
#950000, EDCLOP 
<RO,R1,R4> 


RETURN 
“00.0 


SAVE R1 AND RO AND R4 


COMPUTE OVER 256 WORDS 
ye Lh EDC VALUE TO R2 


RD 
EXCLUSIVE ster = WORD WITH THE CURRENT EDC VALUE 


SAVE REGIST 


MOV R4,-(SP) 
MOV R1,-(SP) 
MOV RO,=(SP) 


CLEAR COORESPONDING BITS IN R2 


CLEAR COORESPONDING BITS IN R4 
OR WHAT'S nd T 


; SHIFT R2 LEFT BY 1 
; IF THE HIGH BIT WAS CLEAR, BRANCH 


SET LO BIT 70 1 (OLD HI BIT) 
DECREMENT COUNT 


; IF COUNT UNEXPIRED, BRANCH 


RESTORE R1 AND RO AND R4 


MOV (SP)+,RO 
MOV (SP)+,R1 
MOV (SP)+,R4 











do 1 
UDAT4 DISK EXERCISER DMACR XO4.01 23-AUG~82 12:06:46 PAGE 39 SEQ 0627 | 
TALK = SDI LEVEL 2 INTERCHANGE ROUTINE | 


1 sSBTTL TALK = SDI LEVEL 2 INTERCHANGE ROUTINE 
¢ 001670 TALK: 
4 ; TALK SENDS THE COMMAND TO THE DRIVE. IF AN ERROR OCCURRS, R2 IS 
2 ; RETURNED NONZERO 
7 001670 PUSH <R4,R5> ; SAVE POINTER TO UNIT AND SUBUNIT PARAMETERS 
001670 100464 MOV R4,-(SP) 
001671 100465 MOV R5,-(SP) 
8 001672 104652 000025 MOV U.MASK(R5),R2 ; GET UNIT SDI SELECT MASK 
9 001674 104205 000001 MOV #1, 3 SEND TIMEOUT DEFAULT IS ONE 
10 001676 106203 002356 a “year : SEE IF ONLY TO BE SENT ONCE 
11 001700 ; IF SO, BRANCH 
001700 070000 001704 “970000. 
12 001702 104205 001750 HMAXSND, R5 3 SEND MAXIMUM NUMBER OF TIMES (ONLINE) 
13 001704 104137 1$: MOV (R3) RO. : POINTS TO SDI COMMAND BUFFER 
14 001705 ASSUME L2.0PC,0 
15 001705 104631 000001 MOV tee SLNGR), Ri ; LOAD BYTE COUNT 
16 001707 060004 XFC 3 SEND SDI COMMAND 
17 001710 115001 ‘i 3 SEE IF SDI COMMAND SENT SUCESSFULLY 
18 003711 BEQ 2$ : IF SO, BRANCH 
001711 010000 001741 *010000,2$ 
19 001713 117405 DEC R5 : DECREMENT TIMEOUT 
20 001714 BNE 1$ : IF UNEXPIRED, BRANCH 
001714 050000 001704 “050000, 1$ 
21 001716 POP R5 3 RESTORE R5S 
001716 104265 MOV (SP)+,R5 
22 001717 PUSH R3 3 SAVE SDI PACKET POINTER 
001717 100463 MOV R3,-(SP) 
23 001720 GOINIT : INIT THE DRIVE 
001720 020000 005106 ‘526000, GOINIT 
24 001722 SOF 70 ; REPORT 
001722 104200 004261 001601 MOV #ER70,HRQ.04 
001725 104202 147746 MOV #70' ERSOFT#4000. ,.R2 
001727 104020 001577 MOV Re. 2 
001731 104200 001731 001576 MOV Q.01 
001734 104200 001575 MOV PERRMES.HRO.RO 
25 003737 BR 11$ : BRANCH 
001737 000000 002166 “00,118 
26 001741 2s: ; RESTORE R5S 
001741 104265 MOV (SP)+,R5 
27 001742 104654 000033 MOV U.SDIS(RS),R4 |; R4 HAS SHORT TIMEOUT 
28 001744 106203 002414 = #LONG,R3 ; SEE IF LONG TIMEOUT TO BE USED 
29 001746 as : IF SO, BRANCH 
001746 030000 001752 *930000,4 
30 001750 104654 000034 U * SDILCRS), R4 ; R4& HAS LONG TIMEOUT 
31 001752 4$: PUSH R3 ; SAVE POINTER 
001752 100463 MOV R3,-(SP) 
32 00175 CA RTOS ; GET REAL TIME DRIVE STATUS 
001753 020000 001417 m 26000, RTOS 
33 001755 115002 R2 ; OK? 
34 001756 BO 5$ : IF SO, BRANCH 
001756 010000 001764 “ee 5$ 
35 001760 GORTAY : ELSE, RETRY 
001760 020000 005056 «056000, GCRTRY 
36 Oot es BRO 178 17$ ; AND BRANCH DUE TO ERROR 








54 002032 
002032 
55 002033 
002033 
56 002035 


110601 


000002 
000025 


002225 
000001 


002054 
001517 


001752 


001601 


001576 
001575 


001601 


5$: 


6$: 


7$: 


ee DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 39-1 
= SDI LEVEL 2 INTERCHANGE ROUTINE 


ROR R1 


“040000,6$ 
ASSUME RCVRDY,1 
SOFTER 77 


BR 11$ 
MOV #ST,RO 
MOV L2.RLN(R3),R1 
MOV U.MASK(R5) ,R2 
XFC CV 

TST R1 

EQ 


B 13$ 
*010000,13$ 
cMP #1,R1 
BNE 

eee “S 

CAL TLKHST 
“026000, — 
DEC 

BNE as 
*050000,4$ 
PUSH R3 
CALL 
*020 


GOI 
000,GOINIT 
SOFTER 71 


11$ 
#2,R1 
8$ 


“050000,8$ 
SOFTER 72 


BR 
“00,118 
MP 


BR 11$ 
“00,118 
CMP #4,R1 


BNE 
“050000, 9$ 
SOFTER 73 


1 


; FLAG AS ERROR 
MOV 


IS RCVRDY SET? 
IF NOT, BRANCH 


MOV #ER77,HRO.04 
MOV #77 |ERSOF T+4000. .R2 
MOV R2,HRQ.02 


MOV #. -HROQ 6 1 
#ERRMES ,HRQ.RQ 
END ERROR 
POINT TO with BUFFER 
NUMBER OF S_IN RESPONSE 
STORE MASK" I Re 


RECEIVE SDI RESP ONSE 
SEE IF SDI RESPONSE RECEIVED SUCESSFULLY 
IF SO, BRANCH 


SEE IF TIMEOUT 
IF NOT, BRANCH 


SAY "I'M ALIVE* TO THE HOST 
RESTORE R3 


DECREMENT TIMEOUT VALUE 
IF TIMEOUT UNEXPIRED, BRANCH 


SAVE R3 
INIT THE DRIVE 


MOV (SP)+,R3 


MOV R3,-(SP) 


#ER71,HRO.04 
MOV #71 ERSOFT+4000. .R2 
MOV Re tne 


#.,H RQ.01 
MOV #ERRMES ,HRQ.RQ 
BRANCH 


SEE IF FIRST WORD NOT START FRAME 
IF NOT, BRANCH 


REPORT FIRST WORD NOT START FRAME 
MOV #ER72,HRO.04 
MOV #72 'ERSOFT+4000. .R2 
MOV R2,HRQ.02 
#. .HRQ.01 
MOV #ERRMES ,HRO.RO 
BRANCH 


SEE IF FRAMING ERROR 
IF NOT, BRANCH 


REPORT FRAMING ERROR 
MOV #ER73,HRQ.04 


UDATS DISK EXERCISER DMACR x04.01 23-AUG-B2 12:06:46 PAGE 39-2 SEQ 0629 
TALK = SDI LEVEL 2 INTERCHANGE ROUTINE 
902106 104202 147751 MOV #73! ERSOFT+4000. ,R2 
002110 104020 001577 MOV R2,HRQ.02 
002112 104200 002112 001576 MOV #. .HRO.O1 
002115 104200 060013 001575 MOV #ERRMES ,HRO.RO 
65 002120 BR 11$ : BRANCH 
002120 000000 002166 “00,118 
66 002122 106201 000010 9$: CMP #10,R1 : SEE IF CHECKSUM ERROR 
67 002124 BNE 10$ : IF NOT, BRANCH 
002124 050000 002145 "050000, 10$ 
68 002126 SOFTER “74 : REPORT CHECKSUM ERROR 
002126 104200 004366 001601 MOV #ER74,HRO.04 
002131 104202 147752 MOV +741 ERSOF 124000. .R2 
002133 104020 001577 MOV R2,HRQ.02 
002135 104200 002135 001576 MOV . .HRO.01 
002340 104200 001575 MOV #ERRMES ,HRO.RO 
69 002143 BR 11$ : BRANCH 
002143 000000 002166 *00,11$ 
70 002145 106201 000020 10$: CMP #20,R1 ; SEE IF BUFFER TOO SMALL 
71 002147 BNE 12$ : IF NOT, BRANCH 
002147 050000 002176 050000, 128 
72 002151 ; REPORT BUFFER TO SMALL 
002151 104200 004413 001601 MOV #ER75,HRO.04 
002154 104202 147753 MOV #75 ‘ERSOFT+4000. .R2 
002156 104020 001577 MOV R2HRQ.02 
002160 104200 002160 001576 V #..HRO.01 
002163 104200 060013 001575 MOV aERRNES. HRO.ROQ 
73 002166 11$:  ENDERR 6 : FLAG END OF REPORTING BUFFER 
0021 104200 000051 001603 MOV #SER22,HRO.06 
002171 104200 000007 003013 MOV #6+1, ERRPOS : SET THE POSITION 
74 002174 BR 14$ : EXIT 
002174 000000 002271 “00,14$ 
75 002176 12$: HARDER 78 ; UNKNOWN ERROR RETURNED BY UDA 
002176 104200 004557 001601 MOV #ER78, HRO.04 
002201 104202 107756 MOV #78! ERHARD+4000. .R2 
002203 104020 001577 MOV R2HRQ.02 
002205 104200 002205 001576 MOV #.HRO.01 
002210 104200 060014 001575 MOV #ERRMC .HRO.RO 
76 002213 CERROR 6,R1 : REPORT ERROR 
002213 104010 001603 MOV HRQ.06 
77 002215 ENDERR 7 ; FLAG END OF REPORTING BUFFER 
002215 104200 000051 001604 #SER22,HRO.07 
002220 104200 000010 003013 MOV #7+1, ERRPOS : SET THE POSITION 
78 002223 BR 14$ : EXIT 
002223 000000 002271 “00,14$ 
79 002225 114002 13$: CLR R2 : FLAG AS NO ERROR OCCURED 
80 002226 106637 000003 CMP L2.ERS(R3),RO : SEE IF COMMAND ACCEPTED 
81 002230 BEQ 16$ : IF SO, BRANCH 
002230 010000 002314 010000, 16$ 
82 002232 SOF 76 : REPORT 
002232 104200 004444 001601 MOV #ER76,H 
002235 104202 147754 MOV a76‘eAso?fo4000. na 
002237 104020 001577 MOV 
002241 104¢ 002241 001576 MOV ae Waa “Oa 
002244 104200 060013 001575 MOV reaunes HRQ.ROQ 
83 002247 CERROR 6,<L2.ERS(R3),RO,#SER22> ; REPORT FURTHER, ERR 
002247 104630 000003 001603 L2. ERStR3), HRO.CS 
002252 104070 001604 MOV RO ARO. 0? 





ACR X04.01 23-AUG-82 12:06:46 PAGE 39-3 SEQ 0630 





UDATS DISK EXERCISER DM 
TALK = SDI LEVEL 2 INTERCHANGE ROUTINE 
002254 104200 000051 001605 MOV #SER22,HRO.08 
84 002257 104200 100011 003013 MOV #<VALID+11>,ERRPOS ; FLAG AS STATUS GOOD 
85 002262 106207 000175 CMP #UNSSUC, RO SEE IF UNSUCCESSFUL RESPONSE 
86 002264 14 : IF SO, BRANCH 
002264 010000 002271 8570000. 1 14$ 
87 002266 103200 100000 003013 BIC MVALID,ERRPOS ; GET STATUS FOR PRINTING 
88 002271 14$: CAL GORTRY : RETRY THIS COMMAND (MINIMUM) 
002271 020000 005056 «056000, CORTRY 
89 002273 POP R3 : RESTORE POINTER TO COMMAND 
002273 104263 MOV (SP)+,R3 
90 002274 104633 000004 MOV L2. EOF(R3),R3  ; GET SDI ERROR OFFSET 
91 002276 105053 ADD R5,R3 : POINT TO ERROR WORD 
92 002277 104134 MOV (R3) RG : GET ERROR COUNT 
93 002300 115404 INC RG : INCREMENT COUNT 
94 002301 106204 000002 CMP #2,R4 : SEE IF MAX 
95 002303 BCC 138 : IF NOT, BRANCH 
002303 040000 002311 “040000,1 
96 002305 103200 100000 001577 BIC peoDFTL. HRQ.02 ; CHANGE ERROR TO A DEVICE FATAL 
97 002310 114004 CLR 4 : IN CASE DROPS DISABLED, CLEAR ERROR COUNT 
98 002311 100134 15$: MOV R4, (R3) : SAVE COUNT 
99 002312 BR 17$ : EXIT 
002312 000000 002347 “00,17$ 
100 002314 16$: POP R3 : RESTORE POINTER TO COMMAND 
002314 104263 MOV (SP)+,R3 
101 002315 104633 000004 MOV L2.EOF(R3),R3  ; GET SDI ERROR OFFSET 
102 002317 105053 ADD R5_R3 : POINT TO ERROR WORD 
103 002320 104134 MOV Rasy R4 : GET ERROR COUNT 
104 002521 BEQ : IF NO RETRIES, BRANCH 
002321 010000 002347 =010000, 17$ 
105 002323 100132 R2, (R3) : ZERO RETRIES 
106 002324 REPSFT SOFT, ,,COMM : REPORT SOFT AND COMMUNICATION ERRORS 
002324 104200 000001 001577 MOV #1,HRQ.02 
002327 114000 001600 CLR HRQ.03 
002331 114000 001601 CLR HRQ.04 
002333 100467 MOV RO,-(SP) 
2334 104657 000063 MOV U.UNUM(R5) ,RO 
002336 105657 000050 ADD U. SUBUCRS), “RO 
2340 104070 001576 MOV RO,H 
002342 104207 060007 MOV aTASOFT RO 
002344 020000 001543 “020000, HOSTRO 
002346 104267 MOV (SP)+,RO 
107 002347 17$: POP RG : RESTORE R4 
104264 MOV (SP)+,R4 


108 002350 RETURN 
002350 000000 000000 “00,0 





UDAT4 DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 40 


SDI PROTOCOL MESSAGE TABLES AND RESPONSE BUFFER 


} .SBTTL 
? 3 MESSAGE TABLES 
5 000000 SDI$ = 0 
6 002352 CR.ONL: MSG ONL,2,7,COMPLT 
00235¢ 002440 -WORD ONL 
002353 000002 ‘ 2 
002354 0007 «WORD 7 
002355 000176 -WORD COMPLT 
002356 «WORD SDIS+U. Sol2 
002356 SNDONE PREV 
8 002357 CR.GST: MSG GST.1, “7, STSRES 
2357 002430 .WORD ‘GST 
002360 000001 WORD 1 
002361 00000 WORD 7 
002362 000366 -WORD STSRES 
002363 000036 -WOR SDI$+U.SDI2 
9 002364 CR.CLR: MSG DRC,2,7,COMPLT 
002364 002426 WORD DRC 
002365 000002 WORD 2 
002 060007 WORD 7 
2367 000176 WORD COMPLT 
002370 000037 WORD SDI$+U.SDI2 
10 902371 CR.MOD: MSG MOD,3,7,COMPLT 
002371 002424 -WORD MOD 
002372 00003 WORD 3 
002373 00000 WORD 7 
002374 000176 -WORD COMPLT 
002375 0 WORD SDI$*U.SDI2 
11 002376 CR.SEK: MSG INS, 6. 7,COMPLT 
002376 002432 -WORD INS 
002377 .WOPE 
002400 000007 WOkD 
002401 000176 -WORD  COMPLT 
002402 WORD SDI$*#U.SDI2 
12 002403 CR.ERR: MSG ERR,2,7,COMPLT 
002403 002436 -WORD ERR 
002404 000002 . WORD g 
002405 7 - WORD 
2406 000176 -WORD COMPLT 
002407 000042 WORD SDI$+U.SDI2 
13 002410 CR.DIS: MSG DIS,2,7,COMPLT 
002410 002422 WORD DIS 
002411 02 WORD 2 
002412 07 WORD 7 
002413 900176 -WORD COMPLT 
002414 «WORD SDIS+U. Sd12 
002414 LONG -1 
15 002415 CR.INR: MSG INR,i, r. compit 
002415 002431 -WORD INR 
002416 000001 , 
602417 0000: .WOR 
002420 000176 ORD 





SDI PROTOCOL MESSAGE TABLES AND RESPONSE BUFFER 


oW COMPLT 
WORD SDI$+U.SDI2 
= SOIS 


; DRIVE 


: oetee toe a oA NE a CODE 
RY COUNT 


RET OFFS 
v10us EPmatanys BE SENT TO AN OFFLINE DRIVE 


: GET 
3 ADDRESS OF COMMAND 
; SIZE OF COMMAND IN BYTES 
: SIZE OF REPLY IN WORDS 
. SUCCESSFUL COMPLETION CODE 
3. RETRY COUNT OFFSET 
CLEA AR 
: ADDRESS OF COMMAND 
; SIZE OF COMMAND IN BYTES 
: SIZC_OF REPLY IN WORDS 
3 SUCCESSFUL COMPLETION CODE 
3 RETRY COUNT OFFSET 
CHANGE _MODE 
, oon OF COMMAND 
: SIZE OF COMMAND IN BYTES 


SIZE OF REPLY IN WORDS 
: SuccessruL ar ort Se CODE 
RETRY COUNT OFFSET 


; INITIATE SEEK 


: ADDRESS OF COMMAND 
: SIZE OF COMMAND IN BYTES 
: SIZE OF REPLY IN WORDS 


ERROR RECOV 
ADDRESS OF C 
SIZ 


; E OF COMMAND IN BY 
: SIZE OF REPLY IN WORDS 


RE 
; DISCONNECT DRIVE 


: ADDRESS OF COMMAND 
3 SIZE OF COMMAND iN BYTES 
; SIZE OF REPLY IN WORDS 
: SUCCESSFUL COMPLETION CODE 


RETRY COUN 
COMMANDS BEYOND THIS POINT ARE LONG TIMEOUT 


INITIATE RECAL IBRAT 
3 ADDRESS OF COMMAND 
: SIZE OF COMMAND IN BYTES 
: SIZE OF REPLY IN WORDS 
: Succ ceSerUe COMPLETION CODE 
RETRY COUN) JFFSET 
; SAVE NUMBER OF LEVEL 2 SDI COMMANDS 


SEQ 0631 _— 


SOONAUSWN—O OC 
i=] 
o 


33 002437 
34 002440 
- 002441 


37 
38 002442 


-BYTE 
» WORD 





UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 40-1 
SDI PROTOCOL MESSAGE TABLES AND RESPONSE BUFFER 


1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 


LEVEL 2 COMMAND MESSAGE 


0,D1SCON 


es e+ 


=OOoQooooooooooo 


ov 
e 


_ 
oO 
a 


DATA STRUCTURES 


DISCONNECT DRIVE 
DO NOT SPIN DOWN DRIVE 
CHANGE MODE 


MODE 
DRIVE CLEAR 


GET STA 

INITIATE "RECALIGRATE 

INS CYLINDER/HEAD ARGUMENTS 
HI CYLINDER 


GROUP 
ERROR RECOVERY 


; ONLINE COMMAND 


TIMEOUT VALUE 


RESPONSE SUFFER 


SEQ 0632 | 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06: ate PAGE 41 
BLKCHK = SEE IF A BLOCK WITH ERROR IS KNOWN TO BE 


Py dhe BLKCHK = SEE IF A BLOCK WITH ERROR IS KNOWN TO BE BAD 


002465 


050000 
104641 


010000 
104202 
105072 


020000 


104617 
030000 
104207 
000000 
114007 
110607 


104267 
104261 


104262 — 


000000 


000046 
000200 


002523 
000012 


002523 
000003 
002536 
002527 
002515 


0 
177777 


002505 
000001 


002530 


000000 


3$: 


SEQ 0633 


BLKCHK CHECKS THE BLOCK IN U.LBN TO ASSURE THAT IT IS NOT A BAD 
BLOCK. IF SO, R2 IS RETURNED NONZERO 


PUSH <R2,R1,R0> 


MOV U.PARM(R5) ,R1 
BIT #RBNBN,R1 


BNE 1$ 
— 1$ 
$.BADP(R4) ,R1 


«030000, CMPD 

BEQ 

*010000,2$ 
1$ 


0 
ADD #2,R1 
MOV -1(R1),RO 


BPL 
“030000, 3$ 
MO 1 


RO 
RO 
POP <RO,R1,R2> 


RETURN 
“00,0 


SAVE ALL REG'S 
MOV R2,-(SP) 
MOV R1,-(SP) 
MOV RO,-(SP) 

GET UNIT PARAMETERS 

SEE IF ON RBN 

IF SO, UNKNOWN BAD BLOCK 


GET BAD BLOCK POINTER 
IF NO BAD BLOCKS, BRANCH 


POINT TO LBN TO BE TESTED 

POINT TO LON TO BE TESTED 

COMPARE BAD BLOCK TO LBN 

IF EQUAL, BRANCH 

IF LIST GREATER THAN BLOCK, IT'S OK 
POINT TO NEXT BAD BLOCK 

SEE IF EOL 

IF NOT, BRANCH 


SET UP FOR CARRY TO BE SET (UNKNOWN BAD BLOCK) 


SET UP FOR THE CARRY TO BE CLEAR (BAD BLOCK KNOWN) 


: SET CARRY TO REFLECT KNOWLEDGE OF BAD BLOCK 
: RESTORE 


MOV (SP)+,RO 

MOV (SP)+,R1 

MOV (SP)+,R2 
RETURN TO CALLING PROGRAM 


kK 1 


ay ee igi ee X04.01 23-AUG-82 12:06:46 PAGE 42 SEQ 0634 
1 -SBTTL CMP2 = 28 BIT COMPARE 
¢ 002536 CMP2: 
4 ; CMP2 COMPARES A 28 BIT NUMBER POINTED TO BY R2 TO A 28 BIT NUMBER 
5 : POINTED TO BY R1. BOTH NUMBERS ee LOW ORDER WORD Me BY HIGH 
6 ; WORD (POINTER TO LOW WORD) AND THE HIGH 4 BITS <31:28> OF THE 
7 ; WORD POINTED TO BY R1 ARE STRIPPED OFF (THIS 4 TO ELIMINATE THE 
: ; END-OF=LIST FLAG ON THE B/E SETS AND BAD BLOCKS) 
10 002536 104617 000001 MOV 1(R1) ,RO ; MOVE HIGH ORDER WORD TO RO 
11 002540 103207 170000 BIC #*CHBHINB,RO : CLEAR UNUSED BITS 
12 002542 106627 000001 cMP 1(R2),RO : COMPARE HIGH ORDER WORRD TO RO 
13 002544 BNE 1$ : IF UNEQUAL, BRANCH 
002544 050000 002550 “050000,1$ 
14 002546 104117 MOV (R1),RO ; MOVE LOW ORDER WORD TO RO 
15 002547 106127 CMP (R2) ,RO : COMPARE LOW ORDER WORD TO RO 
16 002550 1$: RETURN : RETURN TO CALLING PROGRAM 
002550 000000 000000 “00,0 


a ee 


S 
Nm 
uw 
wi 
Nm 


Sssoosessses 


2576 


WDOBNAULWN =O OCONOUSWwrR— 


ocooooo 
oooo 
Mronoror 





UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 43 
BULDUM = BUILD THE DUMMY SDI CONTROL BLOCK FOR READS AND WRITE 


bin nmi: BULDUM = BUILD THE DUMMY SDI CONTROL BLOCK FOR READS AND WRITES 


000000 
020000 


002567 


000006 


002773 


002774 
000000 


R2 
S.PARM(R4) ,R3 
#D R3 


2 ,R2 
2,DUMSD1+D.LIMT 
S$. SCHR(R4) RS 


#5,R3 
R3,DUMSDI+D.SCHR™ 


BULDUM WILL BUILD THE DUMMY SDI CONTROL BLOCK 


NO_RBN'S 

GET SUBUNIT PARAMETERS 
; EE IF co DIAGNOSTIC AREA 
; IF SO, BRANCH 


; GET ao yl —e 

; GET RBN'S/TRACK 

; CLEAR UNUSED BITS 

; GET SECTORS/TRACK 

; DOUSLE _SECTORS/TRACK FOR eg * _ LIMIT 


MOVE TO DUMMY SE 
3 R3 POINTS TO SUBUNIT CHARACTERISTICS 
; RS POINTS TO SUB fot 


; MOVE TO DU 
RETURN TO CALLING PROGRAM 


Y SUB CHAR POINTER 


- - eee hate docrcensicestianerestncnaneenicaaen 
ame DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 44 


= CALCULATE THE CYL, GRP AND TRACK FOR THE GIVEN L/RBN 


CALC 


002604 


MY] ae o woos 
CONAUEWN—OOD NOuewro— 
So o 
So 
Nm 
o 
= 
Ww 


oo 

ooo 
ooooo 

™ 

rs 


002730 
52 002732 


115007 
050000 


102201 
010000 


002746 


003002 
020000 
002705 


000200 
002662 
0 


170377 
002670 


002755 
002756 
002757 
002746 
0 


177400 
002762 


0 
002757 


-SBTTL CALC 
ALC: 


= CALCULATE THE CYL, GRP AND TRACK FOR THE GIVEN L/RBN 


¢ 
; CALC CALCULATES THE CYLINDER, GROUP, TRACK AND SECTOR OF THE BLOCK 
Ist : SEE If CALCULATION AREA MUST BE SET UP 
MOVOL'T ; IF NOT, BRANCH 
“950000, MOVOUT 
0,RBNFLG : SET RBN FLAG AS ZERO 
MOV S, SCHR CRED OR R3  ; 23 POINTS TO SUBUNIT’S CHARACTERISTICS 
MOV RBNTRK(R3).RO  : GET RBN'S PER TRACK 
BIC PHIBYTE +200" RO RO ; CLEAR UNUSED BITS 
ADD LBNTRK(R3),RO : ADD LBN'S PER TRACK 
BIC #HIBYTE , RO : CLEAR UNUSED BITS 
MOV RO,SCR1 : SAVE 
MOV (R4)R : GET SUBUNIT PARAMETERS 
ASSUME S.PARM,0 : ASSUME THAT S.PARM IS ZERO 
#OCYLS.RO : SEE IF USING THE DIAGNOSTIC CYLINDERS 
MOVDBN ; IF SO, BRANCH 
*050000,R 
LBNTRK (R3), RO ; MOVE LBN’S PER TRACK TO RO 
Bie #HIBYTE,RO- : CLEAR UNUSED BITS 
MOV U.PARM(R5),R1 = MOVE UNIT PARAMETERS TO RO 
BIT #RBNBN, : SEE IF BLOCK REVECTORED 
BEQ CYL : IF NOT, BRANCH 
“010000, tNCYE 
MOV NFLG : STORE LBN'S PER TRACK IN RBN FLAG AREA 
MOV RBNTRK (Ra) . RO : MOVE RBN'S PER TRACK TO 
BIC #177600, RO" ; CLEAR THE HIGHER BITS, LEAVING RBN'S/TRACK 
MOV RO,L : MOVE RBN'S PER TRACK TO CALCULATION AREA 
MOV NIRBNKRS) RO  : GET HI RBN 
BIC #HBLONB,RO : CLEAR UNUSED BITS 
rt! NCONT : BRANCH 
300. LNCONT 
LNCYL: MOV RO,LRDTRK : MOVE LBN'S PER TRACK TO CALCULATION AREA 
MOV HILBN(R3),RO  : GET H 
BIC #HBLONB,RO : CLEAR UNUSED BITS 
LNCONT: MOV RO,HIBN + SAVE 
CLR RO : LOW ORDER CYLINDER IS ZERO 
MOV RO, STAC : SAVE LO ORDER STARTING CYLINDER 
MOV HICYL ERS) RO =: RO CONTAINS HI CYLINDER BITS 
BIC #HBHINB,RO : CLEAR UNUSED BITS 
MOV RO,STACYL#1 : MOVE HI STARTING CYLINDER TO UNIT PARAMETERS 
BR ‘uh movouT + BRANCH 
MOVDBN: MOV UBNTRK(R3) RO MOVE NUMBER OF RBN'S PER TRACK TO RO 
BIC #177 CLEAR THE HIGHER BITS, LEAVING RBN'S/TRACK 


MOV LBNTRK(R3),R1 
BIC re HA oR1 


ADD RO 

MOV ,LROT 

MOV S.SDCL(R4) ,RO 
MOV 2 STAC 

MOV HICYL(R3) ,RO 
BIC HBHINB, 


NBR 
BIS $.SDCL+1(R4),RO 
MOV RO, STACYL#1 


ADD LBN'S/TRK, GIVING DBN*S/TRK 
CLEAR UNUSED BITS 

ADD LBNS/TAK, TO wrote TO GIVE DBNS/TRK 
SAVE DBNS/TRK IN COMPUTATIONAL AREA 

GET LO Oesen STARTING DIAGNOSTIC CYLINDER 
SAVE LO ORDER CYL 

GET HI CYLINDER BITS 


; CLEAR UNUSED 


BITS 
GET HI ORDER an DIAGNOSTIC CYLINDER 
SAVE HI ORDER C 


SEQ 0636 


rc--- 


———_——- 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 44-1 
CYL, GRP AND TRACK FOR THE GIVEN L/RBN 


HIDBN(R3) ,RO 
RO 


CALC 


= CALCULATE THE 


53 002734 
os 


060020 
000000 


000003 


170377 
5 


000000 


MOVOUT: 


RO 
RO 
R 


0 
#HBLONB ,RO 
RO,H 
#CALCSC,RO 


S$. SCHR(R4),R1 
vT 


; ROTATE TO CORREC 
; CLEAR UNUSED BITS 
SAVE 


POINT TO CALCULATION AREA 
POINT TO SUBUNIT CHAR TABLE 
CALCULATE 

RETURN TO CALLING PROGRAM 


SEQ 0637 


_ 


NOMINININIDR) to es 
UEWH SO OONAULSWWN—OVDONOu 


034245 
061453 


037777 


002766 





ERRPOS: 


CHA INS: 








UDAT4 DISK EXERCISER DMACR X04. iH 23-AUG=82 12:06:46 PAGE 45 
TEST 4 STORAGE AREA FOR VARIABLE 


: ~BLKW 


-BLKW 
-BLKW 





y iy # 4 STORAGE AREA FOR VARIABLES 


ee Nomr—nn — 


SEQ 0638 


; HI BN BITS <27:24> 
CALCULATION AREA FOR eye GRP, TRK 


CYLINDER 
GROUP 


; DUMMY SDI AREA 


; gyi CYLINDER NUMBER 
L/R/DBN 

; SECTORS PER TRACK 
RBN FLAG 


XFC READ AND WRITE WILL WRITE THE 
REVECTORED LBN IN THIS SPACE, 
OTHERWISE, USE IT FOR SCRATCH 


PATTERN NUMBER STORAGE AREA FOR ERRORS 
LAST eet NUMBER 


MASTER P 


LO ORDER RANDOM NUMBER SEED 


HI 0 


ORDER RANDOM 
UNEXPECTED ght yk. 
MEMORY POOL FOR 


NUMBER he 
UNIT DATASTRUCTURES 


+ RTDS AND STATUS POSITION 
3 *** NEXT WORD "REQUIRES BY UDA TO BE 18 _PAST ge SDI BLOCK START 
-WORD DUMSDI-4 POINTER 


REVECTOR INFORMATION 


U FOR LBN 
BELEIVE IT OR NOT, THIS WILL a THE REVECTORED LBN 


IN LOCATIONS DUMSD1+8 AND 


DUMSDI+9 


EG. DUMSDI+18. POINTS TO | SHORT OF WHERE TO PUT THE 


REVECTOR INFORMATION 


ah 
eS%e%e® 


; READ/WRITE CHAIN HEADER 
; MAXIMUM NUMBER OF 


BUFFERS THAT CAN BE READ 


; MAXIMUM NUMBER OF BUFFERS THAT CAN BE WRITTEN 
3 MAXIMUM NUMBER OF SECTORS THIS PASS 





IN. AWWWIRIPIPINPINININININN 2 9 OO Ot es os oe 


WWW 
SeSSRS ESET 
on N 


307. 


VOMMVIVIMNIUIUI ES BEARER OW 


UDAT4 DISK EXERCISER DMACR x04. 
DATA PATTERNS THAT WILL BE WRI 


177777 
000001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


01 
TTE 


23-AUG=82 12 
N TO THE DRIV 


-SBTTL 
PATPTR: 


PATO: 


PAT1: 
PAT2: 
PAT3: 


PAT4: 


— PAGE 46 


DATA PATTERNS THAT WILL BE WRITTEN TO THE DRIVE 
~WO PATO 


DATA PATTERNS (EDC OF PATTERN, 'ENGTH OF PATTERN IN WORDS, FOLLOWED BY PATTERN) 


3 POINTERS TO DATA PATTERNS 


177777 : DUMMY EDC 
: USER DEFINEABLE PATTERN 


SoSo9o>] O90 0 + $ “QCOCooooooooooo°ooo— 


15337 ; EDC FOR PATTERN 1 
: B*1000101110001011° 

05613 

10524 ; EDC FOR PATTERN 2 
31463 : B*0011001100110011° 
01747 ; EDC FOR PATTERN 3 
3088) 

35776 ; EDC FOR PATTERN 4 
6. : SHIFTING ONES 

00001 

00003 

00007 
000017 
000037 
000077 
000177 


— _--—-~ 
' 


' 


SEQ 0639 


on) 


UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 46-1 
DATA PATTERNS THAT WILL BE WRITTEN TO THE DRIVE 


58 003106 000777 -WORD 000777 

59 003107 001777 ~WORD 001777 

0 003110 003777 ~WORD 003777 
61 003111 007777 -WORD 007777 
6 Soa l¢ 017777 ~WORD 017777 
63 003113 037777 ~WORD 037777 
64 003114 077777 «WORD 077777 
65 003115 177777 WORD 177777 
66 003116 052420 PATS: .WORD 052420 : EDC_FOR PATTERN 5 
67 003117 000020 -WORD 16. ; SHIFTING ZEROS 

68 003120 177776 -WORD 177776 

69 003121 177774 WORD 177774 

70 003122 177770 WORD 177770 

71 003123 177760 WORD 177760 

72 003324 177740 «WORD 177740 

73 003125 177700 -WORD 177700 

74 003126 177600 WORD 177600 

5 003127 177400 WORD 177400 

76 003130 177000 «WORD 177000 

003131 176000 WORD 1760 
78 003132 174000 WORD 174000 
003133 170000 «WORD 1700 

80 003134 160000 -WORD 160000 
81 003135 14 WORD 1400 
82 003136 100000 -WORD 100000 

83 003137 0000 -WORD 000000 

84 003140 114734 PAT6: .WORD 114734 : EDC FOR PATTERN 6 
85 003141 000020 «WORD 16, ; ALTERNATING ZERO WORD AND ONE WORD IN 
86 003142 000000 «WORD 000000 3 3-2-1-1-1 SEQUENCE 
87 0031435 00 «WORD 000000 
88 003144 0 «WORD 000000 
89 003145 177777 WORD 177777 

90 0031 177777 WORD 177777 

91 003147 177777 WORD 177777 

92 003150 «WORD 000600 

93 003151 -WORD 000000 

94 003152 177777 eWORD 177777 

95 003153 177777 WORD 177777 

96 003154 000000 «WORD 000000 

97 003155 177777 WORD 177777 

98 003156 000000 -WORD 000000 

99 003157 177777 WORD 177777 
100 003160 000000 -WORD 000000 
101 003161 177777 WORD 177777 
102 003162 140753 PAT7:  .WORD 140753 : EDC FOR PATTERN 7 
103 003163 000001 WORD 1 : B°1011011011011001° 
104 003164 133331 WORD 133331 
105 003165 021147 PAT8: .WORD 021147 : EDC FOR PATTERN 8 
106 003166 000020 -WORD 16, : B°0101010101010101° AND 
107 003167 052525 «WORD 6253 5 : B°1010101010101010° 
108 003170 052525 WORD 052525 : IN 3-2-1-1-1 SEQURNCE 
109 003171 052525 WORD 0 $3 5 
110 HEL 1S2S2 -WORD 1 - 
111 003173 12525 WORD 12525 
16 003174 Ae3¢3 - WORD 3 5 
113 003175 625 2 WORD 0 § § 
114 003176 052525 ~WORD 052525 





SEQ 0641 | 


UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 46-2 


DATA PATTERNS THAT WILL BE WRITTEN TO THE DRIVE 


a 
2 
= w 
vu 
eS ee Z@ 2 
oS Oor-Ow -o ww ~~ 
oOo -—O- 23 -<-_ =— — 
2z- 2-Su 25 2 z 
- - 
eo e£o-m c- =< <= 
we we we w w 
e-—_—- -Orr -o - be 
- -on— _ 
axe ace ao aw ag 
o -o- - es ws 
e-- eo e- «oO s~ 
o- O04rw oo oo 
uO ueroO il “eer ww to 
_ orm _- J a 
VE —- UO Leo wat ea 
Qe Qe-r72 Qe a= a= 
wa wa 
ee*e 


NNMANMNANMNNO FTO OMMAUCUINMNMNANNMAMOAMNO OK —wrooo ~ OnMrr 
MMUMNNNANINO OR RAMMAUNAMMNACMNAMNANN=— Oe SoSeansooSeesses Ss Tr RR OW 
MMNNANANINS WNT OOD RK KK OOK K ORK OK ORM OO COCOCOCOCOCOOCORK NY? - KL 
NUMAN NMANST OR OOIKININNMNCUNNNCNAMNOnNn CO SSsSssssss Seco SOMO. KLR. 
KOK OKO Or KK O- OOOrK KK OOK O-Oe- Or - COOK COOSCOCOOooOOoO SOOoooCe errr ee-— 


NANNOAINUNANS & TMOOMMN NNN NNN CUCM CIN CUNWOe 
MMNTCUMTCUN CUN DOWN R CUNNNCUICKUICKUN NOUININ ANCA 
MNAINAINGIN -— OMT -—n— wn On On Orem 
Sala ala) ala DER QNNAMNMNM ANNUM CIN ONAL 
-rOr-Oor Or -—OOo°C°oCOe eK K-COCerr Or On Oorr 


236 066666 
3237 046211 
3240 000020 


ROMKNMSNOROK-MSNOROK-AIMsNHoOROKnM aH 
DOOD OOO ee NINA RIAA CaS 


m MAMMA MAMMA AM 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS SS8SSSSSSSSSSSSS 


FE NNN NINN MMMM MMMM MM FFT TT TTT TOAMNMNANNAANNOOOOOOOO 
LLL LLL LL EES ESE SESE EK = 








SEQ 0642 


UDATS DISK EXERCISER DMACR X04.01 23=AUG=82 12:06:46 PAGE 46-3 


DATA PATTERNS THAT WILL BE WRITTEN TO THE DRIVE 


* MAKE TEST 4 FORMATTER 
COMPATIBLE 


* PATT_RNS 14 AND 15 


woOOoerwOodoe 


5677 
5 
3 
5 
2 
5 
3 
6 


RRR OMMR AN MMMM mmo 
EK KOK MK KK OM — OO 


ww wo 

_ - 

= _ 

<x <= 

a a 
9 a Ne NS NE NE ES Ae tte 
MEAL OMMON val aA 
ONMELLLKRLR OCOMMNTOMM 
RR OMMEALKLANOMMMNOOMM 
RRR OMOMRVNOMMNMOWN 
Cr SPP KK KKK OK Ore K- COO- 
Sr nrryrecr -—OMm BO tere 
ARR OOCOO woe erere= 
NAUUNCINIAICUM MMM MMMM 
SOARS RRR Rainn 


SSSSSSSSSSESSSSSSSESE 


NOR RRRR Swed womwoOR Oe 


OO 


ee CS -- -..- -  - +  -- C= - 


sessssseseee2 


35 003333 


102201 
010000 
020000 
104657 
030000 
104203 
020000 
114007 


000000 
115407 
106207 
050000 
115000 
030000 
103200 


000000 
104207 


020000 
060021 


037705 


000046 
003352 
003006 
003335 
040000 
003352 


003375 
000046 


003347 
002410 
001670 


003320 
000004 


003320 
003006 


003370 
100000 


003315 
060016 


001543 


003006 


~SBTTL 
ROOT: 


ROOTLP: 


1$: 


2$: 


NOUNIT: 


STOP: 


a DISK EXERCISER DMACR x04. | af 12:06:46 PAGE 47 
= MAIN DRIVING MODULE OF T 


1 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
34 


ROOT 
ork eran 
MOV (R5) ,R5 

A «NEXT,O 

MOV U.PARM(RS) ,R1 
BMI NOUNI 
“070000 ,NOUNIT 
ASSUME DROP,100000 
TS M.PARM 


wn 
wn 
$ 
m 
Sc 


R 
“Y,PARA(RS) RO 


BPL 
“030000,2$ 

ASSUME DROP,100000 
7. #CR oR3 


TALK 
‘00000, TALK 


ROOTLP 
“oo, wet 


2STOP 
IWIPRG, 100000 
BIC A ae acta 


Q 
“026000, 54} ie 


- MAIN DRIVING MODULE OF 





SEQ 0643 


TEST 4 


; ASSUME IWIPR 


R5 POINTS TO FIRST UNIT TO BE TESTED 
COUNT OF DROPPED UNITS IS SET TO ZERO 
R5 POINTS TO NEXT UNIT IN CHAIN 


GET UNIT PARAMETERS 
IF UNIT DROPPED, BRANCH 


; ASSUME DROP IS SIGN BIT 


SEE IF IN PROCESS OF INITIAL WRITE 
IF NOT, BRANCH 


ASSUME IWIPRG IS § 
SEE IF THIS UNIT I 
IF NOT, BRANCH 


IGN BIT 
S BEING INITALLY WRITTEN 


; CALL SEQUENCER 


; SEE IF JUST DROPPED 
; IF NOT, BRANCH 


POINT TO DISCONNECT 
SEND 


COUNT OF DROPPED UNITS IS SET TO ZERO 
BRANCH TO BOTTOM OF ROOT 


INCREMENT COUNT OF DROPPED UNITS 
SEE IF FOUR (ALL) UNITS HAVE BEEN DROPPED 
IF NOT, BRANCH 


SEE IF INITIAL WRITE WAS IN PROGRESS 
IF NOT, END TEST4 

GIsSs 
CLEAR INITIAL WRIT 
NOW START TESTING 


; MOVE DONE TO HOST COMMUNICATION AREA 
; SENT DONE MESSAGE TO HOST 


EXIT DIAGNOSTIC MACHINE MODE 





H 2 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 48 SEQ 0644 


SEQNCR = OVERLAY DRIVER FOR TEST 4 

1 

2 003375 

3 

4 

5 

6 

7 

9 
10 003375 104657 000013 
11 003377 


Be Se Se Ge Se te Se Ce 
mm 


SEQLP: 


cork SEQNCR = OVERLAY DRIVER FOR TEST 4 


SEQUENCER corks THE VARIOUS MODULES, USING THE ADDRESS RETURNED 
IN RO BY THE PREVIOUS MODULE. RO HOLDS THE NEXT ADDRESS TO VECTOR 
TO. IF R1 IS geno. AN IMMIDATE CALL IS MADE TO THE NEXT ROUTINE. 
IF Re IS NONZERO, AN ERROR WAS ENCOUNTERED, AND THE ERROR COUNT IS 
INCREMENTED. THE ERROR IS THEN REPORTED TO THE HOST. 


MOV U.NFUN(R5),RO ; LOAD RO WITH NEXT FUNCTION ADDRESS 


Pn) 


No YOCONOUFwr— 


003377 
003377 
10 003400 
11 003402 
12 003404 
003404 
13 003406 
003406 
14 003410 
15 003412 
16 003414 
17 003415 
18 003416 
19 003416 
20 003417 
21 003421 
22 003423 
23 003425 
24 003426 
Fak 43 
25 0034 
26 003431 
27 003431 
003431 
28 003433 
29 003433 
30 003435 
003435 
31 003437 
32 003437 
33 003441 
003441 
34 003443 
35 003444 
36 003446 
003446 
37 003450 
003450 
38 003452 
39 003454 
40 003455 
41 003456 
003460 


100467 
104657 
102207 
010000 


no) — — 


=o 


RS & 


—O 


eoce8 


| 
essa 
SERS 

OuUme 
NNN 


NM 
Wronrnn ~N 


3 


w 
Ww 


000046 
001000 
003504 


005066 
015610 
000046 


000024 
000021 
000023 


003443 


003443 
003006 
003452 
040000 
003452 
000003 
003425 


003700 
000050 





UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 49 
DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UNIT 


ser DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UNIT 


11$: 


12$: 


13$: 








DROP TEST MAKES SURE AT LEAST ONE ACTIVE age IS ACTIVE ate THE UNIT 
IF SO, R4 POINTS TO SUBUNIT PARAMETER BLOCK SUBU_IS ATED TO 

THE SUBUNIT OFFSET, AND R3 IS RETURNED POSITIV IVE. IF NOT, R3 IS 
RETURNED NEGATIVE AND THE ENTIRE UNIT IS DROPPED 


PUSH RO ; SAVE NEXT MODULE ADDRESS 
MOV U.PARM(RS),RO ; GET UNIT PARAMETERS 
BIT #FTIME, ; SEE IF FIRST TIME THROUGH 
se 3 IF NOT, BRANCH 
ee 1$ 
GOSEEK : IF FIRST TIME, FORCE A SEEK 
“026000, GOSEEK 


mt sa oRO 


MOV RO,=(SP) 


RO,U.PARM 
MOV R5,RO ; RO WILL POINT AT SUBUNIT POINTERS 
INC RO : RO POINTS AT SUBUNIT POINTERS 


; TO 4 SUBUNITS ON THIS UNIT 
C(RS) =; VERO ALL TRACK COUNTS SO THE TEST AT THE 
MOV R2,U.NSEC(RS)  ; BEGINNING OF SETUP IS SATISIFIED SO CONTROL 
C(R5) 5 DROPS Me Fa TO SETUP THE NEXT OPERATION 
: GET SUBUNIT POINTER 

: IF NO SUBUNIT, BRANCH 
07 70000, 138 


(R3) ,R3 : GET SUBUNIT PARAMETERS 
ASSUME §.PARM,0 ; ASSUME THAT S.PARM IS ZERO 
BMI : IF DROPPED, BRANCH 
*070000,12 


$ 
ASSUME DROP,100000 3 ASSUME DROP IS SIGN BIT 
TST M.PARM ; SEE IF INTIIAL WRITE IN PROGRESS 
BPL 1 : IF NOT, BRANCH 
*030000,13$ 


ASSUME eran’ 100000 ; ASSUME IWIPRG IS SIGN BIT 
BIT #INITW,RS : SEE IF THIS SUBUNIT IS TO BE INITIALLY WRITTEN 


BNE 13 : IF SC, BRANCH 
“050000, 13$ 
INC R : INCREMENT COUNT 
CMP #3,R2 : SEE IF COUNT EXHAUSTED 
BPL 11 : IF NOT, BRANCH 
“030000,11$ 
a 4s 4$ : IF SO, DROP ENTIRE UNIT 
MOV R2,U.SUBUCRS) ; SAVE oer ty OFFSET 
MOV R2,R4 : MOVE TO SUBUNIT POINTER REGISTER 
ADD R5 ,R4 3 ADD UNIT POINTER 
ADD #U.SUBP,R4 : ADD SUBUNIT a ay OF FSET 
rf (R4) RG : R4_NOW POINTS TO SUBUNIT 

pe tove : SET UP UNIT FOR RUNNING 


“926000. 
AERRASK! SEKREO, RO ; DISABLE pe coven’ . FORCE A SEEK 
MOV ROU U.RCOVC(RS) SAVE IN RECOVERY WORD 

MOV ANUML SS. RO ; GET NUMBER OF LEVEL 2 COMMANDS 
MOV R5,R1 : R1 POINTS TO UNI! PARAMETERS 


SEQ 0645 


2c 


UDATS DISK EXERCISER DMACR X04.01 23=AUG=82 12:06:46 PAGE 49-1 
DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UNIT 


SEQ 0646 





48 003472 105201 000035 ADD #U.S012,R1 : Ri POINTS TO SDI LEVEL 2 ERROR COUNT AREA 
49 003474 114002 CLR R : SET UP TO CLEAR AREA 
50 003475 100212 148: MO R2,(R1)+ 3 CLEAR 
51 003476 117407 DEC RO : DECREMENT COUNT 
52 00347 BNE 14$ : IF INCOMPLETE, BRANCH 
003477 050000 003475 “050000, 14$ 
53 003501 114003 CLR R3 : PROCESS THIS UNIT 
54 003502 BR 5$ : EXIT 
003502 000000 003706 “00,5$ 
55 0035 104054 1$: MOV R5,R4 3 GET POINTER TO UNIT DATASTRUCTURE 
56 003505 115404 INC R4 + POINT AT SUBUNIT POINTERS 
57 003506 ASSUME U.SUBP,1 
58 003506 105654 000050 ADD U.SUBU(RS),.R4 ; R4 POINTS at SPECIFIC SUBUNIT POINTER 
59 003510 104144 MOV (R4) ,R4 : R4 POINTS AT SUBUNIT PARAMETERS 
60 003511 BMI : NO SUBUNIT. (SOMETIMES HAPPENS IN INITIALIZATION) 
003511 07 003577 “070000,25$ 
61 003513 104141 MOV (R4),R1 3 GET SUBUNIT PARAMETERS 
62 003514 ASSUME S.PARM,0 3 ASSUME THAT S.PARM IS ZERO 
63 003514 102207 004000 BIT #NEWSUB,RO : SEE IF SUPPOSED TO GO TO NEXT SUBUNIT 
64 003516 BEQ : IF NOT, BRANCH 
003516 010000 003567 “010000, ~ 
65 003520 103207 004000 BIC #NEWSUB , RO 3 CLEAR NEWSUG BIT 
66 003522 100657 000046 MOV RO,U.PARM(RS) ; SAVE 
67 003524 114002 CLR R2 3 FOR CEARING FOLLOWING WORDS 
68 003525 100652 000024 MOV R2,U.CSEC(R5) ; ZERO ALL TRACK COUNTS SO THE TEST AT THE 
69 003527 100652 000021 MOV 2,U.NSEC(RS)  ; BEGINNING OF se IS SATISIFIED SO CONTROL 
70 003531 100652 000023 MOV 2,U.TSEC(RS) ; DROPS THROUGH TO SETUP THE NEXT OPERATION 
71 003533 115000 003006 ist M.PARM : SEE IF INITIAL URITE IS IN PROGRESS 
72 003535 $ : IF NOT, BRANCH 
003535 030000 003573 2050000, es 
73 003537 ASSUME IWIPRG, pecans 3 ASSUME IWIPRG IS SIGN BIT 
74 003537 103201 040000 BIC #INITW,R1 : CLEAR INITIAL WRITE BIT 
75 003541 100141 MOV R1,(R4 3 SAVE 
76 003542 ASSUME $.PARM,0 3 ASSUME THAT S.PARM IS ZERO 
77 003542 MSSG 1 : REPORT INITIAL WRITE yt ght 
003542 104200 005527 001577 MOV #MS1,HRQ.02 
003545 100467 MOV RO,-(SP) 
003546 104650 000063 001576 MOV U. rei it HRQ.01 
003551 105650 000050 001576 ADD U. SUBUC(RS) ,HRQ.01 
003554 104207 060C15 MOV #HESSA G.RO- 
003556 020000 001543 *020000,HOSTRQ 
003560 104267 MOV (SP)+,RO 
78 003561 104652 000050 U.SUBU(R5),R2 ; GET ACTIVE SUBUNIT POINTER 
003563 CHKUP ; SEE IF ANY MORE UNITS TO INITIAL WRITE 
003563 020000 004756 «026000, CHKUP 
80 003565 BR 5$ ; BRANCH 
003565 000000 003706 *00,5$ 
003567 11.003 6$: CLR R3 : IF ACTIVE, es TO PROCESS 
82 003570 115001 TST R1 ; SEE IF UNIT ACTIVE 
83 003571 BPL : IF ACTIVE, BRANCH 
0035 030000 003714 “030000, 
84 00357 ASSUME DROP,100000 3 ASSUME DROP IS SIGN BIT 
85 003573 102201 040100 2$: BIT #SEQSEK!INITW, R1 + SEE IF SEQUENTIAL SEEKS 
86 003575 BNE 10$ ; IF SG, BRANCH 
003575 050000 003644 “050000, 10$ 
87 2 RNDSUB 


DRPTST = 


3 oo0001 
> 000050 
5 000003 
003614 


82 
° 
So 


RRA OO 


003624 


NRIDR et = 
NN NNOUSw 


030000 003637 
117407 


Bees 
UMN 


003606 
000046 
100000 


wr 
aw 


104653 
101203 
100653 


SSsssssseososss 


BEES 


000000 003706 
100652 000050 
114003 

000000 003706 
104652 000050 
102207 010000 
050000 003666 


020000 004756 
115007 


010000 003706 
020000 004721 
122 003661 115007 

123 003662 

010000 003706 
000000 003700 
020000 004721 


ae 


sesseses 
ay 
OoOOen 


Se ee | o oo 


sss 
eee 
MNOS 


S 3 
sssss 
Sa 
Nui ss 


003662 
124 003664 
003664 
125 ooeene 


126 003670 115007 
127 003671 


003671 

128 003673 

73 020000 

129 003675 115007 
130 003676 


010000 003706 
004756 


558: 


21$: 


228: 


23$: 


248: 


10$: 


3$: 





UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 49-2 


SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UNIT 
GET NEXT SUBUNIT TO CHECK 


; SUBUNIT COUNT 

; R3 WILL 4g TO SUBUNIT POINTERS 
; R3 POINTS TO SUBUNIT POINTERS 

; R2 IS gl NUMBER 


; GO TO NEXT UNIT 
; SEE IF GREATER THAN 3 
; IF NOT, BRANCH 


#4 ,RO 
MOV " -$ BP,R3 
MOV U. SUBUCRS) ,R2 


INC 

CMP #3,R2 
BPL 2 
es 
CLR R2 

MOV R3,R4 
ADD R2.R4 
MOV (R4) RG 
BMI 23$ 
*070000,23$ 

MO (R4),R1 


ASSUME $.PARM,0 
BPL 24$ 
> nea “ene 
21 : 
“50000, 21$ 
ss PARM(RS) ,R3 
MOV a3. .U.PARM(RS) 


R2,U.SUBU(R5) 
R3 

5$ 
U.SUBUC(R5S) ,R2 
#DIREC,RO 


Pp 
“026000, —— 


BO 5$ 
1 eee 5$ 
CAL CHKDN 
“026000, or 


5$ 
=510000,88 
BR 4$ 


CALL CHKON 
“020000, -CHKON 


BO 5$ 
ure 5$ 


CHKUP 
‘020000, ESOP 
BO 5$ 





SEQ 0647 


RANDOMLY 


NOW ON S 


; UBUNIT 0 
; R4 POINTS TO SUBUNIT POINTERS 


R4 NOW POINTS TO A SPECIFIC SUBUNIT POINTER 


; ° NOW POINTS TO SUBUNIT PARAMETERS 


F NO SUBUNIT, BRANCH 
GET SUBUNIT PARAMETERS 


3 ASSUME THAT S.PARM IS ZERO 
; IF ACTIVE, BRANCH 


3 DECREMENT COUNT 
; IF INCOMPLETE, BRANCH 


; GET UNIT PARAMETERS 
; oa OP BIT 


; EXIT 


SAVE SUBUNIT NUMBER 
Hae THIS SUBUNIT IMMIDATELY 


: R2_IS SUBUNIT NUMBER (0-3) 
: i IF GOING UP OR DOWN 


F DOWN, BRANCH 


; FIND NEXT UPPER SUBUNIT 
; FIND ONE? 

; IF SO, BRANCH 

; SEARCH DOWN FOR ONE 

; FIND ONE? 

; IF SO, BRANCH 

; DROP UNIT 

; LOOK DOWN FOR SUBUNIT 
; FIND ONE? 

; IF SO, BRANCH 

; LOOK UP FOR ONE 


FIND ONE? 
IF SO, BRANCH 


oc 





UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 49-3 SEQ 0648 
DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UNIT 
003676 010000 003706 *010000,5$ 
131 003700 104653 000046 4$: MOV U.PARM(RS),R3  ; GET UNIT PARAMETERS 
132 003702 101203 100000 BIS #DROP,R 3 DROP UNIT 
133 0037 100653 000046 MOV R3,U.PARM(RS) ; SAVE 
134 0037 115003 5$: TST R3 ; SEE IF THIS SUBUNIT TO BE TESTED 
135 003707 BNE Rs ; IF NOT, BRANCH 
003707 050000 003714 “050000,7$ 
136 003711 104200 177777 003002 MOV #-1,SCR1 3 FLAG AS NEW SUBUNIT 
137 003714 7$: POP RO ; RESTORE RO 
003714 104267 MOV (SP)+,RO 
138 003715 115003 TST R3 : SEE IF ACTIVE SUBUNIT EXISTS 
139 003716 BNE NOSUB ; IF SO, BRANCH 
003716 050000 004501 “050000 ,NOSUB 
140 003720 104070 003005 MOV RO,LSTOVL : SAVE THIS OVERLAY NUMBER 





UDAT4 DISK EXERCISER DMACR X04.01 23=AUG-82 12:06:46 PAGE 50 


DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UNIT 


43 003722 104652 000047 GO41T: MOV 
44 003724 BMI 
724 070000 003743 “070000,2 


26 020000 001417 
47 003730 115002 


48 003731 BNE 1$ 
003731 050000 003737 “050000, 1$ 


49 003733 102201 000102 BIT 
50 003735 B 
003735 010000 003743 “010000,2$ 
51 003737 1$: 
3737 020000 005056 


00 
$2 003741 
0 000000 003746 


03741 “00. JMPRET 
53 003743 2$: 


eee Ce 


U.RCOV(RS) ,R2 
es 


.e$ 
ASSUME ERMASK,100060 
CAL RT 
*020000,RTDS 
TST R2 


"PAVAIL!ATTIN,R1 


CALL GORTRY 
“020000,GORTRY 
JMPRE 


SEQ 0649 
GET ERROR RECOVERY WORD 
IF NO RECOVERY, BRANCH 


ASSUME ERMASK SIGN BIT 
BEFORE OPERATION, SEE IF ONLINE 


SEE IF ERROR OCCURRED 
IF BRANCH 


SEE IF AVAILABLE OR ATTENTION ASSERTED 
IF NOT, BRANCH 


RETRY THIS MODULE 
RECOVER 


mc 


es SS ary Rie aeismrenoe - 
a DISK EXERCISER DMACR X04.01_ 23-AUG-82 12:06:46 PAGE 51 
JMPRET = THIS IS THE LOCATION THAT VECTORS TO/FROM ALL OVERLAY 


1 -SBTTL og - THIS IS THE cone THAT VECTORS TO/FROM ALL OVERLAYS 
2 003743 PuS RO PUSH THE BRANCH ADDRESS ONTO THE STACK 
003743 100467 MOV RO,-(SP) 
3 003744 RETURN ; VECTOR TO MODULE 
003744 000000 000000 “00,0 


4 003746 JMPRET: 


a ee ie 


SEQ 0650 


ac 


a re SE —— = = = > ] 
B 3 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 52 SEQ 0651 | U 
CORECT = CORRECT THE ERRORS | . 
1 ~SBTTL CORECT = CORRECT THE ERRORS 
¢ :CORECT 
: ; CORRECT THE ERRORS AND RECOVER 
6 003746 Fo PUSH  <R1,RO> 3 SAVE NEXT OVERLAY AND CALL TYPE 
003746 100461 MOV R1,=(SP) 
003747 100467 MOV RO,=(SP) 
7 003750 114000 003011 CLR ERMODE : CLEAR ERROR MODES 
8 003752 115002 TST R2 ; SEE IF ERROR OR MBYTE REPORT | 
9 00375 BNE 5$ : IF SO, BRANCH 
003753 050000 004060 *050000,5$ 
10 003755 104652 000047 MOV U.RCOV(RS),R2 =; GET ERROR RECOVERY WORD | 
11 003757 BM ; IF RECOVERY DISABLED, BRANCH | 
003757 070000 004474 “070000, 90$ 
12 003761 ASSUME ERMASK,100000 ; ASSUME RECOVERY MASK IS SIGN BIT 
13 003761 CALL _‘RTDS 3 GET REAL TIME DRIVE STATE | 
003761 020000 001417 7920000, RIDS 
14 003763 115002 | R2 : SEE IF ERROR OCCURRED | 
15 003764 70$ 3 IF SO, REPORT 
003764 050000 004115 #950000, 70$ | 
16 003766 102201 000100 #AVAIL,R1 3 SEE IF AVAILABLE ASSERTED | 
17 003776 BeQ 2$ : IF NOT, BRANCH | 
003770 010000 004024 010000, 2s 
18 003772 102201 000002 Bit #ATTN,R1 : SEE IF SPINABLE 
19 003774 BNE 1$ 3 IF SO, BRANCH 
003774 050000 004017 “050000, 1s 
20 003776 DEVFTL 13 : REPORT UNSPINABLE DRIVE 
003776 104200 001406 001601 MOV #ER13,HRO.04 
004001 104202 047655 MOV #15! F TLDEVS4000. .R2 
004003 104020 001577 MOV R2,HRO.02 
004005 104200 004005 001576 MOV #..HRQ.01 
004010 104200 060014 00157 MOV #ERRMC ,HRO.ROQ | 
21 004013 ENDERR 0 | 
004013 114000 003013 CLR ERRPOS : CLEAR THE POSITION 
22 004015 BR 70$ : REPORT 
004015 000000 004115 “00,708 
23 004017 101200 000100 003011 1$: BIS WAVAIL,ERMODE ; AVAIL ERROR 
24 004022 BR 3$ ; BRANCH 
004022 000000 004030 “00,3$ 
25 004024 102201 000002 2$: BIT #ATTN,RI ; SEE IF ATTENTION IS ASSERTED 
26 004026 BEQ 90$ : IF NOT, BRANCH 
004026 010000 004474 *010000,50$ | 
7 004030 101200 000002 003011 3$: BIS WATTN,ERMODE =; FLAG AS ATTENTION ERROR | 
28 004033 SOFTER 2 ; ATTENTION ASSERTED UNEXPECTEDLY 
004033 104200 000117 001601 MOV #ER2,HRO.04 
004036 104202 147642 MOV #2 'ERSOF #4000. .R2 
004040 104020 001577 MOV Re HRQ..02 
00404¢ 104200 00404e 001576 MOV . HRO.01 
004045 104200 060013 001575 MOV sERRMES. HRO.ROQ 
29 004050 ENDERR 
004050 104200 000051 001602 MOV #SERZ2, HRQ.05 
004053 104200 000006 00301 MOV #5+1, ERRPOS ; SET THE POSITION 
30 004056 BR 6$ : BRANCH 
004056 000000 004120 *00.6$ 








UDAT4 DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 53 
CORECT = CORRECT THE ERRORS 


1 004060 106200 
063 


050000 
3 004065 104650 
4 004070 105650 
104307 


75 020000 
7 004077 115000 
070000 
004103 000000 


060011 001575 5$: 


001575 


001543 
001576 


004434 
004474 


BNE 
= 
ADD U. SUBU(R5) ,HRQ. 01 
ro HRQ.RQ,RO 


2070000, 808 
BR 90$ 


CMP eco aaa ; 


te OONUMCRS) HRQ.01 


HOSTRQ 3 
‘020000, HOSTRQ 
HRQ.01 


“00,908 


SEQ 0652 


SEE IF MEGABIT TRANSFER REPORT 
IF NOT, BRANCH 


3 MOVE nd ha UNIT NUMBER TO COM AREA 
; ADD OFFSET 

SETUP FoR COM 

REPORT 


; SEE IF DROPPED 


IF SO, BRANCH 
IF NOT, BRANCH 


a — a ee eee ~~. 





-9o0 @GnNOuU Swi 


—s 


05 

07 

11 

13 

13 

15 

15 

$8 

2 

22 

24 

26 

30 

30 

31 

12 32 
13 34 
14 35 
15 36 
36 

16 40 
17 41 
41 

18 143 
19 45 
45 

20 147 
21 51 
22 52 
004152 

23 004154 
24 004155 
004155 

25 004157 
26 004160 
004160 

27 004162 
28 004164 
29 004166 
004166 

30 004170 
31 004172 
$ 004174 
33 004176 
34 004177 
35 004200 
36 004202 
004202 

37 004204 
38 004204 
004204 

39 004206 
40 004207 
004207 

41 004211 
42 004213 
004213 


104 
103303 
106 


"090 =|0 2243464 —— 
+4 ou = Rar 
S38 88 88 Ssez 


Wa -—VWI SY —_ 
ge 
— 


o -So -co So 


sata O —— 
S35 Se 
—_ 
38 Mo 
Moe 


: 


001577 
037777 
040000 
004120 
100000 
003013 
004303 
100000 
001576 


000011 


001453 
004162 
000003 
004162 
000310 
004151 
004136 
004136 
000047 
040000 
004176 
040000 
000047 
002755 
003013 
004270 
001453 
004254 


000101 
004254 


003011 


40$: 


70$: 
6$: 


31$: 


32$: 


33$: 


34$: 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 54 
CORECT = CORRECT THE ERRORS 


MOV HRQ.02,R2 
BIC #37777.R2 
cMP #FTLDEV,R2 


0000,6$ 
ASSUME FTLDEV,040000 
BIS #DROP ,ERMODE 
MOV ERRPOS ,RO 


000,20$ 
BIC #VALID,RO 
ADD #HR Q.2a+1, RO 
PUSH <R4,RO> 
MOV U.MSTOCRS) ,RO 
INC RO 
CLR 
A 


CALL RTDSL 
“020000, RTOSL 
TST R2 


BNE 33$ 
“050000,33 
BIT 


2338 
#RCVRDY!ATTN,R1 


BNE $ 
“050000, 33$ 
MOV #200. ,R1 
DEC R1 
BNE 32$ 
“050000, 32$ 
DEC R3 
BNE 31$ 
Seeds ons 

31$ 
#950000, 31$ 

U. RCOV(RS), RO 
BIT #DRINIT,RO- 


BE 
S| eee 34$ 


0000, 26$ 
ASSUME VALID,100000 
whee 7 


BNE $s 
“050000, 


4$ 
BIT #RCVROY! AVAIL, RI ; 


B 
“010000,24$ 


SEQ 0653 


GET ERROR TYPE 
CLEAR ERROR NUMBER 
SEE IF DEVICE FATAL 
IF NOT, BRANCH 


ASSUME IN HI 2 BITS 

ERROR CAUSED THE ENTIRE DEVICE TO BE DROPPED 
GET ERROR POSITION 

IF NO REPORTING, BRANCH 


3 CLEAR ‘ALLREADY gd BIT 
: POINT TO OUTPUT BUFFER 


: SAVE SUBUNIT POINTER AND ee Bon 


4,-(SP) 


MOV RO,-(SP) 
GET MASTER SEEK TIMEOUT 
INCREMENT RO ‘- BNE RATHER THAN BCC 
FOR LOW ORDER TIMEOUT 
GET REAL TIME DRIVE STATE 


SEE_IF ERROR 
IF ERROR, BRANCH 


SEE IF RECEIVER READY OR ATTENTION ASSERTED 


: IF SO, BRANCH 


3 ASSUME VALID oF 
; GET REAL TIME D 


INNER LOOP TIMEOUT 
DECREME 


; IF INCOMPLETE, BRANCH 


DECREMENT TIMEOUT 
LOOP IF INCOMPLETE 


DECREMENT TIMEOUT 
IF INCOMPLETE, BRANCH 


GET RECOVERY TYPE 
SEE IF DRIVE WAS INITIALIZED 
IF NOT, BRANCH 


CLEAR INITIALIZE FLAG 
SAVE RECOVERY STATUS 
GET ORIGINAL STATE 
RESTORE ERROR POINTER 
SAVE STATE _IN Ee MESSAGE 
SEE _IF STATUS VALID 
IF SO, BRANCH 


IS MSB 
RIVE STATE 


SEE IF VALID 
IF NOT, BRANCH 


; SEE IF RECEIVER READY OR AVAILABLE 
;" IF NOT, BRANCH 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 54-1 SEQ 0654 
CORECT = CORRECT THE ERR 
43 004215 104204 001750 MOV #MAXSND ,R4 : SET UP TIMEOUT 
44 004217 104203 002357 MOV #CR.GST,R3 : POINT TO GET STATUS COMMAND 
45 004221 104652 000025 MOV U.MASK(R5),R2 : GET UNIT SDI SELECT MASK 
46 004223 104137 21$: MOV (R3) ,RO : POINTS TO SDI COMMAND BUFFER 
47 004224 ASSUME L2.0PC,0 
48 004224 104631 000001 MOV L2.SLN(R3),R1 = LOAD BYTE COUNT 
49 004226 060004 XFC SEND : SEND SDI COMMAND 
50 004227 115001 TST R1 : SEE IF SDI COMMAND SENT SUCESSFULLY 
51 004230 BEQ 228 : IF SO, BRANCH 
004230 010000 004237 “010000, 22$ 
52 004232 117404 DEC RG : DECREMENT TIMEOUT 
004233 BNE 21$ : IF TIMEOUT INCOMPLETE, BRANCH 
004233 050000 004223 “050000,21$ 
54 004235 R 24$ : BRANCH 
004235 004254 “00,24 
55 004237 104654 000033 22$: MOV U.SDIS(RS),R4 =; R& HAS SHORT TIMEOUT 
241 104207 002442 23$: MOV #ST,R : POINT TO RECEIVE BUFFER 
57 004243 104631 000002 MOV L2.RLN(R3),R1  : NUMBER OF WOR DS. IN _RESPONSE 
245 06 XFC RCV : RECEIVE SDI RESP 
59 004246 115001 TST R1 : SEE IF SDI RESPONSE RECEIVED SUCESSFULLY 
60 004247 BEQ 26$ : IF SO, BRANCH 
47 010000 004270 “010000, 268 
61 004251 117404 DEC : DECREMENT TIMEOUT VALUE 
62 004252 Bs : IF TIMEOUT UNEXPIRED, BRANCH 
004252 050000 004241 #950000, 23$ 
63 004254 24$: <RO,R4> ; RESTORE ERROR AND SUBUNIT POINTER 
004254 104267 MOV (SP)+,RO 
004255 104264 MOV (SP)+.R4 
64 004256 104203 177777 MOV #-1,R3 : R3 CONTAINS "UNABLE TO GET STATUS’ 
65 004260 104208 000007 MOV #7,R2 + R2 CONTAINS COUNT 
66 004262 10027 25$: MOV R3,(RO)+ : MOVE TO OUTPUT BUFFER 
67 004263 117402 DEC R2 : DECREMENT COUNT 
68 004264 BNE 25$ : IF COUNT INCOMPLETE, BRANCH 
004264 050000 004262 “050000,25$ 
69 004266 BR 8$ : BRANCH 
004266 000000 004323 “00,8$ 
70 004270 26¢: POP <RO,R4> : RESTORE ERROR AND SUBUNIT POINTER 
004270 104267 MOV (SP)+,RO 
004271 104264 MOV (SP)+.R4 
71 004272 104201 002451 MOV #ST+7,R1 : R1 POINTS TO AFTER STATUS BUFFER 
72 004274 104202 000007 MOV #7,R2 : R2 HAS COUNT 
73 004276 104413 27$: MOV -(R1),R3 : MOVE STATUS WORD TO R3 
74 004277 100273 MOV R3, (RO)+ : MOVE TO OUTPUT BUFFER 
004 117402 DEC R2 : DECREMENT COUNT 
76 004301 BNE 278 ; BRANCH IF COUNT INCOMPLETE 
004301 050000 004276 7050000, 27$ 
77 004303 102200 000002 003011 20S: WATTN,ERMODE ; SEE IF UNEXPECTED ATTENTION 
78 004306 BEG 8s : IF NOT, BRANCH 
004306 010000 004323 “010000 
79 : SEE IF ERROR WAS CAUSE OF ATTENTION 
80 004310 104301 002444 MOV ST+ : GET ERROR BYTE 
81 004312 103201 177407 BIC PcHIBYTE Cos, R1 : CLEAR UNUSED BITS 
82 004314 BNE : IF ERROR(S), BRANCH 
004314 050000 004323 “050000,8$ 
83 : SEE IF COGGABLE INFORMATION IS CAUSE _OF ATTENTION 
84 004316 102200 000010 002443 BIT #ST.EL,ST+#ST. REQ SEE IF LOGGABLE INFO 
85 004321 BEQ 50$ ; IF NOT, BRANCH (*RECOVER') 








F 
UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 54-2 SEQ 0655 
CORECT = CORRECT THE ERRORS 


004321 010000 004375 “010000, 50$ 


a 





UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 55 SEQ 0656 
CORECT = CORRECT THE ERRORS 
1 004323 104650 000063 001600 8$: MOV U.UNUM(RS) ,HRQ.03 ; GET BASE NUMBER 
: 004326 105650 000050 001600 ADD U. SUBU(R5) -HRO.03 SUBUNIT OFFSET 
004331 104307 001575 MOV HRQ.RO,RO : MOVE ab oAbd U8 RO 
4 004333 CALL. __-HOSTR : REPORT TO post 
004333 020000 001543 “020000, HOSTROQ 
5 004335 115000 001576 TST HRQ.0 : SEE IF UNIT DROPPED 
6 004337 BMI ; IF SO, BRANCH 
004337 070000 004434 “070000, 80$ 
7 004341 ASSUME ‘DROP, 100000 : HOST DROP BIT = BIT 15 
8 004341 104652 000047 MOV U.RCOV(RS),R2  : SEE IF RECOVERY IS ENABLED 
9 004343 BMI : IF NOT, BRANCH 
004343 070000 004474 “070000,90$ 
10 004345 ASSUME ERMASK 100000 : ASSUME RECOVERY MASK IS SIGN BIT 
11 004345 102200 000002 003011 BT #ATTN,ERMO : DID WE HAVE AN ERROR? 
12 004350 BEQ : IF NOT, BRANCH 
004350 010000 004375 “010000, 50$ 
13 004352 REPSFT ‘SOFT : ELSE, REPORT SOFT ERROR 
004352 104200 01 001577 MOV HRQ.02 
004355 114000 001600 CLR A 
004357 114000 001601 CLR HRQ.04 
004361 100467 MOV RO,=(SP) 
004362 104657 000063 MOV U.UNUM(RS) ,RO 
004364 105657 000050 ADD U- SUBUCRS) .RO 
004366 104070 001576 MOV RO,H 
004370 104207 060007 MOV aTasOFT RO 
004372 020000 001543 “020000,HOSTROQ 
004374 104267 MOV (SP)+,RO 
14 004375 50S: RECOVR : RECOVER FROM ERRORS 
004375 020000 004505 “926000, RECOVR 
15 006377 115002 R2 : SEE IF ERRORS OCCURRED 
16 004400 40$ : IF SO, LOOP 
004400 050000 004105 2050000, 408 
17 004402 POP <RO,R1> : RESTORE RO, R1 
004402 104267 MOV (SP)+,RO 
004403 104261 MOV (SP)+.R1 
18 004404 104653 000047 MOV U.RCOV(RS) RB; GET RECOVERY WORD 
19 004406 104032 MOV : STORE IN Re 
20 004407 103202 001000 BIC are Ry he : CLEAR RETRY BIT 
21 004411 100652 000047 MOV OV(RS) STORE RECOVERY WORD 
22 004413 102203 006000 BIT pe tee ni SEE IF SEEK NEEDED 
23 004415 BEQ IF NOT. BRANCH 
004415 010000 004423 *010000,9$ 
24 004417 104207 015642 MOV #SEEK,RO : SEEK NEXT 
25 004421 BR NOSUB ; EXIT 
004421 000000 004501 “00,NOSUB 
26 004423 102203 001000 9$: BIT #RETRY,R3 ; SEE IF LAST MODULE SHOULD BE RETRIED 
27 004425 BEQ : IF NOT, BRANCH 
004425 010000 004476 “010000, 100$ 
28 004427 104307 003005 MOV LSTOVL,RO : RETRY LAST OVERLAY 
29 004431 114001 : IMMIDATELY 
30 004432 BR 100$ : EXIT 
004432 000000 004476 “00,1008 
31 004434 80$: POP <RO,R1> : RESTORE REGISTERS 
004434 104267 MOV (SP)+,RO 
004435 104261 MOV (SP)+-R1 
32 004436 DSABLE : DISABLE ERROR RECOVERY 
004436 020000 005046 5056000, De ABLE 
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CORECT = CORRECT THE ERRORS 















33 004440 115000 003011 Ist ERMODE 
34 004442 BPE 00 
004442 030000 004456 “030 
35 004444 ASSURE “DROP, 100000 
36 004444 114001 CLR 
37 004445 104207 016727 MOV BRP ALL, RO 
38 004447 102200 000001 003006 BIT #INTINP.M.PARM 
39 004452 BEQ 
004452 010000 004476 “010000, 100$ 
40 004454 BR NOSUB 
004454 000000 004501 “00,NOSUB 
41 004456 104142 10$: MOV (R4) ,R2 
42 004457 ASSUME $.PARM,O 
43 004457 101202 100000 BIS #DROP , R2 
44 004461 100142 MOV R2, (R4) 
45 004462 ASSUME $.PARM,O 
46 004462 104651 000046 MOV U.PARM(RS) ,R1 
47 004464 101201 001000 BIS #FTIME,R1 
8 004466 100651 000046 MOV R1,U.PARM(RS) 
49 004470 104207 005134 MOV #SETUP,RO 
50 004472 NOSUB 
004472 000000 004501 360. NOSUB 
51 004474 90$: POP <RO,R1> 
004474 104267 
004475 104261 
004476 115001 100$: Ist Rt 
004477 010000 003377 =510000, orate 
004501 100657 000013 NOSUB: MOV RO,U.NFUN(RS) 


RE TURN 
000000 “00.0 





SEQ 0657 


SEE IF ENTIRE UNIT DROPPED 
IF NOT, BRANCH 


; ASSUME DROP SIGN BIT 
; as tiny ‘a of LL 


NEXT 
; SEE. iF INITIALIZATION IN PROGRESS 
; IF NOT, BRANCH 


; IF SO, JUST RETURN TO TROOT 


GET SUBUNIT PARAMETERS 


; DROP SUBUNIT 
SAVE 


GET UNIT PARAMETERS 
MARK AS FIRST TIME 


SAVE 
SETUP NEXT MODULE 
EXIT 


RESTORE REGISTERS 
MOV (SP)+,RO 
MOV (SP)+,R1 
SEE IF IMMIDATE CALL 
IF SO, BRANCH 


SAVE NEXT FUNCTION 
RETURN TO ROOT 


ee 


UDATS DISK EXERCISER DMACR X04. es 23-AUG-82 12:06:46 PAGE 56 SEQ 0658 
RECOVR = RECOVER FROM THE ERRO 


-SBTTL RECOVR = RECOVER FROM THI: ERROR 
RECOVR: 


1 
¢ 004505 
¢ : SET UP DRIVE AS IT SHOULD BE 
6 004505 RTOS ; SEE IF WE CAN GET VALID STATE 
004505 020000 001417 “090000, RTDS 
7 004507 115002 R2 : SEE IF WE ae! VALID STATE 
8 004510 BN E 10$ ; IF NOT, BRANCH 
004510 050000 004715 “050000, 10$ 
9 004512 104203 002352 7 #CR.ONL RS 3 POINT TO ONLINE COMMAND 
10 004514 TA : INITIATE SDI INTERCHANGE 
004514 020000 001670 ‘090000, TALK 
11 004536 115002 ne ; SEE IF ERROR OCCURRED 
12 004517 : IF NOT, BRANCH 
004517 010000 004526 2510000, 13 
13 004521 CERROR 5,#SER2 : REPORT SECONDARY ERROR 
004521 104200 004665 001602 MOV #SER2,HRO.05 
14 004524 10$ ; BRANCH TO ERROR LOOP 
004524 004715 “00, 10$ 
15 004526 104203 002357 1$: #CR.GST,R3 : POINT TO GET STATUS 
16 004530 TALK : SEND SDI INTERCHANGE 
004530 020000 001670 “026000, TALK 
17 004532 115002 R2 : SEE IF AN ERROR OCCURRED 
18 004533 BEd ; BRANCH IF NO ERROR 
004533 010000 004542 “010000,2$ 
19 004535 CERROR 5,#SERO 3 REPORT SECONDARY ERROR 
004535 104200 004630 001602 MOV #SERO,HRQ.05 
20 004540 R 10$ ; LOOP AND TRY AGAIN 
004540 000000 004715 “00,10$ 
21 004542 104207 177777 2s: MOV #-1,R0 : SET UP FOR COMPLEMENT OF STATUS 
22 004544 1033507 002443 BIC ST+ST.REQ,RO ; RO HAS _STATUS 
23 004546 102207 000023 BIT #ST.PS!ST.SRIST.RU,RO = SEE IF ANY FATAL STATES EXIST 
24 004550 BEQ 6$ ; IF NOT, BRANCH 
004550 010000 004627 “010000.6$ 
25 004552 DEVFTL ‘23 : REPORT SWITCH OUT OR SPINDLE NOT READY 
004552 104200 002157 001601 MOV #ER23,HRQ. 
004555 104202 047667 MOV #23!F TLDEV+4000. .R2 
004557 104020 001577 MOV Re WRG. Oe 
004561 104200 004561 001576 MOV HRQ.01 
004564 104200 001575 MOV PERRMC, ;HRQ.RQ 
26 004567 102207 000001 BIT #ST.RU,RO : SEE IF RUN/STOP SWITCH OUT 
27 004571 BEQ : IF NOT, BRANCH 
004571 010000 004600 “010000,3$ 
28 004573 CERROR 5,#SER42 3 REPORT RUN SWITCH OUT 
004573 104200 002200 001602 MOV #SER42,HRQ.05 
29 004576 5$ : BRANCH 
004576 000000 004614 “00.5$ 
30 004600 102207 000020 3$: BIT #ST.SR,RO : SEE IF SPINDLE DROPPED READY 
31 004602 BEQ 4$ ; IF NOT, BRANCH 
004602 010000 004611 “010000,4$ 
32 004604 CERROR 5,#SER43 ; REPORT SPINDLE NOT READY 
004 104200 002214 001602 MOV #SER43,HRO.05 
33 004607 5$ : BRANCH 
004607 000000 004614 *00,5$ 
34 004611 4$: CERROR 5,#SER44 ; REPORT PORT SWITCH OUT 
004611 104200 002231 001602 MOV #SER44 ,HROQ.0S 



























35 004614 
004614 


004617 
36 004622 
37 004625 


63 004710 
004710 
64 004712 
004712 
65 004715 
66 004717 
004717 


004 
000100 
004635 


005076 
002443 


177417 
000026 
002444 
177400 


004676 
000200 


004660 
005066 
002427 
002364 
001670 


004676 
004646 
004715 
000026 
000045 
177402 
002425 
002371 
001670 


004707 
003011 


000000 


001602 


001602 


6$: 


7$: 


11$: 


9$: 


10$: 
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RECOVR = RECOVER FROM THE ERROR 


ENDERR 
BIS #100000 ,,ERRPOS 
R 10$ 


“00,10$ 
BIT #ST.RR,RO 
“ 7050000, 7$ 

ALL GORCLB 
“26000, GORCLB 

ST+ST.MOD,RO 

SUAB RO. 
BIC INB,RO 
MOV RO” U. WRIT(RS) 
MOV ST+ST.ERR,R1 
BIC #HIBYTE,R1 


BEQ 9$ 
*01 16088. 9$ 
BIT osT- DE ,R1 


BEQ 11$ 
+t eee 11$ 
GOSEEK 
“030000, GOSEEK 
MOV CLR 
che wer. CLR, R3 
CALL TAL 
“020000, TALK 
TST R2 


BEQ 9$ 

“010000,9$ 

CERROR °5,#SER1 

BR 10$ 

*00,1 

MOV U.WRIT(RS) ,R3 
BIS U.WPRT(R5) .R3 
BIS #177402,R3 
MOV 3,WRITBT 

MOV R.MOD,R 
CALL Lk 

“020000, TALK 

CERROR °5,#SER3 

CLR ERMODE 


RETURN 
“00.0 


SEQ 0659 


MOV #SER22,HRO.06 


MOV #6+1,ERRPOS : SET THE POSITION 


; STATUS VALID 
BRANCH 


SEE IF DRIVE IS TO BE RECALIBRATED 
IF NOT, BRANCH (NOTE COMPLEMENT) 


MARK AS RECALIBRATION NEEDED 


GET MODE BITS 
MOVE WRITE PROTECT BUTTON STATUS TO LO BYTE 
ee R UNUSED BITS 

AVE WRITE PROTECT STATUS FOR CHANGE MODE 
eer ERROR BITS 
CLEAR UNUSED BITS 
IF NO ERRORS, BRANCH 


SEE IF A DRIVE ERROR OCCURRED 
IF NOT, BRANCH 


; SEEK IS REQUIRED 
: MOVE oye me DRIVE COMMAND 


POINT TO SDI C 
INITIATE SDI INTERCHANGE 


: SEE IF ANY ERRORS OCCURRED 
: IF NOT, BRANCH 


REPORT SECONDARY ERROR 
#SER1,HRQ.05 
BRANCH TO ERROR LOOP 


GET WRITE PROTECTION BUTTON STATUS 
a A ae ONLY DRIVES 


MOVE TO CHANGE MODE COMMAND 
POINT TO MODE C 
INITIATE SDI INTERCHANGE 


REPORT SECONDARY ERROR (IF _NO ERROR, DON'T CARE) 
neser MOV #SER3,HRO.05 


ERMODE 
RETURN TO CALLING PROGRAM 


oc 


kK 3 
UDATS DISK EXERCISER DMACR x04.01 4 aia 12:06:46 PAGE 57 SEQ 0660 é 
CHKDN = FIND PREVIOUS ACTIVE SUBUNI 







1 -SBTTL CHKDN = FIND PREVIOUS ACTIVE SUBUNIT | 
4 004721 CHKDN: 
$ é SEARCH THE SUBUNIT LIST DOWN AND TRY TO FIND AN ACTIVE SUBUNIT 
6 004721 104203 000001 MOV #U.SUBP,R3 3; R3 WILLPOINT TO nat be POINTERS 
7 004723 105053 ADD R5,R3 3 R3 POINTS TO SUBUNIT POINTERS 
8 004724 117402 1$: DEC GD 3 DECREMENT OLD SUBUNIT 
9 004725 BMI 2$ ; IF ALL SUBUNITS CHECKED, BRANCH 
004725 070000 004745 *070000.2$ 
10 004727 104034 MOV R3,R4 3 MOVE SUBUNIT LIST POINTER TO R4 
11 004730 105024 ADD R2,R4 3; POINT TO SUBUNIT 
12 004731 104144 MOV (R4&) RS 3; R4 POINTS TO SUBUNIT 
13 004732 BMI 1$ 3 IF NO UNIT, BRANCH 
004732 070000 004724 *070000,1$ 
14 004734 104147 MOV (R4),RO ; ©0 HAS SUBUNIT PARAMETERS 
15 004735 ASSUME 5S. PARM, 0 3 ASSUME THAT S.PARM IS ZERO 
16 004735 BMI H 3; IF THIS SUBUNIT DROPPED, BRANCH 
004735 070000 004724 *070000,1$ 
17 004737 ASSUME DROP,100000 3; ASSUME DROP IS SIGN BIT 
18 004737 0652 000050 MOV R2,U.SUBU(RS) 3; SAVE SUBUNIT apace 
19 004741 114007 CLR RO 3; FOUND A SUBUNIT 
20 004742 003 CLR R3 3; PROCESS THIS SUBUNIT 
21 004743 BR 3$ 3 EXIT 
004743 000000 004754 *00,3$ 
22 004745 104657 000046 2$: MOV U.PARM(RS),RO ; GET UNIT PARAMETERS 
23 004747 103207 010000 BIC #DIREC,R 3 SET DIRECTION UP 
24 004751 100657 000046 MOV RO,U.PARM(RS) 3 SAVE 
25 004753 104057 MOV R5,R0 3; DION'T FIND A SUBUNIT 
26 004754 3$: RETURN 3; RETURN TO CALLING PROGRAM 
004 000000 *00, 









CHKDN 


~“ 
uw 
o 


—) 


SEREEEEESESESESEEE 


So 

So 

Sss 
fate 

rr 












Wr COO NOU SWH— COVOONOufwr— 


MRM Ww] ae ee 


103201 
101201 


000000 
101201 
100651 


000000 





000001 


000003 
005014 


004761 


004761 
003006 
005006 
040000 


004761 
000050 


005034 
000046 
003006 
005030 


040000 
001000 


005032 
010000 
000046 


000000 





UDATS DISK EXERCISER DMACR X04.01 owe 12:06:46 PAGE 58 
= FIND FOLLOWING ACTIVE SUBUN 


-SBTTL CHKDN 
CHKUP: 


1$: 


2$: 





~ FIND FOLLOWING ACTIVE SUBUNIT 


SEARCH THE SUBUNIT LIST UP AND TRY TO FIND AN ACTIVE SUBUNIT 


MOV #U.SUBP ,R3 


ADD R5,R3 
INC R 
CMP #3,R2 
BMI 3” 
~~ 3$ 
MOV “R3,R4 
ADD R2,R 
MOV (R4) ,R4 
BMI 1$ 
“070000,1$ 

(R4) ,RO 


BMI 
“070000, 

ASSUME es poenee 
TST 

PL 
*030000,2$ 
ASSUME IWIPRG,100000 
BIT #INITW,RO 


o1$ 
ag he SURES 
R 


CLR R3 
5$ 


MO U.PARM(R5) ,R1 
TST oe 


000,48 
+7 aed Sey - 100000 
BIS #FTIME, Ri 
B 9$ 


BIS #DIREC,R 
MO R1,U. BARM(RS) 


R3 WILLPOINT TO SUBUNIT POINTERS 
R3 POINTS TO “SUUNIT 


IF AL S_ CHECKED 
F ALL SUBUNITS CHECKED, BRANCH 
MOVE SUBUNIT LIST POINTER TO RG 
UBUNIT 


POINT TO S 
R4 POINTS TO SUBUNIT 


; IF NO UNIT, BRANCH 
; RO HAS SUBUNIT PARAMETERS 


ASSUME THAT S.PARM IS ZERO 
IF THIS SUBUNIT DROPPED, BRANC 


3 ASSUME DROP IS SIGN BIT 
: SEE IF INITZAL WRITE IN PROGRESS 


; IF NOT, BRANCH 


ASSUME IWIPRG IS SIGN BIT 
SEE IF INITIAL WRITE TO BE DONE ON SUBUNIT 
IF NOT, BRANCH 


ae lg a T NUMBER 
PROCESS THIS ONE 
EXIT 

GET UNIT PARAMETERS 
SEE IF DOING AN INITIAL WRITE 
IF NOT, BRANCH 

ASSUME IWIPRG IS SI 


G 
FLAG INITIAL WRITE A 
dd TESTING UNIT 


N BIT 
S COMPLETE ON THIS UNIT 


1 aaa DOWN 
RETURN TO CALLING PROGRAM 


m3 
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ERROR RECOVERY SUPPORT SUBROUTINES 





-SBTTL ERROR RECOVERY SUPPORT SUBROUTINES 
-SBTTL ENABLE = ENABLE ERROR RECOVERY 


1 
2 
Z 005036 ENABLE : 
2 ; ENABLE ERROR RECOVERY 
7 005036 104653 000047 MOV U.RCOV(RS),R3  ; GET RECOVERY WORD 
8 005040 103203 100000 BIC #ERMASK,R3_ ; CLEAR MASK 
9 005042 100653 000047 MOV R3,U.RCOV(RS)  : SAVE 
10 005044 . RETURN 3 RETURN 
005044 000000 000000 “00,0 
11 -SBTTL DSABLE - DISABLE ERROR RECOVERY 
\¢ 005046 DSABLE : 
‘3 : DISABLE ERROR RECOVERY 
16 005046 104653 000047 MOV U.RCOV(RS),.R3  ; GET RECOVERY WORD 
17 005050 101203 100000 BIS #ERMASK ,R3_ : SET MASK 
18 005052 100653 000047 MOV R3,U.RCOV(RS)  ; SAVE 
19 005054 RETURN 3 RETURN 
005054 000000 000000 “00.0 
20 -SBTTL GORTRY = RETRY OF MODULE REQUIRED TO RECOVER 
si 005056 GORTRY: 
Sz ; JUST RETRY THE LAST MODULE TO RECOVER 
25 005056 CALL ENABLE ; ENABLE ERROR RECOVERY 
£05056 70000 005036 * eee porg 74 
<0 005060 101203 001000 #RETRY R35 : SET RETRY BIT 
27 005062 100053 000047 MOV R3,U.RCOV(R5) ; SAVE 
28 005064 RETURN : RETURN 
005064 000000 000000 “00,0 
29 -SBTTL GOSEEK = SEEK REQUIRED TO RECOVER 
3 005066 GOSEEK: 
%% ; GOSEEK WILL FLAG THAT THE DRIVE MUST SEEK TO RECOVER FROM AN ERROR 
54 005066 CALL ENABLE : ENABLE ERROR RECOVERY 
005066 020000 005036 aren errt 
35 005070 101203 004000 EQ,R3 : SET SEEK REQUIRED BIT 
36 005072 100653 000047 MOV RU. RCOV(RS) ; SAVE 
37 EL RETURN 3 RETURN 
005074 000000 000000 “00,0 
8 -SBTTL GORCLB - RECALIBRATE REQUIRED TO RECOVER 
4 005076 GORCLB: 
rh : GORCLB WILL FLAG THAT THE DRIVE MUST RECALIBRATE TO RECOVER FROM AN ERROR 
43 005076 CALL ENABLE 3 ENABLE ERROR RECOVERY 
005076 020000 005036 fe ENABLE 
44 005100 101203 006000 #SEKREQ!RCBREQ,R3 ; SET SEEK AND RECALIBRATE REQUIRED BIT 
45 005102 100655 000047 MOV R3,U.RCOV(RS) : SAVE 
46 005104 RETURN 3 RETURN 
005104 000000 900000 *00, 


GOINIT = DRIVE MUST BE INITIALIZED TO RECOVER 


47 .SBTTL 
= 005106 GOINIT: 
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GOINIT = DRIVE MUST BE INITIALIZED TO RECOVE 


50 ; 
51 3 


001453 
002755 
000025 


SARAW=QIEK 


050000 
104261 
000000 


005126 


000000 


117401 1$: 


INIT THE DRIVE, THEN FLAG 


PUSH R1 
CALL 


IB $ 
MOV U.MASK(RS),R2.: 
XFC DINIT 3 
CAL GOSEE 3 
*020000,GOSEEK 
BIS #DRINIT,R3 3 
MOV R3,U.RCOV(RS) ; 
MOV “i 1400,R1 : 
DEC : 
BNE oft ; 
*050000,1$ 
POP R1 : 


RETURN 
“00,0 


RTDSL 
— RTDSL 
R1,H 


AS DONE 

SAVE R1 (DON'T KNOW IF NEEDED) 
GET DRIVE STATE BEFORE INIT 
SAVE Z, yt LOCATION 

GET 4- 

INIT T HE DR I VE 

SEEK REQUIRED IF INITED 

ete THE DRIVE AS INITIALIZED 
MOVE TIMEOUT TO R1 

DECREMENT TIMEOUT (WAIT FOR DRIVE CLOCKS) 
IF COUNT INCOMPLETE, BRANCH 
RESTORE R1 


RETURN 


V R1,=(SP) 


MOV (SP)+,R1 


SEQ 0663 : 


-———-—- 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 62 
weeeteeeee OVERLAY MODULE SETUP = OPERATION TO BE DONE THIS PA 


eeeneeeeee OVERLAY MODULE SETUP = OPERATION TO BE DONE THIS PASS 


FERRARA AAAAAEAEAAEAEAEEEEAAEAEEEEAEEAAAEAAAEEEEEERERAEEEAEEEREEEREKEREEEEEEREREE 
SAREE ARERAEREERAAEREREEEAEEEEEEEAAARERAEAEAEAEAEEAEEEEAEEEEREEAEAEEAEEEEREEEEEED 


S 
uw 
aay 
Ww 
&- 


Sssssessses 


VIAN FS ae ss eas 


NNMUMUENINS 


WR] OCOVONO NSWN-WR—OV0@fUSWwRH—OoO”o- 


Ne NUIVIW = NU 


YaSS Ss. Saae QM? MASS SSWWWWNNID SS eo oe 
-—Ooo NOU 


SS8888S8S88SSssss5 


og 005211 


MMM 
k= 


— 
, 


So 
ae 
Aaaoe 
MUIWMIS 
NNN 


3 & 


& 


tO 
ooo 


ANNNN 


000024 
000021 
000023 


05245 
00054 


000054 
005245 
000046 
000010 


005226 


000100 
005211 
040000 


003002 


-SBTTL 


SRRRAAAEAAAAAAAREAAEREEREEEEREEAEEEAAAEEEEEEREEAEREEEREERAAEEEEERAERAEEEEEEEEEE 


SRRAREEEAAAAAEAEEEREAEEEEREEEAEEEAEAEAAREEEEAAERAEEEEEERAEAEEEEEKRAAEEEEEEREEEREEE 


Sete Ge Ge Fe Ge CFs Ge tee 
mn 
~ 
Cc 
v 


2s: 


6$: 


5$: 


SETUP CLEARS ALL ERROR BITS, THE ERROR COUNT, FINDS THE NEXT 


LON TO BE RE 


AD_OR WRITTEN, DESIDES TO READ OR WRITE, CALCULATES 


a ne TRACK AND GROUP THE LBN RESIDES ON; THEN CALLS 


-ENABL LSB 
CLR 


R2 : 
MOV U.CSEC(RS),RO : 
ADD U.NSEC(R5).RO 
CMP U.TSEC(R5).RO 
BEQ 2$ 3 
“010000, 2$ 
MOV RO,U.CSEC(RS) ; 
MOV U.CBN(RS),RO : 
ADD U.NSEC(RSS,RO ; 
MOV RO,U.CBN(R5) =: 
BCC 9$ ; 
“040000, 9$ 
Moy U.CBN#1(R5),RO ; 
MOV RO,U.CBN¢1(R5) : 
BR 9$ ; 
“00.9$ 
MOV U.PARM(RS),RO ; 
BIT MUCHECK, RO ; 
BNE 5$ 
“050000,5$ 
MOV (R4),R1 : 
ASSUME S.PARM,O : 
BIT #SEQSEK,R1 : 
BNE : 
“050000, 6$ 
BIT #INITW,RO : 
BNE 6$ ; 
“050000,6$ 
BIS #NEWSUB, RO : 
MOV RO,U.PARM(RS) =: 
MOV #NEWOP, RO ; 
CLR Sc ; 
MOV U.TSEC(RS) RI: 
BNE 4$ ; 
“050000,4$ 
V #-1,SCR1 ; 
4$ ; 
“00,48 
BIC #WCHE CK! REDWRT,RO 
MOV RO,U.PARM(RS) — ; 





NO_ERRORS 

GET TOTAL NUMBER OF SECTORS ALLREADY R/W 
ADD HOW MANY R/W THIS PASS 

SEE IF ALL DONE 

IF SO, BRANCH (NEW OPERATION) 

zove CURRENT COUNT 

ADD NUMBER OF SECTORS R/W THIS PASS 
IF NO CARRY, BRANCH 

GET HI LBN 

PROPOGATE CARRY 

SAVE 

BRANCH 


GET UNIT PARAMETERS 
SEE IF oa IS TO BE DONE 


: IF SO, BRANC 


GET SUBUNIT PARAMETERS 
ASSUME THAT S.PARM IS ZERO 
SEE IF SEQUENTIAL SEEKS 
IF SO, BRANCH 


SEE IF INITIAL WRITE IN PROGRESS 
IF SO, BRANCH 


Ae AS TO GO ONTO A NEW SUBUNIT 


SET UP A NEW OPERATION 
8 eM gl AREA? (NO NEW SUBUNIT FLAG) 
IF NOT FIRST TIME, BRANCH 


L_NUMBER OF SECTORS TO BE WRIITEN LAST OP 


a; AS NEW SUBUNIT (WITHOUT GOING ONTO NEW SUBUNIT) 


: CLEAR WRITE CHECK, MAKE OPERATION READ 


SAVE 


sc 





S882 Z 22 SESSSSSee8 28 ss 
ssssesssssssses ssesessesss 


— 
— 


ay 
Nm 
we 


000000 
102201 
050000 
106307 
040000 
104307 


000000 
106307 


3 
a3 


Se Shea 
Sox Baus 


-—o ess od 
™N 
So 


on 
—™ 
™ 
So 
Ww 


000051 
000053 
000052 
000054 


005305 
000100 


005277 
003016 


005305 
003016 


005305 
003017 


005036 
030000 


005341 
005066 
030000 
000047 


003746 


9$: 


1$: 


4$: 





UDAT4 DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 62-1 
seteetenee OVERLAY MODULE SETUP - OPERATION TO BE DONE THIS PA 


MOV U.MBN(RS),RO ; 
MOV 0,U.CBN(RS) =: 
MOV U.MBN¢1(R5),RO ; 
MOV RO,U.CBN¢1(R5) : 
CLR R2 : 
MOV R2,U.CSEC(RS) 
MOV U.TSEC(RS) RO: 
SUB U.CSEC(R5).RO 
MOV U.PARM(R5).R1—: 
BIT #RBNBN,R1 : 
BEQ 1$ : 
“010000,1$ 
MOV 1, ; 
BR : 
“00 
BIT #REDWRT,R1 ; 
BNE 3 
“050000, 7$ 
CMP SECMAX,RO : 
BCC : 
“040000,8$ 
MOV SECMAX,RO ; 
R ag ; 
“00, 
CMP CHNMAX,RO ; 
BCC : 
“040000,8$ 
MOV AX, RO 
MOV RO,U.MSEC(RS) 
MOV U.MLEV(RS) ,R3 
MOV R3,U.ELEV(RS) 
MOV #~1,R3 
MOV 3,0. RWTO(RS) 
NOTE: R2 1S ZERO AT 
MOV R2,U.NSEC(RS) ; 
MOV R2.U.RRTY(R5) : 
MOV #SEEK,RO ; 
CALL ENABLE : 
“020000, ENABLE 
git #LEVUSD ! NXTLEV,R3 
“010000,4$ 
CALL GOSEEK : 
“020000, GOSEEK 
BIC #LEVUSD !NXTLEV,R3 
R3,U.RCOV(RS) ; 
JMPRET : 
“00, JMPRET 











SEQ 0665 


GET LO LBN 

GET HI LBN 

SAVE 

NO ERRORS 

SECTORS R/W IS ZERO 

GET TOTAL NUMBER OF SECTORS TO R/W 
MANY DONE 


AMETERS 
SEE IF AN RON IS BEING HANDLED 
IF NOT, BRANCH 


; ONLY READ/WRITE ONE SECTOR 
BRANCH 


SEE IF WRITE IS IN PROGRESS 
IF SO, BRANCH 


SEE !F TRYING TO READ MORE THAN POSSIBLE 
IF NOT, BRANCH 


SET RO TO MAXIMUM POSSIBLE SECTORS TO READ 
BRANCH 


SEE IF TRYING TO WRITE MORE THAN POSSIBLE 
IF NOT, BRANCH 


SET RO TO MAXIMUM POSSIBLE SECTORS TO WRITE 
SAVE IN NUMBER OF SECTORS TO R/W THIS PASS 
GET MAXIMUM ERROR REVCOVERY LEVEL 

STORE IN CURRENT LEVEL 

START RETRIES AT 0 

SAVE IN UNIT PARAMETER AREA 


IN 
NO SECTORES SUCCESSFULLY READ/WRITTEN 


; cco READ RETRY VALU 


OINT TO SEEK AS NEXT OPERATION 
ENABLE ERROR RECOVERY 


: SEE IF ERROR RECOVERY LEVELS USED 
IF NOT, BRANCH 


CAUSE A SEEK TO RESET ERROR RECOVERY 
: NO ERROR RECOVERY IN PROGRESS 


; SAVE 
; IMMIDIATE C 


ALL 
RETURN TO SEQUENCER 


1 
9 
10 
11 
12 
13 
14 
15 
24 005344 
28 
29 
30 
31 
32 005344 
33 005345 
34 005345 
35 005347 
005347 
36 005351 
37 005353 
005353 
38 005355 
39 005357 
005357 
40 005361 
41 005363 
Bes 
rk B08367 
005367 
44 005371 
45 005373 
005373 
46 005375 
47 00537 
8 005 
49 005401 
005 





104147 
102207 
050000 
102207 
010000 
104207 
000000 
104207 
000000 
102207 
010000 
104207 


000000 
104207 
114001 
114002 


000000 





040100 


005365 
000040 


005361 
005650 
005377 
006737 
005377 
000040 


005375 
006060 


005377 
007147 


003746 





-SBTTL 


— ae 
S 
s 


1$: 





UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 63 
weeeeetene OVERLAY MODULE NEWOP = SET UP NEW OPERATION (COMMON 


weeeeenaee OVERLAY MODULE NEWOP = SET UP NEW OPERATION (COMMON CODE TOO) 


SRARAAAEREAEEAAAAREREAEREEEEAEEEERAAEAEAAEREAEAEEAEEEEEAEEEEEREEEREEEEAAEEREEEEEEE 


SET UP A NEW OPERATION 


-ENABL LSB 
MOV (R4) ,RO 


S.PARM,0 
BIT #SEQSEK! INITW,RO 


ASSUME 
BNE 
“050000, 2$ 
BIT 


BEQ $ 
“010000,1$ 
MOV 


“010000,3$ 
MOV 


BR 
“00, JMPRET 


-DSABL LSB 


eimai 
#RNDBE ,RO 
4$ 
00,4$ 
MOV #RNDTG,RO 
R 4$ 
0,4$ 
at #BEUSED ,RO 
#SEQBE ,RO 
4$ 
00,4$ 
MOV #SEQTG,RO 
CLR R1 


R2 
JMPRET 


SERRA AEEREARAAEAAEEAEEREEAE ETE EEEEAAEEREREAREREEAEEEAEEREEEEEAEEEEEREEEEEREEEE 
SERA RERAEAEEAERERAEREEEEEREREERERERAEAEEEAAETEEREREREEREEEREEEEEERHEKEEEEEEEEEE 
SERA AEAAEAERAAEAERERAEEEEEEE EEE AAAAEERAEEEAEREREEEEEEAEAEERAEREREREEKEREEEEEEE 


GET SUBUNIT PARAMETERS 
ASSUME THAT S.PARM IS ZERO 

+ SEE IF BN'S ACCESSED SREQUENTIALLY 
IF SO, BRANCH 
SEE IF BEGIN/END SFTS USED 
IF NOT, BRANCH 


ae RANDOM BLOCK NUMBER (BEGIN/END SETS) 
GET A RANDOM BLOCK NUMBER (TRACKS/GROUPS) 
BRANCH 

SEE IF BEGIN/END SETS USED 


IF NOT, BRANCH 


GET A SEQUENTIAL BLOCK NUMBER (BEGIN/END SETS) 
EXIT (SHOULD BRANCH TO 7$) teeeenee 


GET A SEQUENTIAL BLOCK NUMBER (TRACKS/GROUPS) 


IMMIDATE CALL TO NEXT MODULE 
NO ERRORS 





5403 
5405 


104657 000046 
103207 004712 


5407 100657 000046 


fr 


SBTTL 
FTOP: 


‘ SBrTL 


;CLRUP 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 64 
AF = AFTER THE SECTOR HAS BEEN DETERMINED, FIND OUT WHAT T 


AFTOP = AFTER THE SECTOR HAS BEEN DETERMINED, FIND OUT WHAT TO DO WITH IT 
AFTER THE SECTORS TO BE READ/WRITTEN HAVE BEEN DETERMINED, SET UP THE 

REST OF THE OPERATION 

CLRUP = CLEAR ALL PARAMETER BITS 


CLRUP CLEARS ALL NECESSARY FLAG BITS 


MOV U.PARM(RS),RO _; MOVE UNIT PARAMETERS TO RO 
CLEAR ALL FLAGS BEFORE THE NEXT OPERATION 

BIC #R BNBN : REVEC : WCHECK ! DATCMP! REDWRT ! NEWSUB, RO 
MOV RO,U.PARM(R5)  ; SAVE UNIT PARAMETERS 


=] 


ot 


— 
NOU FW NM |0O OONOUSwr— 


on “= 


104142 
102202 


050000 
102202 
050000 
020000 
110601 


040000 
101207 
100657 


042000 


005427 
004000 


005433 
005563 
005433 


000100 
000046 





shy DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 65 SEQ 0668 
~ DETERMINE IF A READ OR A WRITE IS TO BE DONE 


7 they RORW <= DETERMINE IF A READ OR A WRITE IS TO BE DONE 


1$: 
2$: 


RORW DETERMINES IF THE BLOCK SELECTED WILL BE READ OR WRITTEN 


MOV wl “y ; GET SUBUNIT pen ia” 

ASSUME S.PA m.0 3 ASSUME THAT S.PARM_IS ZERO 

BIT MINITWIWONLY,R2 ; SEE IF ey he WRITE OR WRITE ONLY 
BNE : IF SO, BRANCH 

“050000,1$ 

BIT #RONLY ,R2 3; SEE IF READ ONLY 

BNE ; IF SO, BRANCH 

*050000,2$ 


: GET RANDOM NUMBER 


3 ROTATE LOW BIT INTO CARRY 
BCC 2$ : IF LOW BIT ZERO, BRANCH 
“040000, 2$ 

BIS #REDWRT RO ; SET READ OR WRITE BIT (WRITE) 
MOV RO,U.PARM(RS)  ; SAVE UNIT PARAMETERS 


CALL RANDOM 
“020000, RANDOM 
ROR R1 


a ee ee ee 


A 


= 
ou FW NM =]=0 OD NOUSwr— 


— —>— 


102207 
010000 
104641 
070000 
103201 
000000 
020000 
103201 


010000 
100651 


000100 
005457 
000004 
005447 
177760 
005455 


005563 
177760 


005447 
000014 


RNDO: 


FIXPAT: MOV 
PATEXT: 





G 4 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 66 
PATTRN = IF WRITE, DETERMINE WHAT PATTERN IS TO BE WRITTEN 


FIND PATTERN TO USE (ONLY 
BIT ri ele RO ; 


BEQ ATEXT 
— PATEXT 
S.PAT(R4),R1 8 


BEG RND g 
*010000,RND 
BIC #LBLONB,R1 : 
BR FIXPAT : 
*00,F IXPAT 

CALL ANDOM : 
“020000,RANDOM 
BI #LBLONB,R1 3 
BEQ 0 3 
*010000,RNDO 


”R1,U.PAT(RS) 


SEQ 0669 


seri PATTRN = IF WRITE, DETERMINE WHAT PATTERN IS TO BE WRITTEN 


IF WRITE TO BE DONE) 


SEE IF WRITE TO BE DONE 
IF NOT, BRANCH 


GET PATTERN NUMBER 
IF PATTERN NOT SELECTED, BRANCH 


SPECIAL PATTERN USED, CLEAR HI BITS (MAP 16 TO 0) 


; IF PATTERN SELECTED, USE IT 
; GET RANDOM PATTERN NUMBER 


CLEAR UNUSED BITS 
NO SUCH THING AS PATTERN 0, TRY AGAIN 


SAVE THE PATTERN NUMBER 


zc 


- IF WR 


5473 
5475 
5475 
5477 


— = —— 


~ 
COn OM fF wh =|0 OD NOuFrwrn— 


$8888S8888388888S8sss 


a ed 
MUIVviwy 
uw 


102207 
010000 
102202 
010000 
102202 
050000 
102202 
050000 
020000 
110601 


040000 
101207 
100657 





000100 


005510 
000010 


005510 
040000 
005510 
000004 
005504 
005563 


005510 
sie th 


-SBTTL WCHK 
; WCHK 


1$: 
2$: 


oy DISK i hae DMACR X04.01 23-AUG-82 12: ger ome PAGE 67 
WCHK ITE, SEE IF A WRITE CHECK IS TO BE D 





H 4 


SEQ 0670 


- IF WRITE, SEE IF A WRITE CHECK IS TO BE DONE 


WCHK SETS THE WRITE CHECK BIT IF A WRITE CHECK IS TO BE DONE 


BIT #REDWRT,RO 
BEQ 
“010000,2$ 
BIT MWCHECK ,R2 
BEQ 
“010000,2$ 
BIT #INITW,R2 
_ 
att zoeeee 2s 
#WCHKAL ,R2 

aNe 

050000,1$ 
CALL RANDOM 
“020000,,RANDOM 
ROR R1 
BCC 2$ 
*040000,2$ 
BIS #WCHECK ,RO 
MOV RO,U.PARM(RS) 


—_——— C+ 


; SEE IF WRITE IS TO BE DONE 
: IF NOT, BRANCH 


7 IF WRITE CHECK IS TO BE DONE 
IF NOT, BRANCH 


SEE IF INITIAL WRITE IS IN PROGRESS 
IF SO, NO WRITE CHECK, SO BRANCH 


SEE IF po o—— IS ALWAYS TO BE DONE 
IF SO, BRANC 


GET RANDOM NUMBER 


1/2 OF THE TIME WRITE CHECK 
BRANCH (NO WRITE CHECK) IF LOWEST BIT CLEAR 


SET WRITE CHECK BIT 
SAVE UNIT PARAMETERS 


voat DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 68 hy 


= IF READ OR WRITE W/WRITE CHECK, SEE IF DATA COMPARE I 


1 

2 

3 

4 

5 

6 005510 

7 005512 
005512 

8 005514 

9 005516 
005516 

10 005520 

11 005522 
005522 

12 005524 

13 005526 
005526 

14 005530 
005530 

15 005532 

16 005533 
005533 

17 005535 

18 005537 

19 005541 


102202 
010000 
102207 
010000 
102207 
010000 
102202 
050000 
020000 
110601 


ps 4 
101207 
100657 


000002 


005541 
0001060 


005524 
000010 


005541 
000001 


005535 
005563 


005541 
000002 
000046 


-SBTTL DCOMP = IF READ OR WRITE 
; DCOMP 


: DCOMP SETS THE DATCMP BIT 
ait #DATCMP,R2 é 
“010000 ,DCEXT 
BI #REDWRT,RO $ 
BE EAD 3 
“010000, DCREAD 
BI #WCHECK RO F 
BE XT : 
*010000,DCEXT 

DCREAD: BIT #DCMPAL ,R2 : 
BNE DCMPYS : 
“ee DCMPYS 
CAL RANDOM ; 
«956000, RANDOM 
ROR R1 : 

DCEXT : 
*040000 ,DCEXT 
DCMPYS: BIS #DATCMP,,RO 3 


MOV RO,U.PARM(RS) : 
DCEXT: 


; SET DATA COMPARE B 


SEQ 0671 
W/WRITE CHECK, SEE IF DATA COMPARE IS TO BE DONE 


IF A DATA COMPARE IS TO BE DONE 


a° IF DATA COMPARE REQUESTED 
IF NOT, BRANCH 


SEE IF READ IS TO BE DONE 
IF SO, BRANCH 


SEE IF gob CHECK IS TO BE DONE 
IF NOT, BRANCH 


SEE IF DATA COMPARE ALWAYS DONE 
IF SO, BRANCH 


GET RANDOM NUMBER 


SEE IF DATA COMPARE SHOULD BE DONE 
IF NOT, BRANCH 

IT 
SAVE UNIT PARAMETERS 





J 4 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 69 SEQ 0672 
DCOMP = IF READ OR WRITE W/WRITE CHECK, SEE IF DATA COMPARE | 
1 005541 104657 000051 MOV U.MBN(RS),RO  ; GET LO LBN 
é 005543 100657 000053 MOV RO,U.CBN(RS) ~—s; 
005545 104657 000052 MOV U.MBN+1(R5),RO : GET HI LBN 
4 005547 100657 000054 MOV RO,U.CBN¢1(R5) : SAVE 
5 005551 114008 CLR R2 + NO ERRORS 
6 005552 100652 000024 MOV R2,U.CSEC(RS) : SECTORS R/W IS ZERO 
7 005554 100652 000021 MOV R2,U.NSEC(R5) : SECTORS R/W THIS PASS IS ZERO 
8 005556 114001 CLR R1 : IMMIDATE CALL TO NEXT MODULE 
9 005557 104207 005134 MOV #SETUP,RO : NEXT MODULE IS SETUP 
10 005561 BR JMPRET : RETURN TO SEQUENCER 
005561 000000 003746 “00, JMPRET 


vreshe: ry EXERCISER DMACR 2 01 /onts beg Cencrece wack (iat Mbeabe 12:06:46 PAGE 70 
RANDOM = RANDOM ROUTI 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
| 3 
2 


NUMBER 


NOUS wr— 
uw 
w 
o 
Ww 


seasssssssesssssessesess 


67 

62 

07 003007 
01 Beane 
02 00000 


07 000001 
0000 005573 
003007 
005607 


003010 
207 001057 


005616 

201 047401 
0 003007 

010 003010 


wi 
wi 
~“ 
Ww 
“OO eww 


at ot ot oe 
MANA 

& So=k 

S 


wi 

& 

esi moO 
— = — J es 





SEQ 0673 


ion: RANDOM = RANDOM NUMBER ROUTINE 


1$: 


2$: 


3$: 


RANDOM cats A RANDOM NUMBER AND RETURNS IT IN R1 


RANGE 0 

PUSH <RO,R2> 
MOV LOSEED,RO 
MOV HISEED,R1 
MOV #7,R2 

ROL 

ROL R1 
BIC #1,R0 

DEC R2 
BNE 1$ 
“050000, 1$ 
ADD LOSEED,RO 
*040000,2$ 

INC R1 

ADD HISEED,R1 
ADD #1057,R0 
BCC 3$ 
“040000, 3$ 

INC 

ADD #47401,R1 
MOV RO,LOSEED 
MOV R1,HISEED 
POP <R2,R0> 


RETURN 
“00.0 


Se Se Se Be Bete Sete Ge Ge Ge Se Ge & 


; SAVE RO AND R2 


MOV RO,=(SP) 
MOV R2,-(SP) 


; MOVE LO ort hy SEED TO RO 
SEED TO R1 


ROTATE LO ORDER NUMBER BY 1 

ROTATE HI OREDR NUMBER BY 1 (PROPOGATE CARRY) 
CLEAR LOWER BIT 

DECREMENT COUNT 

IF COUNT INCOMPLETE, BRANCH 


ADD ORIGINAL SEED ‘x129) 
IF NO CARRY, BRANCH 


PROPOGATE CARRY 
ADD HISEED 

ADD LO CONSTANT 

IF NO CARRY, BRANCH 


PROPOGATE CARRY 
ADD HI CONSTANT 
SAVE LO ORDER SEED 
SAVE HI ORDER SEED 
RESTORE R2 AND RO 


MOV (SP)+,R2 
MOV (SP)+,RO 


eae ee Ce Ce Ce —— = ——— 


L 4 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 71 SEQ 0674 
MASK = FIND MASK FOR RANDOM NUMBER 





Ph Ue MASK = FIND MASK FOR RANDOM WUMBER 


S 
oa 
3 


MASK MASKS OUT HIGHER BITS OF A RANDOM NUMBER, SO THE PROB. OF THE 
RANDOM NUMBER EXCEEDING THE MAXIMUM DESIRED I$ LESSENED 


NM—O0O NOuflwrn— 


630 PUSH R1 3 SAVE R1 
005630 100461 MOV R1,-(SP) 
005631 114001 CLR R1 : ZERO R1 
O02038 105011 1$: ADD R1,R1 ; ROTATE R1 ONE BIT LEFT 
10 005633 101201 000001 BIS #1,R1 ; TURN ON BIT 0 
11 005635 106017 CMP R1,R0 ; SEE IF R1 IS GREATER THAN RO 
12 005636 BCS 1$ ; IF NOT, BRANCH 
005636 040000 005642 “040000, .+3 
005460 000000 005632 “00,18 
13 005642 104207 177777 MOV #-1,R0 ; SET UP FOR COMPLEMENT 
14 005644 103017 BIC R1,RO : COMPLEMENT R1 
15 005645 POP R1 : RESTORE R1 
005645 104261 MOV (SP)+,R1 
16 005646 RETURN ; RETURN TO RNDLBN 


005646 000000 000000 00,0 


mc a C+ +e - 





UDAT4 DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 72 
weeeeeeene OVERLAY MODULE RNDBE - GET NEXT RANDOM BEGIN/END SE 


weeeeeeeete OVERLAY MODULE RNDBE - GET NEXT RANDOM BEGIN/END SET SECTOR 
PPP LILI iT iT ri rir iter iti ili tii titiiitiiiiititiiietetitititiri ttt is 
PITTI rit it iti titi iit ititititiiiiiitity 


SUSWwN-O0o- 


005650 


NN @ ws es es 


32 
34 go7620 


38 005655 
655 
39 005657 


675 

48 005677 
005677 
49 005701 
50 005703 


005703 
51 005705 
2 005707 





106207 
070000 


019000 
103201 


000000 
106201 


070000 


104 
105 
105077 
105 
105 


000016 


005664 
000004 


005654 


005714 
005563 
177774 
000002 
005711 


005705 
177776 


005711 
000002 


005667 


000013 


~SBTTL 


RNDBE : 


CNTLOP: 


COUNTD: T 


TRYAGN: CALL 


THREBE : 


SEQ 0675 


SRR AEAAAEEEEERAEREAEEEEEE EERE EEEEAEEREERAEAEERAEREEREEREEREKEEEEEEEEEEEEREEEE 
aia ainda aaa aii inna tain 


RNDBE GETS A RANDOM LBN NUMBER 


GCT A RANDOM BEGIN/END SET 
ENABL LSB 
CLR RO 


MOV (R3) ,R2 
BMI COUNTD 
“070000, COUNTD 
ADD #4,R3 


CNTLOP 
*00, CNTLOP 
oor 


BO TOFS 
“010000, GOrOFS 
RANDOM 
7 ete RANDOM 
#177774,R1 
#2,R 


BMI YAGN 
“070000, TRYAGN 
R1,R0 


GOTOBE: MOV . 

ADD RO,RO 

ADD RO,RO 
GOTOFS: ADD #S.BESS,RO 


ADD R4,RO 


MOV #S.BESS+3,R3 
R4,RS 


FROM THE SUBUNIT’S B/E SETS 


INITILIZE COUNTER 

R3 point’ te od! B/E SET 
R3 P FIRST B/E SET 
MOVE OFOL FLAG WORD TO R2 
IF END-OF-LIST, BRANCH 


a 
_ 


3 POINT TO NEXT EOL WORD 


INCREMENT COUNT 
IF NOT, TRY AGAIN 


SEE IF COUNT = 0 
IF SO, SRANCH 


GET A RANDOM NUMBER 

MASK OUT ALL BUT 2 LOWEST BITS 
TEST HOW COUNT RELATES TO 2 

IF COUNT IS 3, BRANCH 

IF COUNT IS 2, BRANCH 

MASK OUT ALL BUT LOWEST BIT 
BRANCH 


SEE IF RANDOM NUMBER OVER 2 
IF SO, GET ANOTHER NUMBER 


; MOVE RANDOM NUMBER TO RO 
RO X 2 


ROX 2 
POINT TO RANDOM BEGIN/END SET 
POINT TO RANDOM BEGIN/END SET 


«Cc 





UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 73 
weeteeeene OVERLAY MODULE RNDBE - GET NEXT RANDOM BEGIN/END SE 


NOBORO: 


wed 2) 


- 
On Oo USWN-O COON 


“4 


756 

27 005760 
005760 

28 005762 
29 005763 
005763 

30 005765 
31 005766 

32 005767 
005767 
005771 


33 O03773 
34 00577 


= — 
ooo S2RSS 


at 


115005 


010000 
104057 


106053 


040000 
000000 


050000 
104047 
020000 
103071 
106041 
040000 
000000 
104012 


104267 
105272 


040000 


105013 
104265 


005727 


170000 


005563 
003007 


005762 


005630 
003010 


005760 
005735 
005773 


005630 


005773 
005735 


006001 


170000 


10$: 


11$: 


CLCLBN: 


3$: 


ONCE A RANDOM 4 od HAS 


WITHIN THAT B/E S 
PUSH <R4,R5> 
MOV (RO) +,R4 
MOV (RO)+,R5 
SUB (RO)+,R4 
BCC NOBORO 
> nectar pam 


(RO) ,R1 
BIC #17000,R1 


SUB . 
DEC 

PUSH RO 
CALL RANDOM 
“020000,RANDOM 


CLR R 

MOV LOSEED,R1 
ae +3 

BEQ 11$ 
“010000,11$ 
4 "RSL 

MASK 
«090000, MASK 

MOV BISEED.RS 


BNE CLCLBN 
— CLCLBN 
R4,RO 
MASK 
“026000, MASK 
RO,R1 
cH one R1 
10$ 
#540000...» +3 
“00,108 
MOV R1,R2 
POP RO’ 
ADD (RO)+,R2 
B $ 
“040000, a 


BIC #170600, R1 
POP ty R4> 


BEEN FOUND, FIND A RANDOM LBN 


SAVE R4 AND R5 
MOV R4,-(SP) 
MOV R5,=(SP) 
R4 GETS LO ORDER ENDING LBN 
R5 GETS HI ORDER ENDING LBN 
SUBTRACT LO ORDER STARTING LBN 
IF NO BORROW, BRANCH 


ADJUST FOR BORROW 
GET HI WORD 

STRIP OFF EOL FLAG (IF ANY) 
SUBTRACT HI ORDER STARTING LBN 
ohkun ae” LO ORDER STARTING LBN 


MOV RO,-(SP) 
GET A RANDOM NUMBER 


ORIGINAL SEED_IN R1 
SEE IF R5 IS ZERO 
IF SO, BRANCH 


; ELSE, STORE IN RO 
: COMPUTE RANDOM NUMBER MASK 


MOVE RANDOM mASK INTO R3 


CLEAR WITH 
CMP _MAXI ANDOM NUM TO RANDOM NUM 


MUM R 
IF TOO LARGE, DO AGAIN 


IF NOT THE SAME, BRANCH 


MOVE R4 TO RO TO COMPUTE MASK 
COMPUTE MASK 


MASK OUT HIGH BITS 
SEE IF MAX RND NUM < RANDOM NUMBER 
IF SO, DO AGAIN 


MOVE RANDOM NUMBER TO R2 
RESTORE RO 
(SP)+,RO 


MOV 
ADD LO ORDER STARTING BLOCK TO RANDOM NUM 
IF NO CARRY, BRANCH 


ADJUST HIGH ORDER FOR CARRY 
MOVE HI ORDER LBN TO R1 


; STRIP OFF a) i IF ANY 


ADD HI ORD 


; RESTORE RS Rad 


MOV (SP)+,R5 






S606 104264 
42 006007 107207 000003 
43 006011 104271 
= Boentg 104177 
45 006013 107021 


070000 006024 
040000 006021 


206022 010000 006026 
51 006024 104201 077776 
52 006026 115401 
Fg 006027 104017 
55 006030 

006030 100463 
56 006031 


006031 020000 005563 


7 006033 103201 177740 
58 006035 115401 
9 006036 106071 
60 006037 
006037 070000 006042 
és 006042 100657 000023 
8 006044 
006044 104263 
64 006045 104207 000051 
65 006047 105057 
66 006050 100272 
67 006051 100173 
68 006052 104207 005403 
69 006054 114001 
y Brena? 114002 
006056 000000 003746 


UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 73-1 
seeeeeneee OVERLAY MODULE RNDBE - GET NEXT RANDOM BEGIN/END SE 


18: 


4$: 
2s: 


6$: 


SUB #3,R0 
MOV (RO)+,R1 
MOV (RO) ,RO 
SUB R2,Ri 
BMI 4$ 
“070000,4$ 

BCC 1 
“040000, 1$ 

DEC RO 

SUB R3,RO 
BEQ 

“010000, 2$ 

MOV #77776,R1 
INC R1 

MOV R1,RO 
PUSH = R3 


CALL RANDOM 

* » eet RANDOM 
#MAXMSK ,R1 

Tne R1 

CMP RO,R1 

BMI 

“070000,6$ 

MOV ir 

MOV RQ. oU.TSECC(RS) 


MOV ay. le RO 


MOV R2. tROD« 
MOV R3, (RO) 


MOV #AF TOP ,RO 
CLR R1 

CLR 2 

BR JMPRET 
“00, JMPRET 


-DSABL LSB 












MOV (SP)+,R4 
RO POINTS TO ENDING L 


Fan NG LBN 
SUBTRACT LO LBN FROM LO ENDING LBN 
IF RESULT IS NEGATIVE, BRANCH 


; IF NO CARRY, BRANCH 


DECREMENT HI ENDING LBN 
SUBTRACT HI LBN FROM HI ENDING LBN 
IF HI WORD IS ZERO, BRANCH 


MOVE MAXIMUM COUNT TO R 
INCREMENT tah te SECTOR COUNT 
COPY TO RO FOR MAXMUM 


SAVE R3 
MOV R3,-(SP) 
GET A RANDOM NUMBER OF SECTORS TO READ/WRITE 
SET READ/WRiTE LIMIT 
E MAXIMUM LIMIT+ 


MAKE MAX OF T+1 
SEE IF RANDOM NUMBER EXCEEDS POSSIBLE 
IF SO, BRANCH 


: ONLY READ/WRITE THE RANDOM NUMBER OF SECTORS 
: SAVE _IN TSEC 
; RESTORE RS 


MOV (SP)+,R3 


; RO POINTS TO LBN ro 7 


NO ERRORS 


SEQ 0677 | 


nao 


C 
UDATS DISK EXERCISER DMACR x04.01 23-AUG-82 12:06:46 PAGE 74 SEQ 0678 
seeeeeeeee OVERLAY MODULE SEQBE - GET NEXT SEQUENTIAL BEGIN/EN 





1 -SBTTL ‘*eeeeeeee OVERLAY MODULE SEQBE - GET NEXT SEQUENTIAL BEGIN/END SET SECTOR 
9 FARRAR AAAAAAAEAERAAEEEAEEEEEERERAAERARAAAAERAEREAREREREEEEREEEERREEAEEEEEEEEERE 
10 FRRARARAERAEAAAEAAEAEAAEEEEAEEEEEEEEEEEAAEEEERERAEAEAEEREEEEEEEAEEREREREREREREEEE 
11 FRRAAAAAAARAEEAAEERERAEEEEEEEEEEEEAERAEEAEREEAAAEHERAEEEREREREEREAEEAAEREREREEE 
\¢ FERRARA EAAAAAAAERAEEEEEEEEERETEEEEEEAEEAAEREEAAEREEREREEEREEEEREEREEEEEREKEREEES 
1 5 
14 : 
15 : 
3h 006060 SEQBE: 
33 ; SEQBE FINDS THE NEXT SEQUENTIAL LBN 
31 .ENABL LSB 
32 006060 104657 000046 MOV U.PARM(RS),RO ; MOVE UNIT PARAMETERS TO RO 
33 006062 102207 010000 BIT #DIREC,RO : TEST DIRECTION 
34 006064 BEQ uP ; IF SEQUENTIAL UP, BRANCH 
006064 010000 006212 “010000,UP 
35 006066 115000 003002 TST SCRI : SEE IF NEW SUBUNIT 
36 006070 BEQ 5 : IF NOT, BRANCH 
006070 010000 006117 “010000,5$ 
37 006072 104201 000013 MOV #S.BESS,R1 : RO WILL POINT TO BEGIN/END SETS 
38 006074 105041 ADD oR : RO POINTS TG BEGIN/END SETS 
39 006075 104617 000003 6$: MOV 3(R1),RO : SEE IF END-OF-LIST 
40 006077 BMI 3 IF SO, BRANCH 
006077 070000 006105 “070000,8$ 
41 006101 105201 000004 ADD #4,R1 ; POINT TO NEXT BEGIN/END SET 
42 006103 BR + LOOP 
006103 000000 006075 “00,6$ 
43 006105 104202 000051 8$: MOV #U.MBN,R2 z.R2 WILL POINT TO MASTER BN 
44 006107 105052 ADD R5.R2 : R2 POINTS TO MASTER BN 
45 006110 104217 MOV (R1)+,RO : GET LO ORDER ENDING SET 
46 006111 100127 MOV RO, (R2 : SAVE 
47 006112 104217 MOV (R1)+,RO : GET HI ORDER ENDING SET 
48 006113 100627 000001 MOV RO,1(R2) : SAVE 
49 006115 BR 7$ + BRANCH 
006115 000000 006142 “00,7$ 
50 006117 5$: CALL FNDBES ; FIND BEGIN/END SET THAT LBN IS IN 
006117 020000 006343 “020000, FNDBES 
51 006121 105201 000002 ADD #2,R1 : POINT TO BEGIN SET 
52 006123 CALL _ CMP2 : SEE IF LBN = BEGINNING LBN 
006123 020000 002536 “020000, CMP2 
53 006125 BE BE SDWN ; IF SO, BRANCH 
006125 006167 “010000,BE SDWN 
54 006127 104127 MOV (R2),RO : MOVE LOW ORDER WORD TO RO 
55 006130 107207 000001 SUB #1,R : DECREMENT RO 
56 006132 100127 MOV RO, (R2) : SAVE 
57 00613 BCC 7$ : IF NO BORROW, BRANCH 
006133 040000 006142 “040000, 7$ 
58 006135 104627 000001 MOV 1(R2),RO : MOVE HIGH ORDER WORD TO RO 
59 006137 117407 DEC RO : DECREMENT RO 
60 006140 100627 000001 MOV RO, 1(R2) : SAVE RO 
61 006142 104227 7$: MOV (R2)+,RO + MOVE LO ORDER BN TO R 
62 006143 104223 MOV (R2)+,R3 : MOVE HI ORDER BN TO R 
63 006144 107217 SUB (R1)+,RO : SUBTRACT BEGIN BN FROM BN 
64 006145 BMI 4$ ; IF RESULT IS NEGATIVE, BRANCH 
006145 070000 006160 “070000,4$ 
65 006147 BCC 1$ : IF NO BORROW, BRANCH 





1 
1 
1 
1 
1 
1 
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99 006237 
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S “aus 


FSEGESES a 
ANNAN So 


sao — 
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006152 
170000 


006162 
077776 
006366 
006171 
006414 
000023 
000051 
000051 


006210 
000052 


000052 


006323 
003002 


006237 
000013 


006277 


000051 
000023 





UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 74-1 
eeeeeeeeee OVERLAY MODULE SEQBE - GET NFXT SEQUENTIAL BEGIN/EN 


1$: 


4$: 


$$: 


BESDWN: 
NLBEXT: 


1$: 
UP: 


5$: 
-SBTTL 
;UPLBN 








SEQ 0679 


3040000,18 

DEC R : PROPOGATE BORROW 

MOV (R1),R1 : GET BEGINNING BN 

BIC #*CHBHINB,R1 =: CLEAR EOL FLAG, IF 

SUB R1,R3 + SUBTRACT HI ORDER en” FROM HI BN 
: IF EQUAL, BRANCH 


MOV 49777, RO ; MOVE MAXIMUM COUNT TO R Ms 
N R MAKE SUBTRACTION INCLUSI 


INC 0 ; VE 

CALL MAXMUM 3; SET MAXIMUM COUNT (U.TSEC AND U.MSEC) 
*020000 ,MAXMUM 
BR NLBEX 3; BRANCH 

*00 ,NLBEXT 

TH L LSB 

CAL PRE VBE ; FIND PREVIOUS B/E SET OR UNIT 
“926000, PRE VBE 

U.TSECC(RS) ,R1 3; GET TOTAL pets 4 OF SECTORES TO READ/WRITE 

DEC 3; DECREMENT SECTOR COUNT 

MOV U.MBNC(RS),R3 3; GET LO ORDER MASTER BN 

SUB 3; SUBTRACT SECTORS TO READ/WRITE 
MOV R3, U.MBN(RS) 3 SAVE 
BCC 3 IF NO CARRY, BRANCH 

*040000,1$ 
MOV U.MBN+1(R5),R3 =; GET HI ORDER MASTER BN 

DEC 3 PROPOGATE CARRY 

~ yy R3,U.MBN+1(R5) ; SAVE 

BE ExT : BRANCH 
B60. BEEXT 
ot SCR1 ; SEE IF FIRST TIME ON THIS SUBUNIT 


: IF NOT, BRANCH 


5$ 
2510000, 5$ 
MOV ; RO WILL POINT TO BEGIN/END SETS 


#S.BESS,R1 


ADD 4,R1 : RO POINTS TO {BEGIN/EN D SETS 

MOV #U.MBN,R2 : R2 WILL POINT TO MASTER BN 

ADD R5,R2 > R2 POINTS TO MASTER BN 

MOV 2(R1) RO : GET LO ORDER STARTING SET 

MOV RO, (R2) : SAVE 

MOV (R1), : GET HI ORDER STARTING SET 

BIC #*CHBHINB,RO =; CLEAR EOL FLAG IF ‘ 
MOV 1(R2 : SAVE 

BR + BRANCH 


UPLBN = IF GOING UP, UPDATE CURRENT BN TO LAST BN READ/WRITTEN 


UPLBN UPDATES U.MBN TO POINT TO THE LAST LBN READ/WRITTEN 
(INCREASING LBN) 


PUSH <RO,R2> 3 SAVE RO,R2 
MOV RO,-(SP) 
MOV R2,-(SP) 
MOV aU. MBN ,R2 R2 POINTS TO LAST LBN 
ADD Rs R2 POINTS TO LAST 


MOV U. TSEC(RS), RO 
ADD (R2),RO 


LBN 
GET ee OF SECTORS WRITTEN 
SUBTRACT ONE 

ADD LOW ORDER LBN TO RO 


BRETT eceranineeyeereernras . 
loan DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 74-2 SEQ 0680 


UPLBN = IF GOING UP, UPDATE CURRENT BN TO LAST BN READ/WRITTE 


112 006250 100227 MOV RO, (R2)+ : SAVE LOW ORDER WORD, POINT TO HIGH ORDER 
11 006251 BCC $ : IF NO CARRY, BRANCH 
006251 040000 006256 “040000, 8$ 
114 006253 104127 MOV (R2),RO 7 GET HIGH ORDER WORD 
115 006254 115407 INC + INCREMENT 
116 006255 100127 MOV RO, (R2) : SAVE HIGH ORDER WORD 
117 006256 8$: POP = <R2,RO> ; RESTORE RO,R2 
006256 104262 MOV (SP)+,R2 
006257 104267 MOV (SP)+.RO 
118 006260 CALL _ FNDBES ; FIND BEGIN/END SET THAT LON IS IN 
006260 006343 “020000, FNDBES 
119 006262 BE BE SUP ; IF LBN = ENDING LBN, BRANCH 
006262 006321 “010000,BE SUP 
120 006264 MOV (R2) RO ; MOVE LOW ORDER WORD TO RO 
121 006265 000001 ADD #7,R0 : INCREMENT RO 
122 006267 MOV RO, (R2) : SAVE RO 
123 006270 BCC 7$ : IF NO CARRY, BRANCH 
006270 006277 “040000, 7$ 
124 006272 000001 MOV 1(R2),RO ; MOVE HIGH ORDER WORD TO RO 
125 006274 INC RO : INCREMENT RO 
126 006275 000001 MOV RO,1(R2) : SAVE RO 
127 006277 MOV (Ri)+,R : RO HAS LO ERDING LBN 
128 006300 MOV (R1), : R3 HAS HI ENDING LBN 
129 006301 SUB (R2)+,RO ; SUBTRACT LO LBN FROM LO ENDING LBN 
130 006302 BMI 4$ : IF RESULT IS NEGATIVE, BRANCH 
006302 006312 “070000,4$ 
131 006304 : IF NO CARRY, BRANCH 
006304 040000 006307 “040000, 1$ 
132 006306 117403 DEC R ; PROPOGATE CARRY 
133 006307 107123 1$: SUB (R2) ,R3 : SUBTRACT HI LBN FROM ENDING LBN 
134 006310 BE : IF ZERO, BRANCH 
006310 010000 006314 “010000, 2$ | 
135 006312 104207 077776 4$: MOV #77776,RO : MOVE MAXIMUM COUNT TO RO 
136 006314 115407 2$: INC RO : MAKE SUBTRACTION INCLUSIVE 
137 006315 3$: CALL MAXMUM : SET MAXIMUM COUNT (U.TSEC AND U.MSEC) 
006315 020000 006366 “020000, MAXMUM 
138 006317 BR BEEXT : BRANCH 
006317 000000 006323 “00,BEEXT 
139 006321 BESUP: CALL _ NEXTBE : FIND NEXT B/E SET OR UNIT 
006321 02 006460 “020000,NEXTBE 
140 006323 104657 000046 BEEXT: MOV U.PARM(RS),.RO  ; GET UNIT PARAMETERS 
141 006325 102207 004000 BIT #NEWSUB, RO : SEE IF NEW SUBUNIT 
142 006327 BEQ ; IF NOT, BRANCH 
006327 010000 006335 “010000, 1$ 
143 006331 104207 005344 MOV #NEWOP RO : NEWOP NEXT MODULE 
144 006333 BR 2$ + BRANCH 
006333 006337 “00,28 
145 006335 104207 005403 1$: MOV #AFTOP,RO : NEXT MODULE IS AFTOP 
146 006337 114001 2$: CLR R1 : IMMIDATE CALL 
147 006340 114002 CLR R2 : NO ERRORS 
148 006341 BR JMPRET + RETURN TO SEQUENCER 
006341 000000 003746 “00, JMPRET 








F 5 
es DISK EXERCISER DMACR XK04.01 23-AUG-82 12:06:46 PAGE 75 SEQ 0681 
FNDBES = FIND THE BEGIN/END SET CURRENT BN RESIDES IN 





FJ 4 FNDBES = FIND THE BEGIN/END SET CURRENT BN RESIDES IN 


1 

§ 006343 

3 ; FNDBES FINDS THE BEGIN/END SET THAT THE CURRENT LBN RESIDES IN 

6 006343 IOS o7 177777 MOV #=1,R3 ; START COUNTER (ADJUSTED) 

? 006345 104201 000007 MOV #S.BESS=-4,R1 ; POINT TO B/E SETS 

8 006347 105041 ADD R4,R1 ; POINT TO B/E SETS 

9 00635 IES OS 000051 MOV #U.MBN,R2 : POINT TO LBN 

10 006352 10505 ADD R5,Re : POINT TO LBN 

11 set 105201 000004 FNDLOP: ADD #4,R1 3 INCREMENT B/E SET POINTER 

12 006355 115403 INC R3 : INCREMENT COUNT 

13 200536 CALL CMP : COMPARE LBN WITH ENDING LBN 
006356 020000 002536 “020000. CMP 

14 006360 OuT : IF = TO, BRANCH 
006360 010000 006364 “010000,0UT0 

15 006362 BCC FNDLOP ; IF LON > ENDING LBN, BRANCH 
006362 040000 006353 “040000, FNDLOP 

16 006364 OUTO: RETURN 3 RETURN TO CALLING PROGRAM 
006364 000000 000000 “00.0 





ote tay | EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 76 


FIND HOW MANY SECTORS TO READ/WRITE 


—s 


115000 
070000 
115000 
010000 
020000 


000000 
106647 
030000 
104647 
100657 


000000 


003006 
006410 
003002 
006402 
006543 
site 


000006 
000023 
000000 


- SBTTL 
MAXMUM: 


G 5 


SEQ 0682 
MAXMUM = FIND HOW MANY SECTORS TO READ/WRITE 


MAXMUM WILL WRITE THE oa oe NUMBER OF SECTORS IF IN INITIAL WRITE, 
OTHERWISE IT WILL R/W ONE TRACK 


TST M.PARM : SEE IF INITIAL WRITE IS IN PROGRESS 
BM 1 3 IF SO, BRANCH 
*070000,1 


018 
ASSUME IWIPRG,100000 ; ASSUME IWIPRG IS SIGN BIT 
TST SCR1 SEE IF FIRST TIME ON THIS UNIT 
+ IF NOT, BRANCH 


BEQ 2$ 
“0 * +y eaate 2s 


NXTTRK 3; ALIGN WITH NEXT TRACK 
£050000,NXTTRE 
a 38 3$ 3; EXIT 
CMP S.TRKL(R4),RO 3; SEE IF TRACK GREATER THAN MAX 
BPL 3; IF LESS THAN TRACK LENGTH, BRANCH 
*030000,1$ 
MOV S.TRKL(R4) ,RO 3; R/W ONE TRACK 
MOV RO,U.TSEC(RS) 3; SAVE NUMBER OF SECTORS TO R/W 
dh 3; RETURN TO CALLING PROGRAM 












006414 


115003 
050000 
104657 
101207 
100657 


000000 
107201 


Ney tate pe hth oh sh oe prt —— 
MEW NUVI NU 


020000 
104217 
104212 
107217 
070000 


-—-9O0 ON OUFW W—"OCOVUONOUFSwH— 


ssepeneneseie® 


22 006436 


UDATS DISK EXERCISER DMACR X04.01 23=AUG-82 12:06:46 PAGE 77 
PREVBE = MOVE TO PREVIOUS BEGIN/END SET 


WAS THE 
/ 


Se Se Se ete te teste Wo 


TST RZ 
BNE 5 
006427 *050000,5$ 
000046 MOV U.PARM(RS),RO 
004000 #NEWSUB, 
000046 RO,U.PARM(RS) 
BR 6$ 
006456 mS 6$ 
000006 5$: oS 4 
006527 “926000, MOV2 
(R1)+,RO 
MOV (R1)+#,R2 
SUB (R1)+,R0 
BMI 4$ 
006451 “070000,4$ 
006443 *040000,1$ 
DEC R2 
1$: MOV (R1),R1 
170000 BIC #*CHBHINB,R1 
as R1,R2 
BEQ 2$ 
006453 *010000,2$ 
077776 4$: MOV #77776,R0 
2$: INC RO 
3$: 
006543 


CALL NXTTRK 
“020000 ,NXTTRK 
RETURN 

000000 mn 





SEQ 0683 


+ ML! PREVBE = MOVE TO PREVIOUS BEGIN/END SET 


tos tg a CALLED IF THE LBN’S ARE ee AND THE LAST LBN 
FIRST LBN WITHIN A FIN 


A B/E SET. PREVBE 
ON THE S 


T, FI 
F IT IS THE FIRST "BE SET OF THE FIRST 


V 
Ve teal th DIRECTION OF THE LBN'S ARE REVERSED (THEY BEGIN GOING UP 


SEE IF ALLREADY ON 1ST B/E SET 
IF NOT, BRANCH 


GET UNIT PARAMETERS 
ave AS GOING ON TO THE NEXT UNIT 


EXIT 


POINT TO PREVIOUS FNDING SET 
MOVE ENDING SET TO LBN 


RO HAS LO ENDING LBN 

R2 HAS HI ENDING LBN 

SUBTRACT _LO BEGINNING LBN FROM LO ENDING 
IF RESULT IS NEGATIVE, BRANCH 


IF NO CARRY, BRANCH 


PROPOGATE CARRY 
GET BEGINNING 

CLEAR EOL FLAG, IF 

SUBTRACT HI ORDER BN FROM HI BN 
IF ZERO, BRANCH 


; MOVE MAXIMUM COUNT TO 


RO 
TO MAKE IT AN INCLUSIVE SUBTRACT 
SET MAXIMUM COUNT (U.TSEC AND U.MSEC) 


RETURN TO CALLING PROGRAM 





I 5 


~ shh DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 78 


TBE = MOVE TO NEXT BEGIN/END SET 


nN 
oa 
o 


1 
3 
4 
5 
6 
7? 
8 
9 
10 
11 006460 
12 006462 
006462 
13 006464 
14 006466 
15 006470 
16 006472 
006472 
17 006474 
18 006476 
006476 
19 006500 
20 006502 
21 006503 
22 006504 
23 006505 
006505 
24 006507 
006507 
25 006511 
26 006512 
27 006513 
28 006515 
29 006516 
006516 
30 006520 
31 006522 
32 006523 
006523 
33 006525 
006525 


104617 
030000 


104657 
101207 
100657 


000000 
105201 
020000 
107201 

04217 


1 
104213 
107217 


070000 


_—— 
oc 
SIA 
c 

= 
Ww 


104907 
115407 


020000 
000000 


000003 
006474 
000046 
004000 
000046 
006525 
009006 
006527 
000002 


006520 
006512 


170000 


006522 
077776 


006543 
000000 


Se Se Se Se Se Sete te 
m 


1$: 


2$: 


3 4A NEXTBE = MOVE TO NEXT BEGIN/END SET 


NEXTBE IS CALLED WHEN THE CURRENT +; IS THE LAST OF ITS B/E SET. 
NEXTBE GOES TO THE NEXT B/E SET FOR THE NEXT LBN. IF THE A IS 
THE LAST ON THE SUBUNIT, IT GOES TO THE fry ut SET OF THE NEXT 
UNIT. IF IT IS T E LAST THE DIRECTION IS 
CHANGED (DOWN), AND THE INITIAL WRITE BIT IS CLEARED IN CASE AN 
INITIAL WRITE [S IN PROGRESS 


MOV 3(R1),RO : SEE IF THIS IS LAST B/E SET ON THIS UNIT 
BPL Is ; IF SO, BRANCH 
“930000, 
U.PARM(RS),RO  ; GET SUBUNIT PARAMETERS 
ars #NEWSUB,RO- ; MARK AS GOING ON TO A NEW SUBUNIT 
MOV RO,U.PARM(RS) : SAVE 
BR 7$° : EXIT 
“00,7$ 
ADD #6,R1 : POINT TO NEXT BEGINNING LBN 
move > MOVE BEGINNING LBN TO LEN 
<056000, MOV2 
SUB #2,R1 : R1 POINTS TC END SET 
MOV {Rid+ RO : RO HAS LO ENDING LBN 
MOV (R1)+,R3 + R3 HAS HI ENDING SET 
SUB (R1)+,RO 3 SUBTRACT BEGINN LON 
BMI 5$ : IF RESULT IS NEGATIVES BRANCH 
“070000,5$ 
BCC 33 : IF NO CARRY, BRANCH 
“040000, 2$ 
DEC R3 : PROPOGATE CARRY 
MOV (R1),R1 : GET BEGINNING BN 
BIC #*CHBHINB,R1 =; CLEAR EOL FLAG, IF 
SUB R1.RS : SUBTRACT HI ORDER en" FROM HI BN 
3$ : IF ZERO, BRANCH 
“310000, 3$ 
°¥77776,RO : MOVE MAXIMUM COUNT TO RO 
RO : INCREMENT RO (INCLUSIVE SUBTRACT) 
: SET MAXIMUM COUNT (U.TSEC AND U.MSEC) 


CALL NXTTRK 
“020000 ,NXTTRK 
RETURN ; RETURN TO CALLING PROGRAM 





UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 79 SEQ 0685 
MOV2 = 28 BIT MOVE 


os 


-SBTTL MOV2 = 28 BIT MOVE 
MOV2: 


wr 
w 
~ 
~~ 


FR Wooo Nous 
ssaeeseess 
SSENLSVN 


— at aa 


MOV2 COPIES A_28 BIT NUMBER POINTED TO BY R1 TO TWO WORDS POINTED 
TO BY R2. BITS 31-28 ARE CLEARED BEFORE COPYING 


PUSH RO SAVE RO 
MOV (R1),RO ; MOVE SOURCE LOW ORDER WORD TO 


Mg R0,-(SP) 


MOV RO, (R2) ; MOVE RO TO DESTINATION LOW ORDER WORD 
MOV 1(R1),RO : MOVE SOURCE HIGH ORDER T 

BIC #*CHBHINB,RO : STRIP OFF UNUSED BITS 

MOV RO,1(R2) : MOVE RO TO DESTINATION HIGH ORDER WORD 
POP : RESTORE RO 


MOV (SP)+,RO 
Soo" ; RETURN TO CALLING PROGRAM 


w 
& 
Ww 


- 
FWN—O0D NOUSWN— OVO BVOufwr— 


seeeeeceeseeeees 


Roronronny—— | a a 
ae 


ia) 
“wi 
S 
o 


RERR 


oO Se223488230 ow 
REREERS 
Srorororory 
on—OoOoO 
NWWNes 


wu =—oS 


006571 
000020 
000046 


006707 





1$: 





COMPUTE HOW MANY SECTORS TO READ/WRITE TO GET ON A 


THIS WILL 


WITHOUT ANY "BACKWARDS ' 


PUSH RO 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 80 
NXTTRK = FIND HOW MANY SECTORS TO R/W TO ALIGN WITH NEXT TRACK 


3 JA NXTTRK = FIND HOW MANY SECTORS TO R/W TO ALIGN WITH NEXT TRACK BOUNDRY 


SEQ 0686 . 


rare BOUNDRY 


ALLOW SEQUENTIAL READS AND WRITES TO BE PERF 


TST M.PARM 


“070000 
ASSUME 


7$ 
a aonthat Ete 
U.MBN(RS), 


Ri" CURBN : MO 
MOV U.MBN¢1(R5),R1 : 
Ri .CUREN¢1 : 


CALC 
“926000, CALC 


BNE 8$ 
“ee 8$ 


#20,R 
nov U.PARM(RS) ,R1 


CALL 
“020000, 1D 

PUSH ‘RO 

CALL ‘CALC 
“020000, CALC 

MOV #CYLSCR,RO 
MOV YL,R1 
MOV Ro 
MOV (R1)+,R3 
CMP (RO) +. R3 
BNE 2 
*050000,2$ 

DEC R2 
BNE 9$ 
*050000,9$ 

POP RO 

CMP #20,R0 
BEQ 

*010000,1$ 

R 3$ 

“00, 3$ 

POP RO 

CMP #1,R0 
BEQ 4$ 


#CYLSCR,RO 
#CYL,R1 


#4.R 
{Ride R3 
MOV RS, , (RO)+ 


E L 
; TELL CALC TO 
; CALC TRACK THAT SECTOR IS 


OR 
SEEKING (EXCEPT IN THE CASE OF REVECTORS) 


SAVE RO 


MOV RO,-(SP) 
SEE IF INITIAL WRITE 
IF SO, EXIT (WRITE MAXIMUM POSSIBLE) 


; ASSUME IWIPRG IS SIGN BIT 
; GET LO ORDER a TO R/W 


MOVE TO CALC AREA 
GET HI ORDER SECTOR TO R/W 
MOVE TO CALC AREA 
SETUP ALL oy es PARAMETERS 


RO POINTS TO SCRATCH SPACE 
Ri POINTS TG CYL, GRP AND TRACK 
MOVE 4 WORDS 


E 
DECREMENT COUNT 
IF INCOMPLETE, BRANCH 


3 START INCREMENT BY 10 (16 DECIMAL) 
: GET UNIT PARAMETERS 
; INCREMENT OR DECREMENT (DEPENDING ON DIRECTION) 


SAVE RO 
CALCULATE NEW CYL/GRP/TRK 
RO POINTS TO SCRATCH SPACE 


R1 POINTS TO CYL, GRP AND TRACK 
MOVE 4 WORDS 
GET WO 


MOV RO,-(SP) 


COMPARE 
IF CHANGE, BRANCH 


3 DECREMENT COUNT 
: IF INCOMPLETE, BRANCH 


RESTORE STEPSIZE 


SEE IF othe bee STEPSIZE 
IF SO, BRANCH 


BRANCH 
RESTORE STEPSIZE 


MOV (SP)+,RO 
SEE IF LAST STEPSIZE 
FOUND FIRST SECTOR ON ANOTHER TRACK 


MOV (SP)+,RO 




























NXTTRK = FIND 


006636 010000 
45 006640 104201 
46 006642 103651 
47 006644 

006644 020000 


050000 
11 


0 000000 
59 006672 104303 
60 4 107653 


104267 
62 006677 106073 


700 070000 


” ger0r 102201 
11 010000 

72 006713 107070 
5 040000 

74 006717 117400 
21 000000 

76 006723 105070 


040000 
115400 


006656 
177777 
000046 
006707 
177760 
006600 
006600 
000046 
010000 
006672 
000051 
002760 


006676 
002760 
000051 


006703 
000023 
000000 


010000 


006723 
002760 


006731 
002761 
006731 
002760 
006731 
002761 
000000 


UDATS DISK dye i ake X04.01 23-AUG-82 12:06:46 PAGE 80-1 
HOW MANY SECTORS TO R/W TO ALIGN WITH NEXT TRACK 


3$: 


4$: 


5$: 
6$: 


7$: 


ID: 


1$: 


2$: 


CYLSCR: 





*010000,4$ 

MOV #=-1,R1 

CAL U.PARM(RS) ,R1 
“020000, 1D 

ROR 

BIC #LBLONB,RO 
BNE 1$ 
“050000,1$ 

NC RO 


18 
MOV U.PARM(RS) ,R3 
#DIREC,R3 


25S 
U.MBN(R5) ,R3 
SUB mma 


CUREN,R3 

SUB U.MBN(R5),R3 
RO 

CMP RO,R3 

BMI 

“070000,7$ 


MOV R3,RO 

MOV RO,U.TSEC(RS) 
RETURN 
“00.0 


BIT #DIREC,R1 


—_ 1$ 
*RO,CURBN 


“00.2$ 
ADD RO, CURBN 


BC 

*040000,2$ 

INC CURBN+1 
RETURN 
“00,0 


= 

So 

xz 

o 
oooo 


SET UP ot COMPLEMENT 
COMPLEMENT 


ROTATE TO HALVE sTEPSIZE 
CLEAR UNUSED BITS 
IF NON-ZERO, LOOP 


3 MAKE R3 1 
: LOOP 


GET UNIT PARAMETERS 
FIND WHAT DIRECTION YOU'RE GOING IN 
IF UP, BRANCH 


GET LO ORDER STARTING BN 
SUBTRACT ENDIN 
GO WITH COMPUTED NI'MBER 
GET LO ORDER ENDING BN 
SUBTRACT STARTING BN 
GET MAX SECTORS THAT CAN BE R/W 

MOV (SP)+,RO 
COMPARE 
IF CAN WRITE MORE THAN POSSIBLE, BRANCH 
SETUP TO WRITE TO EOT 


SAVE IN SECTORS TO R/W 
RETURN TO CALLING PROGRAM 


SEE IF GOING UP OR DOWN 
IF UP, BRANCH 


DECREMENT BN 
IF NO BORROW, EXIT 


PROPOGATE BORROW 
EXIT 

INCREMENT BN 

IF NO CARRY, BRANCH 
PROPOGATE CARRY 


SCRATCH AREA FOR STORING CYL, GRP AND TRK 


SEQ 0687 


MMM ow ow es 
COUOSUMUSwh—-OoO”0o- 


WW Ww 
Wr 


34 006737 
737 


746 

39 006750 
006750 

40 006752 


44 006765 
63 


45 006765 
46 006767 


006767 
47 006771 
48 006772 
49 006774 
006774 
006776 


104647 
010000 
020000 


040000 
000000 


050000 
104647 


020000 





005563 


003007 
000014 


006765 


005630 
003019 


000014 


006763 
006737 


007000 
000013 


005630 
000913 


007000 
006737 





UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 81 SEQ 0688 
weeeeeeree OVERLAY MODULE RNDTG = RANDOMLY GET NEXT TRACK/GROU 


-SBTTL *#eeeeeeee OVERLAY MODULE RNDTG = RANDOMLY GET NEXT TRACK/GROUP SECTOR 
PTET STITT ETT irri rir tete ti iii it ii iti iti i iti ritiiitititet itt tt tt 
PITTI TIT rit iti fit iti titi titiiiiitiiiititity 
PETTITT rTP t titi titi titi titititity 
PITTI P PITT titi it itt iti titi tititititity 


RNDTG: 
COME UP WITH A RANDOM BN TO TEST USING THE TRACK/GROUP SETS 
FIRST COME UP WITH A RANDOM COUNT <= MAXIMUM COUNT 
Ves LSB 
1$: RANDOM 3 GET RANDOM NUMBER 
«030000, RANDOM 
CLR R2 : HI ORDE WORD IS ZERO 
MOV LOSEED,R1 ; LOSEED IN R1 
MOV $.MCNT#+1(R4),RO : GET MAXIMUM - a WORD 
: IF ZERO, BRANC 
*010000,3$ 
CAL MASK 3 CREATE MASK FOR RANDOM NUMBER 
“020000 ,MASK 
MO ISEED,R2 : PUT NUMBER IN R2 
BIC »R2 ; STRIP OFF UNUSED BITS 
CMP S.MCNT+1(R4),R2 ; SEE IF MAX EXCEEDED 
BCS : IF SO, TRY AGAIN 
“040000,.+3 
*00,1$ 


BNE 5 ; IF NOT EQUAL, EXIT 
*050000,5 


$ 
3$: 3 +4 ne : GET LO ORDER MAX 
“020000, Ask 
ch S.MCNT(R4),R1 
BCS 1$ 
“040000,.+3 
“00,18 


3 GET RANDOM MASK 


STRIP => a. 
CHECK WITH MAX 
IF GREATER THAN MAX, DO AGAIN 


fea DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 82 


1 





4 007000 
0 


007037 


105047 


040000 
115403 


000000 


104264 
104265 


000015 


000001 


007021 
000001 


007021 
007036 
007030 
000017 
007007 


007007 


S$: 


6$: 


7$: 


9$: 


| eeewereee OVERLAY MODULE RNDTG = RANDOMLY GET NEXT TRACK/GROU 


SEQ 0689 


NOW FIND THE BN ASSOCIATED WITH THAT COUNT 


PUSH <R5,R4> 


MOV #S.TGOF RS 
R4.R5 

MOV (R5)+,RO 

MOV (R5)+_R3 

SUB #1,R1 

BCC 

“040000, 7$ 

SUB 1, 

BCS 9$ 

-940000,.+3 

MOV (R5)+,R4 


BCC 

“040000.6$ 
INC R3 
BR 6$ 


“00,6$ 
POP <R4,R5> 


PUSH THE UNIT AND SUBUNIT oun’ 


MOV R4, 
R5 WILL POINT TO THE TRACK/GROUP OFFSETS 
R5_ POINTS TO THE TRACK/GROUP ORIGINAL OFFSET 
GET LO ORDER OFFSET, MOVE TO RUNNING TOTAL 
GET HI ORDER eat MOVE TO RUNNING TOTAL 
DECREMENT LO COUNT BY ONE 
IF NO BORROW, BRANCH 


DECREMENT HI COUNT BY ONE 
IF COUNT EXHAUSTED, BRANCH 


GET T/G OFFSET 
IF NOT END OF LIST. BRANCH 


R5 WILL POINT TO START OF T/G LIST 
R5 POINTS START OF T/G LIST 

GET T/G OFFSET 

ADD TO RUNNING TOTAL 

IF NO CARRY, BRANCH 


PROPOGATE CARRY 
BRANCH 
RESTORE 


MOV (SP)+,R4 
MOV (SF)+,R5 













6 007043 


PN mat ot td ot ot 
—-9O0 GN OuUFSWhR—Oo OaO~ 


100467 
10464 
10414 


102207 


000006 


000020 
007064 
000007 


007057 


005630 
005563 


007101 
007071 


000051 
007111 
000052 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 83 
weeneeeeee OVERLAY MODULE RNDTG = RANDOMLY GET NEXT TRACK/GROU 





NOW FIND A RANDOM OFFSET INTO THE RANDOM TRACK OR GROUP 


PUSH RO 


MOV S$. TRKLC(R4) ,R2 


MOV (R4) ,RO 


S.SCHR(R4) ,R1 
MOV TRKGRP(R1),R1 
BIC #HIBYTE,R1 

R RO 
ADD R2,RO 

C R1 
BNE 10$ 
c+ 


PUSH R2 


ALL M 
“020000, RANDOM 
3 RO,R1 
BCS 12 
“040000,.+3 
*00,12$ 

R2 
SUB R1,R2 
MOV R1,U.MBN(R5) 


BCC 
“040000, 13$ 
INC 


MOV R3,U.MBN+1(R5) 


; R2 IS NOW SECTORS REMAINING me 


; STORE LO ORDER TOTAL ON STACK 
; R2_ HAS TRACK LENGTH 


MOV RO,-(SP) 
GET SUBUNIT PARAMETERS 


; ASSUME THAT S.PARM IS ZERO 
; SEE IF USING TRACKS 
; IF SO, BRANCH 


; R1 POINTS TO SUBUNIT PARAMETERS 
; R1_ HAS NUMBER OF TRACKS/GROUP 

; CLEAR UNUSED BITS 

; CLEAR RUNNING TOTAL 

; FIND SECTORS/GROUP 

; DECREMENT COUNT 

; IF UNEXHAUSTED, BRANCH 


; MOVE COUNT TO R2 (MATCH WITH TRACKS ABOVE) 
3 SAVE ON STACK 


; ADJUST COUNT 
; MOVE TO MASKING REGISTER 
; FIND MASK 


MOV R2,=(SP) 


; GET RANDOM NUMBER 


; STRIP OFF UNUSED BITS 
; SEE IF RANDOM NUMBER SMALL ENOUGH 
; IF NOT, BRANCH 


GET NUMBER OF SECTORS 
MOV (SP)+,R2 


(SP)+,R1 
SAVE 
IF NO CARRY, BRANCH 


3 PROPOGATE CARRY 
; SAVE HI ORDER STARTING BN 





1 


ss 


— 
— 3) 3 2 > 3 ss 


MEW = oo GON OMEw 
S88S8sssssssss 


= 
mn 
OBS FW NI 


NYY 


~—  s 
ANNNN 
ee 
WWW 
WWN—o 


4002 
000000 


000016 


007123 
177740 
007126 


005630 
005563 


007137 


003746 


15$: 


148: 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 84 
weeeeeeeee OVERLAY MODULE RNDTG = RANDOMLY GET NEXT TRACK/GROU 


OW COME UP WITH A_ RANDOM NUMBER OF SECTORS TO R/W WITHOUT GOING 
OFF THE TRACK/GROUP THAT WERE ON 


CMP #16,R2 3 ONLY WRITE A MAXIMUM OF 16 SECTORS 


4 138° : IF LESS THAN 16, BRANCH 
*030000,15$ 
MOV #MAXMSK ,RO ; SET READ/WRITE LIMIT 
BR 14$ : BRANCH 
*00,14$ 
MOV R2,RO : RO_IS SECTORS LEFT ON THIS T/G 
LL MASK : GET MASK 
“020000 ,MASK 
RAND : GET RANDOM NUMBER 
“020000 ,,RANDOM 
RO, : STRIP OFF UNUSED BITS 
R1 ; MUST BE GREATER THAN ZERO 
CMP R2,R1 ; SEE IF SMALL ENOUGH 
CS 14 : IF NOT, BRANCH 
“040000,.+3 
00,14$ 
MOV R1,U.TSEC(RS5)  ; SAVE SECTORS TO WRITE 
MOV #AFTOP,RO ; NEXT MODULE IS AFTOP 
CLR R1 3 IMMIDATE CALL 
CLR R2 : NO_ERRORS 
BR JMPR ; RETURN TO SEQNCR 
“00. JMPRET 
-DSABL LSB 


SEQ 0691 


007147 


IIWIIRINIR 2 
OUOfLUSwy-OoO0o— 


Ww 
wr 


RARY 


43 007172 


45 007176 


104657 
104141 


102207 
010000 
102201 
010000 
020000 


000000 
02C000 


000000 
102201 
010000 
020000 
000000 
020000 
104642 
104141 


115000 


030000 
102201 





000046 


010000 


007172 
000020 


007166 
007333 
007204 
007525 
000020 
007202 
007243 
007204 
007427 
000006 


003006 


177400 








UDAT4 DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 85 
weeeteweree OVERLAY MODULE SEQTG = GET NEXT SEQUENTIAL TRACK/GR 


-SBTTL 


weeeaeeaee OVERLAY MODULE 


SEQTG = GET NEXT SEQUENTIAL TRACK/GROUP SECTOR 


FRAAAAAAAAEAEAAAEAEEREEEAEEEE EEE EREAEAEAEEAREEEREREREEEEAEEEEEEEREEEEEEEEEEEEE 
SRA EAEAAREEREEAEEAAEEEEEAEEEEEAETEREAEAEAREEEAAREEEREREEEEEEEEEEEEEEEEREEAEEEREEEE 


= 


2$: 


3$: 


4$: 
5$: 





FIND THE NEXT TRACK/GROUP 


-ENABL LSB 
MOV U.PARM(RS) ,RO 
MOV R4),R1 
ASSUME S.PARM,0 

a #DIREC;RO 
“010000,3$ 
BIT #TRACKS,R1 


BE 2$ 
*010000,2$ 
CALL DOWNT ; 
“020000, DOWNT 

BR 5$ 


- 
De Se Se Be te 


CALL DOWNG : 
“020000, DOWNG 

BR 5$ 

*00,5$ 

BIT. #TRACKS,R1 3 
BE $ 
“010000,4$ 
CALL UPT 
*020000,UPT 
BR 5$ 


CAL UP * 3 
“9260004 

4 PeRKL (RG), m— 
MOV oR 3 
ASSUME S.PARM,0 3 
TST M.PARM F 
*030000,7$ 
ASSUME IWIPRG,100000 =; 
BIT #TRACKS,R1 


BNE 
“050000, 7$ 
MOV R2,R0 


R 
ADD RO,R2 
DEC R1 
BNE 6$ 


SERA AEAEEEEEEEEEEEEAEEEAEEEREEKEAAAEEAEEEREEEEEEEEEEEEEEEREREEEEEREEEEREEEEE 
Sac a aa alata aint 


TO TEST SEQUENTIALLY 
GET UNIT PARAMETERS 


M IS ZERO 
F GOING ip (INITIAL WRITE) OR DOWN 
GOING UP OR INITIAL WRITE, BRANCH 


: SEE IF TRACKS OR GROUPS 
3 IF GROUPS, BRANCH 


GO DOWN A TRACK 
CALCULATE NUMBER OF SECTORS TO READ/WRITE 
GO DOWN A GROUP 
CALCULATE NUMBER OF SECTORS TO READ/WRITE 


SEE IF TRACKS OR GROUPS 
IF GROUPS, BRANCH 


; GO UP A TRACK 


CALCULATE NUMBER OF SECTORS TO READ/WRITE 
GO UP A GROUP 


; GET SECTORS/TRACK 
GET SUBUN 


PARAMETERS 
ASSUME THAT S.PARM IS 


ZERO 
; SEE IF INITIAL WRITE IN PROGRESS 
; IF NOT, BRANCH 


ASSUME IWIPRG IS SIGN BIT 
f° IF TRACKS IN USE 

IF SO, BRANCH 

COPY SECTORS/TRACK TO 


RO 
GET POINTER TO SUBUNIT CHARACTERISTICS 
GET TRACKS/GROUP 
CLEAR UNUSED BITS 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 85-1 


SEQ 0693 
eeeeeeeeee OVERLAY MODULE SEQTG - GET NEXT SEQUENTIAL TRACK/GR 

007231 050000 007227 “050000.6$ 
64 007233 100652 000023 7$: MOV Ree -TSEC(RS) =; SAVE NUMBER OF ayes TO PROCESS 
65 007235 104207 005403 8$: MOV TOP ,RO : NEXT MODULE IS A 
66 007237 114001 CLR Rt : IMMIDATE L 
67 007240 114002 CLR R2 : NO_ ERRORS 
68 007241 BR JMPRET ; RETURN TO SEQNCR 

007241 000000 003746 “00, JMPRET 


ABL LSB 


SEQ 0694 













1 .S = MOVE UP ONE TRACK 
é UP 
4 : POINT U.MBN TO THE NEXT TRACK TO TEST (IT DOESN'T HAVE TO BE A 
4 ; TRACK, BUT IF GROUPS, U.MBN MUST BE ADJUSTED BACK TO THE FIRST 
$ : BN IN THE GROUP 
8 007243 115000 003002 TST ScR1 : SEE If NEW SUBUNIT 
9 007245 BEQ 10$ ; IF NOT, BRANCH 
007245 010000 007253 “010000, 10$ 
10 007247 CALL NEWUPT : SETUP NEW SUBUNIT 
007247 020000 007573 “020000,NEWUPT 
11 007251 BR 4$ : EXIT 
007251 000000 007331 “00,4$ 
12 007253 104657 000015 10$: MOV U.CCNT(R5),RO  ; GET LO ORDER COUNT 
13 007255 107207 000001 SUB #1,RO + DECREMENT 
4 007257 100657 000015 MOY RO.U.CCNT(RS) : SAVE 
15 007261 : IF NO BORROW, BRANCH 
007261 040000 007303 250000, 2$ 
16 007263 104657 000016 MOV U.CCNT+1(R5),RO ; GET HI ORDER COUNT 
17 007265 107207 000001 SUB #1,RO + PROPOGATE BORROW 
18 007267 1$ : IF NO BORROW, BRANCH 
007267 040000 007301 “040000, 1$ 
19 007271 104657 000046 MOV U.PARM(RS),RO  ; GET UNIT PARAMETERS 
20 007273 101207 004000 BIS #NEWSUB,RO- : FLAG AS TO GO ONTO NEXT SUBUNIT 
21 007275 100657 000046 MOV RO,U.PARM(RS) =: SAVE 
22 007277 R 4$ : EXIT 
907277 000000 007331 “00,48 
23 007301 100657 000016 1$: MOV RO,U.CCNT#+1(R5) ; SAVE 
24 007303 104657 000017 2$: MOV U.PCTG(R5),RO : GET POINTER TO CURRENT TRACK/GROUP 
25 007305 104271 MOY RO)+,R1 : GET OFFSET TO NEXT TRACK 
26 007306 3$ : IF OFFSET, BRANCH 
007306 050000 007314 “050000, 3$ 
27 007310 104207 000017 ¥#S.1GSS,RO : RO WILL POINT 10 START OF OFFSETS 
28 007312 105047 ADD R4_RO : RO POINTS TO OFFSETS 
29 007313 104271 MOV (RO)+,R1 : R1 HAS OFFSET 
30 007314 100657 000017 3$: MOV RO,U.PCTG(RS) : SAVE POINTER TO CURRENT TRACK/GROUP 
31 007316 105651 000051 ADD U.MBN(RS),R1 : ADD OFFSET TO CURRENT BN 
32 007320 100651 000051 MOV pore : SAV 
33 007322 BCC : IF NO CARRY, EXIT 
007322 040000 007331 “040000,4 
007324 104651 000052 MOV - $ouet(Rs). Rl ; GET HI ORDER BN 
35 007326 115401 INC : PROPOGATE CARRY 
007327 100651 000052 MOV R1,U.MBN¢1(RS) : SAV 
37 007331 4$: RE TURN ; RETURN TO CALLING PROGRAM 
007331 000000 “00,0 





ssa teitartniniemttnatisatianenmmmenititen — “’ —— wari 
pee DISK EXERCISER 7 gone 01 23-AUG-82 12:06:46 PAGE 87 SEQ 0695 
DOWNT = MOV 


E DOWN ONE T 

1 -SBTTL DOWNT = MOVE DOWN ONE TRACK 

¢ 007333 DOWNT: 

¢ ; MOVE THE MASTER BN DOWN TO TEST THE PROCEEDING TRACK/GROUP 

6 007333 115000 003002 a scat 3 SEE IF NEW SUBUNIT 

? 007335 10$ ; IF NOT, BRANCH 
007335 010000 007343 =510000, 10$ 

8 007337 CALL NEWDNT 3 INITIALIZE THIS SUBUNIT 
007337 020000 007622 *020000,NEWONT 

9 007341 BR 5$ : EXIT 
007341 000000 007425 “00,5$ 

10 007343 104657 000015 108: MOV U.CCNT(RS),RO ; GET LO ae COUNT 

11 007345 107207 000001 SUB 1, : DECREMENT COUNT 

12 007347 100657 000015 MOV RO,U.CCNT(R5) ; SAVE 

13 007351 $ : IF NO BORROW, BRANCH 
007351 007373 “040000,2$ 

14 007353 6 000016 MOV U.CCNT+1(R5),RO ; GET HI ORDER COUNT 

15 007355 107207 000001 SUB #1,R0 : PROPOGATE BORROW 

16 007357 BCC 1$ : IF NO CARRY, BRANCH 
007357 040000 007371 “040000,1$ 

17 007361 104657 000046 U.PARM(R5),RO ; GET UNIT PARAMETERS 

18 007363 101207 004000 BIS #NEWSUB ,R : FLAG AS TO GO ONTO NEXT SUBUNIT 

19 007365 100657 000046 MOV RO,U.PARM(RS) ; SAVE 

20 007367 5$ 2 EXIT 
007367 000000 007425 “00,5$ 

21 007371 100657 000016 1$: MOV RO,U.CCNT+1(R5) ; SAVE 

$$ te Le 104201 000017 2$: MOV #S.TGSS,R1 : RO pitt Ane TO START OF is OFFSETS 

235 007375 105041 ADD R4,R : RO PO TO a OF T/G OFFSETS 

24 007376 104657 000017 MOV U.PCTG(RS),RO ; GET *POINTER INTO LIST 

25 007400 106071 CMP RO,R1 : SEE IF AT START OF LIST 

26 007401 BNE 4$ : IF NOT, BRANCH 
007401 050000 007407 “050000,4$ 

27 007403 115407 3$: INC RO ; RO POINTS A NEXT WORD 
007404 104171 MOV (RO) ,R1 : SEE IF END OF LIST 

29 007405 BN : IF NOT, BRANCH” 
007405 050000 007403 ~~ 3$ 

30 007407 104651 000051 4$: 4 ~ I R1 ; GET LO ORDER MASTER BN 

31 007411 107471 SU 3 SUBTRACT OFFSET 

32 007412 100651 000051 MOV alu. BN CRS) : SAVE 

33 007414 100657 000017 MOV RO,U.PCTG(RS)  ; SAVE POINTER 

34 007416 BCC : IF NO BORROW, EXIT 
007416 040000 007425 “040000,5$ 

35 007420 104657 000052 MOV U.MBN+1(R5),RO ; GET HI ORDER WORD 

36 007422 117407 DEC 3 PROPOGATE BORROW 

37 007423 100657 000052 MOV RO,U.MBN¢1(R5) ; SAV 

38 007425 5$: RETURN ; RETURN TO CALLING PROGRAM 
007425 000000 000000 “00.0 


Lost ee eet ee 


4 6 





UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 88 SEQ 0696 
UPG - MOVE UP ONE GROUP 
-SBTTL UPG = MOVE UP ONE GROUP 
¢ 007427 UPG: 
¢ : MOVE MASTER BN UP TO THE NEXT GROUP 
6 007427 115000 003002 TST SCR1 : SEE IF THIS IS A NEW SUBUNIT 
? 007431 BEQ 10$ ; IF NOT, BRANCH 
007431 010000 007441 * + quae ~ 
8 007433 cat NEWUPT ¢ INITILIZE THE SUBUNIT FOR TRACKS 
007433 020000 007573 “020000 ,NEWUPT 
9 007435 CALL SETSEC ; INITILIZE THE SUBUNIT FOR GROUPS 
007435 020000 007705 “020000, SETSEC 
10 007437 BR 5$ : EXIT 
007437 000000 007523 “00,5$ 
11 007441 102201 040000 10$: BIT #INITW,R1 3 SEE IF AN INITIAL WRITE IS BEING DONE 
12 007443 BNE 4$ : IF SO, BRANCH 
007443 050000 007520 — 4$ 
13 007445 104641 000006 S.TRKL(R4),R1 ; R1_HAS TRACK LENGTH 
14 007447 104657 000020 MOV U.CTRK(R5),RO ; GET TRACK COUNT 
15 007451 117407 DEC RO 3 DECREMENT COUNT 
16 007452 BEQ 1$ : IF COUNT EXHAUSTED, BRANCH 
007452 010000 007473 *010000,1$ 
17 007454 100657 000020 MOV RO,U.CTRK(RS) ; SAVE 
18 007456 105651 05 ADD U.MBN(RS) ,R1 3 MOVE BN TO NEXT TRACK 
19 007460 100651 94 R1,U.MBN(R5) 3 SAVE 
20 007462 BCC 5$ 3 EXIT 
007462 040000 007523 “040000,5$ 
$1 007464 104657 000052 MOV U.MBN+1(R5),RO ; GET HI ORDER BN 
2 007466 115407 INC RO : PROPOGATE CARRY 
23 007467 100657 000052 MOV RO,U.MBN+1(R5) ; SAVE 
24 007471 BR 5$ : EXIT 
007471 000000 007523 “Tt 
25 007473 1$: CAL SETSEC 3 SETUP NEXT TRACK/GROUP COUNT 
0074 0000 007705 “020000, SETSEC 
26 007475 114002 R2 3 CLEAR RUNNING TOTAL 
27 007476 117407 2s: DEC RO : DECREMENT COUNT 
28 007477 BEQ 3$ : IF COUNT EXPIRED, BRANCH 
0074 010000 007504 “010000,3$ 
29 007501 105012 ADD R1,R2 ¢ ADD SECTORS/TRACK TO RUNNING TOTAL 
30 007502 BR 2s ; LOOP 
007502 000000 007476 *00,2$ 
31 007504 104657 000051 3$: MOV U.MBN(RS) ,RO ; GET LO ORDER MASTER BN 
32 0075 107027 SUB oR 3 ADJUST BACK TO START OF GROUP 
33 007507 100657 000051 os] RO.U.MBN(RS) 3 SAVE 
34 007511 BCC +3 : IF NO BORROW, BRANCH 
007511 040000 007520 *040000,4 
35 007513 104657 000052 MOV U. WBN (RS), RO ; GET HI ORDER MASTER BN 
36 007515 117407 DEC : PROPOGATE BORROW 
37 007516 100657 000052 MOV RO,U.MBN+1(R5) ; 14 E 
38 007520 114007 4$: CLR RO : CLEAR RO SO UPT DOESN'T DETECT A NEW SUBUNIT 
39 007521 CALL UPT ; 60 TO NEXT GROUP 
007521 020000 007243 “020000,UPT 
40 007523 5$: RETURN ; RETURN TO CALLING PROGRAM 
007523 000000 900000 “00,0 





115000 
010000 
020000 
020000 
000000 
104657 
117407 
H's 


003002 
007537 
007622 
007717 
00020 


007565 
000020 
000051 
000006 
007571 
000052 
000052 
007571 
007333 
007717 
000000 


-SBTTL 
DOWNG: 


10$: 


1$: 


4$: 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 89 
DOWNG = MOVE DOWN ONE GROUP 





DOWNG = MOVE DOWN ONE GROUP 


MOVE MASTER BN TO THE NEXT LOWER GROUP 


TST SCR1 
BEQ 10$ 
*010000,10$ 
CALL NEWDNT 
“020000 ,NEWONT 
bt LSTTR 
“0 vestear ° Vile 


1$ 
2510000, i$ 
MOV 


*00 


ALL DOWNT 
“020000, DOWNT 
CALL LSTTRK 
“020000,.LSTTRK 
RETURN 


4$ 
MOV U.CTRK(RS) ,RO 
RO 


rh WBNS (RS), RO 
MOV nae 


SEE IF THIS IS A NEW SUBIUNIT 
IF NOT, BRANCH 


; SETUP THIS SUBUNIT FOR TRACKS 


SETUP THIS SUBUNIT FOR GROUPS 
EXIT 
GET Hangs COUNT 


DECREMENT COUNT 
IF EXPIRED, BRANCH 


SAVE 

GET LO ORDER MASTER BN 
SUBTRACT TRACK LENGTH 
AVE 

EXIT 


GET HI MASTER BN 
— E BORROW 


EXIT 

GO DOWN A GROUP 

SET MASTER BN ON LAST TRACK OF GROUP 
RETURN TO CALLING PROGRM 





SEQ 0697 


————e 


i 


So 
So 
~ 
uw 
~“ 
Ww 


BNRARWNIOOMNOUSUNS ~ 
S8888SSSSSsss 

oa 

So 


» 


et ey" taht CISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 90 


ILIZE PARAMETERS FOR SEQUENTIALLY UP BY TRACKS 


— SS) 2 3 SS 
sgsersterse 
AROMR ARR 
NNN NN 


° 
S 
S 
S 


000017 
000017 
000000 


: 


3 hl NEWUPT = INITILIZE PARAMETERS FOR SEQUENTIALLY UP BY TRACKS 


INITIALIZE THIS SUBUNIT FOR SEQUENTIALLY ACCESSING TRACKS IN 
ASCENDING ORDER 


S.MCNT(RS 
we CCNT 
S.MCNT+1(¢ 
0.U.CCNT 
ye whee: 


DDRVDnNWND 
oruvo: oer 


om www + Dow 


—* we 


ave 


zBwwWnan~uiz 


ox ~oO 


ww 


~~ Dw 


-o 


oO 


GET MAXIMUM COUNT 
SAVE IN enraged COUNT 
GET HI ORDER MAXIMUM COUNT 
SAVE _IN HI wed CURRENT COUNT 
Re STARTING OFFSET 

AVE IN MASTER BN 
eer HI ORDER STARTING OFFSET 
SAVE IN HI ORDER MASTER BN 
RO WILL POINT TO START a OFFSETS 
RO POINTS TO START OF OFFSETS 


SAVE IN POINTER TO CURRENT TRACK/GROUP 
RETURN TO CALLING PROGRAM 


a ee — 


SEQ 0698 


a : r° snrticineriadeniantien : 
ean DISK tate DMACR X04.01 23-AUG-82 12:06:46 PAGE 91 SEQ 0699 


I ° 706: 
NEWDNT = INITILIZE PARAMETERS FOR SEQUENTIALLY DOWN BY TRACKS 





1 .SBTTL NEWDNT = INITILIZE PARAMETERS FOR SEQUENTIALLY DOWN BY TRACKS 
é 007622 NEWDNT : 
4 3 INITIALIZE THIS SUBUNIT FOR SEQUENTIALLY ACCESSING TRACKS IN 
2 ; DESCENDING ORDER 
7 007622 PUSH  <R5,R4> ; SAVE UNIT AND SUBUNIT POINTERS 
007622 100465 MOV R5,< (SP) 
007623 100464 MOV R4,=(SP) 
8 007624 104642 000015 MOV S.TGOF(R4),R2 _ ; R2 HAS LO ORDER STARTING OFFSET 
9 007626 104643 00001 MOV S.TGOF+1(R4),R3 : R3 HAS HI ORDER STARTING OFFSET 
10 007630 104647 00001 MOV S.MCNT(R4),RO  : RO HAS LO ORDER MAXIMUM COUNT 
11 007632 100657 000015 MOV RO,U.CCNT(RS) ; SAVE LO ORDER MAXIMUM T 
12 007634 104641 000014 MOV S.MCNT+1(R4),R1 : R1 HAS HI ORDER MAXIMUM COUNT 
13 007636 100651 000016 MOV R1,U.CCNT#1(R5) ; SAVE HI ORDER MAX OUNT 
14 007640 105204 000017 ADD #S.TGSS,R4 7 RG POINTS TO START OF OFFSETS 
15 007642 107207 000001 1$: SUB 7,R0 : DECREMENT COUNT 
16 007644 BCC : IF NO CARRY, BRANCH 
007644 040000 007654 “040000, 2$ 
17 007646 107201 000001 SUB #1,R1 : PROPOGATE BORROW 
18 007650 BCS 4$ : IF COUNT EXHAUSTED, BRANCH 
007650 040000 007654 *040000,.+3 
007652 000000 007671 “00,4$ 
19 007654 104245 2$: MOV (R4)+,R5 : GET OFFSET 
20 007655 BNE 3 : IF NOT END-OF=LIST, BRANCH 
007655 050000 007663 “050000, 3$ 
21 007657 104204 000017 MOV #S.TGSS,R4 : R4 WILL POINT TO START OF OFFSETS 
22 007661 105164 ADD (SP) RG : R4 POINTS TO START OF OFFSETS 
23 007662 104245 MOV (R44, : GET OFFSET 
24 007663 105052 3$: ADD R5,R2 + ADD OFFSET TO BN 
25 007664 BCC 1$ : IF NO CARRY, LOOP 
007664 040000 007642 “040000,1$ 
007666 115403 INC R3 z PROPOGATE CARRY 
27 007667 BR 1$ : LOOP 
007667 000000 007642 “00,1$ 
28 007671 104665 000001 4$: MOV 1(SP),R5 : GET UNIT POINTER 
29 007673 100654 000017 R4,U. BCTG(RS) : SAVE POINTER TO CURRENT TRACK/GROUP 
30 007675 POP <R4,R : RESTORE 
007675 104264 MOV (SP)+,R4 
007676 104265 MOV (SP)+.R5 
31 007677 100652 000051 MOV R2,U.MBN(R5) ; SAVE LO ORDER STARTING BN 
32 007701 100653 000052 MOV R3.U.MBN+1(RS5) : SAVE HI OR 
33 007703 RETURN ; RETURN TO CALLING PROGRAM 
007703 000000 000000 “00,0 





| RE a a fan 
UDAT4 DISK EXERCISER DMACR K04.01 23-AUG-82 12:06:46 PAGE 92 SEQ 0700 


SETSEC = SETUP TRACK/GROUP COUNT FOR SELECTED GROUPS 
goertt SETSEC = SETUP TRACK/GROUP COUNT FOR SELECTED GROUPS 


1 
4 007705 
4 
5 
6 007705 


0 
10 007715 
007715 


000007 


000020 
000000 


MOVE TRACKS/GROUP TO U.CTRK 
MOV S.SCHR(R4),RO |; RO POINTS TO SUBUNIT CHARACTERISTICS 


MOV TRKGRP(RO) , 7RO : RO HAS TRACKS/GROUPS 

BIC YTE,RO- 3 CLEAR UNUSED ye 

MOV RO-ULCTRKRS) : SAVE AS_TRACK COUN 

44 RN ; RETURN TO CALLING MODULE 


007717 


007717 
007721 
007722 
007723 

7723 


4 

5 

6 007717 
7 

8 

9 

00772 

: 007725 
2 


020000 
114002 
117407 


010000 
105642 


100657 
000000 


007705 


007731 
000006 


007722 
000051 
000051 


007742 
000052 


000052 
000000 


2$: 


3$: 


4$: 





UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 93 
LSTTRK = SET MASTER BN TO POINT TO LAST TRACK IN THE GROUP 


eerie LSTTRK = SET MASTER BN TO POINT 9 LAST TRACK IN THE GROUP 


M 6 


SET MBN TO LAST TRACK OF GROUP 


CALL SETSEC 
“020000, SETSEC 
CLR R2 


DEC RO 

BEQ 3$ 
*010000,3 
DD 


238 
aaa hte 


“UsMBN+T CRS) ,RO 
MOV RO,U.MBN+1(R5) 
TURN 


SETUP TRACK/GROUP COUNT 
CLEAR RUNNING TOTAL 
DECREMENT COUNT 

IF COUNT EXPIRED, BRANCH 


a TO RUNNING LENGTH 


op WILL POINT TO LAST TRACK IN GROUP 
IF NO CARRY, EXIT 


GET HI ORDER BN 
PROPOGATE CARRY 


SAVE 
RETURN TO CALLING MODULE 


SEQ 0701 


= a" 


—_——— A 
N 6 

UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 94 SEQ 0702 

eeeeeeeere OVERLAY MODULE BUILDP = BUILD THE READ/WRITE LINKED 


1 .SBTTL *teeeeeeee OVERLAY MODULE BUILDP - BUILD THE READ/WRITE LINKED LISTS 
9 SERA EEA REET EEE EERE EEE AREER AER EEEAEREEEEREEWREEREAAEEERAEEEEEE 
10 g “REREREREEREREREREREREREREREREREREHREREREREREREREREREREREE EERE REREE EERE EEE 
11 H MARBAAAASAAAALALAAALALARALALALALALASLLAL ELAS ELAS EES RRL RSE RAR RE RR ERE REESE SG 
12 ; =MARBARBAAAAAAAAAALALALALALALALLALSLALSESEEL ELAS ESE SERRE E EER S RAR EEE RESET TRS ES 
13 ; 
14 ; 
15 : 
4 00746 BUILDP: 
39 : BUILD THE READ/WRITE LINKED LISTS 
31 -ENABL LSB 
32 007746 CALL __ TLKHST : COMMUNICATE WITH THE HOST SO NOT TO TIME OUT 
7746 020000 001517 “020000, TLKHST 
33 007750 104657 000046 MOV = “U.PARM(RS),RO___: RO HAS UNIT PARAMETERS 
34 007752 104650 000022 003020 MOV —-U.MSEC(R5) ,MAXSEC ; GET NUMBER OF SECTORS TO READ/WRITE 
35 007755 102207 000200 BIT  #RBNBN,RO ; SEE IF RBN TO BE READ/WRITTEN 
36 007757 BEQ 1$ : IF NOT, BRANCH 
007757 910000 007771 “010000, 1$ 
37 007761 104650 000055 002760 MOV "U-RBN(RS) ,CURBN + MOVE LO ORDER TO CURRENT BN 
38 007764 104650 000056 002761 MOV —«U RBN#1(R5),C ; MOVE HI ORDER TO CURRENT BN 
39 007767 BR 4$ ~ * BRANCH’ 
007767 000000 007777 *0,4$ 
40 007771 104650 000053 002760 1S: MOV’ —«U.. CBNCRS) , CURBN ; MOVE LO ORDER TO CURRENT BN 
41 007774 104650 000054 002761 MOV —sU. CBN#1(R5) , CURBN#1 {MOVE LO ORDER TO CURRENT BN 
42 007777 104300 003012 010277 4S: MOV -MEMPOL,TMEMPL  ; START OF BUILD CINITILIZE 
44 010003 104070 003015 MOV RO. CHAINS ; MARK CHAIN AS EMPTY 
45 010005 5$: CALC : CALCULATE CYL, TRK AND GRP 
010005 020000 002604 ‘930000, CAL 
46 010007 106650 000064 002764 OG CEYL(RS) -CYL + SEE IF LO CYL MATCHES 
47 010012 BNE rs : IF NOT, BRANCH 
010012 050000 010245 “0500007 
48 010014 106650 000065 002765 (MPU, FCYL#1 (RS), CYL +1 ; SEE IF HI CYL MATCHES 
49 010017 BNE : IF NOT; BRANCH 
010017 050000 010245 “050000, 78 
50 010021 106650 000066 002766 CMP = “U. CGRP(RS) ,GROUP ; SEE IF GROUP MATCHES 
51 010024 BNE 7$ ; IF NOT, BRANCH 
010024 050000 010245 *050000,7$ 


MEM 
43 010002 114007 CLR RO ; PORCE THE Wt te TABLE TO or FILLED 


‘BS ER Se Saeed 


=e 





8 7 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 95 SEQ 0703 
LINK = BUILD A LINK (NODE) IN THE READ/WRITE CHAIN 


| 
»$BTTL LINK = BUILD A LINK (NODE) IN THE READ/WRITE CHAIN | 
$ ; LINK WILL CREATE THE LINKS FOR THE CHAIN | 
4 | 
6 910026 104653 000046 MOV U.PARM(R5),R3 ; R3 HAS UNIT PARAMETERS 
010030 104307 003015 MOV CHAINS,RO ; RO POINTS TO START OF CHAIN 
8 010632 BNE 22 : IF THE CHAIN IS ALLREADY STARTED, BRANCH | 
010032 050000 010062 “050000, 22$ 
9 010034 102203 000100 BIT #REDWRT,R3 : SEE IF READ IN PROGRESS 
10 010036 BEQ 21$ : IF SO, BRANCH 
010036 010000 010052 “010000,21$ 
11 010040 102203 000400 BIT #REVEC,R3 : SEE IF TRYING TO FIND A REPLACEMENT 
12 010042 BNE 1$ : IF SO, YOU'RE TRYING TO READ, SO BRANCH 
010042 050000 010052 “050000,21$ | 
13 010044 104207 000401 MOV #WBUFLN,RO ; RO HAS NUMBER OF WORDS IN WRITE BUFFER 
14 010046 CALL ALLOCM + ALLOCATE THE MEMORY | 
010046 020000 010271 “020000, ALLOCM 
15 010050 70 010300 MOV RO, SECPTR : SECPTR POINTS TO WRITE BUFFER | 
16 010052 07 000010 21$: MOV #LINKLN,RO s RO HAS LENGTH OF CHAIN LINK 
17 010054 CALL ALLOCM : ALLOCATE THE MEMORY | 
010054 010271 “020000,ALLOCM i | 
18 010056 003015 MO RO, CHAINS : CHAINS POINTS TO FIRS~ LINK 
19 010060 24$ : BRANCH 
010060 000000 010105 400,24 | 
20 01006¢ 104171 22$: MOV (RO) ,R1 : R1 HAS NEXT LINK POINTER AND STATUS 
29 01006 ASSUME RW.CPT,0 3 ASSUME STATUS AND POINTER FIRST WORD 
33 010063 102201 100000 BIT #6 0C Ri ; SEE IF THIS LINK IS THE LAST 
010065 BNE 2 : IF SO, BRANCH 
010065 050000 010074 “050000,23$ | 
35 010067 103201 140000 BIC #UNADDR,R1 : CLEAR UNUSED ADDRESSING BITS | 
36 010071 104017 MOV R1,R0 ; RO POINTS TO NEXT LINK } 
37 010072 BR 228 + LOOP 
010072 000000 010062 “00,22 | 
38 010074 104072 23$: MOV RO,R2 : SAVE RO 
39 010075 104207 000010 MOV #LINKLN,RO : RO HAS LENGTH OF LINK 
40 010077 CALL ALLOCM : ALLOCATE MEMORY FOR LINK 
010077 020000 010271 “020000, ALLOCM 
41 010101 103201 100000 BIC #EOC,R1 : CLEAR THE END-OF=CHAIN FLAG 
42 010103 101071 BIS RO,R : PUT IN POINTER TO NEXT LINK 
43 010104 100121 MOV R1.(R2) ; PUT POINTER BACK IN LAST LINK 
32 010105 Wi ASSUME RW.CPT,O : ASSUME STATUS AND POINTER FIRST WORD 











5? 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 96 
FILLIN = FILL THE READ/WRITE CHAIN LINK (NODE) WITH REQUIRED I 


4 
5 
§ 010105 

010107 
8 010111 

010111 
9 010113 
10 010115 

010115 
11 010117 
12 010121 
13 010323 
14 010125 
15 010127 

010127 
16 010131 
17 010133 
18 010135 
19 010137 

010137 
20 010140 
21 010142 

010142 
22 010144 
23 010145 

010145 
24 010146 
33 010147 
37 010147 
38 010151 
39 010153 
40 010155 
41 010157 
42 010161 
43 010163 
44 010165 
45 010167 
46 010171 

010171 
47 010173 
48 010174 
49 010174 
50 010176 

010176 
51 010200 
52 010202 

010202 
53 010204 
54 010206 
55 010210 
56 010210 
57 010212 
58 010214 
59 010215 


ou o- Se 
~ ™~™ 
Nm ~™ 

Oo 

Ww 


2 tO OU tO 
oNO 


RR 
wy 
—rnn 


® 


™~m 
oS 
N“N N =] oN 


Se est 
ON Oo NN PPP 


3 SS CSLeTS 
MWAWAWON 
SOoONONONON 
Wronononnnn— 


SOS atte ete ate tO et 


104143 


002767 
000100 


010131 
000400 


000415 
010271 


000002 
ppenne 


020000 
010206 
140000 
010206 
060000 
002755 
000004 
002771 
003002 


118: 


12$: 


ae 
AWM 
ee ef 


+34 FILLIN = FILL THE READ/WRITE CHAIN LINK (NODE) WITH REQUIRED INFORMATION 


FILLIN BUILDS THE PARAMETERS THE UDA REQUIRES TO WRITE OR READ A BLOCK 


MOV TRACK,R 
BIT Treoukts R3 
BEQ 

“010000, 11$ 

BIT WREVEC,R3 
BNE 1 
“050000,11$ 

BIS MWREAL ,R2 
MOV Re hu. CMD (RO) 
MOV STOP, R2 
MOV SECPOR. *R1 

BR 12$ 

“00, 


2s 
BIS #RREAL ,R2 
MOV R2,RW.CMD(RO) 
MOV #RSTOP,R2 
PUSH 


MOV —- #RBUFLN, RO 
CALL ALLOCM 
“020000, ALLOCM 

MOV = ‘RO, RT 

POP 

MOV ——R2,, (RO) 
ASSUME RW.CPT,0 

MOV —s R17, RW. BUF (RO) 


MOV #DUMSDI ,R2 
MOV eeeees ses awe 


MOV Ss P 

MOV R2,RW.ANG(RO) 
MOV C 

MOV R2 RW. LOW(RO) 
MOV CURBN+1, R2 


BIT #RBNBN ,R3 
BNE 1 
“050000, 15$ 
MOV (R 
BIT #OCYLS, oR3 


BEQ 
eats 16$ 
yt -DBN,R2 


; GET TRACK (HEAD) NUMBER 
: SEE IF Shane PROGRESS 


IF SO, BRA 


SEE IF TRYING TO FIND A REPLACEMENT 
IF SO, YOU'RE TRYING TO READ, SO BRANCH 


BUILD WRITE Rea TIME C 
MOVE LAST BLOCK FLAG TO R2 
R1 POINTS TO WRITE BUFFER 
BRANCH 


BUILD READ REAL TIME COMMAND 
MOVE TO SDI REAL TIME COMMAND AREA 
prt ad BLOCK FLAG TO R2 


MOV RO,-(SP) 


3 SIZE OF READ BUFFER 
: ALLOCATE BUFFER 


; R2 POINTS TO 


R1 POINTS TO BUFFER 
RESTORE RO 
(SP)+,RO 


MOVE LAST BLOCK FLAG TO NEXT BLOCK POINTER 


MOVE Geta te TO SECTOR TO POINTER AREA 
DUMMY SDI AREA 

MOVE Ro. TO POINTER TO DUMMY SDI AREA 
R2 ag ae tae SECTOR A s WRITTEN 

MOVE TO ANGLE FROM IND 


BN TO Ro 

E LOW ORDER BN TO LOW EXPECTED HEADER 
MOVE HIGH ORDER BN TO R2 

SEE IF BN IS AN RBN 

IF SO, BRANCH 


GET SUBUNIT PARAMETERS 

ASSUME THAT S.PARM IS ZERO 

SEE IF USING DIAGNOSTIC CYLINDERS 
IF NOT, BRANCH 


| ae lla HEADER 


aexec renee weanen 
ADD HI BN BITS 


; MOVE R2 TO HI WORD EXPECTED HEADER 
; GET 4 ober FROM INDEX 

; ADJUST INDEX 

; SEE IF FIRST SECTOR AFTER INDEX 


SEQ 0704 


EXE 

IN = FILL 
60 010217 
010217 
61 010 $] 
62 010222 
66 010224 
$7 010225 
1 010227 

72 0102 

Bios 
73 010234 
74 010237 
010237 
75 010241 
76 010243 
010243 
77 010245 
78 010246 
79 010247 
80 010251 
81 010253 
010253 
82 010255 
83 010257 
010257 
84 010261 
85 010263 
010263 
010265 
87 010267 
010267 

88 


=” 
m 


o 


oo 
NeoSS 
Ses 
NO Ni 
roroenn 


“090 32S Oo 


om 
wn 
~m 
S 





010222 
000007 


000001 
000001 


010245 
000001 


010005 
002761 


010005 
000046 
000100 
010265 
000400 
010265 
010301 
01 
01 


0267 
1615 


003746 


003020 


002760 


ISER DMACR X04.01 23-AUG-82 
READ/WRITE CHAIN LINK (NOD 


13$: 


7$: 






12: 
—) 









06:46 PAGE 96-1 
WITH REQUIRED | 

BNE 13$ 
*050000,13$ 

CLR Re 

MOV R2,RW.ANG(RO) 
CLR 2 

MOV R2,RW.STAT(RO) 
SUB #1,MAXSEC 
BEQ ? 
4010000,7 

ADD #1, CURBN 
BCC S$ 
*040000,5$ 

INC CURBN¢1 

BR 5$ 

“00,5$ 

CLR R1 

CLR R2 

MOV U.PARM(RS) ,R3 
BIT MREDWRT ,R3 
BEO 2$ 
“010000, 2$ 

BIT #REVEC,R3 
BNE 2$ 
“050000, 2$ 

MOV #WRITE RO 
BR 3$ 

“00 

MOV #READ,RO 
BR MPRET 

“00, JMPRET 


IF NOT, BRANCH 


; ZERO THETA FROM INDEX 
SAVE 


ZERO R2 
; ZERO STATUS 


DECREMENT SECTOR COUNT 
IF COUNT COMPLETE, BRANCH 


: ADD ONE TO LO CURRENT SECTOR 
: IF NO CARRY, BRAN” 4 


PROPOGATE CARRY 
BRANCH 


IMMIDATE CALL 

NO_ERRORS 

GET UNIT PARAMETERS 

SEE IF READ IS TO BE DONE 
IF SO, BRANCH 


SEE IF READING RCT 
IF SO, BRANCH 


WRITE ROUTINE IS NEXT 
BRANCH 


READ ROUTINE IS NEXT 


SEQ 0705 





UDATS DISK EXERCISER DMACR X04.01 23-AUG=-82 12:06:46 PAGE 97 SEQ 0706 
ALLOCM = ALLOCATE MEMORY FOR THE READ/WRITE BUFFERS AND CHAIN 


1 .SBTTL ALLOCM = ALLOCATE MEMORY FOR THE READ/WRITE BUFFERS AND CHAIN 

é 010271 ALLOCM: 

4 : ALLOCATE MEMORY FOR READ/WRITE BUFFERS 

6 010271 107070 010277 : SUB RO, THEMPL ; SUBTRACT LENGTH FROM MEMORY POOL 

7 010273 104307 010277 MOV TMEMPL , RO + RO POINTS TO MEMORY ALLOCATED 

8 010275 RETURN : RETURN TO CALLING MODULE 

; 010275 000000 000000 “00,0 
10 010277 TMEMPL: .BLKW 1 ; TEMPORARY MEMORY POOL FOR READ/WRITE 
11 010300 SECPTR: .BLKW 1 + SECTOR POINTER FOR WRITE 


‘F 
UDAT4 DISK EXERCISER DMACR te 01 23-AUG-82 12:06:46 PAGE 98 SEQ 0707 
weeeetente OVERLAY MODULE WRIT 


1 .SBTTL *eeeneeeee OVERLAY MODULE WRITE 
9 3 MAAAAAALALALALALALALALL SELES ELA LETTE EE TET eT Tec TTT eee cere c ect iiiriity 
10 3 REAR AERAAAAAAAAAAERAEEEEEEEEEAEERAAARAAAAARAREEAREEEAEREEEEEREAEEEREEEEEEEEEE 
1 1 g REAR AAERAEEAAAEEEEAEEEEETEEERERAAAREERARAAEAEAEREREEEEAEEEREEAEREREEEEEEEEE 
12 g SREREEAEEAAAEEERAAAEAAETAAAEAAEAEEAEAAEEAARAAAAEAAEAEEEEEAEEEREEEEEEEREEREEEEREEE 
13 3 
14 ; 
15 P+ 
3 010301 WRITE: 
33 : WRITE GENERATES THE PATTERNS AND WRITES THEM TO THE DRIVE 
8 zENABL LSB 
39 010301 DSABLE ; DISABLE ERROR RECOVERY 
010301 020000 005046 6556000, DSABLE 
40 010303 104657 000012 MOV U.RWTO(RS),RO =; MOVE READ/WRITE TIMEOUT VALUE TO RO 
41 010305 115407 INC : INCREMENT COUNT 
10306 100657 000012 MOV RO,U.RWTO(RS) =: SAV 
43 010310 BEQ $ : IF ZERO, WE KNOW THAT THE TIMEOUT IS UNEX 
010310 010000 010407 “010000,8$ 
4 010312 106207 000002 CMP #2,RO : SEE IF TRIED MAXIMUM TIMES 
5 010314 BCS 11$ ; IF SO, BRANCH 
010314 040000 010320 “040000, .+3 
010316 000000 010325 “00,11$ 
46 010320 104141 MOV R4),R : GET SUBUNIT PARAMETERS 
47 010321 ASSUME S.PARM,O : ASSUME THAT S.PARM IS ZERO 
48 010321 102201 001000 BIT #RTRIES,RI : SEE IF RETRIES ARE ENABLED 
49 010325 BNE ; IF SO, BRANCH 
010323 050000 010407 “050000,8$ 
50 010325 11$: HARDER °25,<S.LETR(R4) ,U.CBN(R5) ,U.CBN+1 (R5)> 
010325 104200 002337 001601 MOV #ER25,,HRO.04 
010330 104640 000005 001602 MOV S.LETR(R4) ,HRO.05 
010333 104650 000053 001603 MOV U. CBN(RS5) ,HRO. 
010336 104650 54 001604 MOV +1(R5) ,HRO.07 
010341 104202 107671 MOV #25 'ERHARD+4000. ,R2 
010343 104020 001577 MOV RO RO Oo 
010345 104200 010345 001576 MOV #. .HRQ.01 
010350 104200 060014 001575 MOV #ERRMC .HRO.RO 
51 010353 ERRORC <U.PARM(RS) ,#RBNTXT,U.RBN(RS) ,U. RBN¢1(RS)> 
010353 104650 000046 001605 MOV PARM(RS) ,HRQ.08 
010356 104200 005472 001606 MOV SRONTXT RQ. 
010361 104650 000055 001607 MOV U.RBN(R5) ,HRO. 10 
010364 104650 000056 001610 MOV U.RBN+1(R5) ,HRO.11 
- o10se7 114 003013 — CLR ERRPOS CLEAR THE POSITI 
: CL H ON 
53 010371 1Odess 000046 MOV U.PARM(RS).R3 ; GET UNIT PARAMETERS 
54 010373 103203 000200 BIC NBN, : IF HANDLING AN RBN, CLEAR IT 
55 010375 100653 000046 MOV R3,U.PARM(RS) : SAV 
56 010377 104201 000001 MOV : + ONLY 1 SECTOR HANDLED 
57 010401 100651 000021 MOV R1.U.NSEC(RS) : 
58 010403 104207 0051 MOV #SETUP,RO : SETUP IS NEXT MODULE CALLED 
59 010405 BR $ + BRANCH 
$1040? ne one 8$ cute BULDUM BUILD DUMMY SDI CONTROL BLOCK 
010407 020000 002552 “020000, BULDUM 


60 
61 
62 
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BULDSC = BUILD THE SECTOR TO WRITE (FILL WITH PATTERN AND CALC 
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007417 


003015 
000002 


000014 
003021 
000377 


000001 
010465 


010472 
010453 


010445 


010466 


sBULDSC 


-SBTTL 
; COPPAT 


ytd BUILDS THE INFORMATION AND DATA PATTERN TO BE WRITTEN ON THE 


MOV U.PATCRS) ,R1 


; GET PATTERN NUMBER TO WRITE 
MOV R1,R3 : COPY PATTERN NUMBER TO RS 
SWAB R1 3 SWAP THE BYTES 
BIS R1,R3 3 REPLICATE THE PATTERN NUMBER 
MOV R3,R ; COPY TOR 
ROL R1 : ROTATE TO NEXT POSITION 
ROL R1 
ROL R1 


R1 
BIC #” CHBLONB : “CLBLONB. R1 CLEAR UNUSED BITS 
BIS R1,R3 ; REP LICATE THE PATTERN 
MOV AINS,RO GET POINTER TO FIRST aaa CHAIN NODE 


CH 
MOV RW. BUF (RO), RO : RO POINTS = BUFFER 
MOV R3, VE PATTERN NUMBERS TO SECTOR 
COPPAT = COPY THE DATA PATTERN TO BUFFER 


COPPAT COPIES THE PATTERN TO THE SECTOR TO BE WRITTEN 


PUSH <RO,R4,R5> 3 SAVE RO,R4,R5 
MOV RO,-(SP) 
MOV R4,-(SP) 
MOV R5,-(SP) 
MOV U.PAT(RS) ,R2 
MOV het 


R2 HAS PATTERN NUMBER 
POINT TO PATTERN 
SKIP EDC 


MOV #SCTWRD,R1 : 21 HAS NUMBER OF WORDS TO FILL WITH PATTERN 
COPLPO: MOV : R4 POINTS TO LENGTH OF PATTERN 

MOV (R4)+,R3 ; R3 CONTAINS LENGTH OF PATTERN 

CMP #1,R3 : SEE IF PATTERN IS 1 WORD LONG 

BEQ T : IF SO, BRANCH 

“010000, 0NEPAT 
COPLP1: MOV R4)+,R5 : RS GETS 1 WORD OF THE DATA PATTERN 

MOV R5, (RO)+ : MOVE PATTERN WORD TO SECTOR AREA 

Rt 3 DECREMENT NUMBER OF WORDS TO WRITE IN SECTOR 
7 IF ALL WORDS WRITTEN, BRANCH 


ONEPAT: 
COPLP2: 


COPF IN: 


BEQ PFIN 
#010000, COPF IN 
DEC R3 ; DECREMENT COUNT OF WORDS IN PATTERN 
IF DATA PATTERN UNFINISHED, BRANCH 
BRANCH 


GET 1 WORD OF DATA PATTERN 


BNE COPLP1 
“050000, COPLP1 
R LPO 


MOV R5, (RO)+ > MOVE PATTERN TO SECTOR AREA 

DEC R1 ; DECREMENT NUMBER OF WORDS TO MOVE TO SECTOR 
BNE COPL P2 : IF INCOMPLETE, BRANCH 

3030000, COPL 

MOV =(R2) : GET EDC 

MOV R5, (RO) : MOVE TO BUFFER 

POP <R5,R4,RO> + RESTORE R5,R4,R0 


MOV (SP)+,R5 
MOV (SP)+,R4 


SEQ 0708 
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bt a Ss a - —_— — ba a 
— SV HS SS SS SS ss = SS Ss = ss 
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104267 
104651 


050000 
117407 


000014 
010510 
001640 
000400 
010550 


010546 
00 


010543 
010744 


003746 


001600 
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COPPAT = COPY THE DATA PATTERN TO BUFFER 


MOV 
BNE 
“050000, 
DEC 


U.PATC(R5S),R1 
21$ 

21$ 
RO 
CMPEDC 
CMPEDC 

R2 BF .EDC(RO) 


CALL kK 
“020000, WBLOCK 
TST Re 


CALL 
“020000, 
MOV 


BNE 7$ 
*050000,7$ 
MOV 


S.MEGW(R4) ,R3 
CMP #1954. ,R3 
BPL 6$ 
“030000,6$ 
SUB #1954., 
MOV R3,S.MEGW(R4) 
CLR HRQ. 02 
MOV HRQ.03 
V #TOMXER,R2 
MOV R2,HRO.RO 
R 1$ 
“00,1$ 
CLR R2 
MOV #AFTWRT,RO 
CLR 
BR JMPRET 
“00, JMPRET 


-DSABL LSB 


MOV (SP)+,RO 
GET PATTERN NUMBER 
IF NOT PATTERN 16, BRANCH 


; POINT TO START OF BUFFER 
TE EDC 


COMPU 


SAVE EDC 
WRITE THE SECTOR 


SEE IF ERROR OCCURRED 
IF NOT, BRANCH 


GET MEGABYTE COUNT 
SEE IF ONE MEGABYTE TRANSFERED 
BRANCH IF NOT 


CLEAR MEGABYTE COUNT 
SAVE NEW COUNT 


; FLAG AS NON-ERROR 
EXIT 


NO ERRORS 

AFTWRT IS NEXT MODULE 
IMMIDATE CALL 

RETURN TO RDWRT 


SEQ 0709 
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WBLOCK = 
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- FH FOWWWWs Ww Monroe 
* SSRIS RUNS “3 oO 
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SSE 
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WRITE THE SECTOR(S) 


003015 


010742 
000400 


000061 


010712 
000026 


000045 
000050 
000003 


010650 


010741 


001601 


001604 


001576 
001575 


001605 
003013 


-SBTTL WBLOCK = WRITE THE SECTOR(S) 
WBLOCK: 


3$: 


10$: 


WBLOCK WRITES THE SECTOR(S) ONTO THE DRIVE 
3 SAVE R4 


PUSH 


R4 


BEQ 3 
“010000,3$ 
DEVFTL °42,<U.CGRP(RS) ,U.CCYL(RS) ,U. ee 


ENDERR 

CALL GOSEEK 
“020000, GOSEEK 

POP R4 

R 6$ 

“00.68 
MOV #SEC512,R2 
XFC XWRITE 

POP R4 
MOV R1,U.RWER(RS) 
BEQ 

“010000,5$ 
MOV U.WRITCRS) ,R1 
: NOW I OR IN THE 
; IT IF SOMEHOW I 
: (I HOPE NOT) 
BIS U.WPRT(R5),R1 
MOV U.SUBU(R5) ,R2 
ADD #3,R2 
ROR R1 

dy R2 

10$ 

“080000, ive 

“040000, 7$ 
DEVFTL § 18,U.RWER(RS) 


POINT TO START OF CHAIN 
R2 HAS SDI_INTERCONN 


MOV R4,-(SP) 


ONNECT 
R4 POINTS TO SUBUNIT CHARACTERISTICS 
PREAMBLE LENGTH 


R4 CONTAINS DAT 
STRIP OFF UNUSE 


BITS 
WAIT FOR SECTOR OR INDEX PULSE 


SEE IF ERROR OCCURRED 


RESTORE SUBUNIT POINTER 


EXIT 


WRITE A iF ore SECTOR 
WRITE iy Fas TOR(S) 


RESTOR 
SAVE ERROR IF AN 


IF NO ERROR, BRANCH 


GET WRITE PROTECTION STATUS 
READ-ONLY WRITE PROTECT BITS. 


Q.04 


42,H 
U. CGRPCRS). HRQ.05 


PERRMCLHRO.RO 
WSER22, HRO.08 


,ERRPOS 


MOV (SP)+,R4 


MOV (SP)+,R4 


THIS WILL CATCH 


GET INTO THIS MODULE ON A READ-ONLY DRIVE 


SET i a! BITS 


SUBUNIT 


GET IN USE 
ADD 3 TO SHIFT WRITE PROT STAT TO LO NIBBLE 


ROTATE PROTECTION Y funvee (LO BIT TO CARRY) 


DECREMENT SUBUNIT 
IF >= 0, BRANCH 


MOVE THE BIT INTO CARRY TO TEST 


IF CARRY CLEAR (NOT WRITE PROTECTED) BRANCH 


REPORT WRITE ON WRITE PROTECTED DRIVE 


SEQ 0710 


: SET THE POSITION 


UDAT4 DIS 
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001702 
000061 
Bo 986 
00157 
010671 
060014 


000051 
000007 


005066 
010742 
000012 
010741 
000001 


001600 
001601 


000000 





001577 


5$: 


7$: 
6$: 


ENDERR 


CALL 


aes eS 
gf04.01 23-AUG~82 12:06:46 PAGE 99-1 : 


GOSEEK 


“020000, GOSEEK 
MOV R5,R1 


BR 
“00,6$ 
MOV 


BE 
“010000,7$ 


REPSFT SOFT 


ae 


“020000 ,HOSTRQ 


CLR 
RETURN 
“00.0 


DEFFERED CALL 
BRANCH 


; GET TIMEOUTS 


IF NO RETRIES, BRANCH 
REPORT ONE SOFT ERROR 
MOV 


SEQ 0711 


#ER18,HRO.04 
U.RWER(R5) ,HRO.05 
#181 F TLDEV#4000. .R2 


oHRQ. 
#.,HRQ.01 
#ERRMC ,HRO.RO 
#SER22,HRQ.06 


#6+1,ERRPOS : SET THE POSITION 


#1,HRQ.02 
HRQ.03 


MOV RO,-(SP) 
U.UNUM(RS) ,RO 
U. SUBU(R5) .RO 
RO,HRO.01 
#T4SOFT,RO 

MOV (SP)+,RO 


NO ERRORS 
RETURN TO CALLING PROGRAM; 
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eteeeetere OVERLAY MODULE AFT 


1 .SBTTL *#eeeeeeee OVERLAY MODULE AFTWRT 
9 peekeee PAARALAAZALALALALLALALALALEL ELE L ELEC EPC i ccc c rit isiciiaty 
10 3 “ee eeeReeeeeeekeeeeeeeeeeeeeeeedeeeeeeeeeeeeeeeeeeeneeeeeeeeeeeereeeeeeeeeee 
11 5 SAAR AAEAERAERAAAEEEEEEAEEAEEEEEEAAEAEAEERAEEEEEEEEEEAAAEEREREEEEEEEEEEEEREREEE 
12 : SRERREAAAEAERAAEAAAEAEREREREEEEEEEAAEAAERAEAAEAAEAEEEAEAEREREEEEREAREEEEREREEEEEEE 
13 : 
14 3 
15 : 
2 010744 AF TWRT: 
29 : AFTWRT WILL HANDLE ANY ERRORS THAT OCCURRED DURING THE WRITE 
30 : OPERATION 
39 .ENABL LSB 
40 .SBTTL FNDWER - IF ERROR DURING WRITE, FIND IT'S POSITION IN THE CHAIN 
é3 FNDWER 
43 : FIND THE FIRST BUFFER THAT IS NOT WRITTEN 
45 010744 PUSH <R4, RS> : SAVE REGISTERS 
010744 100464 MOV R4,=(SP) 
010745 100465 MOV R5.=(SP) 
46 010746 104654 000053 MOV U.CBN(R5),R4 —;_ GET LO ORDER BN 
47 010750 104655 000054 MOV U.CBN+1(R5),R5 : GET HI BN 
48 010752 114002 CLR R : CLEAR SECTOR COUNT 
49 010753 104307 003015 MOV CHAINS ,RO ; RO POINTS TO FIRST BUFFER 
50 010755 100674 000003 31$: MOV R4,RW.LOWCRO) : MOVE T O CHAIN 
51 010757 100675 000004 MOV R5,RW.HICRO) § ; MOVE TO CHAIN 
52 010761 104171 MOV Rb) ,R1 : GET STATUS BITS 
61 010762 ASSUME RW.CPT,0 
65 010762 102201 040000 BIT #BUFFLG,R1 : SEE IF THIS BUFFER HAS BEEN WRITTEN 
66 010764 BNE : IF NOT, BRANCH 
010764 050000 011004 “050000, 32$ 
67 010766 115402 INC R2 : INCREMENT SECTOR COUNT 
68 010767 115001 TST R1 : SEE IF END-OF-LIST 
69 010770 BMI 32 : IF LAST BUFFER, EXIT 
010770 070000 011004 “070000, 32$ 
70 010772 ASSUME E0C,100000 zy ASSUME WRITE STOP BIT IS SIGN BIT 
71 010772 103201 140000 BIC #UNADDR,R1 ; CLEAR UNUSED ADDRESSNG BITS 
72 010774 104017 MOV R1,RO : MOVE TO RO 
73 010775 105204 000001 ADD #1-RG : ADD ONE TO LOW ORDER BN 
74 010777 BCC 31$ : IF NO CARRY, BRANCH 
010777 040000 010755 “040000, 31$ 
75 011001 115405 INC RS : PRPOGATE CARRY 
76 011002 BR 31$ : LOOP 
011002 000000 010755 “00,31$ 
77 011004 32$: POP <R5,R4> : RESTORE REGISTERS 
011004 104265 MOV (SP)+,R5 
011005 104264 MOV (SP)+.R4 
78 011006 100652 000021 MOV R2,U.NSEC(RS) =; SAVE AS NUMBER OF SECTORS HANDLED 
79 011010 105642 000011 ADD S.MEGW(R4),R2  : ADD TO MEGABITS WRITTEN 
80 011012 100642 000011 MOV R2,S.MEGW(R4) =: SA 
81 011014 104652 000061 MOV U.RWER(RS),R2 : SEE IF ANY ERROR OCCURRED 
82 011016 BNE 3 : IF SO, BRANCH 
011016 050000 011033 “050000, 3$ 
83 011020 104657 000046 MOV U.PARM(RS),RO  ; GET UNIT PARAMETERS 
84 011022 103207 000200 BIC #RBNBN,RO : CLEAR RBN BIT 
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R = IF ERROR DURING WRITE, FIND IT'S POSITION IN THE CHAI 
85 011024 100657 000046 MOV RO,U.PARM(RS) SAVE 
86 011026 104207 005134 MOV #SETUP,RO : SETUP NEXT MODULE 
87 011030 104051 MOV R5,R1 : DEFERRED CAL 
88 011031 BR 17$ : EXIT 
011031 000000 011612 “00, 
89 011033 3$: CALL BLKCHK ; SEE IF THIS IS A KNOWN BAD BLOCK 
011033 020000 002465 “020000,BLKCHK 
90 011635 BCS 15$ : IF NOT, BRANCH 
011035 040000 011041 “040000, .+3 
011037 000000 011053 “00,15$ 
91 011041 104657 000021 MOV U.NSEC(RS),RO  ; GET NUMBER OF SECTORS WRITTEN 
92 011043 115407 INC RO : SKIP THIS SECTOR 
93 011044 100657 000021 MOV RO,U.NSEC(RS) : SAVE 
94 011046 104207 005134 MOV #SETUP,RO : SETUP NEXT MODULE 
95 011050 104051 MOV 5 + DEFERRED CALL 
96 011051 BR 17$ : EXIT 
011051 000000 011612 “00,17$ 
97 011053 104651 000021 15$: MOV U.NSEC(RS),R1 = GET SECTORS WRITTEN 
98 011055 105651 000024 ADD U.CSEC(R5).R1  : ADD TO TOTAL SECTORS WRITTEN 
99 011057 100651 000024 MOV R1,U.CSEC(R5) : SAVE 
100 011061 104651 000021 MOV U.NSEC(R5S),R1  : GET SECTORS WRITTEN 
101 011063 105651 000053 ADD U.CBN(R5),R1 |: ADD TO LO ORDER CURRENT BN 
102 011065 100651 00005 MOV R1,U.CBN(R5) =: SAVE 
103 011067 BCC 2$ : IF NO CARRY, BRANCH 
011067 040000 011076 “040000, 2$ 
104 011071 104651 000054 MOV U.CBN+1(R5),R1 ; GET HI ORDER CURRENT BN 
105 011073 115401 INC R : PROPOGATE CARRY 
106 011074 100651 000054 MOV R1,U.CBN+#1(R5) : SAVE 
107 011076 114001 2s: CLR R1 : SET UP FOR NO SECTORS WIRITTEN 
108 011077 100651 000021 MOV R1,U.NSEC(R5) : SAVE 
109 011101 104651 000061 MOV U.RWER(R5),R1 =: GET WRITE ERROR 
110 011103 106201 000003 CMP #3,R1 : SEE IF REVECTOR 
111 011105 BEQ : IF SO, BRANCH 
011105 010000 011153 “010000, 1$ 
112 011107 106201 000002 CHP #2,R1 : SEE IF FAILURE IN DRIVE 
113 011111 BNE 6$ : IF NOT, BRAN 
011111 050000 011134 050000, 6$ 
114 011113 SOFTER 6 ; REPORT 
011113 104200 000562 MOV #ER6,HRQ.04 
011116 104202 1e7646 MOV #6! ERSOF T+4000. .R2 
011120 104020 0015 MOV R2,HRQ.0? 
011122 104200 SPREE MOV #. .HRQ.O1 
011125 104200 060013 MOV #ERRMES ,HRO.ROQ 
115 011130 CALL GOINIT 
011130 020000 005106 “020000, GOINIT 
116 011132 BR 12$ : BRANCH 
011132 000000 011511 “00,128 
117 011134 106201 000004 6$: CMP #4,R1 : SEE IF HEADER COMPARE FAILURE 
118 011136 NE 8s : IF NOT, BRANCH 
011136 050000 011267 ~050000,8 
119 011140 104651 000046 MOV U. soARMCRS). R1 ; GET UNIT PARAMETERS 
120 O11142 104143 MOV Ra) R3 : GET SUBUNIT PARAMETERS 
121 01114 ASSUME S.PARM,O 
122 011143 102203 020000 BIT #OCYLS.R3 : SEE IF USING DIAGNOSTIC CYLINDERS 
123 011145 BNE 7$ : IF SO, BRANCH 
011145 050000 011160 SOs 0000,7$ 
124 011147 102201 000200 BIT #RBNBN,R1 : SEE If WRITING A RBN 


m7 
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FNDWER = IF ERROR DURING WRITE, FIND IT'S POSITION IN THE CHAI 
125 011151 BNE 7$ ; IF SO, BRANCH 
011151 050000 011160 “050000, 
126 011153 104207 015007 1$: MOV #REVCT,RO : REVECTOR NEXT MODULE 
127 011155 114001 CLR R1 + IMMIDATE CALL 
128 011156 BR 17$ : EXIT 
011156 000000 011612 “00,17$ 
129 011160 7$: HARDER 5 ; REPORT HEADER COMPARE FAILURE 
011160 104200 000365 001601 MOV #ERS ,HRO.04 
011163 104202 107645 MOV #5 !ERHARD+4000. ,R2 
011165 020 001577 MOV R2,HRQ.02 
011167 104200 011167 001576 MOV . RO. 
011172 104200 060014 001575 MOV #ERRMC,,HRO.RO 
130 011175 ERRORC <S.LETR(R4),RW.LOW(RO) ,RW.HI(RO)> | 
011175 104640 000005 001602 MOV S.LETR(R4) ,HRQ.05 
011200 104670 000003 001603 MOV RW.LOW(RO) .HRO.06 
011203 104670 000004 001604 MOV RW. HI (RO) ,HRQ.07 | 
131 011206 ERRORC <R1,#RBNTXT,U.RBN(RS)> 
011206 104010 001605 MOV R1,HRQ.08 
011210 104200 005472 001606 MOV #RBNTXT,HRQ.09 
011213 104650 000055 001607 MOV U.RBN(R5) ,HRQ. 10 
132 011216 ERRORC <U.RBN+1(R5),RW.ANG(RO)> 
011216 104650 000056 001610 MOV U.RBN+1(R5),HRO.11 
011221 104670 000007 001611 MOV RW.ANG(RO) ,HRQ.12 | 
133 011224 ERRORC <RW.CMD(RO),U.CGRP(R5) ,U.CCYL(R5) ,U.CCYL+#1(R5)> | 
011224 104670 000005 001612 MOV RW.CMD(RO),HRQ.13 | 
011227 104650 000066 001613 MOV U.CGRP(R5) .HRO.14 
011232 104650 000064 001614 MOV U.CCYL(R5) .HRO.15 
011235 104650 000065 001615 MOV U.CCYL+1(R5) ,HRO. 16 
134 011240 ERRORC <U.LGRP(R5S),U.LCYL(R5) ,U.LCYL+1(R5)> 
011240 104650 000071 001616 MOV U.LGRP(RS) ,HRQ.17 | 
011243 104650 000067 (91617 MOV U.LCYL(R5) .HRO.18 | 
011246 104650 000070 001620 MOV U.LCYL+1(R5) ,HRO.19 
135 011251 ENDERR 0 | 
011251 114000 003013 CLR ERRPOS : CLEAR THE POSITION | 
136 011253 103201 000200 BIC #RBNBN,R1 ; NO LONGER HANDLING AN RBN 
137 011255 100651 000046 MOV R1,U.PARM(RS) =: SA 
138 011257 104201 000001 MOV #1,R1 : ONLY 1 SECTOR WRITTEN 
139 011261 100651 000021 MOV R1,U.NSEC(RS) : 
140 011263 104207 005134 MOV #SETUP,RO : SETUP NEXT MODULE 
141 011265 BR : EXIT AND REPORT 
011265 000000 011613 “00,13$ 
142 011267 106201 000153 8$: CMP #153,R1 : SEE IF POSITIONER ERROR 
143 011271 BNE $ : IF NOT, BRANCH 
011271 050000 011337 “050000, 22$ 
144 011273 REPSFT ,,SEEK ; REPORT SEEK ERROR 
011273 114000 001577 CLR HRQ.02 
011275 114000 001600 CLR HRQ.03 
011277 104200 000001 001601 MOV #1,HRQ.04 
011302 100467 MOV RO,-(SP) 
011303 104657 000063 MOV U.UNUM(RS) RO 
011305 105657 000050 ADD U.SUBU(R5) RO 
011307 104070 001576 MOV RO,HRQ.01 
011311 104207 060007 MOV = #TASOF TRO 
011313 020000 001543 “020000, HOSTRO 
011315 104267 MOV (SP)+,RO 
145 011316 SOFTER 44 : POSITIONER ERROR 
011316 104200 003127 001601 MOV #ER44,HRO.04 
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104202 
104020 
104200 
104200 
020000 


000000 
106201 


050000 
104200 


104200 


000000 
106201 


050000 
104200 


104200 
020000 


000000 
106201 


050000 
104200 


020000 
000000 
106201 
050000 
106200 


000000 





147714 


060013 
005076 


011511 
000213 


011362 
003243 


060013 


011511 
000253 


011407 
003214 


060013 
005106 


011511 
000313 


011434 
003270 


060013 
005106 


011511 
000413 


011457 
004115 


060013 
011511 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 100-3 
FNDWER = IF ERROR DURING WRITE, FIND IT'S POSITION IN THE CHAI 


CALL GORCLB 

eae «Yaa 

*00,12 

cMP #213,R1 
BNE 23$ 
“050000,23$ 
SOFTER 48 


BR 12$ 
“00,12$ 

CMP #253,R1 
BNE 21$ 
*050000,21$ 
SOFTER 47 


CALL GOINIT 
“020000.GOINIT 
BR 12$ 
*00,12$ 

CMP «ha 


BNE 248 
*050000,24$ 
SOFTER 49 


BNE 
“050000, 


12% 


*00,12$ 
HARDER 68,<#SER36,R1> 


; DRIVE CLOCK TIMEOUT 
MOV 


MOV 
; INIT THE DRIVE TO RECOVER 


; RECEIVER READY FAILURE 
MOV 


MOV 
; INIT THE DRIVE TO REC 


MOV #44! ERSOFT+4000. ,R2 
R2,HRQ.02 


MOV 

MOV #.,HRQ.01 

MOV #ERRMES ,HRO.RQ 
RECALIBRATE NEEDED 


BRANCH 


SEE IF READ/WRITE FAILURE 
IF NOT, BRANCH 


READ/WRITE READY FAILURE 
MOV #ER4B,HRO.04 
MOV #48! ERSOFT+4000. ,R2 
MOY R2,HRQ.02 


eH 01 
MOV #ERRMES ,HRO.RO 


; ERROR EXIT 


SEE IF DRIVE DATA OR CLOCK TIMEOUT 
IF NOT, BRANCH 


#ER47 ,HRO.04 

MOV #47! ERSOFT+4000. ,R2 
R2,HRQ.02 

#.,HRQ.01 

#ERRMES ,HRO.RQ 

ERROR EXIT 

SEE IF RECIEVER READY TIMEOUT 

IF NOT, BRANCH 


#ER4GI,HRQ.04 
MOV #49! ERSOFT+4000. ,R2 
MOV R2,HRQ.02 


#.,HRQ.01 
#ERRMES ,HRO.RQ 
OVER 


SEE IF RTDS ERROR DURING WRITE 
IF NOT, BRANCH 


; REPORT 
MOV #ER63,HRO.04 
MOV #63!ERSOFT+#4000. ,R2 
MOV R2,HRO.02 
MOV #.,HRQ.01 
MOV #ERRMES ,HRO.RQ 
; BRANCH 


; UNKNOWN ERROR CODE 


SEQ 0715 


a= | 








UDAT4 DISK EXERCISER DMACR X04 
FNDWER = IF ERROR DURING WRITE 

011457 Hh e364 004175 

011462 104200 botecs 

011465 104010 92180 

011467 Heh 334 107744 

011471 104020 001577 

011473 Hog 34 011473 

011476 104200 060014 
167 011501 

011501 104200 000051 

011504 104200 000010 
168 011507 

011507 000000 011602 
169 011511 

011511 104200 000470 
170 011514 

011514 104650 00001 

011517 104640 00000 

011522 104670 000003 

Ot 1363 104670 000 
171 011530 

011530 104650 000046 

011533 104200 005472 

011536 104650 000055 
172 011541 

011541 104650 056 

011544 104670 000007 
173 011547 

011547 104670 000005 

011552 104650 000066 

011555 104650 000064 

011560 104650 000065 
174 011563 

011563 104650 000071 

011566 104650 000067 

011571 104650 000070 
175 011574 

011574 104200 000051 

011577 104200 000027 
176 011602 

011602 020000 005066 
177 011604 104201 000001 
178 011606 100651 000022 
179 011610 

011610 000000 011613 
180 011612 114002 
181 011613 

011613 000000 003746 


182 


12$: 


14$: 


17$: 
13$: 


TION 


06:46 PAGE 100-4 
IN THE CHAI 


ENDERR 


BR 14$ 
*00,14$ 
CERROR 


ERRORC 


ERRORC 


ERRORC 


ERRORC 


5,#SER19 nay 
erin cine tanta seaapcacnns ~ wont 


MOV RW.A 
eenectntees ncmnetinns neetinoamat *- Yassiag hy 


SEQ 0716 
MOV #ER6B,HRO.04 
MOV #SER36,HRO.05 
R1,HRO.06 
MOV #68! ERHARD+4000. ,R2 
MOV R2,HRQ.02 
MOV #ERRMC ,HRO.RO 


MOV #SER22,HRQ.07 


MOV #7+1,ERRPOS 3 SET THE POSITION 


#SER19,HROQ.05 


MOV RW.LOW(RO) ,HRO.08 
MOV RW.HI (RO) ,HRO.09 


MOV U.PARM(RS) ,HRO.10 
MOV #RBNTXT,HRQ. 11 
MOV U.RBN(R5) ,HRO.12 


MOV U.RBN+1(R5) ,HRO.13 
NG(RO) ,HRQ.14 


<U.PARM(RS) ,#RBNTXT,U.RBN(RS)> 


<U.RBN+1(R5) ,RW.ANG(RO)> 


RW.CMD(RO) ,HRO.15 
MOV U.CGRP(R5) ,HRQ.16 
MOV U.CCYL(R5S) ,HROQ.17 


MOV U.CCYL#1(R5) ,HRO.18 
ERRORC <U.LGRP(RS),U.LCYL(RS5) ,U.LCYL#1(R5)> 
MOV U.LGRP(RS) ,HRO.19 
MOV U.LCYL(R5) .HRO.20 
MOV U.LCYL+1(R5) ,HRO.217 
ENDERR 
MOV #SER22,HRQ.22 
MOV #22+1,ERRPOS ; SET THE POSITION 
CALL GOSEEK ; SEEK REQUIRED FOR ERROR RECOVERY 
“020000, GOSEEK 
MOV #1, : DEFERRED CALL 
MOV R1.U.MSEC(RS) : ONLY TRY TO WRITE ONE SECTOR 
BR 13$ : BRANCH 
“00,13$ 
R 2 : NO ERRORS 
JMPRET : RETURN TO CALLING PROGRAM 
“00, JMPRET 
.DSABL LSB 


} 
— 


1 
9 
10 
\} 
i§ 
14 
15 
24 011615 
28 
29 
30 
38 
39 011615 
011615 
40 011617 
41 011621 
42 011622 
43 011624 
011624 
44 011626 
45 011630 
011630 
011632 
46 011634 
47 011635 
48 011635 
49 Btie? 
011637 
50 011641 
51 011643 
52 011645 
011645 
53 011647 
011647 
011652 
011655 
011660 
011663 
011665 
011667 
011672 
54 011675 
011675 
011700 
011703 
011706 
55 011711 
011711 
56 011713 
57 011715 
58 011717 
59 011721 
60 011723 
61 011725 
62 ILS 
63 0117 





020000 
104657 
115407 
100657 
010000 
106207 
040000 
000000 
104141 
102201 


ae RRRR KERR 


005046 
000012 
000012 
011743 
000002 
011634 
011647 
001000 


011743 
000046 
000400 


011743 
002366 





UDAT4 DISK EXERCISER ayy af 01 23-AUG-82 12:06:46 PAGE 101 
eeteeeeere OVERLAY MODULE R 


» SBTTL 


aeeeeeeene OVERLAY MODULE READ 


SEQ 0717 


FERRARA AEAAEERARAEAEEEEEEEEEEEEAAAERAAERERAEAEEEEEEEEEEEEAEEEEEEAEREEREEEEEEEEEE 
SERA EEAERAAEAEEEEEREEEEEEEERAEEAAAEEAEEEEEEEEEERAEEEAEEEAEAEAEEEREREEEREAEEEE 
f RERAAAEAAEEEEREEEEEEEEEEEOREEEEEEREREEEERAEREEEEREEREEEEEEREREEREEEREEEEEEEEE 
SERRE AAAAEAAEAEEAEEAEEEEEEEEREEAEAEEREEEAEEEERAEEREREAEEEREREEEEEEEEEEAEEEEEEEEEE 


Bete Se Byte Ge Ge Ge Ge Se 
mm 
Pd 
.— 


“U.RWTOCRS) ,RO 
RO,U.RWTOCRS) 


READ READS A BLOCK FROM THE DEVICE 


DISABLE ERROR RECOVERY 


MOVE ear taal TIMEOUT VALUE 10 RO 
COUNT 


INCREMENT 
SAVE READ/WRITE TI 


MEOUT 
IF ZERO, FIRST TIME == BRANCH 


SEE IF po MAX TIMES 


IF So, 


GET SUBUNIT PARAMETERS 
ASSUME THAT S.PARM IS ZERO 


* IF RETRIES ENABLED 
F SO, BRANCH 


: GET UNIT PARAMETERS 
: SEE IF READING RCT 


; IF SO, GO FOR RETRIES 


0000,5$ 
11$: HARDER 26,<S.LETR(R4) ,U.CBN(R5) ,U.CBN+1(R5)> 


#ER26,H 


Q.04 
S. LerkcRas. Pog 05 
elo N(R5) 


BNET CRS) HRQ.07 
PSG T ERHARD ©4000. oR2 


oe oe 
#ERRMC ,HRO.RO 


ERRORC <U.PARM(RS) ,#RBNTXT,U.RBN(RS) ,U. RBNS1 (RS)> 


ENDERR 0 

MOV U.PARM(RS) ,R3 
BIC r) : 

MOV R3,U.PARM(RS) 
MOV *R 

MOV RO.U.NSEC(RS) 
MOV #SETUP,RO 


R 
#REVEC,R3 


R 
eT UNIT PARAMETERS 


U. tenets yond wy 08 


#RBNTXT 


U. BONERS) Hao. 10 
U.RBN+1(R5) ,HRO.11 


: CLEAR THE POSITION 


ERRPOS 


F HANDLING AN RBN, CLEAR IT 


SAVE 
oe, eee HANDLED 


SETUP IS NEXT MODULE CALLED 
TO SETUP 


DELAYED CALL 
SEE IF READING RCT 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 101-1 
weeeeeeeee OVERLAY MODULE READ 


SOOoooooooooooeo 
ea es as SY ss st 
NNN Ns 

TTT TTT 
NN] NUM 


a w2s S & UES 
wMviw 


01175 


015 
177777 003003 


011751 
002552 
011754 
012134 


003746 


5$: 


4$: 
8$: 


BEQ 8$ 
“010000,8$ 

MOV #REVCT,RO 
MOV #-1,S 

B 4$ 

“00,48 

CA BULDUM 
“020000,BULDUM 
CALL RBLOC 


MOV “#SECCHK RO 
R1 


JMPRET 
260, JMPRET 
-DSABL LSB 


IF NOT, BRANCH 

REVECTOR NEXT MODULE 

MARK SECTOR AS BAD 

EXIT 

BUILD THE DUMMY SDI CONTROL BLOCK 
READ THE SECTOR 


; SECCHK NEXT MODULE CALLED 


IMMIDATE CALL TO NEXT MODULE 
RETURN TO RDWRT MODULE 


SEQ 0718 


1 
¢ 011754 

4 

5 
6 011754 
7? 011756 
8 011760 
9 011761 
10 011762 
011762 
11 011764 
011764 
011767 
011772 
011775 
012000 
012002 
012004 
012007 
12 012012 
012012 
012015 
13 012020 
012020 
14 012022 
012022 
15 81s0se 
19 012024 
23 012026 
24 012027 
25 012031 
012031 
26 012033 
27 012034 
012034 
28 012036 
29 012040 
012040 
30 012042 
012042 
012045 
012047 
012051 
012052 
012054 
012056 
012060 
012062 
012064 
31 012065 
32 012066 
012066 





Os 
RR 


on 





003015 
000025 


000061 
012070 


012065 
000012 


012065 


000000 


001577 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 102 
RBLOCK = READ THE SECTORS 


-SBTTL RBLOCK = READ THE SECTORS 
RBLOCK: 


READ A SECTOR FROM THE DEVICE 


MOV CHAINS ,RO 3 POINT TO START OF CHAIN 

MOV U.MASK(R5),R2  ; R2 HAS SDI_INTERCONNECT 

XFC WAITSI 3 WAIT FOR SECTOR OR INDEX PULSE 
TST R1 : SEE IF ERROR OCCURRED 


BEQ 6$ 
“010000.6 


68 
DEVFTL 42,<U.CGRP(RS) ,U.CCYL(RS5) ,U.CCYL#1(R5)> 
MOV #ERG2,HRO.04 
MOV U. CGRP(RS) ,HRO.05 
MOV U.CCYL(R5) .HRO.06 
MOV U.CCYL#1(R5) ,HRO.07 
MOV #42! F TLDEV+4000. .R2 
mov R2,HRO.02 


#. HRQ. 1 
MOV #ERRMC ,HRQ.RO 
MOV #SER22 ,HRO.08 
MOV #8+1,ERRPOS 


ENDERR 


CALL GOSEEK 


“020000, GOSEEK 
BR 5$ : EXIT 
*00,5$ 
MOV #SECS12,R2 : READ A_512 BYTE SECTOR 
XFC XREAD 3 WRITE THE SECTOR(S) 
R1,U.RWER(RS)  ; SAVE ERROR TYP 
; FIND READ ERROR (FILL IN CORRECT BN NUMBERS) 


CALL 

“020000, FNDRER 
st 1 : SEE IF ANY ERRORS OCCURRED 
“050000,4$ ‘ : 

MOV 


“U.RWTO(RS),RO  ; SEE IF ANY RETRIES 


BE 3 IF SO, BRANC 
*010000,4$ 
REPSFT SOFT 3; REPORT SOFT ERROR 
MOV #1,HRQ.02 
CLR HRO.03 
CLR HRQ.04 
MOV RO,-(SP) 
MOV U.UNUM(RS) .RO 
ADD U.SUBUC(R5) ,RO 
mo, sétcovi no 
“020000, HOSTRO ‘ 


R2 MOV (SP)+,RO 


NO_ ERRORS 
RETURN TO CALLING PROGRAM; 


CLR 
RETURN 
“00,0 


—— — 


3 SET THE POSITION 





Ounfwn— 
So 
— 
Nm 
= 
So 


a ee Pe ee 
POMPPOPENSNENIPoPoNoNgNononyfonongofonononopnononofronony 


see 335 
eEeSee 


ESS 


ea 
SINPSVYSS 


SENSU 
Ww 
So 
= 
w 


040000 
012127 


"20 3 es 


-—_-— © 
33 


070000 012127 

103201 140000 

040 

105204 000001 
012101 


PRINS II we we a at at ot 
wr =—O0ON OU FWh-OVUOe~ 
SOOOOOCOCOooooooooooooooooooooooeoo 


000000 012101 


Nm 
& 
NN orunaus 3 ~OO00 


MN —ONNUMES NSO NUVMWWNOO 


™N 
uw 
re ee er rr lr rr lr ar ir ir er ir ir er i er rs 


WW 


000000 000000 


UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 103 
FNDRER = IF ERROR DURING READ, FIND IT'S POSITION IN THE CHAIN 


SEQ 0720 


re FNDRER = IF ERROR DURING READ, FIND IT'S POSITION IN THE CHAIN 


7$: 


FIND THE FIRST BUFFER THAT IS NOT READ 


PUSH <R1,R4,R5> 


MOV U.CBN(RS) RG 
MOV U. CBNe1 (RS) .RS 


MOV CHAINS 


MOV R4,RW.LOWCRO) 
MOV RS Ru HI (RO) 


MOV R1 
BIT #BUFFLG,R1 
BEQ $ 
“010000,8$ 

TST R1 


BMI 8$ 
“070000,8$ 
ASSUME €E0C,100000 


BIC #UNADDR ,R1 
MOV R1,R0 

ADD #1,R4 

BCC 

“040000,7$ 

INC R5 

BR 7$ 


a 
° 


00,78 . 
POP <R5,R4,R1> 


RETURN 
“00.0 





SAVE REGISTERS 
MOV R1,-(SP) 
MOV R4,-(SP) 
MOV R5,-(SP) 


; est LO ORDER BN 
; RO POINTS TO FIRST BUFFER 
HAIN 


MOVE TO C 


; MOVE TO CHAIN 
; GET STATUS BITS 


SEE IF THIS BUFFER HAS BEEN READ 
IF NOT, BRANCH 


SEE IF END-OF-LIST 
IF LAST BUFFER, EXIT 


ASSUME READ STOP IS SIGN 
CLEAR UNUSED BITS 
MOVE TO RO 


ADD ONE TO LOW ORDER BN 
IF NO CARRY, BRANCH 


PRPOGATE CARRY 
LOOP 


RESTORE REGISTERS 
MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,R1 


; RETURN TO CALLING PROGRAM 


| + 6 
UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 104 


eeeeeeeeee OVERLAY MODULE SECCHK = CHECK THAT BUFFER FULL AND 


1 ~SBTTL tteeewenee OVERLAY MODULE SECCHK = CHECK THAT BUFFER FULL AND ECC 
9 FERRARA AAEAERAEEEEAREEEEEEEEEEEEAEEAEAAAERERAEEHEREEEREEEEEEEEEEEEERERERERENEE 
10 FRRAAAAEAAAAERAEEAAEAEEAEEEEEAEERAAEAEAAEEEAAEEEREREREREEEEEEEREEEEREREEEEEAEEE 
11 FERRARA AAAAAAERAAEAEEEEREEEEEREEEAAEEAARAREREEEEREEEEAEEEREEEEEEREREAEEEREEEEE 
12 FRRAAAERAAAEAAAREAES AEE EEEREREEEEEEEEAEEREREEERAEAEEEREEEEEEEEEEEEREEEEE REE 
13 $ 
14 $ 
15 : 
34 012134 SECCHK : 
29 ; CHECK TO SEE IF THE SECTOR'S FULL, IF NOT, REPORT WHY (UNLESS 
30 ; REVECTOR. WHERE I'LL REVECTOR THE BLOCK) 
31 3 IF THE SECTOR'S FULL, CHECK ECC AND EDC, THEN CALL THE NEXT ROUTINE 
3¢ ; DEPENDING ON THE OPTIONS IN U.PARM (SELECTED @Y USER) 
4j .ENABL LSB 
4 012134 106307 003015 MOV CHAINS RO z GET POINTER TO READ CHAIN 
43 012136 104171 MOV . : GET STATUS OF BUFFER 
52 012137 ASSUME RW.CPT,O 
56 012137 ‘102201 040000 BIT #BUFFLG,R1 : SEE If BUFFER FULL 
57 012141 4 : IF SO, BRANCH 
012141 050000 013010 “050000, 4$ 
58 012143 ALL —_ BLKCHK : SEE IF THIS IS A KNOWN BAD BLOCK 
012143 020000 002465 £45600, BLKCHK 
59 012145 BCC 3$ 3 IF SO, BRANCH 
012145 040000 012774 “040000, 3$ 
60 012147 104651 000021 MOV U.NSEC(RS),R1 =; GET NUMBER OF SECTORS READ 
61 012151 105651 90024 ADD UCSEC(RS) R1  ; ADD NUMBER OF SECTORS PREVIOUSLY HANDLED 
62 012153 100651 4 MOV R1,U.CSEC(RS) : SAVE 
63 012155 104651 21 MOV U.NSEC(R5),R1  : GET NUMBER OF SECTORS READ 
64 012157 105641 000010 ADD S.MEGR(R4),R1  : ADD TO MEGABITS READ 
65 012161 100641 000010 MOV R1,S.MEGR(R4) : SAVE 
66 012163 104651 000021 MOV U.NSEC(RS),R1  : GET NUMBER OF SECTORS READ 
67 012165 105651 000053 ADD U.CBN(R5),R1  ; ADJUST U.CBN TO SECTOR WITH ERROR 
68 012167 100651 000053 MOV R1,U.CBN(R5) : SAVE 
69 012171 BCC 18 : IF NG CARRY, BRANCH 
012171 040000 012200 “040000,1 
70 012173 104651 000054 MOV U. S enet(Rs). R1 ; GET CURRENT BN 
71 012175 115401 INC R : PROPOGATE CARRY 
72 012176 100651 000054 MOV R1,U.CBN+1(R5) : SAVE 
73 012200 114001 1$: CLR R1 : TO CLEAR NUMBER OF SECTORS HANDLED 
74 012201 100651 000021 MOV R1,U.NSEC(RS) ; ZERO SECTORS HANDLED 
75 012203 104651 000061 MOV U.RWER(R5),R1 =: GET READ/WRITE ERROR 
76 012205 106201 000003 CMP #3,R1 ; SEE IF REVECTORED BLOCK 
77 012207 BEQ : IF SO, BRANCH 
012207 010000 012261 7910000.28 
78 012211 106201 000002 #2,R1 : SEE IF FAILURE IN DRIVE 
79 012213 BNE : IF NOT, BRANCH 
012213 050000 012236 “050000, 8$ 
80 012215 SOFTER ‘20 : REPORT 
012215 104200 002056 001601 MOV #ER20,HRO.04 
012220 104202 147664 MOV #001 ERSGF 144000. .R2 
012222 104020 001577 MOV Re. HRO.02 
012224 200 912224 001576 MOV HRQ.01 
012227 104200 060013 001575 MOV PERRMES HRO.RO 
81 012232 GOINIT 
012232 020000 005106 £05600. GOINIT 





a 


SEQ 0721 
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8 Ss3ses 
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ee ce ed ee ed wed ed ed ed ed od od od od 

WWW 
SESS RIAA LE 


be ab ned ood ot Ht 
st 
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So 
horonoforononory 
See 
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106201 
05 
10465 
104141 


102201 
050000 
102203 


050000 
102203 


FRR KERR KK KEK KKK 
GSOOn AA AWS o 
SSSSs SS SSS Sds 


3 AAO 
Vu 
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N= Www 


012673 
000004 


012403 
000046 
020000 
012265 
000400 
012374 
000200 
012265 


015007 
013012 


—dedbedad and ond 3 
N 


_~— 
ono USEWNR —oO 


003003 


2$: 


9$: 


5$: 


UDATG DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 104-1 
eeeeeeeene OVERLAY MODULE SECCHK = CHECK THAT BUFFER FULL AND 


. SEQ 0722 | 


BR 12$ : BRANCH 
*00,12$ 
CMP #4,R1 : SEE IF HEADER COMPARE FAILURE 
BNE 6S ; IF NOT, BRANCH 
“050000, 6$ 
MOV U.PARM(RS).R3 ; GET UNIT PARAMETERS 
MOV (R4),R1 : GET SUBUNIT PARAMETERS 
ASSUME $.PARM,O 
BIT #OCYLS.R1 ; SEE IF ON DIAGNOSTIC CYLINDERS 
BNE 9$ 3 IF SO, BRANCH 
“050000,9$ 
BIT #REVEC,R3 : SEE IF REVECTOR ENABLED 
; IF $0, BRANCH AROUND 
“050000, 5$ 
BIT #RBNBN,R3 : SEE IF READING RCT OR RBN 
BN : IF SO, REPORT ERROR 
*050000,9$ 
MOV #REVCT,RO : REVECTOR NEXT MODULE 
BR 19$ : EXIT 
“00,19$ 
HARDER 19 : REPORT HEADER COMPARE ERROR 
MOV #ER19,HRO.04 
MOV #19! ERHARD+4000. ,R2 
MOV R2,HRQ.02 
MOV #. .HRQ.01 
MOV #ERRMC ,HRO.RO 
ERRORC <S.LETR(R4),RW.LOW(RO) ,RW.HI(RO)> 
MOV S.LETR(R4),HRO.05 
MOV RW. LOW(RO) .HRO.06 
MOV RW. HI (RO) ,HRO.07 
ERRORC <R3,#RBNTXT,U.RBN(RS)> 
MOV R3,HRO.08 
MOV #RBNTXT,HRO.09 
MOV U.RBN(R5) ,HRQ. 10 
ERRORC <U.RBN+1(R5),RW.ANG(RO)> 
MOV U.RBN+1(R5),HRO.11 
MOV RW.ANG(RO) ,HRQ. 12 
ERRORC <RW.CMD(RO),U.CGRP(RS) ,U.CCYL(R5) ,U.CCYL#1(R5)> 
MOV RW. CMD (RO) ,HRO.13 
MOV U.CGRP(RS5) .HRO. 14 
MOV U.CCYL(R5) .HRO.15 
MOV U.CCYL+1(R5) ,HRO. 16 
ERRORC <U.LGRP(RS),U.LCYL(RS5) ,U.LCYL+1(R5)> 
MOV U.LGRP(RS) ,HRO.17 
MOV U.LCYL(R5) .HRO.18 
MOV U.LCYL+1(R5) ,HRO.19 
ENDERR 0 
CLR ERRPOS : CLEAR THE POSITION 
BIC #RBNBN,R3 : IF HANDLING A RBN, CLEAR IT 
MOV R3,U.PARM(RS) : SAV 
MOV #1,Ri : ONLY ONE SECTOR HANDLED 
MOV R1.U.NSEC(RS) : SAVE 
MOV #SETUP,RO ; SETUP NEXT MODULE 
BR 18$ : BRANCH + REPORT, DELAYED CALL 
MOV #REVCT,RO : REVECTOR NEXT MODULE 
MOV #-1,SCR2 : SECTOR MARKED BAD 





——o —se snahamnieee = . 
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weeeeeeeee OVERLAY MODULE SECCHK = CHECK THAT BUFFER FULL AND 


111 012401 BR 19$ : EXIT, IMMIDATE CALL 
12401 000000 013012 “00,19 
112 012403 106201 00005 6$: CMP #52,R1 ; SEE IF SERDES OVERRUN ERROR 
1135 012405 BNE b 3; IF NOT, BRANCH 
012405 050000 012426 “050000, 20$ 
114 012407 SOFTER ° 34 : SERDES OVERRUN 
012407 104200 002540 001601 MOV HERS4 HRO.04 
012412 104202 14770 MOV #34 ERSOFT+4000. ,R2 
012414 104020 00157 MOV R2,HRO.02 
012416 104200 012416 001576 MOV #. .HRQ.01 
012421 104200 060013 001575 MOV #ERRMES,HRO.RO 
115 012424 BR 12$ 3; REST OF ERROR MESSAGE 
012424 000000 012673 *00,12$ 
116 012426 106201 000150 208: CMP #150,R1 3; SEE IF DATA SYNC TIMEOUT 
117 0124 BNE 2 3; IF NOT, BRANCH 
012430 050000 012451 “050000,22$ 
118 012432 SOFTER 36 ; DATA SYNC TIMEOUT 
012432 104200 002612 001601 MOV #ER36,HRO.04 
012435 104202 147704 MOV #36 'ERSOFT+4000. ,R2 
012437 104020 001577 MOV R2,HRO.02 
012441 104200 012441 001576 MOV #.,HROQ.01 
012444 104200 001575 MOV #ERRMES,HRO.ROQ 
119 012447 BR 12$ ; REST OF ERROR MESSAGE 
012447 000000 012673 “00,12 
120 012451 106201 000153 22$: CMP #153,R1 ; SEE IF POSITIONER ERROR 
121 012453 BNE 23$ 3; IF NOT, BRANCH 
012453 050000 012521 “050000,23$ 
122 Oistee REPSFT ,,SEEK 3 REPORT SEEK ERROR 
012455 114000 001577 CLR HRQ.02 
012457 114000 001600 CLR HRO.03 
012461 104200 000001 001601 MOV #1,HRQ.04 
012464 100467 MOV RO,-(SP) 
012465 104657 U.UNUM(RS) ,RO 
012467 105657 000050 ADD U.SUBUC(RS) ,RO 
012471 104070 001576 MOV RO,HRQ.01 
012473 104207 06000 MOV #T4SOFT,RO 
012475 020000 001543 “020000,HOSTRQ 
012477 104267 MOV (SP)+,RO 
123 012500 SOFTER 45 ; REPORT POSITIONER 
012500 104200 003162 001601 V #ER45S,HRO.04 
012503 104202 14771 MOV #45 'ERSOFT+4000. .R2 
012505 104020 001577 MOV R2,HRQ.02 
012507 104200 012507 001576 MOV . .HRO.O1 
012512 104200 060013 001575 MOV #ERRMES ,HRO.RO 
124 012515 CALL GORCLB ; RECALIBRATION REQUIRED FOR RECOVERY 
012515 020000 005076 “020000,GORCLB 
125 012517 12$ 3; REST OF ERROR MESSAGE 
012517 012673 “00,128 
126 012521 106201 000213 23$: CMP #213,R1 : SEE IF READ/WRITE READY FAILURE 
127 012523 BNE 24$ : IF NOT, BRANCH 
012523 050000 012544 “050000, 24$ 
128 012525 SOFTER °37 ; READ/WRITE READY FAILURE 
012525 04200 002634 001601 MOV #ER37,HRO.04 
012530 104202 147705 MOV #37 /ERSOFT+4000. .R2 
012532 104020 001577 MOV R2,HRQ.02 
012534 104200 012534 001576 MOV #. .HRQ.01 
012537 104200 060013 001575 MOV #ERRMES ,HRO.RO 





on DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 104-3 > 


eeeeteeees OVERLAY MODULE SECCHK = CHECK THAT BUFFER FULL AND 


129 ois ets 


130 012544 
131 91936 


=" 
Ww 
~ 

VIII 


134 


SVE SS RLS SES 


2 I 
SN NAA O 


ot 

WwW 

Ww 
ecceecocecceccceco 


01260 
138 012612 
1261 
139 012614 
012614 
140 012616 
141 012620 


1 
142 012622 
012622 


01 
143 012637 
144 012641 
01 


012660 
145 012663 
012663 
012666 
146 bison 
147 012673 
01267 
148 012676 
012676 
012701 


01267 
00025 


012571 
002563 
147703 
001577 
012557 
060013 
005106 
012673 
000313 
012616 
002660 
147706 


005106 


012641 


248: 


21$: 


25$: 


268: 


12$: 


12$ 
$923. R1 


BNE 
“050000, 
SOFTER ° 


BR 
on” 12$ 


CALL GOINIT 

eats GOINIT 
12$ 

00, 12$ 

cMP #313,R1 

BNE 25$ 

“050000.25$ 

SOFTER 38 


GOINIT 
“056000, GOINIT 
BR 12$ 


“00,128 
CMP #413,R1 


BNE 
“050000, 26$ 
SOFTER 64 


12$ 


BR 
*00,12$ 
HARDER 69,<#SER36,R1> 


ENDERR 


14$ 
*00,14$ 
CERROR 5,#SER19 


MOV 
ERRORC 9 <U.RWTOCRS),S.LETR(R4) ,RW.LOWC(RO), oan -HI(RO)> 





REST OF ERROR MESSAGE 


SEE IF DATA DRIVE OR STATE CLOCK TIMEOUT 
IF NOT, BRANCH 


DRIVE CLOCK TIMEOUT 
MOV #ER35 ,HRO.04 


MOV #35! ERSOFT+4000. .R2 
ad R2, ay 


0.01 
MOV PERRNES, HRQ.RQ 
INIT THE DRIVE TO RECOVER 


REST OF ERROR MESSAGE 


SEE IF So READY TIMEOUT 
IF NOT, BRANCH 


RECIEVER READY FAILURE 
MOV 


#ER38 ,HRO.04 
MOV #38! ERSOFT+4000. ,R2 
MOV R2,HRQ.02 
cone #. ,HRQ.01 

#ERRMES ,HRO.RO 


; INIT THE DRIVE t0 RECOVER 


REST OF ERROR MESSAGE 
RTDS FAILURE DURING READ? 
BRANCH 


IF NOT, 
REPORT 
MOV #ER64,HR 
MOV abet ERSCE T2000. .R2 
MOV R2.HRQ. 02 
MOV #. .HRO.01 
MOV #ERRMES ,HRO.ROQ 
BRANCH 
; UNKNOWN ERROR NUMBER 
MOV #ER69,HRO. 04 
MOV #SER36,HRO.05 


R1, HRO.06 
MOV #69 ERIARD+4000. .R2 
MOV R2,HROQ.02 
MOV > 8 1 
MOV #ERRMC .HRO.RO 
MOV #SER22,HRO.07 


MOV #7+1 ,ERRPOS 
REST OF ERROR MESSAGE 


#SER19,HROQ.05 


U.RWTOC(RS) ,HRO.06 
MOV 8: LETR(R4) HRQ.07 


SEQ 0724 


3 SET THE POSITION 





012704 


_ 
&- 
oO 
oO 
par par 
im 
GN 
_ 
nm 


-_ 

uw 

oO 
POMENONNoPoNoPoNonofnonononyny ~ 


— 
vw 
= 


= 
wi 
Nm 


= 
wi 
WN 


AAGAWM VMvi 


—b 
w 
FARTLS39 Now & 
SOOOSOSSSOOOOCOSOOOOOCOOCOOO OOOO OOOOOCOOOCOOOOOOO 


—t 3 Sa HE HS tb a —o— 
ca ak ed a ed dnd id dd a ad ad ad at ot a os a oo Ss oo 


— 
oa 
oO 





000003 
000004 


00004 


00547 
000055 


005066 
000001 
000022 


013014 
000010 
000010 
100000 
014726 


013012 
013016 


003746 





UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 104-4 
weeeeeeeee OVERLAY MODULE SECCHK = CHECK THAT BUFFER FULL AND 


MOV 
MOV 
ERRORC <U.PARM(RS) ,#RBNTXT,U.RBN(RS)> tse 
MOV 
MOV 
ERRORC <U.RBN+1(R5) ,RW.ANG(RO)> 
MOV 
MOV R 
ERRORC <RWCHD(RO) ,U.CGRPCRS) ,U.CCYL (RS) .U.CCYL 
MOV 
MOV 
MOV 
ERRORC <U.LGRPCRS) ,U.LCYL (RS) ,U-LCYL#1(R9)> 
MOV 
MOV 
ENDERR 
MOV 
MOV 
CALL GOSEEK ; SEEK REQUIRED FOR RECO 
“020000, GOSEEK 
MOV #1,RO0 : SET UP TO READ ONE SECTOR 
MOV RO.U.MSEC(RS) =: SAVE 
BR 18$ : EXIT 
“00, 18$ 
MOV S.MEGR(R4),R1  ; GET NUMBER OF SECTORS READ 
DEC Ri ; READJUST TO ACTUAL SECTORS TESTED 
MOV R1,S.MEGR(R4) 
MOV #EOC RI 


MOV R71, (RO) 


MOV #LSTMOD,RO 
19$ 


> SAVE 
> MOVE END-OF=CHAIN TO R1 
+ LSTMOD NEXT MODULE 


ee 19$ ; EXIT, NO ERRORS, IMMIDATE CALL 
MOV #CHKEDC ,RO 3 CHKEDC IS NEXT MODULE 

CLR R2 3 WO ERRORS 

CLR 1 3 IMMIDATE CALL 

BR JMPRET : RETURN TO SEQUNCR 

“00, JMPRET 


RW.LOW(RO) ,HRO.08 
RW. HI (RO) ,HRO.09 


U.PARM(RS) ,HRQ.10 
U.RBN(R5) ,HRO.12 
U.RBN+1(R5),HRO. 13 
RW. CMD(RO) ,HRO.15 
U.CGRP(R5) .HRO.16 
U.CCYL(R5) ,HRO.17 
U.CCYL+1(R5) ,HRO.18 
U.LGRP(RS) ,HRO.19 


U.LCYL(R5) .HRO.20 
U.LCYL+1(R5) ,HRO.21 


: SET THE POSITION 


; FLAG THIS BUFFER AS END-OF-CHAIN (FOR LSTMOD) 


L 
UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 105 SEQ 0726 
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1 .SBTTL ‘teeeeeeeee OVERLAY MODULE CHKEDC = CHECK THAT ECC AND EDC ARE OK 
9 FARRAR AAAAAEEAAEAAAA AREA EEEREEEEEEREREERAARAEEEEEEEEEREEREREEEEEEEEEEEREREEEEEEE 
10 FERRARA EREEEAAEEEE EEE AEEEREREEAEAEREAERAREREREEREREEEEEEEEEEEEEEEAEEEES 
11 FERRARA EAAAAEREREEAEAEEEEERAARAAEEAAEAAEREREEAEEEEEEEEEAEEEEEAEREEEEEEEEES 
12 aaa aaa aaa atelier 
13 ; 
14 : 
15 : 
2 013016 CHKEDC: 
29 ; CHECK THAT THERE IS NO ECC ERROR IN THIS BUFFER, IF NOT, CHECK THE 
30 3 EDC, IF THAT IS INCORRECT YOU HAVE A MAJOR ER + 
31 ; IF ECC AND EDC IS OK, GO TO DATA COMPARE (IF REQUESTED) 
33 .ENABL LSB 
41 013016 104307 003015 MOV CHAINS, RO ; RO POINTS AT READ CHAIN LINK BEING TESTED 
51 013020 104671 000001 MOV RW.STAT(RO),R1 = R1 IS BUFFER STA 
55 013022 102201 010000 BIT #ECCFLG,R1 : SEE IF ECC ERROR NN SUFFER 
56 013024 BEQ 11$ ; IF NOT, CHECK EDC 
013024 010000 013164 “010000,11$ 
57 013026 104653 000046 MOV U.PARM(R5) ,R3 3; GET UNIT PARAMETERS 
58 013030 102203 000400 BIT #REVEC,R3 : SEE IF FINDING A REVECTOR 
59 013032 BNE 2$ ; IF SO, BRANCH 
013032 050000 013060 “050000,2$ 
60 013034 CALL  ‘BLKCHK : SEE IF THIS IS A KNOWN BAD BLOCK 
013034 020000 002465 “020000, BLKCHK 
61 013036 BCS 5$ : IF NOT, BRANCH 
013036 040000 01304 “040000, .+3 
013040 000000 01305 -00,5$ 
62 013042 104641 000010 MOV S.MEGR(R4),R1  ; GET NUMBER OF SECTORS READ 
63 013044 117401 bec ; READJUST TO ACTUAL SECTORS HANDLED 
64 013045 100641 000010 MOV R1,S.MEGR(R4) : SAVE 
65 013047 104207 014726 MOV #LSTMOD, RO : LAST MODULE IS NEXT 
66 013051 BR : EXIT, NO ERRORS, IMMIDATE CALL 
013051 000000 013433 *90,19$ 
67 013053 104141 5$: MOV (R4),R1 : GET UNIT PARAMETERS 
68 013054 ASSUME S.PA > ASSUME THAT S.PARM IS ZERO 
69 013054 102201 010000 BIT #ECCCHK,R1 + SEE IF ECC CORRECTION IS REQUESTED 
70 013056 BEQ 6 : IF NOT, BRANCH 
013056 010000 013064 “010000,6$ 
71 013060 104207 013437 2$: MOV #CHKECC,RO : CHKECC NEXT MODULE 
72 013062 BR 19$ ; EXIT, NO ERRORS, IMMIDATE CALL 
13062 000000 013433 *00,19$ 
73 013064 6$: SOFTER 7,<#SER21,U.RRTY(R5S) ,.U.ELEV(RS)> 
013064 104200 000615 001601 MOV #ER7,HRQ.04 
013067 104200 001602 MOV #SERO1,HRO.05 
013072 104650 000010 001603 MOV U.RRTY(RS) -ARQ.06 
013075 104650 000027 001604 MOV U.ELEV(R5) .HRO.07 
013100 104202 147647 MOV #7 'ERSOF T+4000. .R2 
013102 104020 001577 MOV R2.HRQ..0@ 
013104 104200 013104 001576 MOV #.,HRO.01 
013107 104200 060013 001575 MOV #ERRMES ,HRO.RO 
74 013112 ERRORC <S.LETR(R4),RW.LOW(RO) ,RW.HI(RO)> 
013112 104640 900005 001605 MOV S.LETR(R4) ,HRQ.08 
013115 104670 000003 001606 MOV RW. LOW(RO) .HRO.09 
013120 104670 000004 001607 MOV RW.HI (RO) RO. 10 
75 013123 ERRORC <U.PARM(RS) ,#RBNTXT> 
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o 
Oo 
_ 
Ww 
—_ 
nm 
Ww 


N 

N 
WWWWWWWNWWIWNNWIWNNINNAINWAWAWW AWWA 
ee ce ee ee ke De ce eB ce ed ee ed ed od ed 
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SSARANSSSRRRVSSRAUVSSASVELYES 


© 28S BNL RAL AW AS Bs 
POPOPONPONYPoNonofnongeny 


SOSOSSOOSOSOSSOSSSSOSSSSCSOSSSOSOSOSCSOSSOOSOSOOCOCOSOSCOOSCOOSOOOOCOOOOOOOOOO 
WNWWNWWNWNWWW 
WVVYS sss OSoo 


WWWWWG 
MoNMoNnonofponory 
SEWN 

WW NNUIWIO 


MMn 
aa 


Ne ee ee ee ee eh me ee me ee me ete me ee me me ec et et ce ee ee ee ee a ek ee ed ed ed ed od od od od od ed 
Nm 
& 
uw 


WWNWWWAWWNWANWWW 


aw 2S BS VK ARB 
PoPonononany 


~— —_ 


104650 
104200 

50 
104650 
104670 
104670 
104650 
104650 
104650 
114000 
104651 
000000 
104677 
020000 
104651 
106672 
050000 
104657 
050000 
104657 
106657 


010000 


000000 
102201 
050000 
104207 
000000 
104207 


000046 
005472 


000055 
000056 
000007 


000005 
000066 
000064 


000065 


003013 
000046 


013371 
000002 


001640 
000046 
000400 


013261 
000010 


013210 
000027 
000031 
013233 
000001 


001600 
001601 


015007 


001 
001 
001 
001 
001 

001617 
001620 


001577 


11$: 


22$: 


1$: 


12$: 


MOV U.PARM(RS) ,HRO.11 
MOV #RBNTXT MRO. 12 
ERRORC <U.RBN(R5),U.RBN+1(R5) ,RW.ANG(RO)> 
MOV U.RBN(R5) ,HRO.13 
MOV U.RBN+1(R5) ,HRQ. 14 
MOV RW.ANG(RO) ,HRO.15 
ERRORC <RW.CMD(RO),U.CGRP(R5) ,U.CCYL(RS5)> 
MOV RW.CMD(RO) ,HRO. 16 
MOV U.CGRP(R5) .HRQ.17 
MOV U.CCYL(R5) .HRO.18 
ERRORC U.CCYL+1(R5) 
MOV U.CCYL#1(R5) ,HRO.19 
ENDERR 0 
CLR ERRPOS 
MOV U.PARM(R5),R1 =; GET UNIT PARAMETERS 
BR ; 10$ : EXIT 
MOV RW.BUF(RO),RO ; RO NOW POINTS AT BUFFER 
CALL MP > COMPUTE THE EDC 
“020000, CMPEDC 
MOV U.PARM(R5),R1 =; GET UNIT PARAMETERS 
CMP BF.EDC(RO),R2 =; SEE IF MATCH 
BNE 14$ : IF NOT, BRANCH 
“050000, 14$ 
MOV U.RRTY(R5),RO  ; GET RETRIES 
BNE ; IF RETRIES WERE USED, REPORT SOFT ERROR 
“050000,23$ 
MOV U.ELEV(RS),RO =; GET ERROR LEVEL 
CMP U.MLEV(R5).RO : SEE IF ANY ERROR LEVELS WERE USED 
BEQ 22$ ; IF NOT, BRANCH 
“010000, 22$ 
REPSFT ‘SOFT ; REPORT SOFT ERROR 
MOV #1,HRQ.02 
CLR HRQ.03 
CLR HRQ.04 
MOV RO,<(SP) 
MOV U.UNUM(RS) ,RO 
ADD U. SUBU(R5) -RO 
Moy sardeori no 
“020000, HOSTRQ 
MOV (SP)+,RO 
CLR SCR2 : FLAG AS GOOD BLOCK 
BIT #REVEC,R1 : SEE IF REVECTOR IN PROGRESS 
IF NOT, BRANCH 


BEQ > 

*010000,1$ 

MOV #REVCT,RO 

R 19$ 
#DATCMP,R1 
12$ 

00,128 
#LSTMOD,RO 
19$ 


9$ 
#CMPDAT,RO 
19$ 


REVECTOR NEXT MODULE 

EXIT 

SEE IF DATA COMPARE REQUESTED 
IF SO, BRANCH 


LSTMOD NEXT MODULE 
EXIT, NO ERRORS, IMMIDATE CALL 


DATA COMPARE NEXT MODULE 
EXIT, NO ERRORS, IMMIDATE CALL 


SEQ 0727 


! 


; CLEAR THE POSITION 


013312 
108 013315 
013315 
013320 


013323 
109 please 


013353 


013367 


Ye ee a 
wry POM POPONMOT POM fROem SA Sele 
oOo GON OWEW P— COON Ou WW 

elelelelelelelelelplelelelelelelalelolelelolo) 


— 
ob a 4) 4 4) - a ss ) 9 — | Ss as SS Ss Ss 


KRSRESRSESLES 


WWRINIPSPONN — |] | 00 
= NUVI 3 eR ey 


104200 


104640 
104670 
104670 


104650 
104200 


104650 
104650 
104670 
104670 
104650 
104650 
104650 
104300 
104630 
114000 
104200 
102201 


050000 
104147 


102207 


010000 
104207 


600000 


102201 


010000 
10420? 


000000 
104207 


000000 


013433 
003015 
003003 
000002 


002272 


060013 


000005 
000003 
000004 


000046 
005472 


000055 
000056 
000007 
000005 
000066 
000064 
000065 
003003 
000400 
003013 
177777 
000400 


013405 


001000 


013411 
014104 


000002 


013427 
014403 


013434 
014726 


013434 


001601 


001604 


001576 
001575 


14$: 


10$: 


15$: 


13$: 


16$: 


17$: 
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#ER24 ,HRO.04 


U.ELEV(R5) ,HRQ.07 

#24! ERSOFT+4000. ,R2 
2 02 

#.,HRQ. 

#ERRMES ,HRQ.RQ 
S.LETR(R4) ,HROQ.08 
RW.LOW(RO) ,HROQ.09 
RW.HI (RO) ,HRQ.10 


U.PARM(RS) ,HRQ.11 
#RBNTXT,HRQ.12 


U.RBN(RS) ,HRO.13 
U.RBN+1(R5) ,HRO.14 
RW.ANG(RO) ,HRQ.15 
RW.CMD(RO),HRQ. 16 
U.CGRP(R5S) .HRQ.1 
U.CCYL(R5) .HRG. i8 
U.CCYL+1(R5) ,HRO.19 
SCR2,HRQ. 

BF .EDC(R3) ,HRO.21 


: CLEAR THE POSITION 


“00,19$ 
MOV CHAINS RO 
MOV Re. SCRe aiiy : SAVE CALCULATED EDC 
SOFTER a: OeSERD} *UeRRTY(RS) ,U. -ELEV(RS)> 
MOV #SERZ1,HRO 
MOV 
MOV 
MOV 
MOV ,HRQ. 
MOV 
MOV 
ERRORC <S-LETR(R4) ,RW.LOW(RO) ,RU.HICRO)> 
MOV 
MOV 
ERRORC <U.PARM(RS) ,#RBNTXT> 
mov 
ERRORC <U.RBN(R5) ,U.RBN#1 (RS) ,RW.ANG(RO)> 
MOV 
MOV 
ERRORC <RU.CHD(ROD .U.CGRPCRS) ,U.CCYL(RS)> 
MOV 
MOV 
ERRORC <U.CCYL#1(R5),SCR2,BF.EDC(R3)> oe 
MOV 
MOV 
ENDERR 0 
CLR ERRPOS 
MOV #=-1,SCR2 : FLAG AS BLOCK BAD 
BIT #REVEC,R1 : SEE IF REVECTOR IN PROGRESS 
BNE 13 : IF SO, RETR 
*050000,13$ 
MOV (RA) RO : GET SUBUNIT PARAMETERS 
ASSUME S.PARM,O : ASSUME THAT S.PARM IS ZERO 
gi #RTRIES, RO : SEE IF RETRIES ARE ENABLED 
16 ; IF NOT, BRANCH 
“310000, 16$ 
#ERCOV,RO ; ERROR RECOVERY IS NEXT MODULE 
oR 20$ > EXIT, IMMIDATE CALL 
BIC #C2HARD,HRO.02 ; MAKE A HARD ERROR 
MOV BERRMC,HRO.RQ : COUNT ERROR 
BIT #DATCMP,R1 : SEE IF DATA COMPARE ENABLED 
BEQ > IF NOT, BRANCH 
*010000,17$ 
MOV #CMPDAT.RO : DATA COMPARE IS NEXT MODULE 
BR eo 20$ t EXIT, IMMIDATE CALL 
MOV #LSTMOD, RU : LSTMOD 1S NEXT MODULE 
20$ > EXIT, IMMIDATE CALL 


BR 
“00,208 


SEQ 0728 » 


| 
j 
} 
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weeeeerees OVERLAY MODULE CHKEDC = CHECK THAT ECC AND EDC ARE 
13) Hi: 3 11e0e 19$: CLR R2 ; NO ERRORS 
ct pk ee 
3038 000000 003746 “00, JMPRET : 


E 
-DSABL LSB 





C 
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1 -SBTTL *#eeeeneee OVERLAY MODULE CHKECC = CORRECT BUFFER READ USING ECC 
9 FERRARA AAAAAEEAAEREERETEEEE EEE EEEEAAEEAAEEEEEEEREREEEEEEREREEEEEEEEAREEHEEEEEEE 
10 J RERARAERAAAEREEEEEAAEEEEEEEEEEEEEAAEEAEEEREEAEEEEEREEEEEREEAREEEEREEEEEEEERAEEE 
1 1 fF RRARERAAAAERAAEREEEEREEERETEREREAEEEERAEEEEEARREEAEEREREEEEEEEEEEEEEEEEREAEREES 
\¢ SERRA EAAARAEAAARAEEEEREEEEAEEEEAERAREEAAEEEAAEREREREEAEEEEEEEEAEEEEEEREEEEEEEE 
1 : 
14 8 
15 ; 
$3 013437 CHKECC: 
44 3 SEE IF ECC ERROR WAS DECTECTED 
38 -ENABL LSB 
39 013437 104307 003015 MOV CHAINS,RO 3; RO POINTS TO CHAIN 
40 013441 PUSH RO 3; SAVE POINTER TO LINK 
013441 100467 MOV RO,-(SP) 
41 013442 104200 177777 003003 MOV #-1,SCR2 3; ASSUME BUFFER BAD 
45 013445 104202 000400 MOV #SEC512,R2 3 CORRECT ECC ON A 512 BYTE SECTOR 
49 013447 0015 XFC ECC 3 APPLY ECC CORRECTION 
50 013450 115001 TST R1 3: SEE IF CORRECTION WORKED 
51 013451 EQ 1$ 3; IF SO, BRANCH 
013451 010000 013473 *010000,1$ 
52 013453 PoP RO 3; RESTORE POINTER TO LINK 
013453 104267 MOV (SP)+,RO 
53 013454 SOFTER 8 
013454 104200 000631 001601 MOV #ERB ,HRQ.04 
013457 104202 147650 MOV #8 'ERSOFT+4000. ,R2 
013461 104020 001577 MOV R2,HRQ.02 
013463 1042 013463 001576 MOV #.,HRQ.01 
013466 104200 060013 001575 MOV #ERRMES ,HRQ.RQ 
54 013471 8$ : BRANCH 
013471 000000 013517 *00,8$ 
55 013473 106657 000032 1$: CMP U.ECCT(RS),RO =; SEE IF CORRECTIONS = TO OR EXCEED THRESHOLD 
56 013475 6$ 3: IF =, BRANCH 
- 013475 010000 013501 *010000.6$ 
57 013477 BPL 2$ 3; IF NOT, BRANCH 
013477 030000 013600 *030000,2$ 
58 013501 6$: POP RO 3; RESTORE POINTER TO LINK 
013501 104267 MOV (SP)+,RO 
59 013502 SOFTER 9 
013502 104200 000745 001601 MOV #ERO,HRO.04 
013505 104202 147651 MOV #9 'ERSOFT+4000. ,R2 
013507 104020 001577 MOV R2,HRQ.02 
013511 104200 013511 001576 MOV #. ,HRQ.01 
013514 104200 060013 001575 MOV #ERRMES ,HRQ.ROQ 
60 013517 8$: ERRORC <#SER21,U.RRTY(RS) ,U.ELEV(RS)> 
013517 104200 000661 001602 MOV #SER21,HROQ.05 
013522 104650 sad 001603 MOV U.RRTY(RS) ,HRO.06 
013525 104650 000027 001604 MOV U.ELEV(R5S) ,HROQ.07 
61 013530 ERRORC <S.LETR(R4) .RW.LOW(RO) ,RW.HI(RO)> 
013530 104640 000005 001605 MOV S.LETR(R4) ,HROQ.08 
013533 104670 000003 001606 MOV RW. LOW(RO) ,HRQ.09 
013536 104670 000004 001607 MOV RW.HI(RO) ,HRQ.10 
62 013541 ERRORC <U.PARM(RS) ,#RBNTXT> 
013541 104650 000046 001610 MOV U.PARM(RS) ,HRQ.11 
013544 104200 005472 001611 MOV #RBNTXT,HROQ.12 
63 013547 ERRORC <U.RBN(RS),U.RBN+1(R5) ,RW.ANG(RO)> 
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000055 
BOON 38 
00000 
000005 
000066 
000064 
000065 


003013 
014025 


000002 


001640 
000400 


013721 
000001 
000010 


013632 
001577 


000063 
000050 
00 


001543 


001600 


2$: 


238: 
22$: 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 106-1 
seeeeeeeee OVERLAY MODULE CHKECC = CORRECT BUFFER READ USING E 


MOV 
ERRORC pes ater create naitntned “= 


ERRORC U.CCYL+1(R5) 
ENDERR 0 

11$ 

R3 

MOV RW .BUF (R3) ,RO 
CALL CMPED 
“020000, CMPEDC 

CMP BF .EDC(RO) ,R2 
BNE 
*050000,3$ 
MOV #1,HRQ.03 

MOV U.RRTY(RS) ,RO 


BNE 
“050000, 23$ 
MOV 


BR 
“00,11$ 
POP 


U.ELEV(RS) ,RO 
CLR HRQ. 

6 MLEV(RS) RO 
BE 2$ 
*010000,22$ 
INC HRQ. 
PUSH 


MOV U.UNUM(R 
ADD U. SUBUCRS 
MOV RO,HRQ.01 


MOV 
MOV 


MOV 


CLR 
BRANCH 


U.RBN(RS) ,HRO.13 
U.RBN+1(R5),HRO. 14 
RW. ANG(RO) ,HRO.15 


RW.CMD(RO) ,HROQ.1 
U.CGRP(RS) ,HROQ.1 
U.CCYL(R5) ,HRO.18 
U.CCYL*1(R5) ,HRO.19 


ERRPOS 


3 RESTORE POINTER TO BUFFER 


RO POINTS TO BUFFER 
COMPUTE EDC VALUE 


MOV (SP)+,R3 


SEE IF EDC — MATCHES 


IF NOT, BRANC 

REPORT ECC CORRECTION 
GET OU 

IF RETRIES WERE USED, 


GET ERROR LEVEL 
ASSUME NO SOFT ERR 


REPORT SOFT ERROR 


OR 
SEE IF ANY ERROR LEVELS WERE USED 
ANCH 


IF NOT, BR 


3 REPORT SOFT ERROR 
SAVE RO 


MOV RO,-(SP) 


GET STARTING SUBUNIT NUMBER 
ADD OFFSET 


MOVE TO OUTPUT BUFFER 
REPORT REQUEST 


; CLEAR THE POSITION. 


CALL HOS SEND TO HOST 
“020000, HOSTRQ 
POP RO : RESTORE RO 
MOV (SP)+,RO 
CLR SCR2 : BUFFER GOOD 
MSSG =_-3,, <S. LETR(R4) ,RW.LOW(R3) ,RW.HI(R3) ,RW.ANG(R3) ,RW.CMD(R3) ,U.CGRP(RS) .U.CCYLC(R | 
MOV #MS3,HRO.02 | 
MOV S.LETR(R4) ,HRO.03 
MOV RW. LOW(R3) .HRQ. 
MOV RW. HI (R3) ,HRO.05 
MOV RW. ANG(R3) .HRQ..06 
MOV RW. CMD(R3) -HRQ.07 
MOV U.CGRP(R5) .HRO.08 
MOV U.CCYL(R5) -HRO.09 
MOV U.CCYL#1(R5) MRO. 10 
MOV RO,-(SP) 
MOV U.UNUM(RS) ,HRO.01 
ADD U. SUBU(R5) -HRQ. 
MOV #MESSAG,RO 


“020000 ,HOSTRQ 


| —E 9 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 106-2 


eeeeeeeees OVERLAY MODULE CHKECC = CORRECT GUFFER READ USING E 


SEQ 0732 


013716 104267 MOV (SP)+,RO 
90 013717 BR 5$ : EXIT 
013717 00 014054 “00,5$ 
91 013721 104020 003013 3$: MOV R2,€ AVE THE COMPUTED EDC 
92 013723 SOFTER 10, eOSERSI .U. arTicasyeu. ELEV(R5S)> 
013723 104200 000770 001601 MOV #ER10,HRO.04 
013726 104200 000661 00160 MOV #SER21,HRO.O 
013731 104650 000010 00160 MOV U.RRTY(RS) ,HRO.06 
013734 104650 9027 1604 MOV U.ELEV(R5) .HRO.07 
013737 104202 1476 MOV #10! ERSOFT+4000. ,R2 
013741 104020 00157 MOV R2.HRO..02 
013743 104200 013743 001576 MOV #.,HRO.01 
013746 104200 060013 001575 MOV #ERRMES ,HRO.RO 
93 013751 ERRORC <S.LETR(R4),RW.LOW(R3) ,RW.HI(R3)> 
013751 104640 000005 001605 MOV S.LETR(R4), HRQ. 08 
013754 104630 000003 001606 MOV RW.LOW(R3). 9 
013757 104630 000004 001607 MOV RW.HI(R3), ina. 10 
94 013762 ERRORC <U.PARM(R5S) ,ARBNTXT> 
013762 104650 000046 001610 MOV U.PARM(RS) ,HRQ.11 ) 
13765 104200 005472 001611 MOV #RBNTXT MRO. 12 ! 
95 013770 ERRORC <U.RBN(RS),U.RBN+1(R5) ,RW.ANG(R3)> | 
13770 104650 000055 001612 MOV U.RBN(RS) ,HRO.13 
013773 104650 000056 001613 MOV U.RBN+1(R5) ,HRO. 14 
013776 104630 000007 001614 MOV RW.ANG(R3) ,HRO.15 
96 014001 ERRORC <RW.CMD(R3),U.CGRPC(RS) ,U.CCYL(RS)> 
014001 104630 000005 001615 MOV RW.CMD(R3) ,HRO.16 
014004 104650 000066 001616 MOV U.CGRP(R5) .HRQ. 7 
014007 104650 0 001617 MOV U.CCYL(R5) .HRO.18 
97 014012 ERRORC <U.CCYL+1(R5),ERRPOS ,BF.EDC(RO)> ; REPORT ERROR 
014012 104650 0065 001620 MOV 0. CCVL#1(R5) HRQ.19 
014015 104300 003013 001621 MOV ERRPOS ,HRO.2 | 
014020 104670 001622 MOV BF. EDCIROD: HRQ.21 
98 014023 ENDERR 0 | 
014023 114 003013 CLR ERRPOS : CLEAR THE POSITION 
99 014025 104143 11$: MOV (R4) ,R3 : GET SUBUNIT PARAMETERS | 
100 014026 ASSUME S.PARM,O : ASSUME THAT S.PARM IS ZERO | 
101 014026 102203 001000 BIT #RTRIES,R3 : SEE IF RETRIES ARE ENABLED 
102 014030 BNE : IF SO, BRANCH 
014030 050000 014050 “050000,4$ 
103 014032 653 000046 MOV U.PARM(RS).R3 =; GET UNIT PARAMETERS 
104 014034 102203 000400 BIT #REVEC,R3 > SEE IF REVECTOR IN PROGRESS 
105 014036 BNE 4$ ; IF SO, BRANCH 
014036 050000 014050 “050000,4$ 
106 014040 103200 040000 001577 BIC #C2HARD,HRQ.02 ; MAKE SOFT ERROR A HARD ERROR | 
107 014043 104200 060014 001575 MOV WERRMC,HRQ.RQ ; COUNT ERROR 
108 014046 BR 10$ : BRANCH 
014046 014067 “00,10$ 
109 014050 104207 014104 4$: MOV #ERCOV,RO : ERROR RECOVERY IS NEXT MODULE 
110 014052 BR 7$ + BRANCH 
014052 014101 “00,7$ 
111 014054 11400 5$: CLR R2 : NO ERRORS 
112 014055 104653 000046 MOV U.PARM(RS),R3 =; GET UNIT PARAMETERS 
113 014057 102203 000400 BIT #REVEC, R3 : SEE IF FINDING A REVECTOR 
114 014061 : IF NOT, BRANCH 
014061 010000 014067 2570000, 198 
115 014063 104207 015007 MOV #REVCT,RO : REVECTOR NEXT MODULE 
116 014065 7$ : BRANCH 
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UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 106-3 
eeeeeeeere OVERLAY MODULE CHKECC = CORRECT BUFFER READ USING E 


014101 
000002 


SEQ 0733 


SEE IF DATA COMPARE IS REQUESTED 
IF NOT, BRANCH 


DATA COMPARE IS NEXT MODULE 
BRANCH 


GO TO LAST MODULE 
IMMIDATE CALL TO NEXT MODULE 
RETURN 


= DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 107 


eeeeeneene OVERLAY MODULE ERCOV = DATA ERROR RETRIES AND LEVEL 
eeeneeneee OVERLAY MODULE ERCOV = DATA ERROR RETRIES AND LEVELS 


FERRARA AAAEREAAAAAEEEEEEAEEEEEEREEEAEREREEAEEEEEREEEEEAEEEAREEEEEREEEEEEEEEREEE 
SARA AAAEAAAAAEEAAEEEEEREEAERERETEREREAEEREEAREEAEEAEEEEEEEEAEEEEEEREREEREEEREEE 


Wr 
SOooooooooooooooooecoeoco 


1 
9 
10 
11 
12 
13 
14 
15 
24 014104 
28 
29 
30 
31 
32 014104 
014104 
33 014106 
34 014110 
014110 
35 014112 
36 014114 
37 014116 
38 014120 
39 014122 
40 014124 
41 014126 
42 014130 
43 014131 
44 014133 
45 014134 
46 014136 
47 014140 
48 014142 
4142 
9 014144 
0 014146 
1 014147 
2 014151 
3 014153 
4153 
4 014155 
5 014156 
6 160 
7 162 
8 64 
9 66 
67 
67 
71 
73 
75 
77 
01 
02 
03 
03 
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005036 
000010 


014151 


-SBTTL 


fies eee 


RCOV: 


1$: 


NLEV: 


EREXT: 


9 


SAAR AAAAAAAAAAAEEAAEEAEEEEEEREREREEAAEAEAAEERARERERREREREAEAEEREREEEEEEEEEKEREEE 
SPREE AAAAEREAEAAAEREAE EEE AAEEEEEEEEAEAEREEEEEREEEEREREEEEREEEEEERAEREREEEEEEE 


ERROR RECOVERY AND RETRIES 


- ENABL 
CALL 
“020000, 
MOV 


BNE 
“050000, 
MOV 


ADD 


“040000, 
Vv 


BEQ 
meee 


C 
CLR 


R 
“00, JMPR 
- DSABL 





ENABLE 

ENABLE 
U.RRTYCRS) ,RO 
1$ 

1$ 


z2cc 

— 
mac 
qoyrne 


ABBOOOO 
AHA ARNAA 


rie 


»NSEC(RS) 


»MSEC(RS) 
N(R5),R1 
- CBN(RS) 


APA—=§ WWW —e « 
e oO: 
coc Cc mm 


- CBN+1(R5),R1 


R1,U.CBN+1(R5) 
U.RTRY(RS) ,RO 


NLEV 

NLEV 
RO,U.RRTY(RS) 
#-1,R 


RO,U.RWTOCRS) 
#BUILDP, RO 


R5,R1 
EREXT 


DO 2 ADOC BDAAHACBMVS 


#NXTLEV,R 
R3.U-RCOV(RS) 


R2 
JMPRET 
ET 
LSB 


ENABLE ERROR RECOVERY 
ET NUMBER OF RETRIES ALLREADY ATTEMPTED 


3G 
3 IF NOT ZERO (FIRST TIME) BRANCH 


GET NUMBER OF SECTORS READ 
—- OF SECTORS PREVIOUSLY HANDLED 


GET NUMBER GF SECTORS READ 


; ADD TO MEGABITS WRITTEN 
SAVE 


V 
GET NUMBER OF SECTORS READ 


; TO SETUP VALUES 
; a READ 


MAKE ONE 
; ONLY READ ONE SECTOR 
; ADJUST U.CBN TO SECTOR WITH ERROR 


IF NO CARRY, BRANCH 


GET CURRENT BN 
— CARRY 


COMPARE MAXIMUM COUNT WITH RETRIES ATTEMPTED 
IF RETRIES EXHAUSTED, BRANCH 


INCREMENT RETRY COUNT 
SAVE TI 
ed READ RETRIES AT ZERO 


BUILDP IS NEXT MODULE 
DELAYED CALL TO READ 
BRANCH 


; NEW LEVEL OF ERROR RECOVERY WILL BE TRIED 
; GET ERROR RECOVERY PARAMETERS 
; GO TO NEXT LEVEL 


SAVE 

IMMIDATE CALL TO NEXT MODULE 
NO_ERROR 

RETURN TO SEQNCR 


SEQ 0734 


1 
9 
10 
3 
i§ 
14 
15 
24 014205 
28 
29 
30 
38 
39 014205 
40 014207 
41 014211 
014211 
42 014213 
43 014215 
44 014216 
014216 
45 014220 
46 014222 
014222 
47 014224 
014224 
48 014226 
Oieses 
014231 
014234 
014237 
014242 
014244 
014246 
014251 
49 014254 
014254 
014257 
014262 
014265 
014270 
50 014273 
014273 
014276 
51 014301 
014301 
52 014303 
53 014305 
54 014310 
55 Beals 
01431 
56 014314 
57 914316 
014316 
58 014320 
59 014355 
01432 





104653 
102203 


050000 
104657 
115407 
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ean DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 108 
eeeeeeeees OVERLAY MODULE NEWLEV = SEND DRIVE ERROR LEVEL 


- SBTTL 


—-- = 


H 9 
SEQ 0735 


eeeeneneee OVERLAY MODULE NEWLEV = SEND DRIVE ERROR LEVEL 


FREE AAAAEEAEAAEEREEEREEAEEAAAEAAAAAEAAEEAAEAAAEEAREREREREEREEHEEREREREEEREE 
SEERA AAAREAAAAAAERARAA ARERR EREEAAEREEAEEAEAEEAEAEEREREEEAEEEEARAREREEEERERAAEES 


FERRARA EAEAEAEEEETEEEEAAAEEEEEAEAAAAERAAERAEAEEAEREREEEEEEEEREREEREREEEEEEEE 


SERA AEEAAAAAAAEAAEEEEAAEEEETAEEEAAAAECAAEAAEAEERAAEAAEREEEREREAREREAERAEEEEREE 


EWLEV: 


3$: 


1$: 


INITIATE A NEW LEVEL OF ERROR RECOVERY 


-ENABL LSB 

MOV U.RCOV(RS),.R3 =; GET RECOVERY WORD 

BIT #NXTLEV,R3 : GO TO NEXT LEVEL? 

BNE 3$ : IF SO, BRANCH 

“050000,3$ 

MOV U.ELEV(RS),RO ; GET CURRENT ERROR RECOVERY LEVEL 
INC RO : GO UP ONE LEVEL 

BR LEVNZR 

“00,LEVNZR 

MOV U.ELEV(RS),RO ; GET CURRENT ERROR RECOVERY LEVEL 
BNE LEVNZR : IF NON-ZERO, BRANCH 

“050000, LEVNZR 


CALL DSABLE : DISABLE ERROR RECOVERY 
“020000 ,DSABLE 


HARDER “11,<S.LETR(R4) .U.CBN(RS) ,U.CBNE1 (RS)> 


#ER11,HRO.04 


MOV S.LETR(R4) ,HRO.05 
MOV U.CBN(RS) ,HRO. 
MOV U. CBN+1(R5) ,HRQ.07 
MOV #11 ERHARD+4000. ,R2 
MOV R2,HRQ.02 
MOV o - 
MOV #ERRMC ,HRO.RO 
ERRORC <U.PARM(RS) ,#RBNTXT,U.RBN(RS) ,U.RBN+1(R5) ,U.CGRP(RS)> 
MOV U.PARM(RS) ,HRO.08 
MOV #RBNTXT HRO.09 
MOV U.RBN(R5) ,HRO. 10 
MOV U.RBN+1(R5),HRO.11 
MOV U.CGRP(RS) ,HRO.12 
ERRORC <U.CCYL(R5),U.CCYL#1(R5)> 
MOV U.CCYL(RS) ,HRO.13 
MOV U.CCYL#1(R5) ,HRO.14 
ENDERR 0 
CLR ERRPOS ; CLEAR THE POSITION | 
MOV U.PARM(RS).R3 ; GET UNIT PARAMETERS 
MOV #-1,SCR2 : FLAG AS BAD SECTOR 
BIT #REVEC,R3 : SEE IF FINDING A REVECTORED SECTOR 
BEQ : IF NOT, BRANCH 
“010000, 1$ 
MOV #REVCT,RO : GO TO REVCT ROUTINE NEXT 
BR NEWEXT : BRANCH TO EXIT 
“00,NEWEXT 
BIT #DATCMP,R3 : 


SEE IF DATA COMPARE REQUESTED 
BEQ 3 : IF NOT, BRANCH 
“010000, 2$ . 


60 014 $e 
61 014326 
014 $0 
6¢ 0143 
635 014332 
014332 
64 
65 014334 
66 014336 
67 014340 
014340 
68 014342 
69 014343 
014343 
70 014345 
014345 
71 014350 
014350 
72 014352 
73 014354 
74 014356 
014356 
75 014360 
76 014362 
77 014364 
78 014366 
79 014370 
80 014371 
81 014373 
82 014375 
83 014376 
84 014400 
85 014401 
014401 


104207 


000000 
104207 
000000 
104070 
104203 


020000 
115002 


Ovinod 
-—NNNNNNSGS 


FE: 
ss 


014403 


014400 
014726 


014400 


002437 
002403 


001670 


014352 
004726 
014401 
000047 
010000 
014373 


000027 
007746 


000010 


003746 


001602 


2$: 


LEVNZR: 


2$: 


NEWEXT: 
SNDEX: 


MOV #CMPDAT,RO 
BR NEWEXT 
“00,NEWE 
MOV #LSTMOD,RO 
BR WEXT 
“00, NEWE 
.DSABL LSB 
MOV RO,ERRLEV 
MOV #CR.ERR,R3 
CALL _ TALK 
“020000, TALK 
TST R2 

1$ 
“010000, 1$ 
CERROR 5,#SER4 
BR SNDEX 
“00, SNDEX 
MOV U.RCOV(RS) ,RO 
BIT #NXTLEV,RO 
BEQ $ 
“010000,2$ 
BIC #NXTLEV,RO 
BIS #LEVUSD,RO 
MOV RO,U.RCOV(RS) 
MOV U.ELEV(RS) RO 
DEC RO 
MOV RO,U.ELEV(RS) 
MOV #BUILDP, RO 
CLR R2 
MOV R2,U.RRTY(RS) 
CLR R1 


BR 
“00, JMPR 





JMPRET 
ET 


| 2? 2.4 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 108-1 


weeeeeeeee OVERLAY MODULE NEWLEV = SEND DRIVE ERROR LEVEL 


COMPARE DATA NEXT MODULE 
EXIT 


LAST MODULE NEXT MODULE 
EXIT 


MOVE LEVEL TO SDI COMMAND 
POINT TO ERROR RECOVERY COMMAND 
SEND SDI INTERCHANGE 


SEE IF AN ERROR OCCURRED 
IF NOT, BRANCH 


REPORT ERROR 
MOV #SER4 ,HRO.05 
BRANCH 


GET RECOVERY PARAMETERS 
DID THIS GO TO THE NEXT LEVEL? 
IF NOT, BRANCH 


CLEAR NEXT LEVEL BIT 
Ae | AS LEVELS USED 


GET ERROR RECOVERY LEVEL 
a 

BUILDP IS NEXT MODULE CALLED 
NO ERRORS 

START RETRIES AT 


0 
IMMIDATE CALL TO NEXT MODULE 
RETURN TO SEQUENCER 


SEQ 0736 


48 
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003015 
000002 
177760 


014423 
000020 


014425 
003004 


007777 


000001 
014501 


014520 
000400 


003004 
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weeeneneee OVERLAY MODULE CMPDAT = DATA COMPARISON ON READ BUFFER(S) 


FERRARA AAAAAAEAAEREAEAEEREEEE TE REEAAEEAAAAAAEREERERERAEEEEEEEEEAEEIEEREREEEEEEEE 
SEAR EAAAAAEAEAEAEEEEEEEEEEEEAAAEAEEREEAEEREEAEEEEAEEEEEEAEEEEEEEEEEAAEEEE 


Vee Gee 


MPDAT: 


- ENABL 
PUSH 


MOV 
MOV 
MOV 
BIC 
BNE 
*050000, 
MOV 


BR 
“00.28 
MOV 


BNE 
“050000, 
MOV 


XOPLPO: MO 
MO 
CMP 
BEQ 
*010000, 

XOPLP1: MOV 

CMP 

BNE 

*050000, 

INC 

CMP 





LSB 

<R4,RS> 
CHAINS,RO 

RW. BUF (RO) RO 
(RO) ,R 
#LBLONB ,R2 


1$ 
#16. ,PNUM 
2s 


R 
#HBHINB,R2 
R2,R1 


R2,R1 
(RO) +,R1 
Fl 

FWRD 
PN e 
#LBLONB,R2 
PATPTR(R2) .R2 


#1,R1 
LSB 


R2,R4 
(R4)+,R3 
#1,R3 

ONE PAX 

ONE PAX 
(R4)+,R5 
(RO) +,R5 
CMPERR 
CMPERR 
#SCTWRD+1,R1 


SERRA AAEAAAAEEEAE TERETE RAEEEEEAEREAAAARHEEAERERERAEAEEEEEREEEEREEEEEEEEEEEREEE 
SERRA EAEAAAAAEEEEAEEEEAE EERE EAAAAAAERERAEEAEEEEEEOREREEEEEREEEEEAEEEEREEENEEE 


CMPDAT COMPARES THE PATTERN WITH THAT READ FROM THE SECTOR 


; SAVE R4,R5 


MOV R4,-(SP) 
MOV R5,-(SP) 


; RO POINTS TO LINK 
; RO POINTS TO BUFFER 


R2_ HAS PATTERN NUMBER (IN EACH NIBBLE) 
CLEAR UNUSED 
IF NOT PATTERN 16, BRANCH 


; REPORT PATTERN 16 
BRANCH 


SAVE PATTERN NUMBER 
BUILD PATTERN NUMBER WORD IN R1 
apve PATTERN NUMBER TO HI BYTE 


H Ss 
ROTATE TO HI NIBBLE 


Sa UNUSED BITS 


MOVE TO LO BYTE 
SET BITS 

SEE IF REDUNDANT PATTERN. OK 
IF NOT, BRANCH 


; RESTORE R2 


MAP PATTERN 16 TO PATTERN 0 
Aah TO PATTERN 


SKIP EDC 
R1 HAS OFFSET INTO BUFFER 


R4 POINTS TO LENGTH OF PATTERN 
R3_CONTAINS LENGTH OF PATTERN 
SEE IF PATTERN IS 1 WORD LONG 
IF SO, BRANCH 


RS GETS 1 WORD OF THE DATA PATTERN 
COMPARE PATTERN WORD TO SECTOR AREA 
IF NOMATCH, BRANCH 


INCREMENT OFFSET 
SEE IF ENTIRE BUFFER COMPARED 


76 01447 
7 


84 
85 


Fl ek ak ak ek al al ak Sak ek el Sak Salt alk Ded 
Ab sb bet b db db Ab bah sb sb esb eh alah alealealealeal a? oP >) 


POPPIN) 2 2 OOO 
NV OONAAPWWWuOOR ME 


101 014557 
14557 
102 014562 


0 
0 
0 
0 
0 
103 0 
0 
0 
0 
0 


a at St et 
SHREK 
SELVES 
—=-OWWwOVIY 


010000 
117403 


050000 


000000 
104145 
106275 


050000 
115401 
106201 


050000 
114002 
104265 
104264 
000000 
114001 
104265 
104264 


100467 
104037 


020000 
104267 


040000 
104303 


014512 
014463 
014455 


014520 
000400 
014502 


014721 


002465 


014721 
003015 


014562 
001354 
000005 
000003 
000004 


000046 
005472 


000055 





001601 
001576 
001575 
001602 


001602 
001603 
001604 
001605 


001606 
001607 


001610 


ONEPAX: 
XOPLP2: 


CSCEXT: 


FWRD: 


CMPERR: 


4$: 
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9 

BEQ CSCEXT : IF ALL WORDS COMPARED, BRANCH 
“010000, CSCEXT 
DEC R3 : DECREMENT COUNT OF WORDS IN PATTERN 
BNE XOPLP1 : IF DATA PATTERN UNFINISHED, BRANCH 
“050000, XOPLP1 

XOPLP' ; BRANCH 
“00,XOPLPO 
MOV (R4) RS : GET 1 WORD OF DATA PATTERN 
CMP (RO)+,R5 : COMPARE PATTERN TO SECTOR READ 


BNE CMPERR 
an 


; IF COMPARE ERROR, BRANCH 
3 INCREMENT NUMBER OF WORDS TO COMPARE 


CMP #SCTWRD+1,R1 ; SEE IF ALL WORDS COMPARED 


BNE XOPLP 
“050000, xX0PLP2 
CLR R2 ; NO ERRORS 


: IF INCOMPLETE, BRANCH 


POP <R5,R4> : RESTORE R5,R4 
MOV (SP)+,R5 
MOV (SP)+,R4 
BR CMXEX ; BRANCH 
“00, CMXEX 
CLR R1 : ZERO OFFSET 
POP <R5,R4> : RESTORE R5,R4 
MOV (SP)+,R5 
MOV (SP)+,R4 
PUSH RC : SAVE POINTER TO BUFFER 
MOV RO,=(SP) 
MOV R3,RO : MOVE POINTER TO READ CHAIN TO RO 
BLKCHK ; SEE IF THIS IS A KNOWN BAD BLOCK 


CALL 
*020000,BLKCHK 
POP RO : RESTORE RO 


BCC CMXEX 
aes ry 


MOV (SP)+,RO 


: IF KNOWN BAD BLOCK, EXIT 


Vv CHAINS,R5 ; R3 POINTS TO LINK 
HARDER 12 
MOV #ER12,HRQ.04 
MOV #12! ERHARD+4000. ,R2 
MOV eHRQ.02 
MOV ee o 1 
MOV #ERRMC ,HRQ.RQ 
CERROR 5,#SER24 : ECC/EDC HAD DETECTED ERROR 
#SER24 ,HRQ.05 
TST SCR2 : SEE IF ERROR DETECTED 
: IF SO, BRANCH 
“050000,4$ 
CERROR 5,#SER25 : ECC/EDC DID NOT DETECT ERROR 
#SER25 ,HRQ.05 
ERRORC <S.LETR(R4) ,RW.LOW(R3) .RW.HI(R3)> 
MOV S.LETR(R4) ,HRO.06 
MOV RW.LOW(R3) ,HRO.07 
ERRORC <U.PARM(RS) ,#RBNTXT> 
MOV U.PARM(R5) ,HRQ.09 
#RBNTXT,HRQ.10 


MOV 
ERRORC A CLOTS 





U.RBNC(RS) ,HRC.11 


SEQ 0738 


ere Kw aie eta od 
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14604 104650 000056 001611 mov U.RBN+1(R5), «ira 0.12 
14607 104630 000007 001612 Rw ANG(R R3),HRO.13 
105 O14612 ERRORC <RW.CMD(R3),U.CGRP(RS) ,U. CCVL(RS).U. CCYL+1(R 
14612 104630 000005 001613 RW. CHD CRS), HRO. 14 
014615 104650 000066 001614 MOV U.CGRP(R5) .HRO.15 
014620 104650 000064 001615 MOV U.CCYL(R5) HRO.16 
014623 104650 000065 001616 MOV U.CCYL+1(R5) ,HRO.17 
106 014626 106201 000366 CMP #246.,R1 : SEE IF IN LAST 9 WORDS 
107 014630 BPL 1$ : IF NOT, BRANCH 
014630 030000 014643 “030000, 1$ 
108 014632 104013 "R1,R : TO COMPUTE OFFSET OF ERROR 
109 014633 107203 000367 SUB #247. ,R3 : R3 HAS UNADJUSTED ERROR POSITION 
110 014635 105203 000003 ADD #3,R3_ : R3 HAS ADJUSTED ERROR POSITION 
111 014637 107037 SUB R3,RO + ADJUST POINTE 
112 014640 117407 DEC RO : COMPARE gAUTO- INCREMENTED, SO ADJUST 
113 014641 BR 3$ : PRINT ERROR 
014641 000000 014660 *00,3$ 
114 014643 106201 000004 1$: CMP #4,R1 : SEE IF IN FIRST 4 WORDS 
115 014645 2$° : IF SO, BRANCH 
014645 040000 014655 #040000, os 
116 014647 107207 000004 4,RO : LOOK BACK FOUR WORDS 
117 014651 104203 000003 nov a3 R3 ; OFFSET OF ERROR IN PRINTOUT IS 3 
118 014653 33° : BRANCH 
014653 000000 014660 260.38 
119 014655 107017 2$: SUB R1,RO : BACK UP POINTER 
120 014656 104013 MOV R1,R3 ; RS Is OFFSET OF ERROR IN PRINTOUT 
121 014657 117407 DEC RO TO POINT TO START OF BUFFER 
122 014660 3$: ERRORC <PNUM,R1,R3, (RO)>, (RO)+, (RO)+, a (RO) +, (RO)+, (RO) +, (RO) +> 
014660 104300 003004 001617 PNUM,HROQ. 18 
014663 104010 001620 Mov R1,HRO.19 
014665 104030 001621 MOV R3,HROQ. 
014667 104270 001622 MOV (RO)+,HRO.21 
014671 104270 001623 MOV (RO) +,HRQ.22 | 
014673 104270 001624 MOV (RO) +,HRQ.23 
014675 104270 001625 MOV (RO) +,HRO. 24 
014677 104270 001626 MOV (RO) +,HRO.25 
014701 104270 001627 MOV (RO)+,HRO.26 
014703 104270 001630 MOV (RO)+.HRQ.27 
014705 104270 001631 MOV (RO) +,HRQ.28 
123 014707 ERRORC <(RO)+,(RO)+,(RO)+, (RO) +> 
014707 104270 001632 MOV (RO)+,HROQ.29 
014711 104270 001633 MOV (RO)+,HRQ. 30 
014713 104270 001634 MOV (RO) +.HRQ. 31 
014715 104270 001635 MOV (RO) +,HRQ. 32 
124 014717 ENDERR 0 
014717 114000 003013 CLR POS : CLEAR THE POSITION. 
125 014721 104207 014726 CMXEX: MOV #LSTMOD,RO ; LAST MODULE WILL BE CALLED 
126 014723 114001 CLR : CALL IMMIDATELY 
127 014724 JMPRET : RETURN TO SEQUNCR 
014724 000000 003746 800. JMPRET 
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070000 


000021 


000021 
166057 
014751 
140000 


003015 
012134 


015005 
46 


003642 
015000 


005134 


003746 


001577 





-SBTTL *eeeeeenee OVERLAY MODULE LSTMOD = CLEANUP MODULE BEFORE SETUP 

PIPE PS SILI Ti TTT Pere Perret t i iti iat i itii tier itittiiitiialiteiiet iit itty) 
RETESET iTS rir iit it iit ii iitiiiitiitititiiti + 
RIESE TTT TTT P Prt iri ir iit titi tii tiititiitit ii tit 
PEEPS TTT i iit iii iitiiiitiititiititiiy 


Be Se Se Se MSs Ge Oe Oe Os Oe es 


i sTMOD: 
LOOP CONTROL FOR ECC, EDC AND DATA COMPARE MODULES. ALSO LAST 
MODULE BEFORE SETUP (USUALLY) 
-ENABL LSB 
CLR R 3; ASSUME NO ERRORS 
MOV U.NSEC(RS),.RO  ; GET NUMBER OF SECTORS HANDLED SO FAR 
INC RO 3 INCREMENT COUNT 
MOV RO,U.NSEC(RS) 3; SAVE 
MOV @CHAINS,R1 ; SEE IF LAST BUFFER LAST READ 
ASSUME RW.CPT,O 3; ASSUME FULL FLAG, BUFFER POINTER OFFSET ZERO 
: ; IF SO, BRANCH 
*070000,1$ 
ASSUME EOC seoeee 3; ASSUME END-OF=-CHAIN SIGN BIT 
BIC UNADDR,R1 3; CLEAR UNUSED ADDRESSING BITS 
MOV RI CHAINS 3 CHAINS NOW POINTS TO NEXT LINK 
MOV #SECCHK,RO 3 SECTOR CHECK NEXT MODULE 
CLR R1 3: IMMIDATE CALL 
eo ‘“s 4$ 3 EXIT 
1$: MOV U.PARM(R5) ,R3 3; GET UNIT PARAMETERS 
BIC #RBNBN, 3; IF HANDLING AN RBN, CLEAR IT 
MOV R3,U. PARM(RS) 3; SAVE 
ADD S.MEGR( »,RO ; GET MEGABYTE COUNT 
Tag $1950" RO : SEE IF ONE MEGABYTE TRANSFERED 
3 3; IF NOT, BRANCH 
#030000, 3$ 
°#1954.,RO 3; ZERO COUNT 
aoy #1,HRQ.02 ; REPORT 1 MEGABYTE READ 
CLR HRQ. : NO WRITE MEGABYTES REPORTED 
MOV #T4MXFR,R2 ; SET UP FOR MEGABIT REPORT 
MOV R2,HRQ.ROQ 3 FLAG AS NON-ERROR 
3$: MOV AS Na 3; SAVE COUNT 
MOV #SETUP,RO 3; SETUP IS NEXT MODULE CALLED 
~ 1 * ; DEFERRED CALL TO NEXT MODULE 
4$: MPRET 3; RETURN TO SEQUENCER 
Bho. JMPRET 


-DSABL LSB 


SEQ 0740 | 





1 


9 
10 
11 
12 
13 
is 
15 
24 015007 


3 
37 015007 


46 015015 
47 015017 


AOD KOOOWMUMWIMIUUUTSES 
OuUky WO OWBNOULSWR—O”O 
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w w wu w 
oS 
&- 
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me ee et et et 


104657 
102207 


050000 


104207 
000000 


104651 


040000 
115401 
104010 


000046 
000400 


015074 


000400 


000007 
000055 
060056 
000060 
000022 
000012 
000053 
000013 
015057 


170000 
000054 


177777 
000012 
015642 


015133 


600052 
015107 
002761 
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FERRARA REA ERE EEE EEE EEE EAE ERE EEEEEEREREEEEREEAAEEEERR EERE 
{Re eeeReeeeeeeeeReeeeeHekeeHReeeeReeeeRReeeekeedeeeeeeeeeeeeeeeeeeeeeeeeneee 
MARSA AAAAALAAAAARAASAAAAAAALAAA LALA EEL ALARA SERRA RARER ES ESA R CARRERAS SG 
ARAAAASALALALALALAAAAAAAAAAAL ALAA ALLELES SEARS EASA ARERR RSET ER ERR RAR AEG 


REVCT: 


ae A SECTOR WITH A HEADER NOT FOUND OR A SECONDARY REVECTOR 


MOV U.PARM(RS),RO ; GET UNIT PARAMETERS 
BIT #REVEC,RO : SEE IF REVECTOR ALLREADY IN PROGRESS 


8 ; IF SO, BRAN 


50000,1$ 
+ Mi REVSUP = SETUP THE REVECTOR OPERATION (TO READ RCT) 


; INITILIZE ALL PARAMETERS FOR READING THE RCT TO FING THE RBN THAT 
: A HEADER HAS BEEN REVECTORED TO 


BIS #REVEC,RO 


\ 
; FLAG oe tine. IN PROGRESS 


MOV RO,U.PARM(RS) = SAVE P 
MOV #RETL$,RO : POINT or ARET [BN STRING 
MOV RO,S.LETR(R4) =: SAVE 
MOY U.RWER(RS), : GET READ/WRITE ERROR TYPE 
MOV RO,U.RVER(RS) : SAVE FOR REVECTOR INFORMATION 
MOV S.SCHR(R4),R1  : R1 POINTS TO SUBUNIT /GHARACTERISTICS 
CLR RO : USE RO TO INITILIZE VALUES 
MOV RO,U.RBN t START WITH RBN ZERO 
MOV RO.U.RBN+1(R5) = START WITH RBN ZERO 
MOV RO.U.CCOP(RS) |: ON ORIGINAL COPY OF RCT 
INC RO : RO 1S NOW 1 
MOV RO, ,U.MSEC(RS) =: ONLY RE READ D4 SECTOR Av A TIME 
ADD LBNHST(R1),RO : RO POINTS TO 1ST REVECTOR INFORMATION SECTOR 
MOV RO,U.CBN(R5) > SAV 
MOV LBNHST+1(R1),RO : RO HAS HI FIRST REV INFO SECTOR 
: IF NO CARY, BRANCH 


BCC $ 
“ .o$ 


NC R : PROPOGATE CARRY 
S$: BIC #°CHBHINB,RO =; CLEAR SUBUNIT BITS 
MOV RO,U.CBN+1(R5) : SAVE 
CLR R2 + NO ERRORS 
MOV #-1,R1 > START READ ATTEMPT RETRIES AT 0 
MOV RTO RUTOCRS) > SAV 
MOV #SEEK,RO : SEEK IS NEXT MODULE “ 
BR > EXIT 
“00,48 
1$: MOV U.CSEC(RS),R1 ; GET NUMBER OF SECTORS R/W SO FAR 
ADD U.MBN(RS),R1 ; ADD STARTING SECTOR OF OPERATION 
MOV Ri, CURBN : MOVE TO TEMP STORAGE 
MOV U.MBN+1(R5),R1 : GET HI STARTING SECTOR 
BCC 2 : IF NO CARRY, BRANCH 
“040000, 2$ 
INC R1 : PROPOGATE CARRY 
2$: MOV R1,CURBN¢1 * SAVE 


2c 
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T 
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1 
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104301 
010000 
020000 
000000 


020000 
115001 


010000 
115002 
050000 
020000 
000000 







RCISER DMACR X04.01_ 23-AUG-82 12:06:46 PAGE 111-1 
THE REVECTOR OPERATION (TO READ RCT) 


003003 
015121 
015135 
015133 
015255 


015133 


015133 
015432 
003746 


“00,4 

cat SEARCH 
“020000, SEARCH 
TST R1 


OO 


SEE IF SECTOR READ IS OK 
IF SO, BRANCH 


; FIND NEXT COPY TO READ 
; EXIT 
; SEARCH THE SECTOR TO FIND THE LBN 


; SEE IF LBN FOUND 
; LBN FOUND, BRANCH AND READ RBN 


SEE IF NULL FLAG FOUND (REVECTOR NOT FOUND) 


; IF NOT, BRANCH 
; READ NEXT RCT SECTOR 
; RETURN CONTROL TO SEQUENCER 


sc 


UDATS D 
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000060 
000057 
015221 


015174 
003035 
015177 


015603 


015242 
000054 
000054 
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177777 


000012 
015642 
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X04. 
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FO 


001602 
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ECTOR JUST READ IS OK 





PS ob REVSOK = SEE IF THE REVECTOR INFO SECTOR JUST READ IS OK 


2$: 


36$: 


5$: 


6$: 


7$: 


GO TO THE NEXT RCT COPY 


ne U.CCOP(RS) ,R1 
~ U.COPY(RS),R1 


8 
“030000,5$ 
HARDER 40 


U.RVER(RS) ,R1 
| a 
“050000,2$ 
CERROR 5,#SER26 
36$ 
*00,36$ 
CERROR 5,#SER32 


MOV 
ERRORC a ee 


ENDERR 0 

CALL _— RVFAIL 
“020000, RVFAIL 

BR 7$ 

*00 e 

MOV R1,U.CCOP(RS) 
MOV S$. SCHR(R4) ,RO 
MOV RCTCSZ(R 


BCC 

“040000 ,6$ 

Oar U.CBN+1(R5) ,RO 
MOV kt Ht aaa 


CALL 
“020000, ENABL 
MOV #-1,R 
MOV R3,U.RWTO(RS) 
MOV #SEEK,RO 

CLR 

RETURN 

“00,0 





GET NUMBER OF COPIES TRIED SO FAR 


TRY ANOTHER COPY 
CHECK AGAINST MAX 
IF ALL COPIES UNTRIED, BRANCH 


; FLAG ERROR HEADER COMPARE ERROR 
#SERS2,HRO.05 


U.CBN(RS) ,HRO.06 


SEQ 0743 


MOV #ER4O,HRO.04 
MOV #40! ERHARD+4000. ,R2 
MOV R2,HRQ.02 
MOV #. ,HRQ.01 
MOV WERRMC ,HRO.RQ 
; GET ORIGINAL ERROR TYPE 
SEE IF REVECTORED BLOCK 
IF NOT, BRANCH 
FLAG ERROR 
MOV #SER26,HRQ.05 
; EXIT 


MOV U.CBN+7(R5) ,HRO.07 
MOV CURBN,HRO.08 

MOV CURBN+1,HRO.09 

CL 


R ERRPOS 
CLEAR ALL BITS AND DO A FAIL EXIT 
EXIT 
SAVE COPY COUNT 


; Re tg Ht TO sue! PARAMETERS 
; ADD CURRENT SECTOR 


A 
; IF NO CARRY, BRANCH 


RCT COPY SIZ 


GET HI CURRENT BLOCK NUMBER 
en COUNT 


START READ ATTEMPT RETRIES AT 0 
SEEK IS NEXT MODULE 

NO_ ERROR 

RETURN TO CALLING PROGRAM 


; CLEAR THE POSITION 
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000002 


000001 
015362 
020000 
015335 
170000 
002761 


015335 
002760 


015335 
000055 
000055 
015317 
000056 
000056 
000046 
000200 
000046 
015603 
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GE 113 
D 


010 


Pe SEARCH = TRY TO FIND THE LON IN THE RCT SECTOR JUST READ 


1$: 


2$: 


5$: 


SEARCH THE RCT SECTOR JUST READ TO FIND THE LON OR THE NULL ENTRY 


RO POINTS TO LINK (NODE) IN READ CHAIN 
RO NOW POINTS TO BUFFER 
IS RBN NUMBER OFFSET WITHIN THE SECTOR 


MOV CHAINS ,RO 

MOV RW. BUF (RO) ,RO 

CLR 1 

MOV 1(RO) ,R2 

BMI 

“070000,6$ 

BIT #020000, R2 

“010000,5$ 

BIC #*°CHBHINB,R2 

CMP CURBN+1, RO 

BNE 

“050000,5$ 

CMP (RO) ,CURBN 

“050000, 5$ 

ADD U.RBN(RS) RI 
V R1,U.RBN(RS) 

BCC 

“040000, 2$ 

MOV U.RBN+1(R5),R1 

INC Ri 

MOV R1,U.RBN+1(R5) 

MOV U.PARM(RS) ,RO 

BIS #RBNBN,RO 

MOV RO,U.PARM(RS) 

CALL VFAIL 

“020000, RVFAIL 

CLR R1 

CLR R2 

MOV R2,U.NSEC(RS) 

BR 7$ 

“00,7$ 

ADD #2,R0 

INC R1 

CMP #128. ,R1 

BNE 

“050000, 1$ 

CLR R2 

ADD U.RBN(RS),R1 

MOV ,U.RBN(RS) 

BCC $ 

“040000,7$ 

MOV U.RBN+1(R5),R1 

INC R 

MOV R1,U.RBN+1(R5) 

BR 7$ 

“00,78 

HARDER 41 


; SEE IF 


R1 
; GET RCT CODE 
IF NULL POINTER, ENTIRE TABLE EXHAUSTED, BRANCH 


IT IS : USED RBN 


IF NOT, BRANC 
CLEAR CODE 


: SEE IF HI ORDER MATCHES 


Bete Se Sete tee 


IF NOT, BRANCH 


SEE IF LO ORDER MATCHES 


IF NOT, BRANCH 


ADD RUNNING RBN TO OFFSET 


IF NO CARRY, BRANCH 


; GET HI ORDER RBN 
; PROPOGATE CARRY 


AVE 
; GET UNIT PARAMETERS 


Ae | ALL ROUTINES THAT THIS IS AN RBN 


VE 
FAIL EXIT DOES WHAT WE WANT, JUST CLEAR R1 AND R2 


FOUND IT 
NO ERRORS 
SAVE 

EXIT 


POINT TO NEXT RBN RECORD 


INCREMENT RBN OFFSET 


SEE IF ALL a TRIED 


IF NOT, BRANC 


TO SIGNAL a ct eae TO READ NEXT SECTOR 


ADD OLD RBN TO 12 
SAVE 
IF NO CARRY, EXIT 


GET HI ORDER RBN 
PROPOGATE CARRY 
SAVE 


EXIT 


#ER41,H 
#41 'ERH 


RQ.04 
ARD+4069. ,R2 


R2,HROQ.02 


SEQ 0744 | 
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UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 113-1 SEQ 0745 
SEARCH = TRY TO FIND THE LBN IN THE RCT SECTOR JUST READ 
015371 104200 015371 001576 MOV HRO.01 
015374 104200 060014 001575 MOV FERRMC. HRO.ROQ 
45 015377 104651 000062 MOV U RVER(RS) »RI : GET ORIGINAL ERROR 
46 015401 106201 00000 CMP #3,R1 : SEE IF REVECTORED BLOCK 
47 015403 BNE 32§ : IF NOT, BRANCH 
015403 050000 015412 “050000, 32$ 
48 015405 CERROR 5, #SER26 : REVECTORED SECTOR 
015405 104200 003035 001602 MOV #SER26,HRO.05 
49 015410 12$ : EXIT 
015410 000000 015415 400,12$ 
50 015412 32$:  CERROR 5,#SER32 : REPORT HEADER COMPARE ERROR 
015412 104200 003051 001602 MOV #SER32,HRO.05 
51 015415 12$:  ERRORC <CURBN,CURBN+1> 
015415 104300 002760 001603 MOV CURBN,HRO. 06 
015420 104300 002761 001604 MOV CURBN+1,HRO.07 
52 015423 ENDERR 0 
015423 114000 003013 CLR ERRPOS : CLEAR THE POSITION 
53 015425 9$: CALL _RVFAIL ; CLEAR ALL BITS, FAIL EXIT 
015425 020000 015603 “020000, RVFAIL 
54 015427 104051 MOV R5,R1 : FLAG AS ERROR 
55 015430 7$: RETURN : RETURN TO CALLING PROGRAM 


015430 000000 000000 “00,0 


F 10 
UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 114 SEQ 0746 
NXTRCT = GET THE NEXT RCT SECTOR TO SEARCH 





1 ~SBTTL NXTRCT = GET THE NEXT RCT SECTOR TO SEARCH 
¢ 015432 NXTRCT: 
4 ; INCREMENT CBN BY 1 AFTER SUBTACTING THE NUNMBER OF COPIES*RCT SIZE 
2 3 THAT WAS SEARCHED THROUGH ON THE LAST PASS 
7? 015432 by £5 000053 MOV U.CBN(RS) ,R2 : R2 HAS LO ORDER RCT BN 
8 015434 104653 000054 MOV U.CBN+1(R5),R3 ; R3_HAS HI ORDER RCT BN 
9 015436 104657 000060 MOV — : GET NUMBER OF COPIES THAT HAVE BEEN READ 
10 015440 BEQ $ : IF NO COPIES, BRANCH 
015440 010000 015454 “010000,3$ 
11 015442 104641 000007 MOV S.SCHR(R4),R1 |; R1 POINTS TO SUBUNIT CHARACTERISTICS 
12 015444 107612 000014 1$: SUB RCTCSZ(R1),R2 |; SUBTRACT FROM LO ORDER BN 
13 015446 BCC : IF NO BORROW, BRANCH 
015446 040000 015451 “040000,2$ 
14 015450 117403 DEC R3 : PROPOGATE BORROW 
15 015451 117407 2$: DEC RO : DECREMENT COUNT 
16 015452 BNE 1$ : IF NO CARRY, BRANCH 
015452 050000 015444 “050000, 1$ 
17 015454 105202 000001 3$: ADD #1,R2 : INCREMENT CBN BY 1 
18 015456 BCC & ; IF NO CARRY, BRANCH 
015456 040000 015461 *040000,4$ 
19 015460 115403 INC R3 3 PROPOGATE CARRY 
20 015461 100652 000053 4$: MOV R2,U.CBN(R5) 3 SAVE LO ORDER 
21 015463 100653 000054 MOV R3,U.CBN+1(R5) ; SAVE HI ORDER 
22 015465 104020 002760 MOV R2,CUR : MOVE TO CALC AREA 
| 23 015467 104030 002761 MOV R3,CURBN+1 : MOVE TO CALC AREA 
24 : NOTE RO MUST BE ZERO FOR CALC SETUP 
25 015471 CALL CALC : FIND CYL THAT NEXT SEC IS ON 
015471 020000 002604 “020000, CALC 
26 015473 104647 000007 MOV S.SCHR(R4),RO  ; POINT TO SUBUNIT CHARACTERISTICS 
27 015475 106670 000001 002765 CMP HICYL(RO),CYL*1 ; SEE IF IN XBN AREA 
28 015500 BCS 5$ : IF SO, BRANCH 
015500 040000 015504 “040000, .+3 
015502 000000 015515 “00,5$ 
29 015504 BNE 6$ : IF NOT, BRANCH 
015504 050000 015570 “050000.6$ 
30 015506 106670 000000 002764 CMP LBNCYL(RO),CYL ; SEE IF IN XBN AREA 
31 015511 : IF SO, BRANCH 
015511 010000 015515 *010000,5$ 
32 015513 BCC 6$ : IF NOT, BRANCH 
015513 040000 015570 “040000,6$ 
33 015515 5$: CALL RVFAIL ; REVECTOR FAILED 
015515 020000 015603 “020000 ,RVFAIL 
34 015517 HARDER 4 : REPORT CORRUPTED RCT 
015517 104200 000271 001601 MOV #ERG ,HRQ.04 
015522 104202 107644 MOV #4! ERHARD+4000. ,R2 
015524 104020 001577 MOV R2,HROQ.02 
015526 104200 015526 001576 MOV #. ,HRQ.01 
015531 104200 06 001575 MOV #ERRMC ,HRQ.ROQ 
35 015534 104651 000062 MOV U.RVER(RS),R1 ; GET ORIGINAL ERROR 
36 015536 106201 000003 CMP #3,R1 ; SEE IF REVECTOR 
37 015540 BNE ; IF NOT, BRANCH 
015540 050000 015547 “050000, 7$ 
38 015542 CERROR 5,#SER26 ; REPORT REVECTOR 
015542 104200 003035 001602 MOV #SER26,HRQ.05 
39 015545 BR 8$ ; BRANCH 








UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 114-1 
NXTRCT = GET THE NEXT RCT SECTOR TO SEARCH 


015552 
003051 


WOoOVINNnNV 


s +s 
—- oO 


&* 
lololeloelelolojq) 


SEE LS 
Onaow FW rf 


Sooooooooo 
2 SS 


oONNNAGNS 
== NVIWS 3O 


S888 2 
38 8 
™ 


zs 
Nm 
Owe 
NUIW 


015601 


005036 
177777 
000012 
015642 


000000 


6$: 


9$: 


*00,8$ 
CERROR 5,#SER32 


Vv 
ERRORC eat nati oa wienaniinet i: camel ye 


BR 
“00,9$ 
CLR 


CALL ENABLE 
“020000, ENABL 
MOV #-1 


9$ ; REPORT ERROR 


MOV 
MOV 


: NO ERRORS 
: ENABLE ERROR RECOVERY 
oR 3 START READ ATTEMPT RETRIES AT 0 
MOV R3,U.RWTO(RS)  ; SAVE 
#SEEK,RO : NEXT MODULE IS SEEK 


: REPORT HEADER COMPARE ERROR 


#SER32,HRO.05 


—-_-— 
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RVFAIL = CLEAR ALL REVECTOR BITS, AND CALL SETUP NEXT 


015603 


VW NVI NU 


AAAAGAAGAOOO 
mn 
Nw 


“SOONG VEWNOVOONOUS wr 
ENS 


DIN eed at do ot 
SOooooooocooooooooo 
2 SS SS 
MAMA MAMMMAMUIMMUI 


3S 


ee oy 
eis 
AAA moO 
MUMUIMOUOUT 
— ns ss 2 ss 


ed eed eed ed ed 
esessF 
foul 
NROAnn & 
orouoe 
ANN 


015630 
000054 
005517 
000005 
005134 
000000 


1$: 


Ph He RVFAIL = CLEAR ALL REVECTOR BITS, AND CALL SETUP NEXT 


CLEAR ALL REVECTOR BITS, AND RESTORE U.CBN TO WHAT IT WAS 


MOV U.PARM(RS) ,R1 GET UNIT PARAMETERS 

BIC #REVEC,R CLEAR ALL REVECTOR BITS 

MOV R1,U.PARM(RS) SAVE 

MOV #1, FLAG THAT A SECTOR HAS BEEN READ (SKIPPED) 
MOV Ri -U-NSEC (RS) AVE 


Bete Se Ge Ge Ge Se Ge Ge Se 


MOV U.CSEC(RS), GET NUMBER OF SECTORS 
ADD USRBNCRS) AT ADD STARTING SECTOR NUMBER 
MOV R1,U.CBN(R5) RESTORE CBN 
MOV U.MBN+1(R5) ,R1 GET HI MBN 

cc 1$ IF NO CARRY, BRANCH 
“040000, 1$ 


C R1 ; PROPOGATE CARRY 
MOV R1,U.CBN+1(R5) SAVE HI IN CBN 


MOV #i$,RO : GET LBN STRING 
MOV RO. LETRCRG) : 
Vv #SETuUP, ; SETUP NEXT ROUTINE 


RETURN TO CALLING PROGRAM 


SEQ 0748 
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UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 116 SEQ 0749 
weeetewews OVERLAY MODULE SEEK = IF NECESSARY, ISSUE SEEK 


1 -SBTTL teeeneeeee OVERLAY MODULE SEEK = IF NECESSARY, ISSUE SEEK 
9 FARRAR AAAAREEAAAAEAAAEAE EEE EEEEEAAEEEEAERERAEEEAEAEEEAEAEEEREEEREEREAEEEREREREEE 
10 FARRAR EAEEAEAAEEREREAEREEEEEEEEREEEEEEERAEAAEEEEAEEEEEEEREREREAEEEEREEEEEEEEES 
1 1 FERRARA AAEAEEEEAEEEEEEREEEEEEAAEEREEEEEEEEREREEEEEEEAEEEAEEEEEEEEEEEEEAAEREEE 
12 FERRARA AAAAAERAEAEEAREEEEE EERE EEEEEAEEEEEEEEEEEREREREEAAEEEEEEAEAEEEREEKREEEEEEE 
13 : 
14 3 
15 : 
2 015642 SEEK 
29 ; SEEK ISSUES A SEEK TO THE CYLINDER SPECIFIED IN U.CCYL(RS) (2 WORDS) 
30 ; AND GROUP GIVEN IN U.CGRP(RS) (1 WORD). 
31 : IT THEN RETURNS WITH A DEFERED CALL TO SEKTST (TEST SEEK) TO SEE IF 
32 : THE SEEK COMPLETED SUCCESSFULLY. IF SO, THE READ WRITE MODULE IS 
33 ; THEN CALLED 
42 .ENABL LSB 
43 015642 104653 000046 MOV U.PARM(RS).R3 ; GET UNIT PARAMETERS 
44 015644 102203 002000 BIT #SEKINP,R3 3 SEE IF SEEK IS ALLPEADY IN PROGRESS 
45 015646 BN ; IF SO, BRANCH 
015646 050000 015654 “050000, 3$ 
46 015650 104201 177777 MOV #-1,R : FOR ZEROING FOLLOWING WORDS 
47 015652 100651 000007 MOV R1,U.SRTYC(RS) 3: SAVE 
48 015654 104653 000047 3$: MOV U.RCOV(RS),R3  ; GET RECOVERY WORD 
49 015656 102203 002000 BIT #RCBREQ,R3 ; SEE IF RECALISRATION REQUESTED 
50 015660 BEQ 4$ ; IF NOT, BRANCH 
015660 010000 015667 “010000,4$ 
51 015662 104207 016635 MOV #RECALB,RO : RECALIBRATE NEXT MODULE 
52 015664 114002 CLR R2 + NO ERRORS 
53 015665 BR SEKOUT : EXIT 
015665 000000 016052 “00, SEKOUT 
54 015667 104652 000007 4$: MOV U.SRTY(R5),R2  ; GET SEEK RETRIES 
55 015671 115402 INC R2 t ADJUST FOR TEST 
56 015672 BEQ 5$ : IF FIRST TIME, BRANCH 
015672 010000 016013 *010000,5$ 
57 015674 106202 000002 CMP #2,R2 ; SEE If TRIED MAX NUM OF TIMES 
58 015676 BCC 1$ : IF NOT, BRANCH 
015676 040000 015770 “040000, 1$ 
59 015700 DEVFTL 14,<S.LETR(R4),U.CBN(RS5) ,U.CBN+1(R5)> 
015700 104200 001435 001601 MOV #ER14,HRO.04 
015703 104640 000005 001602 MOV S.LETR(R4) ,HRO.05 
015706 104650 000053 001603 MOV U. CBN(R5) ,HRO.06 
015711 104650 000054 001604 MOV U.CBN+1(R5) ,HRO.07 
015714 104202 047656 MOV #14! FTLDEV+4000. .R2 
015716 104020 001577 MOV R2,HRQ.02 
015720 104200 015720 001576 MOV . .HRO. 
015723 104200 060014 001575 MOV #ERRMC .HRO.RO 
60 015726 ERRORC <U.PARM(RS) ,#RBNTXT,U.RBN(R5) ,U.RBN+1(R5),GROUP, CYL, CYL+1> 
015726 104650 000046 001605 MOV U.PARM(RS) ,HRO.08 
015731 104200 005472 001606 MOV #RBNTXT HRO.09 
015734 104650 000055 001607 MOV U.RBN(R5) ,HRO. 10 
015737 104650 000056 001610 MOV U.RBN+1(R5) ,HRQ.11 
015742 104300 002766 001611 MOV GROUP,HRQ. 12 
015745 104300 002764 001612 MOV CYL,HRO.13 
015750 104300 002765 00161 MOV CYL+1,HRQ.14 
61 015753 ENDERR 0 
015753 114000 003013 CLR ERRPOS : CLEAR THE POSITION 
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UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 116-1 SEQ 0750 
eteeeereee OVERLAY MODULE SEEK = IF NECESSARY, ISSUE SEEK 

62 015755 104653 000046 MOV U.PARM(RS),.R3 =; GET UNIT PARAMETERS 

63 015757 103203 002000 BIC ASEKINP,R3 : CLEAR SEEK IN PROGRESS BIT 

64 015761 100653 000046 MOV R3,U.PARM(RS) : SAV 

65 015763 GORCLB ; RECALIBRATE DRIVE 
015763 020000 005076 “926000, GORCLB 

66 015765 104051 . R5,R1 : DEFFERED CALL 

67 015766 SEKEXT > EXIT 
015766 000000 016053 B00, SEKEXT 

68 015770 1$: REPSFT oe SEEK ; REPORT SEEK ERROR 
015770 114000 001577 CLR HRO.02 
015772 114000 001600 CLR HRO.03 
015774 104200 000001 001601 MOV #1,HROQ.04 
015777 100467 MOV RO,-(SP) 
016000 104657 000063 MOV U.UNUM(RS) ,RO 
016002 105657 000050 ADD U. SUBU(R5) .RO 
016004 104070 001576 MOV RO,HRO.01 
016006 104207 060007 MOV aThsort, RO 
016010 020000 001543 “020000, HOSTRQ 
016012 104267 MOV (SP)+,RO 

69 016013 5$: CALL _ _TSTNEC ; SEE IF SEEK IS NECESSARY 
016013 020000 016055 "020000, TSTNEC 

70 016015 115003 R3 : SEE IF SEEK IS NECESSARY 

71 016016 NOSEEK ; IF ZERO (NO SEEK NECESSARY), BRANCH 
016016 010000 016047 2570000, NOSEER 

72 016020 CALL ISUSEK : ISSUE SEEK 
016020 020000 016133 "020000, ISUSEK 

73 016022 115002 Re : SEE IF ERROR OCCURRED 

74 016025 EKEXT ; IF ERROR, BRANCH 
016023 050000 016053 350000, SEKENt 

75 016025 104651 000007 U.SRTY(R5),R1 = GET SEEK TIMEOUT 

76 016027 115401 THe Ri : INCREMENT COUNT 
016030 100651 000007 MOV R1,U.SRTY(R5S) : SAVE 

78 016032 104657 000011 MOV U.MSTO(RS),RO : MOVE TIMEOUT TO PARAMETERS 

79 016034 100657 000005 MOV RO,U.TIMH(RS) : INITILIZE TIMEOUT VALUE 

80 : NOTE: R2 1S ZERO HERE 

81 016036 100652 000006 MOV R2,U.TIML(RS) : SAVE 

82 016040 104051 MOV R5,R1 : DEFERRED CALL TO SEKTST 

83 016041 104207 016220 MOV #SEKTST,RO : SEKTST NEXT TO CAL 

84 016043 CALL _ DSABLE ; DISABLE ERROR RECOVERY DURING SEEK 
016043 020000 005046 “020000, DSABLE 

85 016045 R SEKEXT : BRANCH 
016045 000000 016053 “00, SEKEXT 

86 016047 104207 007746 NOSEEK: MOV #BUILDP,RO ; READ/WRITE ROUTINE NEXT 

87 016051 114002 CLR R2 : NO ERRORS 

88 016052 114001 SEKOUT: CLR R1 > IMMIDATE CALL 

89 016053 SEKEXT: BR JMPRET ; RETURN TO CALLING PROGRAM 
016053 000000 003746 “00, JMPRET 

90 .DSABL LSB 





016055 


02 


QOUFSWN—| OCOVOON AWSW M0 OONOuUSwr— 


SOOCoooooooooooosoooooooooooooooo 


NMoPonoPONUIN fy Sew ee ee a 
a ee ne Pe ee ee Pe er er er ee er ee er er ee ee er er ee Pe Ber Oe er er er Pt 


WWIWINRINNNNNN 3] 2 oo oO 


WN rorT 
oo on 


000046 
000200 


016073 
000055 
000056 


016101 
000053 
000054 


002604 
016131 
000064 
000003 


016131 


016121 


000000 


002760 
002761 


002760 
002761 


a are — 
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TSTNEC = TEST TO SEE IF SEEK IS NECESSARY 


SBTTL 
STNEC: 


3$: 


4$: 


9$: 





SEQ 0751 
TSTNEC = TEST TO SEE IF SEEK IS NECESSARY 


TSTNEC TESTS TO SEE IF A SEEK IS NECESSARY. 


IF NOT, R3 IS RETURNED 
AS ZERO, NONZERO OTHERWISE. 


MOV U.PARM(R5),RO ; GET UNIT PARAMETERS 

BIT #RBNBN,RO : SEE IF BLOCK REVECTORED 

BEQ 2$ : IF NOT, BRANCH 

“010000,2$ 

MOV U.RBN(R5) ,CURBN ; MOVE RBN TO CALCULATION AREA 

MOV U.RBN+1(R5), CURBNG1 ; MOVE RBN TO CALCULATION AREA 
BRO 33 $ ; BRANCH 

MOV U.CBN(RS) ,CURBN ; MOVE LBN TO CALCULATION AREA 

MOV U.CBN+1(R5) ,CURBN+1 ; MOVE LBN TO CALCULATION AREA 
CLR RO ; TELL CALC ROUTINE TO SET UP PARAMETERS 


3 CALCULATE CYL AND GROUP 


CALL CALC 

“020000, CALC 

MOV #CYL,R3 ; R3_ POINTS TO CALCULATED CYLINDER 
MOV U.RCOV(RS),RO ; GET UNIT PARAMETERS 

BIT #SEKREQ,RO : SEE IF SEEK MANDATORY 

BNE : IF SO, BRANCH 

“050000,9$ 

MOV 


#U.CCYL,R2 : R2 WILL POINT TO CURRENT CYL 
ADD R5,R2 ; R2 POINTS TO CURRENT CYLINDER 
MOV #3.R1 : GET COUNT 
MOV (R3)+,R0 : GET WORD 
CMP (R2)+.RO : SEE IF CYL AND GROUP THE SAME 
BNE 9 : IF NOT, BRANCH 
“050000,9$ 
Fc R1 3 DECREMENT COUNT 
BNE 4$ : IF COUNT INCOMPLETE, BRANCH 
“050000,4$ 
CLR R3 : FLAG AS SEEK NOT NECESSARY 


RETURN RETURN TO SEEK 
*00.,0 
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ISUSEK = ISSUE SEEK COMMAN 





1 .SBTTL ISUSEK = ISSUE SEEK COMMAND 
é 016133 ISUSEK: 
$ : ISUSEK ISSUES THE SEEK TO THE DRIVE 
6 016133 104300 002764 002433 MOV CYL, INS+1 ; MOVE LOW CYL TO SEEK COMMAND 
7 016136 104300 002765 002434 MOV CYL+1, INS#2 : SET LOWER BI 
8 016141 104300 002766 002435 MOV GROUP. INS+3 : MOVE GROUP TO SEEK COMMAND 
9 016144 104203 002376 MOV CR. SEK,R3 + SET UP FOR TALK 
10 016146 CALL ‘TALK : SEND SEEK 
016146 020000 001670 7020000, TALK 
11 016150 115002 R2 : SEE IF ERROR OCCURRED 
12 016151 BNE 10$ : IF SO, BRANCH 
016151 050000 016213 “050000, 10s 
13 016753 104207 000064 #U.CCYL,RO : RO WILL POINT TO CURRENT CYLINDER 
14 016155 105057 ADD RS. RO ; RO POINTS TO CURRENT CYLINDER 
15 016156 104201 000003 MOV : MOVE THREE WORDS 
16 016160 PUSH orb Rt» : SAVE POINTER AND COUNT 
016160 100467 MOV RO,=(SP) 
016161 100461 MOV R1,-(SP) 
17 016162 104202 000067 MOV #U.LCYL,R2 : R2 WILL POINT TO LAST CYLINDER 
18 016164 105052 ADD 5 Re : R2 POINTS TG LAST CYLINDER 
19 016165 104273 1$: MOV (RO) +,R3 : GET WORD 
20 016166 100223 MOV R3, (R2)+ : SAVE 
21 016167 117401 DEC 1 : DECREMENT COUNT 
22 016170 BNE 1$ : IF COUNT INCOMPLETE, BRANCH 
016170 050000 016165 “050000, 1$ 
23 016172 PoP <R2,RO> : RESTORE 
016172 104262 MOV (SP)+,R2 
016173 104267 MOV (SP)+.RO 
24 016174 104201 002764 4$: MOV #CYL,R1 : R2 POINTS TO NEW CYL 
25 016176 104213 2$: MOV (R1)+,R3 : GET WORD 
26 016177 100273 MOV R3, (RO)+ : SAVE 
27 016200 117402 DEC : DECREMENT COUNT 
28 016201 BNE 2$ ; IF COUNT INCOMPLETE, BRANCH 
016201 050000 016176 *050000,2$ 
29 016203 104653 000046 MOV U.PARM(RS),R3 =; GET UNIT PARAMETERS 
350 016205 101203 002000 BIS #SEKINP,R3- : MARK SEEK IN PROGRESS 
31 016207 100653 000046 MOV R3,U.PARM(RS) =: SAV 
32 016211 ISUEXT 3 BRANCH (NOTE THAT R2 IS ZERO = NO ERRORS) 
016211 000000 016216 “00, ISUEXT 
33 016213 10$:  CERROR 5,#SER9 : REPORT SECONDARY ERROR 
016213 104200 005050 001602 MOV #SER9,HRO.05 
34 016216 ISUEXT: RETURN ; RETURN TO CALLING PROGRAM 
016216 000000 000000 “00,0 





SEQ 0752 
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teeeeeeees OVERLAY MODULE SEKTST - SEE IF THE SEEK IS COMPLETE 


SEQ 0753 





1 -SBTTL ‘eeeeenene OVERLAY MODULE SEKTST = SEE IF THE SEEK IS COMPLETE 
9 g MAAAAAAAALALALAALALALALELELELLAL LEE EE Cece EEE CCC ce Tee Teer cr Ter er itiit 
10 3 SREEEAAEAAEEAAAAAEEEEREEAEEEEEEEAEAAEEHEEEEEEEEEEAEEEEREREAEEEAREREEEEREEEEEEE 
1 1 3 SEERA EEEAEEAEEEEEEEEEEEEEEEEAAAAEAEREREAARERAEEEREREREEEEEEAAEEEEEEEEEEEE 
12 : SEAR EEERETEEERERERERAAAERERAEEAEERAEEAAEREEREEEEEEEEEEEEEEEEEE 
13 $ 
14 3 
15 : 
$3 016220 SEKTST: 
oo 3 SEKTST TESTS TO SEE IF READ/WRITE READY OR ATTENTION IS HIGH 
30 3 R2 RETURNED AS ZERO IF SEEK WAS SUCESSFUL, -1 IF SEEK INCOMPLETE 
3 F} POSITIVE NON-ZERO IF AN ERROR WAS DETECTED 
40 — LSB 
41 016220 RTDS 3; GET REAL TIME DRIVE STATE 
016220 020000 001417 “020000, RTOS 
42 016222 115002 R2 ; SEE IF ERROR OCCURRED 
016223 bs 3; IF NOT, BRANCH 
016223 010000 016232 a5 10000, 1$ 
44 016225 104207 016220 MOV #SEKTST,RO 3; RETRY THIS MODULE 
016227 104051 MOV R5,R 3; DEFERRED CALL 
46 016230 BR STSEXT 3; EXIT 
016230 000000 016633 *00,STSFE 'T 
47 016232 1$: CALL .NABLE ; ENABLE ERROR RECOVERY 
016232 020000 005036 *020000, ENABLE 
48 016234 115001 i ate 3; SEE IF R/W RDY ASSERTED 
49 016235 3; IF NOT READY, BRANCH 
016235 030000 016422 2540000. 
50 016237 ASSUME Rub 00000 3 ASSUME R/W RDY IS SIGN BIT 
51 016237 104657 000046 MOV U. PARM(RS) ,RO ; GET UNIT PARAMETERS 
52 016241 103207 002000 BIC #SEKINP,RO 3 SEEK - LONGER IN PROGRESS 
53 016243 100657 000046 MOV RO,U.PARM(RS) 3 SAVE P Courhy' un 
54 016245 104657 000047 MOV U.RCOV(RS),RO ; GET RECOVERY WORD 
55 016247 103207 004000 BIC #SEKREQ,RO 3; SEEK NO LONGER REQUIRED 
56 016251 100657 000047 MOV RO,U.RCOV(RS) 3: SAVE 
57 016253 104647 000001 MOV S.SEEK(R4),RO  ; GET NUMBER OF SEEKS ISSUED 
58 016255 117407 DEC RO 3; DECREMENT SEEK COUNT 
59 016256 BNE oe > , 3; IF NO REPORT NEEDED, BRANCH 
016256 050000 016274 “= SEK 
60 016260 104650 000063 001576 U. UAURCRS). HRQ.01 ; GET Aft ee SUBUNIT NUMBER 
61 016263 105650 000050 001576 ADD U.SUBU(RS5),HRQ.01 ; ADD OFFSET 
62 016266 104207 060010 MOV #T4SEEK K,RO- 3 hove SEEK REPORT NUMBER TO RO 
63 016270 CALL HOSTRQ ; REPORT TO HOST 
016270 020000 001543 “020000, HOSTRQ 
3 016272 104207 001750 5 Hy net ; SET UP FOR NEW COUNT 
66 016274 47 000001 SEKCNT: MOV RO,S.SEEK(R4) 3 ae ead 
67 016276 114002 CLR ; NO ERR 
68 016277 104653 000007 MOV U.SRTY(R5),R3 GET REGR Y COUN 
69 016301 BEQ $ ; IF NO RETRIES. TARANCH 
016301 010000 016405 *010000,2$ 
70 016303 REPSFT SOFT 3; REPORT SOFT ERROR 
016303 104200 000001 001577 MOV #1,HRQ.02 
016306 114000 001600 CLR HRQ.03 
016310 114000 001601 CLR HRQ.04 
016312 100467 MOV RO,-(SP) 





UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 119-1 
weeeereene OVERLAY MODULE SEKTST = SEE IF THE SEEK IS COMPLETE 


71 


72 


33 Gocogecedo G00 233 


oO 
—_ 


ONO 
SERECEPEEPEPEPRSREPERERSESRS 


0 ONOUS WHR —O 
WwW NUE SNE ESNMNO 


01 


SMO SSNOCONUWW— 


104657 


104200 
104650 


104650 
104650 
114000 


102203 
010000 
104207 
114001 


000000 
102201 


010000 


104207 


000000 
102201 


010000 


104207 


000063 


001543 


001503 


060013 
000046 
0 


000064 
000065 
003013 


030000 
016417 
014205 
016633 
000100 


016440 


015642 


016633 
000002 


016537 
000001 


0016Ct: 
00000i 


060007 


001601 
001603 


001604 
001605 


001576 
001575 


001606 


001613 
001614 


001577 
001601 


2$: 


18: 


STSERR: 


1$: 


“020000,HOSTRQ 


SOFTER sei talento atnaaiton vive warmed 


#ERRMES ,HRO.RQ 
ERRORC 9 <U.PARM(R5) ,#RBNTXT,U.RBN(R5S) ,.U.RBN+1(R5) ,U.CGRPC(RS) .U 
MOV U.PARM(RS), 


ERRORC U.CCYL+1(R5) 


ENDERR 0 

MOV #BUILDP,RO 

MOV U.RCOV(RS) R3 
BIT #LEVUSD !NXTLEV,R3 
BEQ 1$ ; 
“010000, 1$ 

MOV #NEWLEV,RO F 
CLR R1 : 
BR STSEXT : 
“00, STSEX 

BIT WAVAIL,R1 : 
BEQ : 
“010000, 

MOV U.PARM(RS),R3_; 
BIC #SEKINP,R : 
MOV R3,U.PARM(RS) : 
MOV SEEK,RO : 
BR EXT : 


TSEXT 
BIT cerenae 


BEQ 
“010000, 2$ 
REPSFT SOFT,,SEEK 


CLR ERRPOS 
; BUILD THE READ/WRITE CHAIN NEXT 


MOV 


GET RECOVERY WORDS 


: SEE IF ERROR RECOVERY LEVELS IN USE 


IF NOT, BRANCH 


U.UNUM(R5) ,RO 
U.SUBU(R5) ,RO 
RO,HRQ.01 
#T4SOFT,RO 


MOV (SP)+,RO 


#ER15,HROQ.04 


R3,HRQ. 
S.LETR(R4) ,HRO.06 
gt HRQ.07 


RSOFT+4000. ,R2 
R2,HRO.02 
#. -HRQ.01 


#RBNTXT,HRQ. 
U.RBN(R5) ,HRO.11 
U.RBN+1(R5) ,HRO.12 
U.CGRP(RS5) ,HRO.13 
U.CCYL(RS5) .HRO.14 


U.CCYL+1(R5) ,HRQ.15 


; ISSUE ERROR RECOVERY COMMAND NEXT 


IMMIDATE CALL TO NEXT MODULE 
BRANCH 


SEE IF DRIVE TIMEOUT HAS EXPIRED 


IF NOT, BRANCH 


GET UNIT PARAMETERS 


MARK AS SEEK NOT IN PROGRESS 


SAVE 
SEEK AGAIN 
EXIT 


SEE IF ATTENTION ASSERTED 


IF NOT, BRANCH 


REPORT SEEK AND SOFT ERROR 
MOV ai, 


MOV 


1,HRO.02 
HRO.03 
#1, HRO.04 
MOV RO,-(SP) 
U.UNUM(RS) RO 


-CCYL(RS)> 
09 


SEQ 0754 — 


: CLEAR THE POSITION 


oe 





B 11 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 119-2 
weeeneeeee OVERLAY MODULE SEKTST = SEE IF THE SEEK IS COMPLETE 


eS > 


SEQ 0755 


i 
' 
} 


016465 02 001543 “020000, HOSTRQ | 

016467 10426 MOV (SP)+,RO 
92 016470 SOFTER 1,<U.LGRP(RS) ,U.LCYL(R5) ,U.LCYL+1(R5),U. CGRP(RS) ,U.CCYL(R5)> | 

016470 104200 000000 001601 MOV #ER1,HRQ. 

016473 104650 000071 00160 MOV U.LGRP(R5) ,HRO.05 

016476 104650 000067 00160 MOV U.LCYL(R5) HRQ. 

016501 104650 000070 001604 MOV U.LCYL+1(R5) ,HRO.07 

016504 104650 000066 001605 MOV U.CGRP(RS5) ,HRO.O 

016507 104650 000064 001606 MOV “CCYL(R5) .HROQ. 

016512 104202 147641 MOV #1! ERSOFT+4000., 

016514 104020 001577 MOV »HRO.02 

016516 104200 016516 001576 MOV #.HRQ.01 | 

016521 104200 060013 001575 MOV #ERRMES ,HRO.RO | 
93 016524 ERRORC U.CCYL+1(R5) 

016524 104650 000065 001607 MOV U.CCYL+1(R5) ,HRO.10 | 
94 016527 ENDERR ; REPORT ATTN ASSERTED DURING SEEK 

016527 104200 000051 001610 MOV #SER22,HRO.11 

016532 104200 000014 003013 #11+1,ERRPOS |; SET THE POSITION | 
95 016535 BR STSEXT : EXIT | 

016535 000000 016633 “00, STSEXT | 
96 016537 2$: CALL DSABLE | 

016537 020000 005046 “020000, DSABLE 
97 016541 104051 MOV R5, : MAKE R1 NON-ZERO FOR DEFERRED CALL | 
98 3 NOTE: R2 IS ZERO AT THIS POINT 
99 016542 104207 016220 MOV #SEKTST, RO : SEEK TEST IS NEXT MODULE 
100 016544 104653 000006 MOV U.TIML(R5S).R3 ; GET TIMEOUT VALUE 
101 016546 107203 000001 SUB s + DECREMENT TIMEOUT VALUE | 
108 016550 100653 000006 MOV R3,U.TIML(RS) : SAVE TIMEOUT VAL | 
103 016552 BCC : IF NON-ZERO BRANCH 

016552 040000 016633 “040000, STSEXT 
104 016554 104653 000005 MOV U.TIMH(RS),R3 =; GET HI ORDER TIMEOUT 
105 016556 107203 SUB #1,R : DECREMENT COUNT 
106 016560 100653 000005 R3,U-TIMH(RS) : SAVE | 
107 016562 BCC TSEX 

016562 040000 016633 “040000, STSEXT 
108 016564 SOFTER 3,<U.LGRP(RS),U.LCYL(RS) ,U.LCYL41(R5)> 

016564 104200 000166 001601 MOV #ER3,HRO.04 

016567 104650 000071 001602 MOV U.LGRP(R5) ,HRO.05 | 

016572 104650 000067 001603 MOV U.LCYL(R5) .HRO.06 

016575 104650 000070 001604 MOV U.LCYL+1(R5) ,HRO.07 

016600 104202 147643 MOV #3 ERSOFT+4000. .R2 | 

016602 104020 001577 MOV R2,HRQ. 

016604 104200 016604 001576 MOV #. .HRQ.01 

016607 104200 060013 001575 MOV #ERRMES ,HRO.RO 
109 016612 ERRORC <U.CGRP(RS),U.CCYL(RS) ,U.CCYL#1(R5)> 

016612 104650 00 001605 MOV U.CGRP(RS) ,HRO.08 

016615 104650 000064 001606 MOV U.CCYL(R5) .HRO.09 

016620 104650 000065 00160 MOV U.CCYL+1(R5) ,HRO. 10 
110 01662 ENDERR 

016623 104200 000051 001610 MOV #SER22,HRO.11 

016626 104200 000014 003013 MOV #i1+1,ERRPOS § ; SET THE POSITION 
111 016631 CALL GOSEEK 

016631 020000 005066 “020000, GOSEEK 
112 016633 STSEXT: BR JMPRET ; RETURN TO SEQUENCER 

016633 000000 003746 “00, JMPRET 





sc 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 120 SEQ 0756 
eeeenetene OVERLAY MODULE RECALB = RECALIBRATION 


1 .SBTTL ‘*teeeeeeee OVERLAY MODULE RECALB = RECALIBRATION 
9 FRARAAAAAAAEEEAREAEREEEREEEEEEEEEEEREAAEEEEREEEEREREREEEEEEEEEEEREREEEREEEEEEE 
10 [ReReeReeeeeeeeeeeeeeeeeeeeeeeeeeReneeeeeeeeeeneteneeeneeeeeeeeeeeereenetes 
11 FERRARA AAAEEEAAEREREEEAEREEEREREEEEAEEEEEEEEEEEEAEEEEEEEEEREREREEEEEEEEREEEREEE 
12 aaa nal at a al tahae la ta aati 
13 : 
14 : 
15 : 
24 016635 RECALB: 
28 3 
29 3 
30 : 
38 .ENABL LSB 
39 016635 104203 002415 MOV ACR. INR,R3 : POINT TO THE INITIATE RECALIBRATION COMMAND 
40 016637 CALL ‘TALK : SEND-RECEIVE SDI COMMAND 
016637 020000 001670 “020000, TALK 
41 016641 115002 TST R2 : SEE IF ANY ERRORS OCCURRED 
42 016642 BEQ 1$ ; IF NOT, BRANCH 
- 016642 010000 016703 “010000, 1$ 
44 : FROM HERE TO THE LABEL 'S$' IS CODE THAT SEES IF THE HOST WAS 
45 : HALTED LONG ENOUGH FOR THE DRIVE TO GG OFFLINE DURING THE RECEIVE 
46 ; LEVEL 2 2 EQPERATION (NOTE THAT LONG TIMEOUTS TALK TO THE HOST <<DURING>> | 
48 : 
49 016644 106202 147747 CMP #71. 1ERSOF +4000. .R2 ; SEE IF TIMEOUT OF RECEIVE 
50 016646 BNE rt} : IF NOT. BRANCH 
016646 050000 016676 “050000, 5¢ | 
51 01665 CALL ‘RTDS : GET STATE 
016650 020000 001417 “020000,RTDS 
52 016652 115002 TST R2 : SEE IF ERROR 
53 016653 BEQ 4 : IF NOT, BRANCH 
016653 010000 016661 “010000,4 
54 016655 CALL GORTRY : RETRY THIS MODULE 
016655 020000 005056 “020000,GORTRY 
55 016657 : EXIT | 
016657 000000 016725 *00,2$ 
56 016661 102201 000100 4$: BIT MAVAIL,R1 : SEE IF DRIVE IS AVAILABLE 
57 016663 BE : IF NOT, BRANCH 
016663 010000 016675 “010000,6$ 
58 016665 104303 002421 MOV CR.INP L2.E0F,R3 : GET INR OFFSET | 
59 016667 105053 ADD R : POINT io® RECAL TBSATE ERROR COUNT 
60 016670 104131 MOV (R3),R1 : GET C 
61 016671 117401 DEC R1 : DECREMENT COUNT 
ee 016672 100131 MOV R1,(R3) : SAVE 
63 01667 BR 3$ : 
016673 000000 016713 “00,3$ 
64 016675 104052 6$: V 5,R2 : FLAG ERROR 
65 016676 5$: CERROR § #SER7 : REPORT SECONDARY ERROR 
016676 104200 005010 001602 MOV #SER7,HRO.05 
66 016701 BR 2$ : EXIT 
016701 000000 016725 “00,28 
67 016703 104653 000047 1$: MOV u. RCOV(RS),R3 =; -GET RECOVERY PARAMETERS 
68 016705 103203 002000 BIC #RCBREQ,R3- ; CLEAR RECALIBRATION REQUESTED FLAG 
69 016707 101205 004 BIS #SEKREQ, ne + MARK SEEK AS REQUIRED 
70 016711 10065 MO R3,U.RCOV(RS) : cA ve 
71 016713 114002 3$ CLR R2° : NO ERRORS 





“wc 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 120-1 SEQ 0757 
weaeeeeete OVERLAY MODULE RECALB - RECALIBRATION 


72 016714 100652 000064 MOV seh a 3 ZERO CYLINDER 

73 016716 100652 000065 MOV R2,U.CCYL+1(R5) 

74 016720 100652 000066 MOV R2,U.CGRP(RS) 

75 016722 114001 CLR R1 3 IMMIDATE CALL 

76 016723 104207 015642 MOV #SEEK ,RO 3 SEEK IS NEXT MODULE 

77 016725 2s: BR JMPRET ; RETURN TO SEQNCR 
016725 000000 003746 “00, JMPR 


ET 
-DSABL LSB 


vcr 


016727 


LOUSALA VB SSSs NRX UN 
== Pee SS SSS Te 
~ 
o 


Owe 
-=—- Wws 


S 


Sez seer 
: 


Oo eet ot tt es 
~™ 
w 
™~m 


eh eh a nh 
os 


REX 


005545 001577 
001601 


016753 
000063 


001576 


000003 
016741 


004501 


- SBTTL 


DRPALL: 


1$: 


2s: 


SER18F : 


BUF ARA 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 121 
eeeeereeee OVERLAY MODULE DRPALL = DROP ALL SUBUNITS ON THIS D 





E 11 


weneeneene OVERLAY MODULE DRPALL = DROP ALL SUBUNITS ON THIS DRIVE 


FERRARA AAAAAAAERERAEREEEEEEEEAEEEEEAAEAREAEERAEREREREREEEEREEEEEEREREEEREEEEEEE 
SERRA AAAAEEAAAEAEEEEEEEEEEEEEAEEAAEREEAEEEEREEEEAEEEEEEEEEREEAEEEAEEEEEREEEEEEE 


p ERA EEREAEEAAEEEREEEEEEEEEEEREEAEEAEAEREEEARAEEREEEEEEEEEEEEREREEEEEEEEEEEEEE 
sRRAAEAEEAAREEEEAEEEREEEEEEREEEEEREEAAEEEAEEEEEREEREEERRAEEREREREEAREEEEEEEEEEEEEEE 


DROP ALL SUBUNITS ON THIS DRIVE AND REPORT 


NOTE 


- ENABL 
PUSH 


N 
ASSUME 
R 


BR 
*00.NOS 
- WORD 





THIS IS A_VERY UNSTRUCTURED PIECE OF CODE == IT HAS SEVERAL 
JUMPS DIRECTLY INTO SEQNCR AT SEVERAL DIFFERENT PLACES. 


LSB 
R4 


#MS2,HROQ.02 
eee 


R3 
U.SUBP,1 
R1 


oes 


U.UNUM(RS) ,R2 
R1,R 


R2,(RO)+ 
R2.HRQ.01 
RG 


R1 
#3,1 


*U.PARM(RS) RI 


#DROP,R1 


NOSUB 
UB 


SER18A 


Sete tee 


; GET 
IF 


SAVE R4 (JUST IN CASE) 


POINT TO MESSAGE 
A WHERE 


POINT TO SUBUNIT POINTERS 


MOV R4,-(SP) 


; CLEAR INDEX 


CLEAR NUMBER OF SUBUNITS COUNT 
POINTER 
NO SUBUNIT, BRANCH 


GET BASE UNIT NUMBER 
ADD OFFSET 

MOVE TO OUTPUT BUFFER 
MOVE TO UNIT NUMBER 
INC SUBUNIT COUNT 

INC COUNT 

SEE IF EXPIRED 

IF NOT, BRANCH 


POINT TO DRIVE LIST 

POINT TO CORRECT ERROR MESSAGE 
MESSAGE TO RO 

REPORT 


: GET UNIT PARAMETERS 
: SET DROP BIT 
5) SO -PARACRS 3 SAVE 


MOV (SP)+,R4 


SEQ 0758 


F 11 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 122 SEQ 0759 
weeeeeeeee OVERLAY MODULE INSET = SET UP UNIT FOR INITIALZATIO 


1 -SBTTL *#eeeeneee OVERLAY MODULE INSET = SET UP UNIT FOR INITIALZATION 

9 FRRAAAAAAAEAAAERAEREEEEEEREREREEEEAEEEREEAEREEEERAEEEAREREEAEEAEEEEREAEEREREREEEE 
10 FREER EAEAEAERERAEAEEREREEEEEEEEEERAAAEREEEEEEAEEEEEEREEEEEEEREREEEEREAEAEEEEE 
11 FERRARA AAAAREREAEEEEEEEEEAEEEEAEEEEAAERERAEEERERAAEREREAEEEEAEEEREEEEEEREEEEEEEEEE 
12 FERRARA AAREEAEEEEEREEEREREREREAERARARAAEEERAEREEEEEAEEEEREEEEEREREREREREEEEEED 
13 3 
14 3 
15 : 
$3 017005 INSET: 
44 : INSET WILL SET UP EACH UNIT BEFORE IT STARTS RUNNING 
31 -ENABL LSB 
32 017005 104657 000046 MOV U.PARM(RS),RO ; GET UNIT PARAMETERS 
33 017007 103207 004000 BIC #NEWSUB,R 3; NO LONGER NEW SUBUNITS 
34 017011 100657 000046 MOV RO,U.PARM(RS) ; SAVE 
35 017013 114002 CLR R2 3; NO ERRORS 
36 017014 100652 000064 MOV R2,U.CCYL(RS)  ; CLEAR CYL+GROUP 
37 017016 100652 000065 MOV R2,U.CCYL*1(R5) 
38 017020 100652 000066 MOV R2,U.CGRP(RS) 
39 017022 114001 CLR R1 3: IMMIDATE CALL 
40 017023 104207 017027 MOV #COMCHR,RO 3; COMMON CHARACTERISTICS NEXT MODULE CALLED 
41 017025 BR JMPRET 3; RETURN TO SEQUENCER 

017025 000000 003746 “00, JMPRET 
2 -DSABL LSB 


= 1 


-—cC 


| pat ariier feet aes 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 12 SEO 0760 


3 
eeeeeeeeee OVERLAY MODULE COMCHR = SET UP COMMON CHARACTERISTI 


1 -SBTTL *teeneenee OVERLAY MODULE COMCHR = SET UP COMMON CHARACTERISTICS 
9 SRARERAAAAREAAAAEEEA EEE EEAEEEEEEAERAAAEEEERAEEREREREEREEEEEEEREREREEEEAEREEEE 
10 FEAR ARAAAAAEAAAAREAAAE ATER EEEEAEEEEEAEAAEEEAEREEEEEEREREEEEREEEAAEEEREREEEEREEEE 
11 3 RAEAAAAAAARAAAAAAREREAATEREEEEEAEAAEARAARAERAEAAEAREREEEEEREEEEEAREEREEREEEEEREEE 
12 3 RRAAAAAAAAAAAAAAAEAAEAAEEEEEEEAEEAARAERERAAEARERAEAEREEREEREREEEEEAEEAEAEEEEREEE 
13 $ 
14 : 
15 ; 
$s 017027 COMCHR: 
$0 $ GET COMMON CHARACTERISTICS AND SET UP THE ERROR RECOVERY LEVEL, 
31 ; RETRIES, LONG TIMEOUT, AND SHORT TIMEOUT 
32 -ENABL LSB 
33 017027 104203 022606 MOV #CR.GCR,R3 ; POINT TO GET CHARACTERISTICS DATA BLOCK 
34 017031 CALL LK 3; GET CHARACTERISTICS 
017031 020000 001670 “020000, TALK 
35 017033 115002 TST R2 3; SEE IF ANY ERRORS OCCURRED 
36 017034 BEQ 1$ ; IF NOT, BRANCH 
017034 010000 017054 “010000,1$ 
37 017036 CERROR 5,#SER8 3; REPORT SECONDARY ERROR 
017036 104200 005027 001602 MOV #SER8,HRO.05 
38 017041 103200 100000 001577 BIC #C2DFTL,HRQ.02 ; CHANGE TO HARD ERROR 
39 017044 104200 060014 001575 MOV WERRMC,HRQ.RQ =; COUNT ERROR 
40 017047 101200 000002 003006 BIS #DIE,M.PARM 3: FLAG INITIALIZATION ERROR 
41 017052 2s ; BRANCH TO EXIT 
17052 000000 017164 *00,2$ 
42 017054 bok 3 002446 022651 1$: MOV ST+DRVID,DSERNM ; SAVE DRIVE SERIAL NUMBER 
43 017057 104300 002447 022652 MOV ST+DRVID+1 ,DSERNM+1 3; SAVE DRIVE SERIAL NUMBER 
0171 104300 002450 022653 MOV ST+DRVID+2 ,.DSERNM+2 3; SAVE DRIVE SERIAL NUMBER 
45 017065 104307 002443 MOV ST+RETS,RO 3; GET ER OF RETRIES ALLOWED 
46 017067 110607 ROR RO ; ROTATE TO CORRECT POSITION 
47 017070 110607 ROR RO 
48 017071 110607 ROR RO 
49 017072 110607 ROR 
50 017073 103207 177760 BIC #LBLONB,RO 3; CLEAR UNUSED BITS 
51 017075 100657 000030 MOV RO,U.RTRY(RS) 3; SAVE IN UNIT PARAMETERS 
26 017077 104307 002444 MOV ST+ERLEV,RO 3; GET ERROR RECOVERY LEVELS 
53 017101 103207 177400 BIC #HIBYTE,RO 3; CLEAR UNUSED BIT 
54 017103 100657 000031 MOV RO,U.MLEV(RS) 3 SAVE IN UNIT PARAMETERS 
55 017105 104307 002444 MOV ST+ECCRSH,RO 3; GET ECC THRESHOLD 
56 017107 110707 SWAB RO ; MOVE ECC THRESHOLD TO LOWER BYTE 
57 017110 103207 177400 BIC #HIBYTE,RO 3; CLEAR UNUSED BITS 
58 017112 100657 000032 MOV RO,U.ECCT(RS) 3 SAVE 
59 017114 104307 002443 MOV ST+LONGTO,RO 3; GET LONG TIMEOUT 
60 017116 103207 177760 BIC #LBLONB, RO 3; CLEAR UNUSED BITS 
61 017120 CALL T ; CALCULATE TIMEOUT 
017120 020000 017167 *020000, TO 
62 017122 Hg 4 MOV RO,U.SDIL(RS) 3; SAVE IN UNIT PARAMETERS 
63 017124 104307 9d MOV ST+SHRTTO,RO 3; GET SHORT TIMEOUT 
64 017126 103207 177760 BIC #LBLONB, RO 3; CLEAR UNUSED BITS 
65 017130 C ut TO 3 CALCULATE TIMEOUT 
017130 020000 017167 “020000, TO 
66 017132 100657 000033 MOV RO,U.SDIS(R5) ; SAVE SHORT TIMEOUT IN UNIT PARAMETERS 
67 017134 114001 CLR Ri ; CLEAR LO SEEK TIMEOUT 
68 017135 114002 CLR R2 3; CLEAR HI TIMEOUT 
69 017136 105201 025762 4$: ADD #11250. ,R1 3; ADD 9 SEC TIMEOUT TO LO ORDER TIMECUT 





4 


ac 


70 017140 
017140 
71 01714 
72 01714 
73 017144 
017144 
74 017146 
75 017147 
76 017151 
77 017153 
78 017154 
79 017156 
80 017157 
81 017161 
82 017363 
83 017164 
84 017165 
017165 
85 
86 017167 
87 
88 
89 
90 
91 017167 
92 017171 
93 017172 
96 atte} 
01717 
95 017175 
96 017176 
97 017200 
017200 
98 017202 
017202 


NWO w 


NNN on 


SV 


a 





017143 


017136 
000011 
002443 
177760 


000057 
017204 


003746 


000001 


017171 
000011 
017175 
000000 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 123-1 


weeeeenene OVERLAY MODULE COMCHR = SET UP COMMON CHARACTERISTI 


3$: 





#350000, a 


mov R2,U.MSTO(RS) 
MOV ST#RCTCPS, RO 


BIC Lane Ae 
MOV RO,U.COPY(R5) 
SPINUP,RO 


~DSABL LSB 





; IF NO CARRY, BRANCH 


PROPOGATE CARRY 
DECREMENT TIMEOUT 
IF UNEXPIRED, BRANCH 


ROUND UP 

SAVE SEEK MASTER TIMEOUT 
GET NUMBER OF RCT COPIES 
MOVE TO LOW D 
CLEAR UNUSED BITS 

oa FOR TEST 4 INTERNALS 
SPINUP NEXT MODULE 

NO ERRORS 

IMMIDATE CALL TO NEXT MODULE 
RETURN TO SEQUNCER 


et 3 ie THE TIMEOUT IN 9SEC INTERVALS (UDA SDI RECEIVE XFC TAKES 


MOV #1,R1 
ADD R1,R1 
DEC RO 
BNE 1$ 
“050000, 1$ 

INC RO 
SUB #9.,R1 
BPL 
*030000,2$ 
RETURN 


; SET UP Lose SHIFTER 
DOUBLE 1 
; DECREMENT 


gh aed VALUE 

IF COUNT INCOMPLETE, BRANCH 
INCREMENT 9 SEC COUNT 
SUBTRACT 9 SEC FROM TIMEOUT 
IF MORE TIME TO GO, BRANCH 


RETURN TO CALLING PROGRAM 






UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 PAGE 124 
weeeeeeene OVERLAY MODULE SPINUP = SPIN THE DRIVE UP 


1 
9 
10 
11 
12 
13 
6 
15 
24 017204 
28 
29 
30 
31 
32 017204 
33 017206 
017206 
34 017210 
35 017211 
017211 
36 017213 
37 017215 
017215 
38 017217 
017217 
39 017222 
40 017225 
41 017230 
rs 1 EES, 
43 017234 
017234 
ao 





104203 
020000 
115002 
050000 
104207 
000000 
104200 
103200 
104200 
101200 
114001 
000000 


022620 
001670 
017217 
017236 
017233 


-SBTTL 


SPINUP: 


1$: 


2$: 


I 11 


SEQ 0762 


weeneneeee OVERLAY MODULE SPINUP = SPIN THE DRIVE UP 


SRAAAAAAAAAEEEREREAAEEE EEE EAAREREAARAEREARAREREEEREREREEREEEEEREAEREEEEEEEEE 
SRA EAEEEAEEAEREEEAAEEEEEEE ATER EEEEEEEAEEEEAREEEEEAEREEEREAEEAARAEEEEAEKEAREEREEEE 


SERRA AAEAAEAAAAEAAEAAREREAAAETEREEAAERAE  AAREREEAEREREREREEEEAEREREREEAAEREREEEE 
SERA AAEAAAAAEEAEEAEAEEEEEAEAETEEEERAEEAERERAEREEEEAEREREREREREEEEEEEREREEAEEEEEE 


SPINUP WILL SPIN THE DRIV UP IF SPUN DOWN 


-ENABL LSB 
MOV #CR.RUN,R3 
CALL 


L 
“020000, TALK 
TST R2 
BNE 1$ 
*050000,1$ 
MOV #SORT,RO 
2$ 
*00,2$ 
CERROR 5,#SER6 
BIC #C2DFTL,HRQ.02 
MOV #ERRMC ,HRQ.RQ 
BIS #DIE,M.PARM 
CLR 

JMPRET 


BR 
“00, JMPRET 
-DSABL LSB 


POINT TO RUN COMMAND 
SEND COMMAND 

SEE IF ERROR OCCURRED 
IF SO, BRANCH 

SORT NEXT MODULE 

EXIT 


REPORT a 
CHANGE TO HARD ERROR 
COUNT 

FLAG INITIALIZATION ERROR 


IMMIDATE CALL 
RETURN TO SEQNCR 


#SER6,HRO.05 


1 
3 
10 
11 
12 
13 
14 
15 
24 017236 
28 
29 
30 
31 
32 
33 017236 
017236 
017237 
34 017240 
35 017241 
36 017241 
37 017243 
38 017244 
017244 
39 017246 
017246 
017247 
40 017250 
41 ptrs2! 
42 017251 
43 017253 
017253 
44 017255 
017255 
45 017257 
017257 
46 017261 
017261 
47 017263 
017263 
48 017265 
017265 
017266 
49 017267 
50 017270 
017270 
51 017272 
017272 
017273 
52 017274 
53 017275 
54 017276 
55 017300 
017300 


104171 
102201 
050000 
020000 
000000 
020000 
020000 
104265 


104264 
117404 





000004 


017267 


000040 
017261 
017461 
017263 
017302 
017403 


017243 


017514 
003746 
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weeeereere OVERLAY MODULE SORT = SORT ALL CYLINDERS, BEGIN/SET 


-SBTTL *eeeeeeeee OVERLAY MODULE SORT = SORT ALL CYLINDERS, BEGIN/SETS, AND BAD BLOCKS 


TTT ITI TIT ITITITIIISIILITIISE SETTLES ITI ITT TTI TT TiTiTiritiriiitTrTe Titi Tien een 
SAAR AAAAAAEREAEAEEETEREEEAEREEAAAEAAAARAEEREEEEEEAREEAEEEEEREEEEEEEEEREEEREEES 


Seeeeeeeeeeeteeeeteeeeeeeeeeeeeeenedeeneeneeeeneeeneeeeeenereeteeeeeeeereeeeee 
‘aati talent inant 
SORT 
: SORT WILL SORT ALL BEGIN/END SETS, BAD BLOCKS AND TRACKS/GROUPS IN 
: ASCENDING ORDER 
.ENABL LSB 
PUSH <R4,R5> : SAVE R4 AND RS 
MOV R4,=(SP) 
MOV RS,-(SP) 
INC RS 3 POINT TO SUBUNIT POINTERS 
ASSUME U.SUBP,1 
MOV #4 RG : MAXIMUM OF 4 SUBUNITS 
4$: MOV (R5)+,R0 : RO POINTS TO SUBUNIT DATABASE 
BMI ; IF NO SUBUN:T, BRANCH 
“070000, 3$ 
PUSH <R4,R5> : SAVE R4 AND RS 
MOV R4,-(SP) 
MOV RS.=(SP) 
MOV (RO) ,R1 : GET SUBUNIT PARAMETERS 
ASSUME $.PARM,0 
BIT EUSED,R1 : SEE IF BEGIN/END SETS USED 
BNE 1$ : IF SO, BRANCH 
050000, 1$ 
SORTTG : SORT THE TRACKS/GROUPS 
£56000, SORTTG 
Ee 2 ; BRANCH 
1$: c SORTBE 3 SORT THE BEGIN/END SETS 
“020000, SORTBE 
2s: CALL  SORTBB ; SORT THE BAD BLOCKS 
“020000, SORTBB 
POP <R5,R4> : RESTORE RS, R4 
MOV (SP)+,R5 
MOV (SP)+_R4 
3$: DEC RG : DECREMENT COUNT 
BNE 4$ : IF INCOMPLETE, BRANCH 
*050000.4$ 
POP <R5,R4> : RESTORE RS, R4 
MOV (SP)+,R5 
MOV (SP)+,R4 
CLR R1 ; IMMIDATE CALL TO NEXT MODULE 
CLR R2 : NO ERRORS 
MOV #SCHARO, RO + SCHARO NEXT MODULE 
BR JMPRET 
“00, JMPRET 


-DSABL LSB 


| | eee 
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ORTBE = SORT THE BEGIN/END SETS IN ASCENDING ORDER 


1 
¢ 017302 
4 
5 
6 017302 
7 017304 
017304 
8 017306 
9 017310 
10 017311 
11 017312 
12 
13 
14 
15 017314 
16 017316 
17 017320 
18 017322 
19 017323 
017323 
20 017325 
21 017327 
22 017331 
017331 
23 017333 
017333 
24 017335 
25 017337 
017337 
26 017341 
27 017343 
28 017345 
017345 
29 017347 
017347 


000016 
017347 
000013 
000004 
000003 
170000 
000003 
017331 
000002 
000002 
017335 
017351 
000003 


017312 


017311 
000000 


goer SORTBE = SORT THE BEGIN/END SETS IN ASCENDING ORDER 


10$: 


3$: 


4$: 





SORT THE BEGIN/END SETS IN ASCENDING ORDER 


MOV $.BESS+3(RO),R2 ; SEE IF ONLY ONE BEGIN END SET 
: IF SO, EXIT (ALLREADY SORTED) 


MOV #S BESS ,R2 ; R2 WILL POINT TO START OF BEGIN/END SETS 
ADD 0,R2 : R2 POINTS TO ae ND SET 
MOV 2.R3 ; R3 WILL POINT TO NEXT BEGIN/END SET 


R ° 
ADD #4 ,R3 ; R3 POINTS TO BEGINZEND SETS 
28 BIT COMPARE FOR BEGIN/END SET SORTING 
MOV 3(R3), ; GET WORD THAT R3 POINTS TO 


BIC eCHBAING, R4 : STRIP _OFF UNUSED BIT 
MOV 3(R2),R5 3 GET OTHER WORD TO COMPARE 
CMP -y: R : COMPA 
: IF DIFFERENCE IS FOUND, BRANCH 


BN 10 
“050000, 10$ 
MO R 


E 
v 2(R2),R5S : GET OTHER WORD TO COMPARE 
CMP 2(R3),R5 : COMPAR 
+5 0 3 : IF R2=>B/E <= R3=>B/E THEN ALLREADY IN ORDER 
CALL SW ; SWAP TE BEGIN/END SETS 
“020000, SWAPBE 
3 ° ; SEE IF R3->END-OF-LIST 
$ 3 IF NOT, BRANCH 
“030000,2$ 
#4 ,R2 : a BEGIN/END SET 
MOV 3(R2),R5 3 R2->END-OF =LIST 
L 1$ ; F NOT, BRANCH 
“030000,1$ 
Ay ; RETURN TO COPYSU 


SEQ 0764 





UDATS DISK EXER 
SWAPBE = IF BEG 


NOufwn— 


WN—O0ONOU SWH—Ov0O 


MTN es 


™ 
* 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


ne a es SH ss st os ns a 





000003 


017356 


177400 


000000 









1$: 
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END SETS OUT OF ORDER, SWAP 


-SBTTL SWAPBE = IF BEGIN/END SETS OUT OF ORDER, SWAP 
SWAPBE : 


SWAP THE BEGIN/END SET POINTED TO BY R2 WITH THE BEGIN/END SET 
POINTED TO BY R3, KEEPING THE END-OF=LIST FLAG INTACT 


~~ WORD (AND EOL FLAG, IF ANY) 


MOV RS. (R2) SWAP WORD 
RESTORE THE REGISTERS 


POP <R3,R2,R1> 


PUSH _—<R1,R2,R3> : SAVE POINTERS 
MOV R1,=(SP) 
MOV R2,=(SP) 
MOV R3,-(SP) 

MOV #3,R1 : SET UP LOOP COUNT 

MOV (R2) RG : GET WORD FROM SET 

MOV (R3) RS + GET WORD FROM OTHER SET 

MOV R4, (R3)+ + SWAP WORD 

MOV RS. (R2)+ : SWAP WORD 

DE R1 : DECREMENT COUNT 

1$ : LOOP IF INCOMPLETE 

“050000, 1$ 

MO (R2) ,R4 : GET WORD FROM SET 

MOV (R3) RS t GET WORD FROM OTHER SET 

MOV R5,Ri : MOVE TO TEMP STORAGE 

BIC #HIBYTE RS : STRIP OFF EMD-OF-LIST FLAG, IF ANY 

S R5,R1 : R1 CONTAINS END-OF=LIST FLAG, IF ANY 

BIS R1,R4 : RG NOW HAS END-OF-LIST FLAG, IF ANY 

MOV R4,(R3) ; 


MOV (SP)+,R3 

MOV (SP)+,R2 

MOV (SP)+,R1 
RETURN TO SORTBE 


RETURN 
“00.0 


jeje leoleleleleleaelqlelolq~) a 
~~ 
= 
o 
Ww 


W N=GOBNOUEWN=O OCONOUL W M30 OO NOUSWR 
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N 
RX 


NOW 
essssssssssssessssssssssssS 
a 
&* 

o 


Hn a ns ns 


104672 


010000 
104625 


070000 
104023 
105203 
020000 


040000 


000012 


017457 
000001 


017457 
000002 
022773 
017445 


000001 
000001 
177400 
000001 
000001 


000001 
017414 
000002 
000001 
017413 


000000 


-SBTTL 
; SWAPBB 


3$: 


4$: 
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SORTBB = SORT THE BAD BLOCKS IN ASCENDING ORDER 


-SBTTL SORTBB = SORT THE BAD BLOCKS iN ASCENDING ORDER 
SORTBB: 





SORT THE BAD BLOCKS IN ASCENDING ORDER 


MOV $.BADP(RO) ,R2 

BEQ 4 

“010000,4$ 

MOV 1(R2),R5 
I 4$ 

“070000,4$ 

MOV R2,R3 

ADD #2,R3 

CALL CBB2 

“020000, CBB2 

BCC $ 

“040000,3$ 


GET THE BAD BLOCK POINTER 
IF NO BAD BLOCKS, BRANCH 


SEE IF ONLY ONE BAD BLOCK 
IF SO BRANCH (ALLREADY SORTED) 


; R3 WILL POINT AT NEXT BAD BLOCK 
; R3 POINTS TO NEXT BAD BLOCK 


COMPARE THE TWO BLOCKS 
IF IN ASCENDING ORDER, BRANCH 


SWAPBB = IF BAD BLOCKS OUT OF ORDER, SWAP 


SWAP THE BAD BLOCKS, RETAINING THE END-OF=LIST POINTER AT THE END 


PUSH 


MOV 
BPL 
“030000, 
ADD 
MOV 


BPL 
“030000, 
RETURN 
“00,0 


R1 


1(R3),R5 

$ 
2$ 
#2 
1¢ 
1$ 
1$ 


Se Ge Ge Ge Se Ge Ge Ge BeBe Se Be Se 


; SAVE R1 


MOV R1,-(SP) 
GET LO ORDER BAD BLOCK OF 1ST SET 
AA ORDER BAD BLOCK OF 2ND SET 


SWAP 

GET HI ORDER BAD BLOCK OF 1ST SET 
GET HI ORDER BAD BLOCK OF 2ND SET 
MOVE TO R1 


STRIP OFF END-OF=-LIST FLAG, IF ANY 
R1_ CONTAINS END-OF=LIST FLAG, IF ANY 


; PUT END-OF-LIST FLAG IN R4, IF ANY 
SWAP 


SWAP 
RESTORE R1 


SEE IF END-OF=LIST 
IF NOT, BRANCH 


R2 POINTS TO NEXT BAD BLOCK 
SEE IF END-OF=-LIST 
IF NOT, BRANCH 


RETURN TO COPYSU 


MOV (SP)+,R1 


SEQ 0766 — 


N 11 
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SORTTG = SORT THE TRACK/GROUPS IN ASCENDING ORDER 





1 .SBTTL SORTTG = SORT THE TRACK/GROUPS IN ASCENDING ORDER 
2 017461 SORTTG: 
4 ; SORTTG WILL SORT THE TRACKS OR GROUPS IN ASCENDING ORDER 
6 017461 104201 000017 MOV #S.TGSS,R1 : R1 WILL POINT TO TRACK/GROUP START 
7 017463 105071 ADD RO.R + R1 POINTS TO TRACK/GROUP START 
8 017464 104115 1$: MOV (R1),R5 t GET START OF LIST 
9 017465 BM : IF NEGATIVE, WHOLE LIST IS SORTED, EXIT 
017465 070000 017512 “070000,4$ a 
10 017467 104012 MOV R1,R2 : R2 WILL POINT TO NEXT LIST MEMBER 
11 017470 115402 2$: INC R + R2 POINTS TO NEXT MEMBER 
12 017471 104125 MOV (R2) R5 + GET NEXT MEMBER | 
13 017472 104054 MOV R5.R : COPY TO R4 
14 017473 103205 177400 BIC #HIBYTE,R5 + CLEAR END-OF=LIST FLAG (IF ANY) 
15 017475 107054 SUB 4 + SAVE END-OF=LIST FLAG (IF ANY) | 
16 017476 106115 CMP (R1) RS : SEE IF THE MEMBERS ARE IN ORDER 
17 017477 BMI $ : IF SO, BRANCH 
017477 070000 017504 “070000, 3$ 
18 017501 101114 BIS (R1),R4 : COPY START OF LIST TO R4, RETAINING EOL FLAG 
19 017502 100115 MOV R5,(R1) + SWAP 
20 017503 100124 MOV R4, (R2) + SWAP 
21 017504 104125 3$: MOV (R2),R5 : GET MEMBER THAT SORT POINTER POINTS TO 
22 017505 BPL 2$ + IF NOT END-OF=LIST, BRANCH 
017505 030000 017470 “030000, 2$ 
23 017507 115401 INC R1 ; POINT TO NEXT START OF LIST 
24 017510 BR + LOOP 
017510 000000 017464 “00,1$ 
5 017512 4$: RETURN ; RETURN TO CALLING PROGRAM 
017512 000000 000000 “00,0 


iss) 
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eeeeeeeees OVERLAY MODULE SCHARO = SET UP 


017514 


WN OV0O@SUSwr-0O0— 


NNN NNN NNN 
PUPP SUP PSPSPS ASSAD AAT TTT 
ee ES ee perp Morononrrnnry 
98° WW -“ONUUEN OO 


w 
res 
w 


7 heheh, 
fw 


1 

1 

1 

J 

1 

q 

2 

3 

3 

3 

34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
4h 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 


SOSOOSOSOSOSOSOSSOSCSOOOOOOOOOOoOOOoOOoOOoOO 
ot OO OO 


>_> 
WN NING NU 


000050 


000020 


017533 


037708 


017576 
037705 


UP SUBUNITS, CHECK THAT 


-SBTTL 


eeeneeneae OVERLAY MODULE SCHARO = SET UP SUBUNITS, CHECK THAT ALL PARAMETERS ARE WI 


TTT II TISIIIIITISILELIL IIIT ESTER TITS TT TOLL TTTITTTETeTeTTTTTTeTTeTT TTT TTT TTT ees 
f REAAAEEEREEAEEEEEEEAREEEREREEEREEEAAREEREEEEREEEEEEEEEEREEEAREREEEREEEEEEEEEEEED 


Be Se Fe Se C/o Ge Ge Se Se Se 


SCHARO: 
SUBUNIT PARAMETERS 
.ENABL LSB 
PUSH RG 
MOV R4,R1 
MOV U. SUBUCRS) ,RO 
.SBTTL SMASK 
 SMASK 
: SMASK TAKES THE UNIT O 
; SUBUNIT MASK (0001 - 
‘ PUSH RI 
MOV RO,R1 
MOV #26, RO 
TST 
SMASKL: BEQ on ASKX 
=010000, SMASKX 
ROL RO 
DEC R1 
BR SMASKL 
“00, SMASKL 
SMASKX: POP 
MOV RO, SUBUNT 
MOV ach. SCR,R3 
PUSH 
TALK 
‘03 6000, TALK 
Ist Re 
2550000,1 138 
MOV R2.S.m +$-MEGR(RI) 
MOV ‘5 “MEGW(R1) 
MOV as 
CMP oF 1RSTU,RS 
BEQ 
“010000, 1$ 
MOV #F IRSTU,R2 
PUSH  <R1,R3,R4> 


STARA AAEAAREAEREEAEEEEEEEEEEREEREEERAEEREEEEREEREREREEEEEEREREEEEREEEEEEEEEREEE 
aetna eee aaah a aaa aaa a 


INSCHR WILL GET THE SUBUNIT CHARACTERISTICS AND INITILIZE THE 





; SAVE R4 (SUBUNIT) POINTER 


MOV R4,-(SP) 
1 POINTS TO SUBUNIT 
: Ger SUBUNIT OFFSET 


= CALCULATE THE siBUNIT MASK 


a ET (0 = 3) If RO AND CHANGES IT TO THE 


SAVE R1 


of " aaa R1 
fsb. SUBUNIT MASK SHIFTED TO CORRECT POSITION 


MOV R1,-(SP) 


; SHIFT 


; MASK 
; Vie nad COUNT 


RESTORE R1 


MOVE TO SDI BUFFER 
POINT TO COMMAND 
SAVE R1 


MOV (SP)+,R1 


MOV R1,-(SP) 
SDI EXCHANGE 


; RESTORE R1 


MOV (SP)+,R1 


; re IF ERROR OCCURRED 


F $0, BRANCH 
rene eit COUNT 


a4" MEGABIT COUNT 
R35 POINTS TO arp CMARACTERISTCS 
IS RS => FIRST UNIT? 

IF SO, BRANCH 


R2 => FIRST UNIT 
SAVE REGS 
MOV R1,-(SP) 


— 


ac 
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SMASK = CALCULAT 


AVLs 
NNNNNN 
FFSEIFG, 
Sn n NUYS 


N aN 
coool 
Sree 


2 88 esee x2 


Sooooooooocoeoo 


a 


™“~ 
Seeeceae 
WER & 


THE S$ 


100463 
1004 


= 
rs 
WOWWNWN 


020027 


017613 
000023 


022765 
000007 


017606 


020000 
017630 
005521 
002446 
177600 
017633 
005517 


000005 
002453 
177400 
022637 
000006 
020657 
020711 


000040 


017662 
000200 


017667 
020122 


1$: 


2$: 


3$: 


5$: 


6$: 


TRAV 
“926000, TRAV 
<R4,R3,R1> 
TST RO 
BNE 3$ 
“050000, 3$ 
MOV ee 


PUSH 
CALL GETMEM 


— GETMEM 
RO,S.SCHR(R1) 
POP R2 


MOV (R3)+,R4 
MOV R4, (RO)+ 
DEC R2° 

BNE 2$ 
~050000, 2$ 


(R1),RO 
ASSUME S.PARM,0 


BIT #DCYLS.RO 

BEQ 4$ 

“010000,4$ 

MOV “ss, R2 

MOV ST+RBNTRK,R 

BIC SHIBT TE S60" R3 
BR 5$ 


*00,5$ 

MOV #L$,R2 

CLR R3 

MOV R2,S.LETR(R1) 
ADD ST+LBNTRK ,R3 


BIC #HIBYTE,RS 

MO R3,SECTRK 

MOV R3.S.TRKL(R1) 
COMPSC 


BIT #BEUSED, RO 


0000,6$ 
BIT #ONLYCL ,RO 


8 

o 1 eats 7$ 

CAL CHKCYL 
“026000, Yah 


SEQ 0769 


MOV R3,-(SP) 


MOV R4,-(SP) 
; TRAVERSE THE UNITS TO FIND IF SUBUNIT CHAR ARE EQUAL 


RESTORE REGS 
MOV (SP)+,R4 
MOV (SP)+,R3 


MOV (SP)+,R1 
WERE ANY CHARS EQUAL? 
IF SO, BRANCH (RO WILL BE NONE ZERO IF MATCH) 


MOVE WORD COUNT TO RO 
SAVE COUNT 


GET SOME MEMORY 


STORE POINTER TO IN SUBUNIT PARAMETERS 
RESTORE COUNT IN R2 
MOV (SP)+,R2 


MOVE ONE WORD OF a. ye TO RO 
MOVE TO acy CHAR AREA 
DECREMENT WORD COUNT 
IF COUNT UNEXPIRED, BRANCH 


pH SUBUNIT PARAMETERS 


MOV RO,-(SP) 


ASSUME THAT S.PARM IS ZERO 
SEE IF DIAGNOSTIC CYLINDERS ARE USED 
IF NOT, BRANCH 


; MOVE THE “PER TRACK *D® (TO MAKE DBN) TO R3 


GET RBN*S PER T 
CLEAR UNUSED BITS 
BRANCH 


oe THE CHARACTER "L* (TO MAKE LBN) TO R3 
4 ll LBN'S, NO RBN’S PER TRACK ADDED 

ADD LBNS PER TRACK (TO ZERO IF LBN AREA) 
CLEAR UNUSED BITS 

SAVE IN SECTORS a8 TRACK 

SAVE IN TRACK LENGTH 

COMPUTE SECTORS/GROUP AND SECTORS/CYL 
CALCULATE MAXIMUM DBN NUMBER (IN CASE NEEDED) 
GET SUBUNIT PARAMETERS 

ASSUME THAT S.PARM IS ZERO 

SEE IF BEGIN/END SETS ARE USED 

IF NOT, BRANCH 


SEE IF WE ALLREADY HAVE BEGIN/END SETS 
IF SO, BRANCH 


CONVERT THE CYLS TO BN'S 


SEE IF AN ERROR OCCURRED 
IF SO, BRANCH 
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SMASK = CALCULATE THE SUBUNIT MASK 
017665 050000 017716 “050000,9$ 
104 017667 7$: cALL CHKBES : CHECK THE BEGIN/END SETS FOR ERRORS 
017667 020000 020324 “020000, CHKBES 
105 017671 115002 TST 2 : SEE IF AN ERROR OCCURRED 
106 0176 BNE 9$ 3 IF $0, BRANCH 
017672 050000 017716 “050000,9$ 
107 017674 104302 00244 MOV ST+LBNCYL,R2 ; R2 CONTAINS LO LBN CYLS 
108 017676 10550¢ 00246 ADD ST+XBNCYL.R2  : ADD LO XBN CYLS TOR 
109 017700 10061 900002 MOV R2,$.SDCL(R1)_ : MOVE TO LO STARTING DIAG CYL 
110 017702 104302 MOV ST+LBNCYL+1,R2 : GET HI ORDER LBN CYLS 
111 017704 BC 8$ t IF NO CARRY, BRANCH 
017704 040000 017707 “040000,8$ 
112 017706 115408 INC R2 : PROPOGATE CARRY 
113 017707 12 000003 8$: MOV R2,S.SDCL*1(R1) : STORE HI STARTING DIAG CYL 
114 017711 114002 CLR + NO ERROR 
115 017712 104207 020761 MOV #SCHAR1,RO : SCHAR1 IS NEXT MODULE 
116 017714 BR : EXIT 
017714 000000 020023 “00,15$ 
117 017716 104650 000063 001600 9$: MOV U.UNUM(R5) ,HRO.03 : GET STARTING UNIT NUMBER 
118 017721 105650 000050 001600 ADD U. SUBU(R5) .HRO.03 7A 
119 017724 104307 001575 HRQ.RQ,RO : SET UPTO REPORT ERROR 
120 017726 CALL _—+HOST + REPORT 
017726 020000 001543 “020000,HOSTRO 
121 017730 101200 000002 003006 BIS #D1E,M.PARM : FLAG INITIALIZATION ERROR 
122 017733 104201 000001 MOV #U.SUBP,R1 + R1 WILL POINT AT SUBUNIT 
123 017735 105051 ADD R5,R : R1 POINTS AT SUBUNIT POINT 
124 017736 105651 000050 ADD U.SUBUCR5),R1 =: R1 POINTS AT POINTER TO SUBUNIT BEING HANDLED 
125 017740 104117 MOV R : RO POINTS TO SUBUNIT BEGING HANDLED 
126 017741 104203 100000 MOV #DROP,R3 3 MOVE DROP FLAG TO R3 
127 017743 100173 MOV R3, (RO) : DROP THIS SUQUNIT 
128 017744 ASSUME S.PARM,O 
129 017744 114008 CLR R2 : NO ERRORS 
130 017745 104653 000050 10$: MOV U.SUBUC(RS),.R3  ; GET SUBUNIT OFFSET 
131 017747 115403 INC 3 + NEXT SUBUNIT 
132 017750 100653 000050 MOV R3,U.SUBU(RS) =: SAVE 
133 017752 106203 000003 CMP #3.R3 t SEE IF VALID OFFSET 
134 017754 BCS 11§ ; IF NOT, BRANCH 
017754 040000 017760 “040000, .+3 
017756 000000 017773 *00,11$ 
135 017760 105203 000001 ADD #U.SUBP,R3 : WILL POINT TO NEXT SUBUNIT POINTER 
136 017762 105053 ADD RS_R t ADD POINTER TO UNIT DATABASE 
137 017763 104133 MOV (RS), R3 : GET POINT 
138 017764 BMI 10 : IF NO SUBUNIT, SRANCH 
017764 07 017745 “070000, 10$ 
139 017766 104131 V (R3) ,R1 : GET SUBUNIT PARAMETERS 
140 017767 ASSUME $.PARM,O 
141 017767 BMI 10$ : IF DROPPED, BRANCH 
017767 070000 017745 “070000, 10$ 
142 017771 ASSUME ‘DROP, 100000 
143 017771 BR 12$ : EXIT 
017771 000000 017776 “00,128 
144 017773 114003 11$: CLR R3 : NO SUBUNITS 
145 017774 100653 000050 MOV R3,U.SUBU(R5) =: SAVE 
146 017776 115003 12$: TST R3 + ANY? 
147 017777 BNE 14$ : IF SO, BRANCH 
017777 050000 020021 “050000, 14$ 
148 020001 104207 021707 MOV #GETSER,RO : GETSER NEXT MODULE 
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SMASK = CALCULATE THE SUBUNIT 


149 ase 
150 0 la 


4 
157 020025 
020025 


000002 
017514 


003746 


15$ 
“00,15$ 
CERROR 5,#SERS 


BIC #C2DFTL,HROQ.02 
MOV WERRMC ,HRO.RQ 
BIS $i M.PARM 
MOV SCHARO,RO 

R RI 
R4 
JMPRET 


BR 
“00, JMPRET 
-DSABL LSB 


EXIT 
REPORT SECONDARY ERROR 

#SERS,HRO.05 
CHANGE ERROR TO HARD ERROR 
COUNT ERROR 
FLAG INITIALIZATION ERROR 
THIS MODULE IS NEX 
IMMIDATE CALL TO NEXT MODULE 
RESTORE R4 

MOV (SP)+,R4 

RETURN TO SEQNCR 


SEQ 0771 


ee” 
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100462 


020044 


020042 


020027 
000000 


000004 


020065 
000007 


020072 


020070 


020047 
000000 


st ay 
00002 


020115 


020100 


TRAV = TRAVERSE THOUGH THE UNITS TO FIND SUBUNIT CHARS THAT MA 


»SBTTL TRAV = TRAVERSE THOUGH THE UNITS TO FIND SUBUNIT CHARS THAT MATCH 
TRAV: PUSH R2 Ss > UNIT 


SUBTRV : 
‘Oe 6000, SUBTRV 
PoP R2 : 
TST RO 3 
NE 1$ : 
*050000,1$ 
MOV (R2) ,R2 3 
CMP R5,R2 : 
BNE TRAV : 
“050000, TRAV 
1$: RETURN 3 
-SBTTL SUBTRV = TRAVERSE THROUGH 
SUBTRV: MOV #4,R4 g 
INC R2 3 
ASSUME U.SUBP,1 
1$: MOV (R2)+,R3 é 
BMI 2 : 
oye. 2s 
S.SCHR(R3),RO ; 
PUSH <R4,R2> 
CALL SCHRCP : 
eee SCHRCP 
*<R2, R4> 
TST RO : 
BNE 3$ : 
*050000,3$ 
2$: DEC R4 : 
BNE 1$ : 
*050000,1$ 
3$: RETURN 


3; xtt 


AVE R2 = 
GO TRAVERSE SUBUNITS 
RESTORE R2 


MOV R2,-(SP) 


MOV (SP)+,R2 


; FOUND A MATCH 
; IF SO, BRANCH 


; ELSE, CHECK NEXT UNIT 
; ARE WE POINTING TO SAME UNIT? 


IF NOT, CONTINUE 
ELSE, EXIT 


SUBUNITS TO FIND aa CHARS THAT MATCH 
R1 IS COUNTER TO END 
R2 => SUBUNIT PARAMETER POINTER 


rf HAS ADDRESS OF SUBUNIT + patel 
F MINUS, NOT A GOOD SUBUNIT 


RO => SUBUNIT CHAR 


MOV R4,-(SP) 
MOV R2,-(SP) 
CHECK SUBUNIT CHARACTERISTICS 


MOV (SP)+,R2 
MOV (SP)+,R4 
ND A MATCH? 
SO, EXIT 


FI 
IF 
ELSE, ARE ALL SUBUNITS DONE FOR THIS UNIT? 
IF NOT, BRANCH 


-SBTTL ee ak wep CHARACTERISTICS COMPARE 


SCHRCP: 


1$: 


ATCH OR RO => 
PUSH eRORIS 


MOV #ST,R4 s 
MOV #19. ,R1 3 
MOV (R4)+,R2 : 
CMP (RO)+,R2 3 
BNE 3 ; 
“050000, 2$ 

DEC R1 

BNE 1$ 3 
“050000, 1$ 

POP <R1,R0> ; 


; R4 => Pye Mngt hs. 
; R1 = # OF WORDS TO 
: COMPARE CHARACTERISTICS 


SUBUNIT CHAR IF THERE IS A MATCH 


MOV RO,-(SP) 
MOV R1,-(SP) 


COMPARE 


UAL? 
; IF NOT, EXIT 
: tse. CHECK NEXT WORD 


F NOT DONE WITH COMPARISON, BRANCH 


; RESTORE REGS 


nekengmNNG et T Kans wenn ase . ' — 
wears DISK ay R_DMACR X04, 23" £2 tee + i 12: os 46 PAGE 131-1 SEQ 0773 


SE 
SCHRCP = SUBUNIT CHARACTERISTICS COMP 
020107 104261 MOV ie R1 
020110 104267 MOV (SP)+,RO 
020111 100617 000007 MOV RO,S.SCHR(R1)  ; AND STORE POINT TO CHAR INTO SUBUNIT PARAM 
40 peor? BR 3$ ; AND EXIT WITH MATCH 
020113 000000 020120 “00,38 
41 020115 2s: POP <R1,RO> 
020115 104261 MOV (SP)+,R1 
020116 104267 MOV (SP)+,RO 
2 020117 114007 CLR RO ; RO = 0 (NO MATCH) 
43 020120 3$: RETURN 
020120 000000 000000 “00.0 


ee ee ere ee ec a ee nw a ee 


| en a ae ee Ae ee SE ie 
UDAT4 DISK EXERCISER DMACR X04. 01 23-AUG-82 12:06:46 PAGE 132. SEQ 077% 


CHKCYL = CHECK VALIDITY OF STARTING AND ENDING CYLS, CONVERT T 
Ph ey CHKCYL = CHECK VALIDITY OF STARTING AND ENDING CYLS, CONVERT TO BEGIN/END SET 


1 
2 020122 
PA : CALCULATE THE STARTING AND ENDING BN'S FROM THE GIVEN STARTING 
? ; AND ENDING CYLS 
7 020122 PUSH = RS : SAVE R4, RS 
020122 100465 MOV R5S,-(SP) 
8 020123 104614 000015 MOV $.BESS+2(R1),R4 ; R4 HAS LO STARTING CYL 
9 020125 104615 000016 MOV $.BESS+3(R1).R5 : RS HAS HI STARTING CYL 
10 020127 103205 100000 BIC #100000,R5 + CLEAR EOL FLAG (IF ANY) 
11 020131 CYLBN ; CALCULATE STARTING aN ON THAT CYL 
020131 020000 020241 ‘020000, CYLBN 
12 020133 115002 Re : SEE IF ANY ERROR OCCURRED 
13 020734 BNE : IF SO, BRANCH 
020134 050000 020236 2050000.1 
14 020136 100617 00001 MOV RO,S.BESS+2(R1) ; SAVE LO ORDER STARTING BN 
15 020140 101203 10 BIS #160000, : SET END-OF-LIST FLAG 
16 020142 100613 000016 MOV R3,$.BESS#3(R1) : SAVE HI ORDER STARTING BN 
17 020144 104615 000014 MOV $.BESS+1(R1),R5 : GET HI ORDER ENDING CYL 
18 020146 106205 177777 CMP =1,R5 : SEE IF SHOULD DEFAULT TO HIGHEST LBN 
19 020150 EQ : IF SO, BRAN 
020150 010000 020201 “010000,4$ 
20 020152 104614 000013 $.BESS(R1),R4 ; GET LO ORDER ENDING CYL 
21 020154 105204 ADD #1,R4 : FIND STARTING BN OF NEXT CYL 
22 020156 BCC : IF NO CARRY, BRANCH 
020156 040000 020161 “040000, 2$ 
33 020160 115405 INC RS : PROPOGATE C 
4 020161 23: CALL CYLBN 3: CACULATE STARTING BN OF NEXT CYL 
020161 020000 020241 "020000, CYLBN 
25 020163 115002 R2 : SEE IF ANY ERRORS 
26 020164 10$ : IF SO, BRANCH 
020164 050000 020236 2050000.108 
27 020166 107207 00 SUB #1,R0 : GET LAST BN OF PREVIOUS CYL 
28 020170 BCC 3$ : IF NO CARRY, BRANCH 
020170 040000 020173 “040000, 3$ 
29 020172 117403 DEC R3 : PROPOGATE CARRY 
30 020173 100617 000013 3S: MOV RO,S.BESS(R1) : SAVE LO ORDER ENDING BN 
31 020175 100613 000014 MOV R3,S.BESS+1(R1) : SAVE HI ORDER ENDING BN 
32 020177 BR 9$ ; EXIT 
020177 000000 020235 “00,9 
33 020201 104117 4$: MOV (R1),RO 3 GET SUBUNIT PARAMET ERS 
34 020202 ASSUME $.PARM,O : ASSUME THAT S.PARM IS ZERO 
35 020202 102207 020000 BIT #OCYLS.RO : SEE IF DIAGNOSTIC CYLINDERS USED 
36 020204 BNE ; IF SO, BRANCH 
020204 050000 020225 “050000,6$ 
37 020206 307 002454 MOV ST+LBNHST,RO GET LO ORDER ENDING LBN 
38 020210 107207 SUB #1,R0 + LAST LBN IN LBN AREA 
39 020212 100617 000013 MOV RO.S.BESS(R1)_—: Live ¢ ORDER 
40 020214 104307 002455 MOV ST+LBNHST#+1,RO : GET HI ORDER 
41 020216 BCC 5g : IF NO CARRY, BRANCH 
20216 040000 020221 “040000,5$ 
42 020220 117407 DEC RO : PROPOGATE CARRY 
43 020221 100617 000014 5$: MOV RO,S.BESS+#1(R1) : SAVE HI ORDER 
44 020223 BR 9$ : EXIT 
020223 000000 020235 “00,98 
45 020225 104307 022635 6$: MOV MAXDBN,RO : GET LO ORDER MAX DBN 








112. 


UDATS DISK tg thy DMACR X04.01 23-AUG-82 12:06:46 PAGE = 
CHKCYL = CHECK VALIDITY OF STARTING AND ENDING CYLS, CONVERT T 
46 020227 100617 000013 MOV of S.BESS(R1) ; SAVE 
47 020231 104307 022636 MOV AXDBN+1 ,RO ; GET HI ORDER 
48 020233 100617 000014 MOV RO. $.BESS*1(R1) ; SAVE 
49 020235 114002 9$: CLR Ro” 3 NO ERRORS 
50 020236 10$: POP R5 ; RESTORE 
236 104265 


51 020237 RETURN 
020237 000000 000000 “00.0 


MOV (SP)+,R5 


SEQ 0775 


_ a 


CYLBN 


020241 


0 ONO VF WN —ODOONOUFS WR 
oO 
Nm 
oO 
Nm 
&* 
w 


Ss a ae ne —_ = — 


020304 
23 020307 
020307 
24 020311 
25 020313 
020313 
26 020315 
27 020317 
020317 
28 020321 
29 020322 
020322 


020251 
a 
020256 
022641 
020263 


007777 
020311 


020322 
000001 
020256 
000001 
020256 


000000 





Sete te Sete 


1$: 


2$: 


3$: 


4$: 


6$: 


TAKING THE CYL 
CYL AND RETURN 
ERROR 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 133 
- GIVEN A CYLINDER, CALCULATE STARTING BN ON THAT CYLIN 


-SBTTL CYLBN 
LBN: 


RO 
CLR RO 
CLR R3 
TST R4 
BNE 1$ 
“050000,1$ 
TST R5 
BEQ 5$ 
“010000,5$ 
SUB #1,R4 
BCC 
“040000, 2$ 
DE 


ADD ea 


BCC 
“040000,3$ 
I 3 


NC R 
CMP #HBHINB RS 
cc 4$ 


*040000,4$ 
DEVFTL 57,#SER20 


1“ #1 
2$ 
ae -e$ 
BCC 35° 
“040000, 2$ 
CLR R2 
RETURN 
“00.0 


oR4 


1,R5 





VEN 


J 12 


= GIVEN A CYLINDER, CALCULATE STARTING BN ON THAT CYLINDER 


+ iN R4,R5 CALCULATE THE FIRST BN ON THAT 


IF BN EXCEEDS 28 BITS, REPORT 
CLEAR THE PRODUCT AREA 


IF NOT, 


SEE IF HI ORDER IS ZERO 
IF SO, BRANCH AND EXIT 


ADJUST COUNT 
IF NO BORROW, BRANCH 


PROPOGATE BORROW 
ADD LO SECTORS/CYL TO LO ORDER PROD 
IF NO CARRY, BRANCH 


: PROPOGATE CARR 
: SEE IF HI ORDER TOO BIG 
F NOT, BRANCH 
REPORT LBN OVERFLOW 
MOV #ERS7 RQ. 04. 
MOV #SER20,HR 


MOV #57 SF TLDEVS4000. -R2 
MOV R2,HRQ.02 


4. oH HRQ.01 
MOV #ERRMC ,HRQ.RQ 
EXIT 


DECREMENT LO ORDER COUNT 
IF INCOMPLETE, BRANCH 


DECREMENT HI ORDER COUNT 
IF INCOMPLETE, BRANCH 


NO_ ERRORS 
RETURN TO CALLING PROGRAM 


SEQ 0776 


0 
22 020370 
0 0 
23 020372 
0 2 
020375 
020400 


04 
104112 
102202 


010000 
102202 





UDAT4 DISK EXERCISER DMACR x04. 
CHKBES = CHECK THE BEGIN/END SE 


000013 
000015 


022773 
020414 


000040 
020350 
000200 
020372 
003552 

047 


020456 
000004 


0 
T 





1 23- 
S FOR 


001601 
001602 


¢ 


1$: 


208: 


21$: 


2$: 






Wecas 12:06:46 PAGE 134 


srr, CHKBES = CHECK THE BEGIN/END SETS FOR ERRORS 


CHECK THAT THE BEGIN BLOCK <= END BLOCK IN EACH BEGIN/END SET, 


THAT THE END BL 


OCK < THE BEGIN 


N BLOCK OF THE NEXT BEGIN/END SET, 


AND THAT THE LAST END BLOCK IS A VALID LBN OR DBN FOR THAT DRIVE. 


PUSH RS 

MOV #S.BESS,R3 
ADD R1,R 

MOV #S.BESS+2,R2 
ADD R1,R2 

CALL CBB2 
“020000, CBB2 
“040000,2$ 

MOV (R1), 
ASSUME $.PARM,O 
BIT WBEUSED ,R2 
BE9 


00,20$ 
+ #ONLYCL ,R2 


0000,21$ 
DEVFTL 55,#SER20 


7$ 
“00, 7$ 
DEVFTL 50,#SER20 


7$ 
“00,7: 
a [sne) 85 
“070000, ste 


CBee 
«050000, CBB2 


BCS $ 
*040000, .+3 

“00, 3$ 

DEVFTL 51,#SER20 


Se 





Mov 
; BRANCH TO ERROR EXIT 


MOV R5,- 
R3 WILL POINT . ENDING BLOCK NUMBER 
R3 POINTS TO ENDING BN 
R2 WILL POINT TO STARTING BN 
R2 POINTS TO STARTING BN 
COMPARE 


-(SP) 


IF NO ERROR, BRANCH 
GET SUBUNIT PARAMETERS 
SEE IF BEGIN/END SETS USED 


IF NOT, BRANCH 
; SEE IF ONLY — CYLINDER IS SPECIFIED 

IF NOT, BRANCH 

REPORT BEGIN CYL > vent: % 
MOV oes 04 
MOV asenoo RQ.05 
MOV ++: bd TipEVé4600. oR2 
MOV 
MOV tno 
MOV #ERRMC ,HRO.RO 


BRANCH TO ERROR EXIT 


REPORT BEGIN > ENDING BN 

0,HRQ.04 
#SER20,HRO.05 
#50! F TLDEV+4000. .R2 
MOV R2,HRQ.02 


MOV #. ,HRQ.01 
#ERRMC ,HRQ.RQ 


SEE IF i, teal HAS BEEN FOUND 
IF SO, BRAN 


POINT TO NEXT BEGIN SET 
COMPARE 


BRANCH 
STARTING BN <= PREVIOUS ENDING BN 

MOV ER51,HR a. 304 

MOV PSER2O 0.05 

MOV ee FTCDE V+4000. .R2 


R2,HRO.0 





we 4 DISK acr tar a DMACR x04. 


CHKBES = CH 


02 

47 020504 
020504 
48 020507 
020507 
49 020512 
020512 

50 020514 
51 020517 
020517 

52 020521 
53 020523 
020525 


61 020563 
62 020565 


eg 3 
104200 
000000 
105203 
000000 


104112 
102202 
050000 
104202 
020000 
040000 
000000 
104112 
102202 


010000 
102202 


RS Seee2e2e 
MNRNIONRIWWRN 
ssssssss 


1 


ay 
® 
~ 
So 


04 
104112 
102202 


THE BEGIN/END SE 


020442 
060014 


020654 
000004 


020333 


020000 


020553 
002454 


022773 
020473 
020653 
000040 


020504 
000200 


020514 
005517 
005517 


020601 
000001 


020523 
002455 


020654 
022635 
022773 
020653 


000040 


1 fms 12:06:46 PAGE 134-1 
S FORE 
001576 
001575 
R 7$ 
*00,7$ 
3$: ADD #4 ,R3 
R 1$ 
*00,1$ 
4$: OV (R1),R2 
ASSUME 5S. PARM, 0 
BIT #DCYLS,R2 
BNE $ 
*050000,5$ 
MOV #ST+LBNHST,R2 
CALL CBB 
*020000, CBB2 
*040000,.+3 
*00.6$ 
(R1 e 
ASSUME S.PARM,0 
aM #BEUSED, R2 
*010000,10$ 
BIT #ONLYCL,R2 
BEQ 11$ 
*010000,11$ 
10$: CERROR 6,4#L$ 
001603 
CERROR 7,#L$ 
001604 
BR 14$ 
*00,14$ 
002454 11$: ie  gepeapans 
*040000,9 
DE 
9$: 
001601 
001602 
001603 
001604 
001576 
001575 
7$ 
*00,7 
5$: ey R3,R2 
#MAXDBN, R3 
CALL yy f88 ce8s 
BCC 6$ 
70000. 6$ 
a ake 
ASSUME M,0 


BIT HBEUSED na 
BEQ 12$ 





SEQ 0778 


MOV #.,HRQ.01 
MOV #ERRMC ,HRO.ROQ 
ERROR EXIT 


R3 NOW POINTS TO NEXT END SET 
LOOP 


GET SUBUNIT oeanh ie teeee 
ASSUME THAT S.PARM 

SEE IF DIAGNOSTIC CYLINDERS ARE IN USE 
IF SO, BRANCH 


R2 POINTS TO LBNS IN HOST AREA 
COMPARE 
EXIT 


GET SUBUNIT CHARACTERISTICS 

ASSUME THAT S.PARM IS ZERO 

ase IF TRACKS/GROUPS IN USE 
F SO, BRANCH 


SEE IF B/E SET COMPUTED BY CYLINDERS 
IF NOT, BRANCH 


LBN ERROR 

MOV #L$,HROQ.06 
LBN ERROR 

MOV #L$,HRQ.07 
EXIT 


DECREMENT LO LBN COUNT BY 1 
IF NO BORROW, BRANCH 


PROPOGATE BORROW 


C ST +LBNH 
DEVFTL 52, CPSERDO. ST+LBAHST, attorney a ae BN > MAX 


MOV ST+LBNHST+1 ,HRO.07 
MOV #52! F TLDEV+4000. .R2 
MOV R2,HRQ.02 
#.,H 01 

Vv #ERRMC ,HRQ.RQ 
ERROR EXIT 
R2 POINTS TO LAST END SET 
R35 POINTS TO MAXIMUM DBN 
COMPARE 
EXIT 
GET SUBUNIT CHARACTERISTICS 

ASSUME THAT S.PARM IS ZERO 

SEE IF a at IN USE 

IF SO, BRANCH 





010000 
102202 


010000 
104200 
104200 


000000 


04200 
104200 


000000 
114002 


104265 
000000 








UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 134-2 
CHECK THE BEGIN/END SETS FOR ERRORS 


020573 
000200 


020623 
005521 
005521 
003765 


060014 
020654 
003405 


060014 
020654 


000000 











M 12 





*010000,12$ 
BIT WONLYCL ,R2 : SEE IF B/E SET COMPUTED BY CYLINDERS 
BEQ : IF NOT, BRANCH 
*010000, i3s 
CERROR '6,#D$ : DBN ERROR 
MOV #0$,HRO.06 
CERROR 7,#D$ : DBN ERROR 
MOV #0$,HRQ.07 
DEVFTL 62,#SER20 : REPORT ERROR 
MOV #ER62,HRO.04 
MOV #SER20,HRO.05 
MOV #62!F TLDEV+4000. ,R2 
MOV R2,HRQ.02 
MOV #. .HRQ.01 
MOV #ERRMC,HRO.RO 
OR a 7$ : EXIT 
DEVFTL 52,<#SER20,MAXDBN,MAXDBN+1> ; LAST ENDING BN > MAX 
MOV R52,HRQ.04 
MOV #SERIO NRG OS 
MOV MAXDBN,HRQ.06 
MOV MAXDBN+1,HRO.07 
MOV #52! F TLDEV+4000. .R2 
MOV R2,HRQ.02 
MOV #. HRQ.01 
MOV #ERRMC ,HRO.RO 
BR 7$ ; ERROR EXIT 
*00,7$ 
CLR R2 : FLAG AS NO ERROR 
POP R5 t RESTORE REGISTER 


MOV (SP)+,R5 
ae rune ; RETURN TO INSCHR 


020657 


2 
20703 
020703 
20705 
26707 
020707 


-|-O OCONOUSW M—CVOONOUFSWwR— 


0 
0 
0 
0 
0 
0 
0 
020671 
0 
0 
0 
0 
0 
0 
0 


NN att —) 


050000 
104070 


000000 


002445 
177400 
022637 


020664 
022640 
002444 


177400 
022640 


020700 
022641 


000000 


UDAT4 DISK EXERCISER DMACR X04.01 23=AUG-82 12:06:46 PAGE 135 
COMPSC = COMPUTE SECTORS/GROUP AND SECTORS/CYLINDER 





SEQ 0780 


asorie COMPSC = COMPUTE SECTORS/GROUP AND SECTORS/CYLINDER 


1$: 


2$: 


COMPUTE HOW MANY SECTORS/GROUP AND ee 
GIVEN HOW MANY SECTORS/TRACK IN SECTR 


NE 1$ 
ue. 


CLEAR RUNNING TOTAL 

GET NUMBER OF TRACKS PER GROUP 

CLEAR UNUSED BITS 

ADD NUMBER OF SECTORS/TRACK TO RUNNING TOTAL 
DECREMENT COUNT 

IF COUNT INCOMPLETE, BRANCH 


; SAVE SECTORS/GROUP 
; CLEAR RUNNING TOTAL 


GET GROUPS/CYLINDER 

CLEAR UNUSED BITS 

ADD SECTORS/GROUP TO RUNNING TOTAL 
DECREMENT COUNT 

IF COUNT INCOMPLETE, BRANCH 


STORE SECTORS/CYLINDER 
RETURN TO CALLING PROGRAM 










020711 


NOuw SWNO0O NOUflwr— 
oO 
™m 
So 
N 
= 


—~— — ee ed a 


rele.) 
= 


26 020747 
47 


tt od 
i=] 
on 


oo 
SSSSS 
NNN aN 


: VINO 


R 


=O 
oo 

NW 

Wow 

ooo 

a Le) 


002464 


177400 
022641 


020726 


020721 

2464 
177400 
022640 
020742 


020735 
000001 


020752 


022635 
022636 


000000 





Sete Se te He 
- 


1$: 


2$: 


3$: 


4$: 


5$: 


UDATS DISK EXERCISER DMACR X04.01 ty ge 12:06:46 PAGE 136 
CLCMAX = CALCULATE THE MAXIMUM WRITEABLE D 


8 13 


AF CLCMAX = CALCULATE THE MAXIMUM WRITEABLE DBN 


CALCULATE THE MAXIMUM DBN NUMBER ALLOWED, AND PLACE IT IN MAX 
FOR BEGIN/END SET GENERATION AND TESTING (BAD BLOCKS 100) on 


PUSH R1 
CLR RO 
R1 
MOV aaa 


BIC #HIBYTE ,R2 
ADD SECCYL RO 


BCC 
Naas * 
DEC ne 
BNE 
“050000, i$ 


MOV ST+DBNCYL R2 
BIC #HIB TE Re 
SUB SECORP A 


BC 48 
“040000,4$ 
DE R1 


BCC 5 
“040000,5$ 

DEC R1 

MOV ROM 

MOV R1 “RAXDBNE1 
POP R1 


RETURN 
“00.0 


SAVE REGISTER 


MOV R1,-(SP) 
CLEAR PRODUCT AREA 


L_ COUNT 
MOVE TO LO ORDER BYTE 
CLEAR UNUSED BITS 
ADD SECTORS/CYL TO TOTAL 
IF NO CARRY, BRANCH 


3 INCREMENT HI WORD 
: 1) wh tan COUNT 


F NO CARRY, BRANCH 


GET NUMBER OF READ ONLY GROUPS 
op a UNUSED BIT 

SUBTRACT NUMBER OF SECTORS/GROUP 
IF NO BORROW, BRANCH 


PROPOGATE BORROW 
DECREMENT COUNT 
IF INCOMPLETE, BRANCH 


; ADJUST FOR DBNS STARTING AT ZERO 
IF - BRANCH 


PROPOGATE BORROW 

SAVE LO ORDER WORD 
SAVE HI ORDER WORD 
RESTORE REGISTERS 


MOV (SP)+,R1 
RETURN TO INSCHR 


SEQ 0781 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 137 
UP SUBUNITS, CHECK TRAC 


seeneeeeee OVERLAY MODULE SCHAR1 = SET UP SUBUNITS, CHECK TRACK/GROUP PARAMETERS 


eeeeeeeeee OVERLAY MODULE SCHARI - SET UP 


020761 


020761 
020761 


004000 
020765 010000 021040 
002000 


021012 


021060 
040000 


_ 
o- oO 
™ 

~ 

&£&o So 
paroers = 


021040 
040000 


--0 


Ss 


te 
23388 


001577 


001576 
001576 


nm 
2022 a 
N 
RAR 
aoe 
SOuMun 


® 
Nm 
oa 
N 


020000 021155 


021060 


»SBTTL 
SERRA AERAAEEEEAAEAEAEEEEEEEEAEEEEREREREAEREREAEEEREEEEREEEEREEEREREEREEEEEREEEE 
pA EARAAEAEAEAEEAEEEAEEEEAEREEEAEREREEAEEEEEEEEEEEEEEEEPOREREAEEEEAAEAEEEEEEEEE 
f RRARAAEAAEAEEEEEEEEAEEEEEREEEEEEEEAAREEEAEREEREEEEEEEEREEREEEEAEEEREREREEAEEEEE 
aaa aaa aaa aaa aaa 


SCHART : 


Be Se Be Se CSe Se Se Se Se Se Oe 


6$: 


SCHAR1 WILL INITILIZE THE 


-ENABL LSB 
PUSH R4 

MOV ge it gr 

ASSUME } Te m,0 
ae : PRONLY 2R1 
“10000, 5$ 
BIT —— oR1 


BEQ 
“010000,6$ 
DEVFTL 28 


4$ 
4S 
BIT #INITW,R1 


000,5$ 
BIC #INITW,R1 
MO RI cRas 


“020000 ,HOSTRQ 


BIT #OCYLS,R1 
BEQ 7$ 
MSSG 5 


ry +4 R4,R1 


CHKBB 
‘Oe 000, 


2050000,48 


C 13 


SUBUNIT PARAMETERS (TRACK/GROUP ONLY) 


SAVE SUBUNIT POINTER 
MOV R4,-(SP) 


; GET SUBUNIT PARAMETERS 


SEE IF READ ONLY 


; IF NOT, BRANCH 


SEE IF WRITC ONLY IS SET TOO 
IF NOT, BRANCH 


SETUP ERROR 
#ER28 ,HRO.04 
MOV #287 F TLDEV*4000. .R2 
MOV Re ne. e 
#.,HRQ.01 
#ERRMC ,HRO.RQ 
BRANCH TO REPORT 


SEE IF INITIAL WRITE 
IF NOT, BRANCH 


NO INITIAL WRITE 
SAVE PARAMETERS 


REPORT NO INITIAL WRITE 
hov #MS4 ,HRO.02 
MOV RO,-(SP) 
MOV U.UNUM(R5) ,HRO.01 
ADD U.SUBU(R5S) ,HRQ.01 
MOV #MESSAG,RO- 


MOV (SP)+,RO 
ieee IN Bs aaa AREA 
REPORT ASSUMPTION 


3 R1_ NOW POINTS TO SUBUNIT DATASTRUCTURE 
: CHECK BAD BLOCKS 


ANY ERRORS ? 
IF SO, BRANCH 


SEQ 0782 


a 


D 13 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 137-1 


SEQ 0783 
weeneetere OVERLAY MODULE SCHAR] = SET UP SUBUNITS, CHECK TRAC 





57 021046 104117 MOV (R1),RO : GET SUBUNIT CHARACTERISTICS 
58 02104 ASSUME $.PARM,0 
59 921047 02207 000040 BIT #BEUSED RO ; SEE IF BEGIN/END SETS WERE USED 
60 021051 1$ : IF SO, SKIP EVERYTHING 
021051 050000 021107 “050000,1$ 
61 021053 CALL — CHKTG : COMPUTE TRACK/GROUP DATABASE 
021053 020000 021346 “020000, CHKTG 
62 021655 115002 TST R2 : SEE IF ANY ERRORS 
63 021056 BEQ 1$ : IF NOT, BRANCH 
021056 010000 021107 “010000,1$ 
64 021069 104650 000063 001600 4$: MOV U. (RS) ,HRO.03 3 GET STARTING UNIT NUMBER 
65 021063 105650 000050 001600 ADD U. SUBU(R5) ,HRO.03 : ADO OFFSET 
66 021066 104307 001575 MOV HRQ.RQ,RO 3 SET UP TO REPORT ERROR 
67 021070 CALL _ _HOSTRQ + REPORT 
021070 020000 001543 *020000,HOSTRO 
021072 101200 000002 003006 BIS #01E,M.PARM ; FLAG INITIALIZATION ERROR 
69 021075 104201 000001 MOV . »R1 + R1 WILL POINT AT SUBUNIT POINTERS 
70 021077 105051 ADD R5, : R1 POINTS AT SUBUNIT POINTERS 
71 021100 105651 000050 ADD U.SUBU(R5).R1 =; R1 POINTS AT POINTER TO SUBUNIT BEING HANDLED 
72 021102 104117 MOV (R1),RO : RO POINTS TO SUBUNIT BEGING HANDLED 
73 021103 104203 100000 MOV #DROP ,R3 : MOVE DROP FLAG TO R3 
74 021105 100173 MOV R3, (RO) : DROP THIS SUBUNIT 
75 021106 ASSUME S.PARM,0 
76 021106 114002 CLR : NO ERRORS 
77 021107 104653 000050 1$: MOV U.SUBU(RS),R3  ; GET SUBUNIT OFFSET 
78 021111 115403 INC R3 : NEXT SUBUNIT 
79 021112 100653 000050 MOV R3,U.SUBU(RS) =: SAVE 
80 031114 106203 000003 CMP #3.R3 : SEE IF VALID OFFSET 
81 021116 BCS 2 : IF NOT, BRANCH 
021116 040000 021122 *040000,.+3 
021120 000000 021135 “00,23 
82 021122 105203 000001 ADD #U.SUBP,R3 ; WILL POINT TO NEXT SUBUNIT POINTER 
83 021124 105053 ADD : ADD POINTER TO UNIT DATABASE 
84 021125 104133 MOV (R3),R3 : GET POINTER 
85 021126 BMI 1$ 3 IF NO SUBUNIT, BRANCH 
021126 070000 021107 “070000, 1$ 
86 021130 104131 MOV (R3),R1 : GET SUBUNIT PARAMETERS 
87 021131 ASSUME $.PARM,0 
88 021131 BMI 1$ : IF DROPPED, BRANCH 
021131 070000 021107 “070000, 1$ 
89 021133 ASSUME DROP,100000 
90 021133 BR $ : EXIT 
021133 021140 “00,22 
91 021135 114003 23$: CLR R3 : NO SUBUNITS 
92 021136 100653 000050 MOV R3,U.SUBU(RS) =: SAVE 
93 021140 115003 22$: TST R3 : ANY? 
94 021141 BNE 2$ 3 IF SO, BRANCH 
021141 050000 021147 “050000, 2$ 
95 021143 104207 021707 MOV #GETSER,RO : GETSER NEXT MODULE 
96 021145 aR 3$ > EXIT 
021145 021151 *00,3$ 
97 021147 104207 017514 38: MOV #SCHARO,RO ; GO BACK TO FIRST CHARACTERISTICS MODULE 
98 021151 114001 $: CLR R1 : IMMIDATE CALL 
99 02115 PoP RG : RESTORE 
100 esite anes BR JMPRET RETURN TO SEQUENCER wae Soe 
021153 000000 003746 “00, JMPRET 


-OO Oe Dr ee eee 
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weeereeere OVERLAY MODULE SCHAR] = SET UP SUBUNITS, CHECK TRAC 


101 -DSABL LSB 
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CHKBB = CHECK THE BAD BLOCKS FOR ERRO 


1 .SBTTL CHKBB = CHECK THE BAD BLOCKS FOR ERRORS 
g 021155 CHKBB: 
i ; CHECK THE BAD BLOCKS TO ASSURE THEY DON'T EXCEED THE MAXIMUM BLOCK 
2 3 NUMBER 
7 021155 PUSH = RS : SAVE THE REGISTERS 
021155 100465 MOV R5,=<(SP) 
8 021156 104613 000012 MOV $.BADP(R1),R3 ; GET POINTER TO BAD BLOCKS 
9 021160 BEQ 3 : IF NO BAD BLOCKS, BRANCH 
021160 010000 021342 ~010000, 5$ 
10 021162 104632 000001 18: 1(R3),R2 : IS THIS THE LAST BAD BLOCK? 
11 021164 BMI 2$ : IF SO, BRANCH 
021164 070000 021223 ~070000, 2$ 
12 021766 104032 R3,R2 : R2 WILL POINT TO NEXT BAD BLOCK 
13 021167 105202 000002 ADD #2,R2 : R2 POINTS TO NEXT BAD BLOCK 
14 021171 CBB2 + COMPARE 
021171 020000 022773 £56000, CBB2 
15 021173 7$ ; IF ERROR, BRANCH 
021173 040000 021201 “040000,7$ 
16 021175 105203 000002 ADD #2,R3 ; POINT TO NEXT BAD BLOCK 
17 021177 BR 1$ + LOOP 
021177 000000 021162 “00,1$ 
18 021201 7$: DEVFTL 53,#SER20 : DUPLICATE BAD BLOCKS 
021201 104200 003465 001601 MOV #ERS3,HRO.04 
021204 104200 004047 001602 MOV #SER20,HRO.05 
021207 104202 047725 MOV #23: FTLDEVS4000. .R2 
021211 104020 001577 MOV R2, HRQ.02 
021213 104200 021213 001576 MOV 0.01 
021216 104200 001575 MOV PERRMC_HRO.RO 
19 021221 BR 6$ : BRANCH 
021221 000000 021343 “00,6$ 
20 021223 104117 2$: MOV (R1),RO : GET SUBUNIT PARAMETERS 
21 021224 ASSUME S.PARM,0 + ASSUME THAT S.PARM IS ZERO 
22 021224 102207 020000 BIT #OCYLS.RO : SEE IF DIAGNOSTIC CYLINDERS IN USE 
23 021226 3 : IF SO, BRAN 
021226 050000 021303 #950000, 3$ 
24 021230 104612 000007 S.SCHR(R1),R2  ; R2 POINTS TO SUBUNIT CHARACTERISTICS 
25 021252 105202 000012 ADD #LBNH ST,R2- : Re 2 POINTS TO NUMBER OF LBNS IN HOST AREA 
021234 020000 022773 <050000, ¢BB> 
27 021236 BCC 8s : IF ERROR, BRANCH 
021236 040000 021242 *040000,8$ 
28 021240 5$ : EXIT WITH NO ERROR 
021240 000000 021342 “00,5$ 
29 021242 104125 8$: MOV (R2),R5 : GET LO ORDER MAX LBN 
30 021243 107205 000001 SUB #15 : DECREMENT COUNT 
31 021245 100125 MOV R5.(R2) : SAVE 
32 021246 BCC 93° : IF NO CARRY, BRANCH 
021246 040000 021255 “040000,9$ 
33 021250 104625 000001 MOV 1cR2), RS : GET HI ORDER 
34 021252 117405 DEC : PROPOGATE CARRY 
35 021253 100625 000001 MOV Re (R2) + SAVE 
36 021255 9$: DEVFTL Ba caSER20,(R2)#" (RODS : BAD BLOCK > MAXIMUM 
021255 104200 003502 001601 MOV #ERS4 HRO.04 
021260 104200 004047 001602 MOV #SER20, HRO.05 
021263 104220 001603 MOV (R2)+,HRO.06 





021343 
022635 
022773 
021342 


021343 


000000 


3$: 


4$: 


5$: 
6$: 





UDATS oy tg? eH DMACR X04.01 23-AUG-82 12:06:46 PAGE 138-1 
CHKBB CHECK THE BAD BLOCKS FOR ERRORS 


BR 6$ 
“00.6$ 
MOV 


R3,R2 
MOV #MAXDBN,R3 
CALL CBB 
* : ieeede * we 
BCC 5$ 


“040000,5 


R 6$ 
“00.68 

LR R2 
POP R5 


RETURN 
“00.0 


; ; IF NO ERROR, BRANCH 
DEVFTL 54,<#SER20,MAXDBN,MAXDBN¢1> ; oo aecrgt “fl 


MOV 
; BRANCH TO EXIT 


3 ERRORS 
: RESTORE THE REGISTERES 
; RETURN TO INSCHR 


SEQ 0786 


(R2) ,HRO.07 
tzvimacge, 0002 


. HRO.01 
PERRPICLHRO.RO 


ee POINTS TO LAS BAD BLOCK 
; R3 POINTS TO MAXIMUM DBN 
; COMPARE 


HRQ.04 
seeker HRO.05S 
Ma 


-06 
MAXDBN+1 ,HRO.07 
#54! F TLDEV+4000. .R2 
Re. HRQ.02 


#.,HRQ.01 
#ERRMC ,HRQ.RQ 


MOV (SP)+,R5 


CHKTG 
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~ CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN’ 
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022642 
000017 


021354 


021663 


021663 


001601 
oo lets 
00160 


Sete Se Se Sete tees 


tes CHKTG = CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN'S 


i THE TRACKS/GROUPS TO SECTOR COUNTS, AND FIND THE MAXIMUM 


OOPS’ THAT 


SETUP CAN RUN THROUGH TO TEST ALL 


NUMBE 
TRACKS ON THE TESTED CYLINDERS ONLY 


FIRST COPY THE TRACKS/GROUPS TO A 


PUSH RS : 
MOV #TGS,RO : 
MOV #S.TGSS,R2 : 
ADD R1,R2 3 
MOV (R3)+,R5 : 
MOV R5, (RO)+ : 
BPL 1$ 3 
“030000,1$ 

NOW MOVE THE STARTING CYLINDER TO 
MOV S$. TGOF+1(R1),R2 : 


BIC #*CHBHINB,R2 
MOV R2,S.TGOF+1(R1) 


TEMP LOCATION 
SAVE R5 


MOV 
POINT TO TEMPORARY STORAGE 
R2 WILL POINT TO T/G LIS 


R2 POINTS TO T/G LIST 
GET WORD 

SAVE IN TEMP LOCATION 
COPY ENTIRE LIST 


THE INITIAL OFFSET AREA 


GET HI ORDER STARTING CYL 
; oe UNUSED BITS 


CHECK THAT THE MAXIMUM TRACK/GROUP IS VALID 


MOV (R1),RO ; 
ASSUME $.PARM,0 3 
MOV S.SCHR(R4) ,R2 : 
BIT #TRACKS,RO : 


oes 
GRPCYL(R2) ,RO : 
GRPS$, TGS 


TRKGRP(R2) ,RO ; 
#TRK$, TGS : 
BIC #HIBYTE ,RO : 
#TGS ,R2 ; 
(R2)+,R3 : 
BPL 4 3 
*030000,4$ 

BIC #HIBYTE ,R3 : 
CMP R3,RO 


BMI 3 
“070000. 38 
DEVFTL 58,<#SER20,1G$,RO> : 





; GET SUBUNIT PARAMETERS 
; ASSUME THAT S.PARM IS ZERO 

R2 POINTS TO SUBUNIT CH 
; SEE_IF PROCESSING GROUP 
; IF TRACKS, BRANCH 


GET GROUPS PER CYLINDER 


PRINT ‘GROUP® IF ERROR 
BRANCH 


; GET TRACKS PER GROUP 
; PRINT ‘TRACK’ IF ERROR 


CLEAR UNUSED BITS 


; POINT TO TRACK/GROUP LIST 
; i IF THIS WORD IS END-OF-LIST 


NOT, BRANCH 


CLEAR EOL FLAG 
SEE IF WITHIN LIMITS 
IF SO, BRANCH 


; ADJUST T/G MAX FOR O-N 
HRQ.04 


REPORT ERROR 
MOV 


R5,-(SP) 
LOCATION 


AR 
S OR TRACKS 


#ERSB 
MOV #SER20,HRO.0S 


MOV TG$,HRO.06 

RO, HRO.07 
MOV #58! F TLDEV+4000. .R2 
MOV R2,HRO.02 
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CHKTG = CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN’ 


021445 104200 021445 001576 
021450 104200 060014 001575 

46 021453 BR 17$ 
021453 000000 021660 “00,178 


113 


: EXIT 


#.,HRQ.01 
#ERRMC ,HRO.RO 


SEQ 0788 
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CHKTG = CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN’ 


1 3 
4 ; NOW COMPUTE THE NUMBER OF SECTORS FROM THE START OF THE CYLINDER/GROUP 
; : TO THE FIRST TRACK/GROUP TO TEST 
5 021455 104207 022642 §$: MOV #TGS,RO : RO POINTS TO TRACK/GROUP LIS 
6 021457 104203 000015 MOV #8. 1GOF .R3 : R3 WILL POINT TO T/G INITIAL vorrser 
7 021461 105013 ADD R1_R + R3 POINTS TO T/G INITIAL OFFSET 
8 021462 104172 MOV (RO) ,R2 : GET FIRST T/G 
9 021463 103202 177400 BIC #HIBVTE, R2 : CLEAR UNUSED BITS 
10 021465 OMPDP : COMPUTE SECTORS FROM CYL TO INIT T/G 
021465 020000 021664 “26000, COMPDP 
11 021467 105135 (R3) ,R5 : ADD TO INITIAL OFFSET 
12 021470 100235 mov R5,(R3)¢ + MOV K 
13 021471 BCC 63" : IF NO CARRY, BRANCH 
021471 040000 021476 540000, 6$ 
14 021473 104135 (R3) ,R5 : GET HI ORDER WORD 
15 021474 115405 iN t RS : PROPOGATE CARRY 
16 021475 100135 MOV R5, (R3) : SAVE 
7 021476 115403 6$: INC R3- : POINT TO NEXT AREA 
19 : COMPUE HOW MANY SECTORS FROM THE LAST TRACK/GROUP TO TEST TO THE 
30 ; NEXT TRACK/GROUP TO TEST 
22 021477 104174 7$: mov (RO) .R4 : GET TRACK/GROUP 
23 021500 ; IF EOL, BRANCH 
021500 070000 021545 2070000, 8s 
24 021502 104672 000001 MOV 1(RO),R2 : GET NEXT TRACK 
33 31304 103202 177400 BIC #HIBYTER2 ; CLEAR EOL FLAG, IF A 
6 021506 10727 SUB (RO)+*,R2 : GET HOW MANY T/G'S BETWEEN LAST/NEXT 
27 021507 BEQ 20$ : IF ZERO, ERROR 
021507 010000 021513 “010000, 20$ 
28 021511 BP : 188 : SHOULD BE AT LEAST 1 T/G BETWEEN 
021511 030000 021540 “030000, 18$ 
29 021513 20$:  DEVFTL 59,<#SER20,TG$> : REPORT ERROR 
021513 104200 003750 001601 MOV #ERS9,HRO. 04 
021516 104200 004047 001602 MOV #SER20,HRO.05 
021521 104300 021663 001603 MOV TGS-HRG. 
021524 104202 047733 MOV #59! FTLDEV+4000. ,R2 
021526 104020 001577 MOV R2,HRQ.02 
021530 104200 021530 001576 MOV . .HRO.01 
021533 104200 001575 MOV #ERRMC ,HRO.RO 
30 021536 BR 17$ : EXIT 
021536 000000 021660 “00,17 
31 021540 18$: CALL —-COMPDP : COMPUTE HOW MANY SECTORS TO NEXT T/G 
021540 020000 021664 “020000, COMPDP 
32 021542 100235 MOV RS, (R3)¢ : STORE THE OFFSET 
33 02154 BR 7$ : LOOP 
- 021543 000000 021477 “00,7$ 
3 ; NOW COMPUTE HOW MANY SECTORS FROM THE LAST T/G TO TEST TO THE FIRST 
37 021545 104115 gs: MOV (R1),RS : GET SUBUNIT PARAMETERS 
38 021546 ASSUME $.PARM,O : ASSUME THAT S.PARM Is ZERO 
39 021546 104612 000007 MOV 5. SCHR(R1) ,R2 : R2 POINTS TO SUBUNIT CHAR 
40 021550 102205 000020 BIT #TRACKS,RS : Ste. IF USING GROUPS OR TRACKS 
41 021552 BNE $ : IF TRACKS, BRANCH 
021552 050000 021560 “050000, 9$ 





*g 021554 
4 os i226 


52 021575 


55 
57 021576 
600 


104622 


g 
io 
oor 
rorore 


el ee 


om 
os 


b> +4 
eus 
Ane 
nN 
MEn 


_ S8Ss8s5. 
PP out 


Saat BIO atte eae td od 
RSE 
uw 
™ 


ar 
NMUNO 
$ 


000002 
02156 
177400 


021664 


000013 


000002 
000003 


000004 


021623 
000004 


021627 
000001 


021635 
021653 
021644 


021644 
021653 
000001 


021613 


021613 


9$: 


10$: 


13$: 


14$: 


15$: 


11$: 


16$: 


MOV 
BR 

~ ° 
MOV 
ADD 
BIC 
BIC 
eae 


CALL 
— 


CLR 
MOV 
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CHKTG = CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN’ 


GRPCYL(R2) ,R2 
108 


TRKGRP(R2) ,R2 


#HIBYTE ,R2 
#HIBYTE RG 
R4,R 


COMPDP 
COMPDP 
RS, (R3)+ 


R5,(R3)+ 


SEQ 0790 
GET GROUPS/CYL 
BRANCH 
GET TRACKS/GROUP 


BITS 
FIND HOW MANY T/G'S TO SKIP 
COMPUTE HOW MANY SECTORS 


: STORE IN LIST 


SET co MARKING EOL 


; STORE 


SEE HOW MANY TIMES THE SETUP ROUTINE CAN GO THROUGH THE LIST 
EXCEEDING THE MAXIMUM SECTOR NUMBER 


NOW 
WITHOUT 


m «aaa 
ADD 


“040000, 
INC 


BR 
“00,138 
POP 


MOV 





#S.BESS,RO 
R1,RO 


S. TGOF=$.BESS(RO) ,R4 
S.TGOF-S. “BESS+#1(RO) RS 


R2 


R3 
#S.TGSS-S.BESS,R1 


R4,=(SP) 
(R1)+,R4 


1 
14$ 


#s. ee R1 


~ 
ow S & So 
UW-— te — © 
vw 

> 2 _ = 
a 

ee 


——- Ft OnUIUMU 
PP WFD MH 
i=) 
— 
— 
=z 
w 


13$ 

R3 

13$ 

R1 

R2, (RO) 


Pete Se Be Se Se Be 


; RO WILL POINT TO THE MAX SEC NUMBER 


RO POINTS TO THE MAX SECTOR NUMBER 
R4 HAS LO ORDER INITIAL OFFSET 
= ey Fae ORDER INITIAL OFFSET 


MOV R1,-(SP) 
CLEAR LO ORDER MAX COUNT 
shee HI co" MAX COUNT 
LL TO SECTOR OFFSET AREA 
RI POINTS 10 SECTOR OFFSET AREA 
SAVE LO ORDER TOTAL ON STACK 
GET LO ORDER SECTOR OFFSET 
IF NOT EOL, BRANCH 


R1 WILL POINT TO START OF OFFSET LIST 
R1 POINTS My START OF OFFSET LIST 

GET NEW OFFSET 

ADD TO LOW ORDER SECTOR TOTAL 

IF NO CARRY, BRANCH 


: PROPOGATE CARRY 


SEE _ IF MAX EXCEEDED 
IF SO, BRANCH 

IF YOUR SURE IT*S OK, BRANCH 
SEE IF MAX EXCEEDED 

IF SO, BRANCH 

ADD 1 TO COUNT 

IF NO CARRY, BRANCH 
PROPOGATE CARRY 

BRANCH 


RESTORE R1 
MOV ia R1 
STORE LOW ORDER MAXIMUM COUNT 
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CHKTG = CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN° 


021655 100673 000001 MOV R3,1(RO) , stone HI MAXIMUM COUNT 
87 021657 114002 CLR Re ; CLEAR R2 
88 021660 17$: POP R5 ; RESTORE 

021660 104265 MOV (SP)+,R5 
89 021661 RETURN 

021661 000000 000000 “00,0 


90 
91 021663 TG$: -BLKw 


oO 
~ 
— 


~ 
rrorr 
= 


oOoooooo 


ee ee ee 
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— 


oooooooo°oo 
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21705 


050000 
105305 


000000 
105305 
117402 
030000 


000000 


021702 
000020 


021700 
022640 


021702 
022637 
021670 
000000 
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COMPDP = CALCULATE SECTORS/TRACKS OR SECTORS/GROUPS 


M 13 
SEQ 0792 


aeeres COMPDP = CALCULATE SECTORS/TRACKS OR SECTORS/GROUPS 


1$: 


2$: 
3$: 


COMPUTE sem SECTORS ARE IN THE NUMBER OF TRACKS OR GROUPS 


PASSED IN 
CLR R5 
MOV (R 
ASSUME S. 
BR 3$ 

st 3$ 


#TRACKS,R4 


BNE 
“050000,2$ 


ADD SECGRP,R5S 
BR 3$ 


*00,3$ 
ADD SECTRK,RS 
DEC R2 


BPL 1$ 
“030000,1$ 
RETURN 


: CLEAR RUNNING TOTAL 

: GET SUBUNIT PARAMETERS 

3 ASSUME THAT S.PARM IS ZERO 
: SEE IF IMMIDATE EXIT 


: SEE_IF USING GROUPS OR TRACKS 
: IF TRACKS, BRANCH 


3 ADD SECTORS/GROUP TO RUNNING TOTAL 
BRANCH 

3 ADD SECTORS/TRACK TO RUNNING TOTAL 

: DECREMENT COUNT 

: IF INCOMPLETE, BRANCH 


: RETURN TO CALLING PROGRAM 
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eeeeerente OVERLAY MODULE GETSER = GET THE HDA AND DRIVE SERIA 


1 
9 
10 
11 
12 
13 
is 
15 
he 021707 


Ms 
32 021707 
707 


021732 
3 


021733 
50 021735 


PAPA AAAAII 
WOWNOUESWR— 
oS oS 
~m 
ae 
~“ 
w 
— 


ane 
wis 


SALAVIS 
o 


100464 


104274 
070000 
104203 
100643 


100467 
100461 


rw +h $4 ~m 
aS So 
ao 
oa 
oO 


SreSere 
es 
w Ss IS3 NO 
-—-NNONNOON 


000063 022416 
000063 
000003 
000001 


022377 
001750 
000001 


is Fah 


002756 
002757 


75 
000007 


-SBTTL 


eeeenweeee OVERLAY MODULE GETSER = GET THE HDA AND DRIVE SERIAL NUMBER 


FERRER ERE EERE AREER EEE ERE EERE EEEEEEREREEREAEEEEEREEERAEEEEREREEREEEEER EE 
SeRRRRERERERE REE ER EERE EEE REEEEERRRREREREREREREEHREREEERERE EEE eEREEHHEREREEEe 


Be Se Se Cjte Se Se Ge Ge Se 


SEERA EEE EAAAAAAAEEAAEAAAAAEERAEAEAEAAEEEREEREREREREEEEEE 
PARAAREALALALRRAAAALALALAALAAAAASLAL ALAA EL ELE SESE ASE SRST EERE RRR RRR RRR SE 


GETSER: 
GET HDA AND DRIVE SERIAL NUMBER (IF POSSIBLE) AND RETURN TO HOST 
.ENABL LSB 
PUSH RG ; SAVE SUBUNIT POINTER 
MOV R4,=(SP) 
MOV U.UNUM(RS) , SUNIT : SAVE UNIT NUMBER 
MOV U.UNUM(R5).R : R17 HAS UNIT NUMBER 
ADD #3,R1 : R1 HAS LAST UNIT NUMBER 
MOV #U.SUBP, RO + RO WILL POINT TO SUBUNIT POINTERS 
ADD > RO POINTS TO SUBUNIT POINTERS 
11$: MOV (RO)+ ,R4 + R4 POINTS TO SUBUNIT 
BMI 12$ : IF tO SUBUNIT, BRANCH 
“070000, 12$ 
MOV  #1000.,R3 : INITILIZE SEEK COUNTER 
MOV R3,S. SEEK (RA) : SAVE SEEK COUNTER 
PUSH _—<RO,R + SAVE POINTER AND COUNT 
MOV RO,=(SP) 
MOV R1.=-(SP) 
.SBTTL REPSER = FIND AND REPORT DRIVE AND HDA SERIAL NUMBER 
:REPSER 
: FIND AND REPORT DRIVE AND HDA SERIAL NUMBER. IF ERROR OCCURRS, 
: REPORT SERIAL NUMBER AS ZERO. NO ERROR IS RETURNED FROM THIS ROUTINE 
BULDUM : BUILD DUMMY SDI BLOCK 
“926000, BULDUM 
HR(R4),R1 : R1 POINTS TO SUBUNIT CHARACTERISTICS 
MOV LBNCYL(R1) .STACYL + MOVE LO STARTING C 
MOV LBNCYL#1(R1),STACYL*1 : MOVE HI STARTING sit 
MOV RBNTRK(R1) RO : GET RBNS/TRACK 
BIC #HIBYTE !200,R0 + CLEAR UNUSED BITS 
ADD LBNTRK(R1),RO : ADD LBNS/TR 
BIC #HIBYTE,RO : CLEAR UNUSED BITS 
MOV RO,LRDTRK : MOVE T 0, SECTORS PER TRACK 
CLR RBNFLG + NO RBN FLAG 
MOV U.COPY(RS) ,RO : GET NUMBER OF X8N COPIES 
ADD RO,R : DOUB 
MOV RO, SERRTY : RETRY 2 TIMES THE NUMBER OF COPIES 
1$: CLR RO : TO SET UP COPIES AND SETUP CALC 
MOV RO,U.CCOP(RS) > SAV 
MOY S$. SCHR(R4) RI : GET POINTER TO SUBUNIT CHARACTERISTICS 
CLR CURBN > PUT LO ORDER XBN IN CURBN 
CLR CURBNe! > PUT HI ORDER XBN IN CURBNe1 
2s: MOV CALCSC,RO : POINT TO CALCULATION AREA 
mov ss -SCHR(RG) RI ; POINT TO SUBUNIT CHARACTERISTICS 
CALL RECOVR : CLEAR ALL POSSIBLE ERRORS 


| 
| 
| 


REPSER 





82 022035 
83 0 

0 
89 022051 


90 O56036 


92 022056 
93 assoee 


o 


S82 RSRE SSSeeee 
So 
OW = NNYIWeA 


a ae eed aed wd oak a 


ay 
> = 
so - ©& 


—— 
hor 


020000 
115002 


104203 


004505 
022257 
002415 
001670 
022257 
002764 002433 

002434 
002435 


000011 
000005 


022047 


022257 
100000 02242 
002760 02242 


3$: 
4$: 


5$: 


Ta 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06: ms PAGE 142-1 “ 
= FIND AND REPORT DRIVE AND HDA SERIAL NUMBER 


vo 
R 


8s 
MOV CYL,LOCYL 
MOV CYL+1,LOCYL+1 
MOV GROUP, LOCYL+2 
MOV WR. SEKRS 


CALL AL 
“020000, TALK 

TST R2 

BNE 

“050000,8$ 

MOV U.MSTO(RS) RI 
MOV R1,U. TIMH(RS) 
CLR R1 

MOV R1,U.T IML (R5) 
MOV #200..R AR 

DEC 

BNE ye 
*050000,4$ 

CALL RTDSL 
“020000,RTDSL 

TST R2 

BNE 8$ 
“050000,8$ 

TST R1 

BMI 5 

“070000,5$ 

ASSUME RWRDY, 100000 
CLR HRQ.02 

CLR HRQ.05 

CLR RQ.04 

MOV SUNiT HRQ.01 
MOV #T4SOFT,RO 


HOSTRQ 
“036000, HOSTRQ 
MOV Us TIML(RS) ,R1 
SUB oR 
MOV RI U.TIML (RS) 


BCC 
ae’ 3$ 
U.TIMH(RS) ,R1 


at R1,U. TIMH(RS) 
“040000, 3$ 
BR 8$ 


“00,8$ 
MOV #RSTOP, SERCHN+RW.CPT 
MOV CURBN, SERCHN¢RW.LOW 


SEE IF Sean OCCURRED 
IF SO, BRANCH 


SET UP FOR RECALIBRATE 
RECALIBRATE DRIVE 


: 1s IF ERROR OCCURRED 


F SO, BRANCH 


MOVE ie CYL TO SEEK COMMAND 
MOVE TO SEEK COMMAND 

MOVE GROUP TO SEEK COMMAND 
POINT TO SEEK COMMAND 

SEND SEEK 


; SEE IF ERROR OCCURRED 
: IF SO, BRANCH 


i SEEK TIMEOUT 
FOR LOW ORDER TIMEOUT 
INNER LOOP TIMEOUT 
DECREMENT INNER COUNTER 
IF UNEXPIRED, BRANCH 

GET REAL TIME DRIVE STATE 


SEE IF ERROR OCCURRED 
IF SO, BRANCH 


SEE IF READ/WRITE READY IS ASSERTED 
IF SO, BRANCH 
SETUP TO TALK TO HOST 


O HOST 
MOVE UNIT MORBER INTO SEND BUFFER 
MOVE REQUEST NUMBER TO RO 

TELL THE HOST I°M ALIVE 


GET TIMEOUT 
DECREMENT TIMEOUT 


SAV 
LOOP IF INCOMPLETE 


GET HI ORDER TIMEOUT 
DECREMENT TIMEOUT 


SAVE 
IF TIMOUT UNEXPIRED, BRANCH 
ERROR 


MOVE LAST tt FLAG TO CHAIN 
MOVE TO OUTP 





o 
— + — _» 





R1 POINTS TO SUBUNIT CHARACTERISTICS 
GET HI XBN BITS 
ROTATE TO CORP©CT POSITION 


ANN 
Geet bee at 
or 
wa Be bee 
222 


E PO 
ROTATE TO CORRECT PO 
CLEAR UNUSED BITS 


MAKE A XBN 
SET IN HI XBN BITS 


MOVE TRACK i CHAIN 
4 IN REAL TIME 


O CHAIN 
OR SECTOR OR INDEX 
ie IF ERROR OCCURRED 
F SO, BRANCH 


; READ A 512 BYTE SECTOR 
; READ THE SECTOR 
; SEE IF XBN HEADER COMPARE FAILURE 


IF SO, TRY NEXT COPY 


SEE IF AN ERROR OCCURRED 
IF SO, BRANCH 


SEE IF BUFFER HAS AN ECC ERROR 
IF NOT, BRANCH 


POINT TO CHAIN 
CORRECT THE BUFFER 
SEE IF ERROR 

IF SO, BRANCH 


; SEE IF CORRECTIONS EXCEED THRESHOLD 


| C 14 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12: by H ms PAGE 142-2 
REPSER = FIND AND REPORT DRIVE AND HDA SERIAL NUMB 
5 022131 104641 MOV S.SCHR(R4) RI 
2 0 3133 104611 $0002 MOV HIXBN(R1),R1 
27 022135 110601 ROR R1 
28 055138 110601 ROR R1 
29 022137 110601 ROR R1 
30 022140 110601 ROR 1 
131 922141 103201 170377 BIC #HBLONB ,R1 
13§ 022143 934 120000 BIS #HD.XBN,R1 
135 022145 105301 002761 ADD CURBN+1,R1 
134 022147 104010 022424 MOV R1,SERCHN+RW.HI 
135 022151 104300 002767 022425 MOV TRACK, SERCHN¢RW. CMD 
136 022154 101200 013400 022425 BIS #RREAL , SERCHN¢RW. CMD 
137 022157 14042 002772 022426 MOV #DUMSD I, SERCHN+RW. SDI 
138 022162 10465 5 MOV U.MASK KcRS) ),R2 
139 022764 104207 022420 MOV #SERCHN,R 
140 022166 060012 XFC WAITSI 
141 022167 115001 TST R1 
142 022170 BNE 
022170 050000 022257 “050000,8$ 
146 022172 104202 000400 MOV “ASECSI2, R2 
150 022174 XFC 
151 022175 106201 000004 cMP Pact 
152 022177 BEQ 7$ 
022177 010000 022233 “010000,7$ 
153 022201 115001 TST R1 
154 022202 BNE 
022202 050000 022257 “050000, 8$ 
163 O5550e 102200 010000 022420 BIT WECCFLG,SERCHN¢RW.CPT =; 
167 022207 BEQ 6$ 
022207 010000 022223 *01 -6$ 
168 022211 104207 022420 MOV #SERCHN,RO 
169 022213 0015 XFC ECC 
170 022214 115001 | R1 
171 022215 a 
022215 050000 022233 #050000, 7 
1% 022217 106657 000032 U. sEccT(RS), RO 
ie) ; NOTE: I ALLOW 1 ERROR MORE THAN 
176 022221 BMI 7$ 
022221 0000 022233 “070000,7$ 
177 022223 104207 023057 6$: MOV #SERSEC,RO 
178 022225 CALL ate! 
022225 020000 001640 x_ CMPE 
179 022227 106020 023457 R2, SERSEC#BF. EDC 
180 022231 
022231 010000 022275 “010000,9$ 
181 022233 104651 7$: MOV U.CCOP(RS) ,R1 
182 022235 115401 INC R1 
183 022236 100651 000060 MOV R1,U.CCOP(RS) 
184 022240 106651 000057 CMP Ye copycRs) R1 
185 022242 BEQ 
022242 010000 022257 yee es 
186 022244 104647 900007 S.SCHR(R4) ,RO 
187 022246 105670 000010 002760 ADD FCTSIZ(RO) .CURBN 
188 022251 BCC 2s 
022251 040000 021777 “040000, 2$ 


SPEC*D ECC THRESHOLD 
; IF SO, BRANCH 


RO POINTS TO BUFFER 
COMPUTE EDC OVER BUFFER 


iF IF EDC'S MATCH 
GET one COPY NUMBER 
oe COUNT 


E 
SEE IF ALL COPIES TRIED 
IF SO, BRANCH 


; R1 POINTS TO SUBUNIT CHARACTERISTICS 


ADD TO CURRENT BN 
CALCULATE AND TRY NEXT SECTOR 


SEQ 0795 





REPSER 


- Ff 
0222 
OS$5 
022 
0222 
0222 
0222 


—a oS SS — ey —— 
BLSSEA SL 8S ” 


022300 
203 022302 
204 022303 
205 022303 
206 022305 


0 5 
207 Oceano 


POPVPONINYNPININYNNoNy 
SNES ETS 
i SE SSS 


Soooooooooeoo 


373 

222 022375 
022375 

376 

223 022377 


227 099408 
228 022407 


IND AND REPORT 


SSeaxs 


S 


3S RRRKEK 
3 


SSS ID ek Hs 4 a 


SSSSSSsss 


NRWWWWNNWWWDD 
N 


RRRRRRRKK 


So 


IVE 
002761 


021777 
022417 


021766 


022416 
022416 


021722 





023057 
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UDAT4 DISK EXERCISER ont oa tf 01 23-AUG-82 12: Me ms PAGE 142-3 
AND HDA SERIAL NUMB 


INC —- CURBN#1 ; 
BR 2s : 
“00,28 

DEC’ — SERRTY ; 
BNE _ i$ ; 
050000, 1$ 


COULDN'T GET THE SERIAL NUMBER -- 


CLR seneeces 3 
CLR SERSEC+ $ 
CLR SERSEC+4 3 
CLR SERSEC+5 : 
10$ 3 
“00,10$ 
MP > a SERSEC 
“010000, 10$ 
s hy $ 


“050000, 10$ 
DEVFTL °21,SERSEC 


MOV SUNIT ,HRQ.03 
MOV HRQ.RQ,RO 


CALL HOSTRQ 
“020000, HOSTRO 
BIS #01 


MOV SERSE C5, H 24 RQ.08 


< 

~ 

m 

P+] 

4] 

m 

o 

Vv > 
nm z2v 

Ss 

=x 

z@ 

©o 

e 

oS 

uw 
Tere TELE TE TETE TEE TE 


L HOST Ra” 
“020000 ,HOSTRQ 
POP <R1,RO 


INC SUNIT : 
CAP R1,SUNIT ; 
*040000,11$ , 
POP R4 : 
CLR R2 : 
CLR R1 : 





; eS pa CARRY 


; 1S caus RETRY COUNT 


F UNEXHAUSTED, BRANCH 


REPORT 0°S AND 512 DRIVE 


; ZERO HDA SER # 
; ZERO HDA SER # 


; ASSUME cre DRIVE 
: iF IF aes Aa MODE DRIVE 


F SO, B 


; GET UNIT PARAMETERS 


3 SEE IF USING THE DIAGNOSTIC AREA 
: IF SO, OK TO TEST, BRANCH 


SET UP REPORT 
MOV #ER21 oe. 04 
MOV SERSEC ,HRQ.05 
MOV #211 FTLDEV#4000. ,R2 
MOV R2,HRQ.02 


#ERRMC ,HRO.RO 
MOVE UNIT NUMBER TO MESSAGE 
GET REQUEST NUMBER 


: REPORT TO HOST 
; DO NOT TEST 


DRI ERIAL NUMBER TO BUFFER 
MOVE DRIVE SERIAL NUMBER TO BUFFER 
MOVE DRIVE SERIAL NUMBER TO BUFFER 
MOVE HDA SERIAL NUMBER TO BUFFER 
MOVE HDA SERIAL NUMBER T ph 
MOVE HDA SERIAL NUMBER TO BUF 


; 0 FER 
; MOVE HDA SERIAL NUMBER TO BUFFER 


MOVE IN REQUEST 


; REPORT 


RESTORE POINTER AND COUNT 
MOV (SP)+,R1 


ment (SP) +-RO 
se er ACTIVE S$ 
SEE IF ALL SUBUNITS RE REPORTED 
IF NOT, BRANCH 


RESTORE SUBUNIT POINTER 
MOV (SP)+,R4 


NO ERRORS 
IMMIDATE CALL 








UDATS DISK EXERCISER DMACR.X04.01 23-AUG=82 12:06:46 PAGE 1424 SEQ 0797 


REPSER = FIND AND REPORT DRIVE AND HDA SERIAL NUMBER 
229 022410 104207 022427 ome #INITD,RO : INITD NEXT ROUTINE 
230 022412 DSABLE : DISABLE ERROR RECOVERY 
022412 020000 005046 «056000, DSABLE - 
231 022414 BR JMPRET : RETURN TO SEQUENCER 
022414 000000 003746 “00, JMPRET 


232 -DSABL LSB 


—— —— Ce ee - ———S—™ —— a 


UDATS DISK EXERCISER 
ASSOCIATED VARIABLES 


— oe es 

DONO UNSWOU SW 
ooooc[eo oo 
tathattortartartor =o 


000000 
000000 


DMACR X 
FOR GET 





. SBTTL 
SUNIT: 
SERRTY: 


SERCHN: 


1_23=AUG=82 12:06:46 PAGE 143 
Ting THE HDA SERIAL NUMBER 


o-* me y VARIABLES FOR GETTING THE HDA SERIAL NUMBER 
WORD 0 : THE ACTIVE UNIT NUMBER 
-WORD 0 ; RETRY COUNT 

3 THE CHAIN FOR READING SECTOR 0 (RCT) 

-WORD 0 

-WOR 0 

«WORD SERSEC ; POINTER TO THE SECTOR 
«WORD 0 

-WORD 0 

-WORD 0 

WORD 0 


eC ee 
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UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 144 SEQ 0799 
eeeseeeees OVERLAY MODULE INITD = INITILIZE THE DRIVE PARAMET 


1 -SBTTL ‘*eeeeeeeee OVERLAY MODULE INITD = INITILIZE THE DRIVE PARAMETERS FOR TESTING 
9 FERRARA AAAEAAEAEEEEEEEREEAEEEAEEAAAEEREREEEEEEREEREREEEEEAEEEEREEEEEEREEEEE eee 
10 § SRREEAAAAAAEAAAEREAEEEEEEEEEEAEAEAERERAEAAREEAEREREREREREEAEEARAREEEEAEREREEEEE 
1 1 3 Pe AAAAARAALAAAAAALALALALALE LALLA ALES EEE Tee cece eee c ccc itr e rece rte i cacti it itis iit 
12 3 SEERA AAAAAAAAAAAAEAARETEAEAAEEEEAEAEAARERAEEEEAEERAREEEEREEEEEEREEEREEEREREEEE 
13 ; 
14 ; 
15 : 
3 022427 INITD: 
29 : BRING DRIVE ONLINE, CLEAR ALL ERRORS (IF ANY) AND CHANGE THE 
30 ; MODE TO THE REQUIRED VALUES 
32 aENABL LSB 
33 022427 104207 000004 #4,RO : MAXIMUM OF 4 SUBUNITS 
34 022431 104201 000001 MOV #U.SUBP,R1 : R1 WILL POINT TO SUBUNIT POINTERS 
35 022433 105051 ADD R5.R1 : R1 POINTS TO SUBUNIT POINTERS 
36 022434 104212 1$: MOV (Ri)+,R2 : GET POINTER TO SUBUNIT INFO 
37 022435 BMI : IF UNIT NOT TESTED. BRANCH 
022435 070000 022457 “070000, 2$ 
38 022437 104123 MOV (R2) ,R3 : GET SUBUNIT PARAMETERS 
39 022440 ASSUME §.PARM,O : ASSUME THAT S.PARM IS ZERO 
40 022440 102203 000100 BIT #SEQSEK,R3 + SEE IF SEQUENTIAL SEEKS 
41 022442 BNE 7$ : IF SO, BRANCH 
022442 050000 022450 “050000,7$ 
42 022444 114000 003002 CLR SCR1 : FLAG AS RANDOM LBNS 
43 022446 BR 38 : BRANCH 
022446 000000 022453 “00,8$ 
44 022450 104200 177777 003002 7$: MOV #-1,SCR1 : FLAG AS SEQUENTIAL LBNS 
45 022453 102203 040000 8$: BIT #INITW,R3 ; SEE IF SUBUNIT WILL BE INITALLY WRITTEN 
46 022455 BNE 3$ : IF SO, BRANCH 
022455 050000 022464 “050000, 3$ 
47 022457 117407 2$: DEC RO : DECREMENT COUNT 
48 022460 BNE 1$ : IF NOT ALL SUBUNITS CHECKED, BRANCH 
022460 050000 022434 “050000, 1$ 
49 022462 R 4$ : BRANCH 
022462 000000 022475 “00,4$ 
50 022464 104657 000046 3$: MOV u. PARM(RS),RO ; GET UNIT PARAMETERS 
022466 101207 040000 BIS #INITW,RO ; FLAG UNIT AS SUBUNITS GET INITIALLY WRITTEN 
52 022470 100657 000046 MOV RO. U.PARM(RS) : SAV 
3 022472 101200 100000 003006 BIS IWIPRG,M.PARM : FLAG MASTER PARAMETERS AS INITIAL WRITE TO BE DONE 
54 022475 104207 000004 4$: MOV RO + MAXIMUM OF FOUR SUBUNITS 
55 022477 104201 000005 MOV aU. SUBP+4 RI : R1 WILL POINT TO AFTERS SUBUNIT POINTERS 
56 022501 105051 ADD R5.R1 : R1 POINTS TO AFTERS SUBUNIT POINTERS 
57 022502 114003 CLR R3 : INITILIZE SUBUNIT PROTECTION FLAGS 
58 022503 110203 5$: ROL R3 : ROTATE R RS 
59 022504 103203 000001 BIC #1,R3 : CLEAR L 0 BIT 
60 022506 104412 MOV =(R1),R2 : GET SUBUNIT POINTER 
61 022507 BMI 6$ : IF NO SUBUNIT, BRANCH 
022507 07 022565 “070000,6$ 
62 022511 104122 MOV (R2) ,R2 : GET SUBUNIT STATUS 
6 022512 ASSUME $.PARM,0 : ASSUME THAT S.PARM IS ZERO 
64 022512 102202 000100 BIT WSEQSEK,R2 : SEE IF SEQUENTIAL SEEKS 
65 022514 BNE 9$ ; IF SO, BRANCH 
022514 050000 022524 “050000,9$ 
66 022516 115000 003002 TST ScRi ; SEE IF ALL SUBUNITS RANDOM SEEKS 
67 022520 BNE tt : IF NOT, BRANCH 





a DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 144-1 


eeeereeeee OVERLAY MODULE INITD = INITILIZE THE DRIVE PARAMET 


108 022606 


022612 
022613 


022614 
022615 


_— 
[=] 
™~m 
™ 
o 
~ 


=32 


ow Wh 
Sessss 
MmOungooocoea 


RR 


td td td = I I I IO 
on 


NNW 


oe 
Ss 


022627 
000028 
00002 


022530 


022557 
003002 


022557 


022565 
000001 
022503 


177417 
000045 
005134 


003746 


001601 
001602 


001576 
001575 


003006 


14 


SEQ 0800 
“050000, 108 
11$ : BRANCH 
“00,11$ 
9$: T ScR1 : SEE IF ALL SUBUNITS SEQUENTIAL SEEKS 
E 11 : IF SO, BRANCH 
“050000,11$ 
10$:  DEVFTL °56,#SER20 ; REPORT ERROR 
#ERS6,HRO. 04. 
MOV #SER20,HR 
MOV #56 FTLDEVs+000. »R2 
MOV R2,HRO.02 
MOV #..HRQ.01 
MOV #ERRMC ,HRO.RO 
ENDERR 0 | 
CLR ERRPOS : CLEAR THE POSITION. 
BIS #DIE, m. PARM : FLAG INITIALIZATION ERROR | 
“00,0 vert VEXT 3; EXIT 
11$: BIT i R2 ; SEE IF READ ONLY DPIVE 
B : IF NOT READ ONLY, BRANCH 
“010000,6$ 
BIS #1,R3 : SET READ ONLY BIT 
6$: DEC RO’ : DECREMENT COUNT 
BNE 5$ : IF COUNT UNEXPIRED, BRANCH 
“050000,5$ 
ROL R3 : ROTATE MASK TO CORRECT POSITION 
ROL R3 ; ROTATE MASK TO CORRECT POSITION 
ROL RS t ROTATE MASK TO CORRECT POSITION 
ROL ; ROTATE MASK TO CORRECT POSITION 
BIC #LBHINB,R3 : CLEAR UNUSED BITS 
MOV RS, U.WPRT(RS)  : SAVE 
MOV #SETUP,RO : SETUP NEXT ROUTINE CALLED 
MOV R5,R1 > MAKE R1 NON-ZERO (DEFERRED CALL) | 
CLR R : NO ERRORS 
DRVEXT: BR JMPRET : RETURN TO SEQUENCER 
“00, JMPRET 
.DSABL LSB 
ETIM | 
eLIST ME 
.SBTTL UNIT AND SUBUNIT GET CHARACTERISTICS AND RUN SDI COMMANDS 
: NOTE: BECAUSE OF THEIR POSITION, THE FOLLOWING SDI LEVEL 2 COMMANDS 
: WILL BE ISSUED WITH A LONG TIMEOUT 
SDIS—s = 0 : DOUBLE ol ON THESE COMMANDS, SINCE IF 
; AN ERROR OCCURS, IT'S A DEVICE FATAL 
CR.GCR: MSG GCR,1,11.,CHRRES : GET CHARACTERISTICS 
.WORD ‘GCR ; ADDRESS 0 
WORD 3 SIZE OF ° N BYTES 
“WO ; SIZE OF REPLY IN WORDS | 
“WORD CHRRES ; SUCCESSFUL COMPLETION CODE 
pee -WORD —$D1$+U.SD12 ; RETRY COUNT OFFSET 
CR.SCR: MSG SCR, ee 19. ,SBCRES ; GET SUBUNIT CHARACTERISTICS | 
. WORD ; ADDRESS OF COMMAND 
WORD scr ZE OF COMMAND IN BYTES 
“WORD 19. : SIZE OF REPLY IN WORDS 
| 





= DISK EXERCISER DMACR wie 
UNIT AND SUBUNIT GET CHARACTERI 


02261 
02261 


022620 
022620 


022624 


022625 
022626 
022627 
0226350 


022631 


022656 
022656 


022660 
022660 





000167 
000036 


022625 
00000 


037705 


020000 023056 
020000 023101 


020000 023573 
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1 23-AUG=82 12:06:46 PAGE 144-2 
TICS AND RUN SDI COMMANDS 


-WORD SBCRES 3 SUCCESSFUL COMPLETION CODE 
S018 «WORD sotgey” -SD12 3 RETRY COUNT OFFSET 
CR.RUN: MSG RUN, i he COMPLT : INITIATE LOAD 
- WORD 3 ADDRESS OF COMMAND 
- WORD * 3 SIZE OF COMMAND IN BYTES 
-WORD 7 : SIZE OF REPLY IN WORDS 
«WORD COMPLT : SUCCESSFUL a 4 1 CODE 
sors «WORD +h ot -SD12 : RETRY COUNT OFFSET 


RUN: -BYTE 0,DRVRUN 3 DRIVE RUN 

GCR: -BYTE 0,GETCHR 3 GET CHARACTERISTICS WITH A 

SCR: -BYTE 0,GETSUB : GET SUBUNIT CHARACTERISTICS 

SUBUNT: .WORD 0 : SUBUNIT SELECTION IN LOW ORDER BYTE 


CHECK THAT 4 UNITS WITH 8 SUBUNITS IN ALL, WITH 16 BAD BLOCKS 
SPECIFIED EACH, CAN FIT IN MEMORY WITHOUT OVERLAPPING WITH 
THE OVERLAYS OR THE R/W BUFFER SPACE 


* SBTTL weeenaneee NON-OVERLAY MODULE START - TEST 4 INITIALIZATION 

PIPE P LILI Ti iti PP tire Perit titi iii tii tii iit itrittiit titi itiiti titty 
PALE P PALIT TTT Titre i titi it iit titi titi iti tit ii ty 
PiDPPP PPP PL PTT P Titi i irri rir iti iri iiititiiciiticiety 
alahalalaladaiaiaiaiaiaiaiaibabadebatededaiahededahaiedebaheiedbaheiebeieheiebabeieieisheisieieiaaiaibinieinisisinniiniaiieiiebhie 


OVERLAYS ARE LOADED INTO ly A SPACE THAT THIS ONE OCCUPIES INITIALLY, 
THUS DESTROYING THIS OVERLAY 


1 
LASTU: .WORD FIRSTU 
UMASK: .BLKW 1 
: .BLKW 1 
XDBN: .BLKW 2 
SECTRK: .BLKW 1 
SECGRP: .BLKW 1 
SECCYL: .BLKW 1 
TGS: -BLKW 7 
DSERNM: .BLKW 3 ; TEMP STORAGE FOR DRIVE SERIAL NUMBER 
START: CALL GMPARM 3; GET MASTER PARAMETERS 
Rey me 


-IF B GMPARM 
i 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 


CALL.‘ GETU ; GET ALL UNITS TO TEST 
“020000 GETU 


-IF B GETU 

car 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 

CAL BLDUNT ; BUILD UNIT AND SUBUNIT PARAMETERS 
hiw ym 


B BLDUNT 
eERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 


SEQ 0801 


nr ——$——- —_- — 
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UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 144-3 SEQ 0802 
eteeeeteee NON-OVERLAY MODULE START - TEST 4 INITIALIZATION 


.ENDC 
022662 101200 000001 003006 BIS #INTINP,M.PARM ; MARK AS INITIALIZATION IN PROGRESS 
022665 TROOT L OUT UNIT AND SUBUNIT PARM'S, GET SUBUNIT CHAR 
022665 020000 023012 “920900, TRoot 
;ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
022667 102200 000002 003006 BIT #D1E,M.PARM ; SEE IF INITIALIZATION ERRORS 
022672 BEQ 3$ : IF NOT, BRANCH 
022672 010000 022725 “010000, 58 
-ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
022674 DEVFTL 16,#SER39 REPORT INITIALIZATION ERRORS 
022674 ERROR FTLDEV 16, <#SER30> 
000012 -RADIX 10 
000005 TR = 
022674 MOVMSG ¥#ER16,4 
LIF LT,4-10 
022674 104200 001553 001601 we MOV #ER16,HRO.04 
; MOV #ER16,HRO.4 
ENDC | 
oi NB, <#SER39> 
-IRP_ _X, <#SER39> 
MOVMSG X,\NUMPTR 
NUMPTR = NUMPTR + 1 | 
022677 MOVMSG #SER39,\NUMPTR | 
IF LT, 5-10 
022677 104200 002477 001602 IFF MOV #SER39,HRO.05 
; MOV #SER39,HRO.5 
ENDC 
000006 NUMPTR = NUMPTR + 1 
022702 104202 047660 ‘ MOV #16! FTLDEV+4000. .R2 
022704 104020 001577 MOV R2,HRO.02 
022706 104200 022706 001576 MOV #..HRO.01 
000010 RADIX 
022711 104200 060014 001575 MOV #ERRMC ,HRO.RO 
022714 104200 177777 001600 MOV #~1,HRQ.03 : MOVE "NOT ASSICIATED WITH ANY UNIT® TO UNIT # 
022717 104307 001575 MOV HRO.RO,RO : GET REQUEST 
022721 HOSTRQ + REPORT | 
022721 020000 001543 *D0900,Ho8 ha 
-ERROR 7 BRANCH/JUMP ADDRESS MUST BE DEFINED | 
022723 BR STOP : STOP TEST 4 
022723 000000 003370 “00, STOP 
-ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
022725 103200 000001 003006 38: BIC #INTINP,M.PARM ; INITIALIZATION NO LONGER IN PROGRESS 
022730 104307 003012 MOV MEMPOL , RO + RO HAS POINTER TO FREE MEMORY 
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eeeeeeeree NON-OVERLAY MODULE START = TEST 4 INITIALIZATION 
022732 107207 017005 SUB #BUFARA,RO : SUBTRACT END OF CODE FROM FREE MEMORY 
022734 104073 MOV RO,R3 : SAVE AMOUNT OF FREE MEMORY 
022735 CLR R1 CLEAR T 
022736 107507 000425 1$: SUB #RBUFLN¢LINKLN, i ; SUBTRACT NEEDED MEM FOR READ 
022740 BMI 2$ IF NO MORE MEMORY, BRANCH 
022740 070000 022745 "070000, 28 
“ERROR; BRANCH/JUMP ADDRESS MUST BE DEFINED 
022742 115401 INC R1 : INCREMENT COUNT 
02274 BR 1$ + LOOP 
022743 000000 022736 “00.18. 
-ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
022745 104010 003016 2$: MOV R1, SECMAX : SAVE IN SECTOR MAXIMUM 
022747 114001 CLR R : 
022750 107203 000411 SUB #WBUFLN+LINKLN, RS SUBTRACT NEEDED MEM FOR WRITE 
022752 115401 4$: INC R1 INCREMENT COUNT 
022753 107203 000010 a #LINKLN,R3 : SUBTRACT LINK LENGTH FROM MEMORY 
022755 5$ : IF MEMORY EXHAUSTED, BRANCH 
022755 070000 022761 "37090, 
“ERROR; ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
022757 BR 4$ : LOOP 
022757 000000 022752 “00.48 
ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
022761 104010 003017 5$: MOV R1, CHNMAX : SAVE IN SECTOR MAXIMUM 
022763 BR ROOT : START EXERCISE 
022763 000000 003315 “00,ROOT 
.1F B RGOT 


«ERROR ; BRANCH/JUMP ADDRESS MUST BE DEF NED 
.SETTL GETMEM - ALLOCATES MEMORY FOR UNIT AND SUBUNIT BLOCK AND SUBUNIT PARAMETERS 


022765 GE TMEM: 
: RETURN A BLOCK OF MEMORY 
022765 107070 003012 ‘ SUB RO, MEMPOL ; SUBTRACT REQUESTED LENGTH FROM MEMOY POOL 
022767 104307 003012 MOV MEMPOL , RO ; LOAD RO WITH POINTER TO REQUESTED MEMORY 
022771 RETURN : RETURN TO CALLING PROGRAM 
022771 JMP 0 
022771 000000 000000 “00,0 ‘ 
ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
.SBTTL (CBBZ = 28 BIT COMPARE FOR SETUP MODULES 
022773 CBB2: 
; 28 BIT COMPARE FOR BAD BLOCKS 
022773 104634 000001 P MOV 1(R3), : GET WORD THAT R3 POINTS T0 
022775 103204 170000 BIC PCHBHING, R4 : STRIP OFF UNUSED BITS 
022777 104625 000001 MOV 1(R2),R5 : GET OTHER WORD TO COMPARE 
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CBB2 28 BIT 


023001 


023010 


023012 


023050 


023050 
023052 
023052 


023054 
023054 
023054 





COMPARE FOR SETUP MODULES 


103205 
106045 


050000 


000000 


170000 


023010 


000000 


037705 
000047 


000045 
003375 


037705 
023014 


000000 


1$: 


BIC Wma ; STRIP OFF THE UNUSED BITS 


CMP : 
BNE 3; IF DIFFERENCE IS FOUND, BRANCH 
*050000,1$ 


ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 


MOV (R2) ,R5 ; GET OTHER WORD TO COMPARE 
CMP (R3),R5 ; COMPARE 

RETURN : RETURN TO SORTBE 

JMP 0 

Rit: 


-IF BO 

1 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 

TROOT = TEMPORARY ROOT FOR SEQNCR DURING TEST 4 SETUP 

TROOT WILL FILL OUT THE AS YET UNDEFINED FIELDS IN BOTH UNIT 

AND SUBUNIT PARAMETERS, AS WELL AS GETTING THE SUBUNIT CAHRACTERISTICS 
MOV #FIRSTU,RS R5 POINTS TG FIRST SUBUNIT 


CLR FOR ZEROING RECOVERY WORD 
MOV Ree U.RCOV(RS) ZERO RECOVERY WORD 
MOV #FT pane AS FIRST TIME (WILL DISABLE RECOVERY) 


MOV ar U.PARM(RS) AV 
#INSET,R1 FIRST MODULE i. pat ens 


MOV 
MOV By NFUNC(RS) SAVE _IN a 
MOV 4 Uneout SET. 7 30 SEC 


MOV Ri. - $DIS(RS) 
R1,U.WPRT(RS) 
CALL _  SEQNCR 
“020000, SEQNCR 


B SEQNCR 
-ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
; U. PARM(RS) ,RO GET UNIT PARAMETERS 


#FTIME, SET FIRST TIME 
MOV RO,U.PARM(RS) AVE 
MOV (R5),R5 TRAVERSE TO NEXT UNIT 
ASSUME U.NEKT,O ASSUME U.NEXT OFFSET IS ZERO 
IF NE ,U.NEXT=0 


MOV AME 
; WRITE PROTECT THE ENTIRE DRIVE 
RUN SEQUENCER 


-ERROR ; THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 
CMP #FIRSTU,RS ; SEE IF TRAVERSED ENTIRE RING 
: IF NOT, BRANCH 


MKLOOP 
2050000, MKLOOP 


IF L 
“ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
RETURN : RETURN TO CALLING PROGRAM 
JMP 0 

“00,0 

IF 


; BRANCH/JUMP ADDRESS MUST BE DEFINED 


SEQ 0804 | 
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TROOT = TEMPORARY ROOT FOR SEQNCR DURING TEST 4 
023057 SERSEC +1 SERIAL NUMBER SEC CTOR AREA 
*SBTTL GMPARM "GET MASTER PARAMETERS (PAT TERN 16) AND SET UP OVERLAY ADDRESSES 
023056 GMPARM: 
; GET MASTER PARAMETERS 

023056 104207 060003 : MOV #TGMPRM,RO : RO CONTAINS HOST REQUEST 
0230660 CALL _ _HOSTRQ : INITIATE HOST REQUEST 
023060 020000 001543 “020000, HosTRa 

“ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
023062 104207 001576 MOV #HRQ.01,RO : RO POINTS TO PATTERN INFORMATION 
023064 104272 MOV (RO)+,R2 : R2 HAS LENGTH OF PATTERN 
023065 BEQ 3$ : IF NO PATTERN, BRANCH 
023065 010000 023077 “010000 3$ 

-ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
23067 104201 003042 MOV #PATO+1,R1 : R1 POINTS TO PATTERN 16 AREA (skip EDC) 
023071 100212 MOV R2,(R1)# ; MOVE PATTERN LENGTH TO PATO A 
023072 104273 2$: MOV (RO)+,R3 : GET WORD OF PATTERN 
023073 100213 MOV R3,(Ri)+ + MOVE TO PATTERN 16 AREA 
023074 117402 DEC + DECREMENT COUNT 
023075 BNE 2$ : IF COUNT UNEXHAUSTED, BRANCH 
023075 050000 023072 “050000, 28 

“ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
023077 3$: RETURN ; RETURN TO CALLING PROGRAM 
023077 JMP 0 
023077 000000 000000 “00.0 


-IF BO 
1 a 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
Ts ie GETU = POLL ALL PORTS, THEN GET UNITS TO TEST 


023101 GET 
: GET THE UNITS TO TEST 
: POLL ALL PORTS AND FILL IN A UDA PORT INFORMATION TABLE (UNITS) 
023101 104205 000001 , MOV #1,R5 : MOVE INITIAL MASK TO RS 
023103 104204 023553 MOV #UNITS R4 + R4 POINTS TO UNIT TABLE 
023105 5$: PUSH RG + SAVE R4 
~IRP X,<R4> 
MOV X,=(SP) 
.ENDR 
023105 100464 MOV R4,=(SP) 
023106 104052 MOV RS,R2 : MOVE MA R2 
023107 CALL RDSTAT > GET DRIVE® y STATUS 
623107 020000 001470 “020000, RDSTAT 


B ROSTAT 
ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
023111 115002 ST R2 : SEE IF ERROR 
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023112 208 : IF NOT, BRANCH 
023112 010000 023130 8570000 20$ 
a BRANCH/JUMP ADDRESS MUST BE DEFINED 
023114 10$ : IF MSB, PARITY ERRORS > HALF SECOND 
023114 070000 023122 “070900 10s 
-ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
023116 104203 005205 MOV #SER10,R3 : NO DRIVE ATTACHED 
023120 BR 15$ + BRANCH 
023120 000000 023124 "00,158, 
-ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
023122 104203 002243 10$: MOV #SERGS,R3 ; PARITY ERRORS > HALF SECOND 
023124 10(643 000001 15$: MOV R3,1(R4) : SAVE ERROR MESSAGE 
023126 BR 106$ + REPORT 
023126 000000 023353 “00,1008, 
-ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
023130 114003 20$: CLR R3 : SET UP TIMEOUT COUNT 
023131 104052 25$: MOV R5,R2 : MOVE PORT SELECT TO R2 
023132 CALL __- RDSTAT : GET STATUS 
023132 020000 001470 “020000, RDSTAT 
.IF B RDSTAT 
-ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
023134 115002 ist R2 : SEE IF ERROR 
023135 BNE 30$ > IF SO, BRANCH 
023135 050000 023143 “050000 30$ 
ERROR; ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
023137 102201 000001 BIT #RCVRDY,R1 : SEE IF RECEIVER READY ASSERTED 
023141 BNE : IF SO, BRANCH 
023141 050000 023154 “050000, 35$ 
-ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
023143 117603 308: DEC R3 : DECREMENT COUNT 
023144 BNE 258 : IF INCOMPLETE, BRANCH 
023144 050000 023131 “050000, 258 
-ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
023746 106203 005220 MOV #SER11, 83 ; RECEIVER READY NEVER ASSERTED 
023150 100643 000001 MOV R3,1¢Rd) : SAVE E ERROR MESSAGE 
| Py 
STE: 000000 023353 “00,1008, 
| ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
023154 102201 000100 358. BIT #AVAIL,®1 ; SEE IF DRIVE J AVAILABLE 
023156 BNE 40$ : 1F SO, BRA 


SEQ 0806 
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023202 


023204 
023205 
023205 


023207 


023215 





050000 


196208 


104631 


023166 


005435 
000001 


023353 


001750 
002357 


000001 


023215 


023172 
005236 
000001 


023353 


40$: 
45$: 


50$: 


55$: 


#050000 ,40$ 
.1F 8 468 
sERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
MOV #SERGO,R3 z GET SECONDARY ERROR 
MOV R3,1(R4) : SAVE 
BR 106s 3 
*00,100$ 
.1F B 1008 
ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
#MAXSND ,R2 : SET UP MAXIMUM TRIES AT SENDING 
MOV #CR.GST,R3 + R3 POINTS TO GET STATUS COMMAND 
V (R3) ,RO : SET ADR OF SDI COMMAND BUFFER 
ASSUME L2.0PC, 
IF E,L2.0PC-0 
ERROR : THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 


L2.SLN(R3),R1 =; SET BUFFER LENGTH 
PUSH R2 3: SAVE R2 
-IRP X,<R2> 


MOV X,-(SP) 
-ENDR 

MOV R2,-(SP) 

RS ,R2 3; SETUP FOR SEND 

XFC SEND : SEND COMMAND 
POP Re : RESTORE COUNT 
-IRP X,<R2> 

MOV (SP)+,Xx 
-ENDR 


MOV (SP)+,R2 


DID UNIT ACCEPT COMMAND 
BEQ 50$ IF SO, BRANCH 
“010009 50$ 

-ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 

DEC R2 : DECREMENT COUNT 

BNE 45$ + IF UNEXPIRED, BRANCH 
“050000,45$ 


oIF B 45$ 
x ae 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 


AY #SER12, R3 : GET ERROR NUMBER 
Boy R3,1(R4) : SAVE 
PR 106s 
*00,100$ 
.1F'B 1008 
ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
PUSH RG : SAVE R4 
-IRP X,<R4> 
MOV X,-(SP) 
.ENDR 
MOV R4,-(SP) 
MOV #3,R4 : SET UP SHORT TI 


RT TIMEOUT 
MOV #5T,RO 3 SET DATA BUFFER ADDRESS 


















023240 


023240 


02324 
02324 


023245 


023245 


023250 


023252 


ie 


06000 
115001 
010000 


106201 
050000 


117404 
050000 





000002 


023302 


000001 


023245 


023220 


005250 
023276 


023256 


005263 


023276 


023265 


005311 


60$: 


65$: 
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MOV “emai : SET BUFFER LENGTH 
R5,R ; 


MOV : : SETUP FOR RECEIVE 
KFC RCV : RECEIVE SDI COMMAND 
TST R1 : DID ERROR OCCUR 
BEQ 85$ : IF NOT, BRANCH 
“01 85$ 
.1F 8 85$ 
-ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
CMP #1,R1 : SEE IF TIMEOUT 
BNE 60$ : IF NOT, BRANCH 
*050000,60$ 
.1F B 60$ 
ERROR 7 BRANCH/JUMP ADDRESS MUST BE DEFINED 
DEC RG : DECREMENT TIMEOUT VALUE 
BNE 55$ : IF NOT TIMEOUT, BRANCH 
“aeannot 
-ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
POP RG ; RESTORE R4 
~IRP X,<R4> 
MOV (SP)+,x 
.ENDR 
MOV (SP)+,R4 
Mov #SER13,R3 : GET ERROR NUMBER 
BR 80$ : BRANCH TO EXIT 
“00,80 
.1F B 80$ 
ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
POP RG : RESTORE R4 
.IRP X,<R4> 
MOV (SP)+,Xx 
.ENDR 
MOV (SP)+,R4 
ROR R1 : ROTATE INTO POSITION TO TEST 
ROR R1 > SEE IF FIRST WORD NOT START FRAME 
BCC 65$ : IF NOT, BRANCH 
Rae oe 
-ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
MOV #SER14,R3 : GET ERROR NUMBER 
BR 80$ ; BRANCH TO END OF LOOP 
*00,80$ 
.1F'B 80$ 
ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
ROR R1 : SEE IF FRAMING ERROR 
BCC 70$ : IF NOT, BRANCH 
“040000, 70$ 
.1F 8 70$ 
-ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 


MOV #SER15,R3 : GET ERROR NUMBER 


SEQ 0808 





=] 


S385 
NNNNN 


QEWeNUW 
So 


WWW 
22m 


833563 000000 023276 


023274 


005333 
023276 


005356 
000001 


023353 


177777 
000001 
000002 
002442 
170000 


001470 


000002 
023331 


010000 





70$: 


85s: 
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BR 808 ; BRANCH TO END OF LOOP 
“00,808 
IF 8 80$ 
ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
R R1 ; SEE IF CHECKSUM ERROR 
cc 75$ ; IF NOT, BRANCH 
“040000, 75$ 
If 8 75$ 
ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
MOV #SER16,R3 3 GET ERROR NUMBER 
BR 80$ ; BRANCH TO END OF LOOP 
“00.808 
IF 8 80S 
ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
MOV #SER17,R3 3 GET ERROR NUMBER 
MOV R3,1(R4) : SAV 
BR 1008 ; BRANCH TO END OF LOOP 
“00,1 s' 
1F'B 1008 
-ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
NOW FILL IN THE TABLE WITH ALL THE SUBUNIT NUMBERS 
POP R4 : RESTORE R4 
-IRP X,<R4> 
MOV (SP)+,x 
.ENDR 
MOV (SP)+ % 
MOV #-1,R0 ; GET "NO UNITS* FLAG 
MOV = RO, 1(R4) ; CLEAR ANY ERRORS THAT ARE FLAGGED 
MOV RO.2(R4) ; CLEAR ANY ERRORS THAT ARE F!.AGGED 
MOV ST, ; RO HAS UNIT NUMBER 
MOV RO,R2 : COPY RO TO R2 
BIC #*CHBHINB, RO =; RO HAS UNIT NUMBER 
PUSH — <RT, ; SAVE R1 AND R2 
-IRP X,<R1 ‘ho 
MOV X,=(SP) 
.ENDR 
MOV R1,-(SP) 
MOV R2,-(SP) 
MOV RS,R2 ; MOVE UDA PORT MASK TO R2 
CALL____ RDSTAT > GET STATUS 
“020000. RDSTAT 
-1F B ROSTAT 
“ER ROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
BIT #ATTN,RI : SEE IF SPINABLE 


BNE 90$ : IF SO, BRANCH 
Rix x: oe 
ERROR” 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 


e C 
BIS #10000 ,R0 ; SET "NOT SPINABLE® FLAG 
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GETU = POLL ALL PORTS, THEN GET UNITS TO TEST 


023331 90$: POP <R2,R1> ; RESTORE 
.IRP X,<R2,R1> 
MOV (SP)+¢,Xx 
.ENDR 
023331 104262 MOV (SP)+,R2 
023 32 104261 MOV (SP)+.R1 
02335 101207 040000 BIS #40000,R0 : FLAG UNIT AS NOT TESTED 
023335 110702 SWAB sR : SWAP R2°S BYTES 
023336 110602 ROR R2 ; SUBUNIT MASK TO LO NIBBLE 
023337 110608 ROR R2 + MOVE SUBUNIT MASK TO LO NIBBLE 
023340 11060 ROR R + MOVE SUBUNIT MASK TO LO NIBBLE 
023341 110602 ROR R : MOVE SUBUNIT MASK TO LO NIBBLE 
023342 103202 177760 BIC #LBLONB,R2 ; CLEAR ALL BUT SUBUNIT BIT 
023344 110602 95$: ROR Ro : MOVE SUBUNIT BIT TO CARRY 
023345 BCC 100$ : IF NO MORE SUBUNITS, BRANCH 
023345 040000 023353 “04000 00s 
“ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
023347 100247 MOV RO, (RG)+ : MOVE SUBUNIT NUMBER TO TABLE 
023350 115407 INC RO : INCREMENT SUBUNIT NUMBER 
023351 BR 95$ + BRANCH 
023351 000000 023344 “00,958. 
-ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
023353 100$: POP RG 3; R4 POINTS TO START OF UNIT JUST HANDLED 
.IRP X,<R4> 
MOV (SP)+,Xx 
-ENDR 
023353 104264 V (SP)+,R4 
023354 105204 000004 ADD #4 RG : R4 WILL POINT TO ot poe bi (CLEAR CARRY FOR ROL) 
023356 110205 ROL RS ; RS_HAS NEXT UNIT PO 
023357 106205 000020 CMP #20,R5 ; SEE IF ALL PORTS TESTED 
023361 BNE $ : IF NOT, BRANCH 
023361 050000 023105 “050000, 5$ 
-ERROR zy BRANCH/JUMP ADDRESS MUST BE DEFINED 
; NOW GET THE PLUG NUMBERS TO TEST AND FIND THEM IN THE TABLE 
023363 104207 060012 MOV #UTOTST,RO : GET WHAT SUBUNIT NUMBERS 70 TEST REQUEST 
023365 CALL _ _HOSTRQ : GET THE PLUG NUMBERS 
023365 020000 001543 “020000, HOSTRQ 
.IF B HOSTRO 
-ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
023367 104207 001576 MOV #HRO.01, ,R0 ; RO POINTS TO U'IIT NUMBERS TO TEST 
023371 104201 02355 105$: MOV #UNITS A ; R1 POINTS TO UA PORT INFORMATION 
023373 104112 110$: MOV (R1) an ; R2 HAS UNIT 
023374 : IF NONE” BRANCH 


BMI 1308" 
023374 070000 023424 “070000, 130$ 
.1F B 1308 








023376 


AT4 DISK EXERCISER DMACR X 
TU) = POLL ALL 


L PORTS, THEN 


104261 
105201 
106201 


050000 


160000 


023410 


023541 


Bi 


023423 


023377 


000004 
023573 


023373 


‘ii an hid lag ig stemmnaieasinsasia 
F 15 
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UNITS TO TEST 


115$: 


120$: 


125$: 


130$: 





‘toe ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
3 SAVE R1 


PUSH RI 

~IRP X,<R1> 

~ENDR 

BIC oreseas ne 
CMP (RO) ,R2 


MOV X,-(SP) 


MOV R1,-(SP) 
: CLEAR "NOT TESTED® LEAVE *UNSPINABLE* SET 
: SEE IF IT IS A UNIT TO 
+ NO MATCH 


BNE 
hin x! 1208 
— * : BRANCH/JUMP ADDRESS MUST BE DEFINED 


MOV R2,(R1) 3; SAVE UNIT AS ONE TO TEST 
POP R1 3 RESTORE STACK 
~IRP X,<R1> 


MOV (SP)+,x 
.ENDR 
MOV (SP)+,R1 
BR 175$ : LOOK FOR THE NEXT ONE 
“00,175$ 
.1F 'B 175$ 
ERROR 7 BRANCH/JUMP ADDRESS MUST BE DEFINED 
INC R1 : POINT TO NEXT SUBUNIT 
MOV R1,R2 : COPY TO R2 
SUB ane t SUBTRACT STARTING ADDRESS 
BT : SEE IF STILL ON SAME UNIT 
BEQ 125$ : IF NOT, BRANCH 
“010000, 125$ 
.1F B 1258 


“ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 

HOV (R1),R2 ; SEE IF ANY MORE SUBUNITS 
5$° : IF SO, BRANCH 

"309001158 

“ERROR; 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 

: RESTORE R1 


POP R1 
-IRP X,<R1> 


MOV (SP)+,Xx 
-ENDR 
MOV (SP)+,R1 
ADD : LOOK AT NEXT UNIT 
oe AMITS+16. 8 : SEE IF ENTIRE TABLE SEARCHED 
: IF NOT, BRANCH 


"Gogo, 108 

— # ; BRANCH/JUMP ADDRESS MUST BE DeF INED 

DIDN'T FIND THE REQUESTED UNITS == DUMP ALL KNOWLEDGE OF THE 
UDA PORTS AND DIE 


MOV (RO) ,HROQ.03 ; SAVE UNIT NUMBER IN REQUEST BUFFER 


SEQ 0811 





100465 
102207 


010000 


06207 
050000 


000001 


023510 


010000 
023461 


005457 
023463 


005410 


023475 


000004 
023465 


023546 


qe 


01 
ET UNITS TO T 


135$: 


140$: 


145$: 
150$: 


155$: 


160$: 
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MOV #HRO.05,R4 
MOV #UNITS,R5 
(R5)R 


“030000, 1408 


MOV RO, (R4)+ 

BR 170$ 

*00,170$ 

IF B 1 

.ENDC 

PUSH RS 

~IRP X,<R5> 

.ENDR 

git #10000,R0 

145$ 

2570000 145$ 

FB1 1458 


MOV #SER41,R0 
150$ 


MOV #SER18,RO 
MOV RO. ( (R4S+ 


C 

MOV (R5)+,R1 
BMI 

hy! 1608 


INC RO 

CMP #4,RO 
BNE 155$ 
“050000, 155$ 


G 15 


; R& POINTS TO OUTPUT BUFFER 
; Oey einat TO UNIT TABLE 


SEQ 0812 


FIRST WORD OF UNIT 
: IF VALID UNIT WAS FOUND, BRANCH 


: GET POINTER TO py MESSAGE 


3 SAVE IN OUTPUT BUFF 
EXIT 


$ 
——" ; BRANCH/JUMP ADDRESS MUST BE DEFINED 


3 SAVE POINTER TO UNIT TABLE 


: SEE IF DRIVE UNSPINABLE 
3 IF SPINABLE, BRANCH 


ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 


3 REPORT DRIVE(S) UNSPINABLE 
BRANCH 


0$ 
eERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 


: GET POINTER TO ERROR MESSAGE 
: CLEAR COUNT 

: GET UNIT NUMBER 

: IF INVALID, BRANCH 


—— # 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 


: INCREMENT COUNT 
: SEE IF MAX 


: IF NOT, LOOP 


-IF B 155$ 

— 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 

; GET POINTER TO yo fh ERROR MESSAGE 
E INTO BUFFER 


POP 
-IRP X,<R5> 
eENDR 


PUSH R5 
-IRP X,<R5> 


MOV SER18E-1(RO),R1 ; 
MOV R1,(R4)+ 


OUTPUT 
: RESTOR E 


3 SAVE R5 


MOV X,-(SP) 
MOV R5S,-(SP) 


MOV (SP)+,X 
MOV (SP)+,R5 
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UDATS DISK Teta * DMACR X04.01 tn as ig 100s 46 PAGE 144-14 
GETU = POLL ALL PORTS, THEN GET UNITS TO T 


MOV X,-(SP) 


-ENDR 
023501 100465 MOV R5,-(SP) 
023502 104251 165$: MOV (R5)+,R1 ; GET SUBUNIT NUMBER 
023503 100241 MOV R1,(R4)+ 3 SAVE 
023504 117407 DEC RO ; DECREMENT COUNT 
023505 BNE 165$ 3 IF COUNT INCOMPLETE, BRANCH 
023505 050000 023502 eee 
“ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
023507 POP RS 3 RESTORE RS 
-IRP X,<R5> 
MOV (SP)+,Xx 
-ENDR 
023507 104265 MOV (SP)+,R5 
023510 105205 000004 170$: ADD #4 ,R5 3 POINT TO NEXT UNIT TABLE 
023512 106205 023573 CMP #UNITS+16.,R5  ; see IF ENTIRE TABLE SEARCHED 
023514 BNE 135$ 3 IF NOT, BRANCH 
023514 050000 023440 “030000 1358 
“ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
023516 DEVFTL 1000 3 REPORT FATAL ERROR (WILL SHOW UP AS A 5000) 
023516 ERROR’ FTLDEV,1000,<> 
000012 eRADIX 10 
000005 NUMPTR = § 
023516 MOVMSG #ER1000,4 
IF LT,4-10 
023516 104200 005066 001601 IFF MOV #ER1000,HRQ.04 
MOV #ER1000,HRQ.4 
-ENDC 
IF se. "7 
.IRP X,< 
MOVMSG X, \NUMPTR 
NUMPTR NUMPTR + 1 
oe 
023521 104202 oF 1610 MOV #1000! F TLDEV+4000. ,R2 
023523 104020 001577 MOV R2,HROQ.02 
023525 104200 023525 001576 MOV #.,HRQ.01 
000010 RADIX 
023530 104200 060014 001575 MOV #ERRMC ,HRQ.RQ 
023533 104307 001575 MOV HRQ.RQ,RO : SET UP FOR REPORT 
023535 CALL HOSTRQ : REPORT ERROR 
023535 020000 001543 Biwi ie 
“ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
023537 BR STOP 3 END TEST 
023537 000000 003370 *00,STOP 


STOP 
: BRANCH/JUMP ADDRESS MUST BE DEFINED 





SEQ 0813 


1 15 

UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 144-15 SEQ 0814 
GETU = POLL ALL PORTS, THEN GET UNITS TO TEST | 

023541 115407 175$: INC RO : POINT TO NEXT UNIT TO TEST 

023542 104172 MOV (RO) ,R2 : CHECK NEXT UNIT 

02354 BPL 105$ : FIND IN UDA PORT INFORMATION 

023543 030000 023371 “030009 1058 

-ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 

023545 RETURN : RETURN TO INITIALIZATION CODE 

023545 JMP 0 

023545 000000 000000 400.0 


‘Toe 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 


023547 005432 SERI8E: .WORD SER18A ; FOR MULTIPLE SUBUNIT ERROR REPORTING 
023550 005426 -WORD SER18B 
023551 005422 WORD SER18C 
023552 005416 WORD SER18D 
023553 000020 UNITS: .REPT 16. 
‘WORD 17777 ; UNITS AND THEIR SURPERVISOR NUM 
023553 177777 “WORD 177777 :; UNITS AND THEIR SURPERVISOR NUM 
023554 177777 “WORD 177777 ; UNITS AND THEIR SURPERVISOR NUM 
023555 177777 “WORD 177777 ; UNITS AND THEIR SURPERVISOR NUM 
023556 177777 “WORD 177777 ; UNITS AND THEIR SURPERVISOR NUM 
023557 177777 “WORD 177777 ; UNITS AND THEIR SURPERVISOR NUM 
177777 “WORD 1 : UNITS AND THEIR SURPERVISOR NUM 
023561 177777 . 177777 > UNITS AND THEIR SURPERVISOR NUM 
23562 177777 : 177777 ; UNITS AND THEIR SURPERVISOR NUM 
023563 177777 WORD 177777 ; UNITS AND THEIR SURPERVISOR 
64 177777 “WORD 1 ; UNITS AND THEIR SURPERVISOR NUM 
023565 177777 “WORD 177777 ; UNITS AND THEIR SURPERVISOR NUM 
177777 WORD 177777 : UNITS AND THEIR SURPERVISOR NUM 
023567 177777 “WORD 1 ; UNITS AND THEIR SURPERVISOR NUM 
023570 177777 “WORD 177777 : UNITS AND THEIR SURPERVISOR NUM 
023571 177777 “WORD 177777 ; UNITS AND THEIR SURPERVISOR NUM 
023572 177777 “WORD. 177777 ; UNITS AND THEIR SURPERVISOR NUM 
-SBTTL BLDUNT - BUILD THE UNIT PARAMETER BLOCK 
023573 BLDUNT: 
; BLDUNT WILL BUILD THE UNIT AND SUBUNIT PARAMETERS 
023573 104202 000001 MOV = #1, R2 ; PORT 1 MASK 
023575 104020 022633 MOV —-R2, UMASK i SAVE MASK 
023577 104204 023553 MOV =: #UNITS RG : POINT TO UNITS TO BE TESTED TABLE 
23601 104147 ULOP: MOV = (R4), RO ; GET UNIT TO BE T 
023602 BMI NOU ; TF FIRST UNIT NOT TO BE TESTED, BRANCH 
023602 070000 023674 *070000,NOU 
“ERROR; BRANCH/JUMP ADDRESS MUST BE DEFINED 
023604 102207 040000 BIT  #40000,RO ; SEE_IF FIRST SUBUNIT TO BE TESTED 
023606 BEQ == 3$ ; IF SO, BRANCH 
023606 010000 023632 “010000, 38 


“ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 





i a ———< 
























023610 104647 
023612 102207 
023614 

023614 010000 


104647 
023620 102207 
023622 010000 


023624 104647 
023626 102207 


0 
023630 050000 


023632 104207 
023634 
023634 020000 


023636 100707 


000001 
040000 


023632 
000002 
040000 
023632 


000003 
040000 


023674 


000072 
022765 


176772 


022632 
000025 
000004 


170000 
000063 
000001 
040000 
023665 


177777 


023656 


UDAT4 DISK yea DMACR x04.01 g5~aue-62 12:06:46 PAGE 144-16 
BLOUNT = BUILD THE UNIT PARAMETER BLOCK 


3$: 


1$: 


2$: 


J 15 


-ENDC 
MOV 1(R4) ,RO 3 GET SECOND SUBUNIT INFORMATION 
BIT #40000,R RO i SEE IF yey IT IS USED 


BEQ 
“010000, 3$ 
[ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
MOV 2(R4),RO ; SEE IF THIRD SUBUNIT TO BE TESTED 
BIT #40000,R0 : CHECK TESTING BIT 

$ : IF IT IS TO BE TESTED, BRANCH 


BEQ 
“010000, 3$ 

IF B 3$ 

“ERROR; ; BRANCH/JUMP ADDRESS MUST BE DEFINED 

MOV 3(R4),RO ; SEE IF FOURTH SUBUNIT TO BE TESTED 
BIT #40006,R0 : TEST TESTING BIT 


BNE NOU : IF UNIT (THE WHOLE THING) NOT TO BE TESTED, BRANCH 
Soy yom 
oy 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
Vv #TLEN.U,RO : RO HAS = DATA STRUCTURE LENGTH 
CALL GETM ; GET MEMORY 
“020000, GE TMEM 
F B GETMEM 
i 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
Vv RO,@LASTU 3 LINK LAST POINTER TO THIS ONE 
ASSUME U.NEXT,O 
IF NE.U. NEXT-0 
— * THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 


RO,LASTU 3 SAVE POINTER TO THIS ONE 
MOV R2,U.MASK(RO)  ; SAVE PORT SELECT MASK 


MOV #4,R3 : MAXIMUM OF FOUR SUBUNITS 
PUSH RO : SAVE POINTER TO UNIT INFORMATION 
.IRP X,<RO> 
MOV X,-(SP) 
.ENDR 
MOV RO,-(SP) 
MOV (R4) RS : GET STARTING SUBUNIT NUMBER 
BIC #*CHBHINB,RS ; CLEAR *NOT USED’ BIT, IF SET 
MOV RS, y. UNUM (RO) ; SAVE STARTING SUBUNIT NUMBER 
ADD #U. SUBP, RO ; RO WILL POINT TO SUBUNIT POINTERS 
MOV (hae RS ; MOVE SUBUNIT NUMBER TO UNIT PARAMETERS 
BIT #20000 °R5 : SEE IF SUBUNIT TO BE TESTED 
BEQ 2$ : IF SO, BRANCH 
*010000,28 


-ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 


MOV Hot; R5——__— : FLAG SUBUNIT AS NOT TESTED 
MOV R5,(RO)+ : MOVE TO eer POINTERS (NON-NEG IF TESTED) 
DEC R ; DECREMENT 

: IF ALL SUBUNITS ARE FILLED IN, BRANCH 





SEQ 0815 





K 15 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 144- 7 


BLDUNT = BUILD THE UNIT PARAMETER BLOCK 


023705 


023707 
023711 
023713 


023713 
023715 


023715 


023716 


023727 


023731 
023733 


023733 
023734 
023735 


104203 
100703 


104207 


100467 


000004 
022633 
022633 


000004 
023573 


023601 


037705 
176717 


037705 


000001 
000063 
000004 


024251 


022631 


022631 


NOU: 


SUSETL: 


*SBTTL 
:BLDSUS 


SLOP: 


» SBTTL 
BLDBES 


-IF B 1$ 
hoe 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 


PoP RO 3; RESTORE RO 
-IRP X,<RO> 


MOV (SP)+,Xx 
-ENDR 
MOV (SP)+,RO 
SUB #4 RG 3 R4 NOW POINTS TO BEGINNING OF UNIT HANDLED 
MOV UMASK ,R2 3; GET UNIT PORT MASK 
ROL R 3; ROTATE TO NEXT PORT 
MOV R2,UMASK 3; SAVE MASK 
ADD #4 RG 3; R&4 POINTS TO NEXT UNIT INFORMATION 
CMP WUNITS*+16.,R4  ; SEE IF ALL UNITS SET 
BNE ULOP 3: IF ALL UNITS NOi SETUP, BRANCH 
yeas 
— 3 ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
V #FIRSTU,R3 : COMPLETE RING 
V R3, @LASTU 3; LAST UNIT NOW POINTS TO FIRST 
ASSUME U.NEXT,O 
IF om de NEXT=0 
i a THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 
MOV #FIRSTU,RO ; RO POINTS TO FIRST UNIT PARAMETERS 
PUSH RO ; SAVE POINTER TO UNIT PARAMETERS 
-IRP X,<RO> 
MOV X,-(SP) 
-ENDR 
MOV RO,-(SP) 


BLDSUS = BUILD ALL SUBUNIT PARAMETER BLOCKS ON THIS UNIT 


BUILD ALL SUBUNIT PARAMETERS 


MOV #U.SUBP,R4 7 R4 WILL POINT TO SUBUNIT POINTERS 
ADD RO.R 4 POINTS TO SUBUNIT POINTERS 
MOV U; ongmcno .ucunsh ; SAVE SUBUNIT NUMBER 

MOV ; MAXIMUA NUMBER OF SUB.INITS 

MOV «Ras RO z RO GETS SUBUNIT ‘POINTER 

BMI NOSUN ; IF SUBUNIT INACTIVE, BRANCH 
“070000,NOSUN 


-IF B NOSUN 
— : BRANCH/JUMP ADDRESS MUST BE DEFINED 


N 
A RO ver, 


; UCURSR GETS SUBUNIT NUMBER 
PUS <R3,R4,R : SAVE R3 = RS 
-IRP X,<R3,R4, ‘52° 
MOV X,-(SP) 
.ENDR 
MOV R3,-(SP) 
MOV R4.-(SP) 


MOV R5,-(SP) 
BLDBES - FIND HOW MANY WORDS NEEDED FOR THE BEGIN/END OR TRACK/GROUP SETS 


SEQ 0816 


L 15 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 144-18 SEQ 0817 
BLOBES = FIND HOW MANY WORDS NEEDED FOR THE BEGIN/END OR TRACK 


; COMPUTE THE BEGIN/END SET AREA NEEDED 
023736 104300 022631 001576 ° MOV UCURSR.HRQ.01 ; MOVE SUBUNIT NUMBER TO COMMUNICATION AREA 
023741 104207 060004 MOV #TGUPRM, RO MOVE REQUEST NUMBER TO RO 
023743 CALL _ HOSTRQ : REQUEST INFORMATION FROM HOST 
023743 020000 001543 “020000, Hos TRa 
-ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
023745 102200 000040 001576 BIT WBEUSED,HRQ.01 ; SEE IF BEGIN/END SETS ARE USED 
023750 N 2$ : IF $0, BRANCH 
023750 050000 023760 “050009 2$ 
SERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
023752 104207 000020 MOV #S.1GSS*1,RO |; MAXIMUM CONFIGURATION LENGTH 
023754 105307 001604 ADD HRQ.07,RO : ADD NUMBER OF T/G SETS 
023756 BR BLDBB + BRANCH 
023756 000000 023772 “00,BLDBB 
.IF’B BLDBB 
-ERROR : BRANCH/JUMP ADDRESS MUST BE DEFINED 
023760 104207 000013 2$: MOV #S.BESS,RO : MINIMUM CONFIGURATION WORD COUNT 
023762 104301 001600 MOV HRQ.03,R1 : GET NUMBER OF BEGIN/END SETS 
023764 BNE 1$ : IF NON-ZERO, BRANCH 
o53760 050000 023767 “050000 1$ 
ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
23766 115401 iNC R1 : MAKE R1 1 
023767 105011 1$: ADD R1,R1 : MAKE B/E SETS * 2 
023770 105011 ADD R1,R1 ; MAKE 1B/ E SETS « 4 
023771 105017 ADD R1_RO ADD TO LENGTH OF SUBUNIT PARAMETERS 
.SBTTL BLDBB = FIND HOW MANY WORDS NEEDED FOR THE BAD BLOCKS 
023772 BLDBB: 
: COUNT THE BAD BLOCK PARAMETERS 
023772 : PUSH RO ; SAVE SUBUNIT LENGTH 
.IRP X,<RO> 
MOV X,-(SP) 
.ENDR 
023772 100467 V RO,-(SP) 
023773 104300 022631 001576 MOV UCURSR. HRQ.01 ; MOVE SUBUNIT NUMBER TO COMMUNICAT IGN AREA 
023776 104207 060005 MOV #14881 RO : MOVE REQUEST NUMBER TO RO 
024000 HOSTRQ : REQUEST INFORMATION FROM HOST 
024000 020000 001543 *90goq,ios 
; BRANCH/JUMP ADDRESS MUST BE DEFINED 
024002 p RO ; RESTORE SUBUNIT LENGTH 
PrRP x,<RO> 
MOV (SP)+,x 
.ENDR 
024002 104267 MOV (SP)+,RO 
024003 104301 001576 MOV HRO.01,R1 : GET NUMBER OF BAD BLOCKS 





M15 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG=82 12:06:46 - 144-19 SEQ 0818 
BLOBB = FIND HOW MANY WORDS NEEDED FOR THE BAD BLOCKS 

024005 104010 022634 MOV R1,NUMBB ; SAVE NUMBER OF BAD BLOCKS 

024007 105011 ADD R1,R1 3 MAKE BAD BLOCKS * 

024010 105017 7th R1,R0 3 ADD TO SUBUNIT DATA STRUCTURE LENGTH 

024011 GETMEM ; GET REQUESTED AMOUNT OF MEMORY 

024011 020000 022765 “26000 THER. 


F B GETME 
ior! ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
COPYSU = COPY ALL SUBUNIT PARAMETERS TO SUBUNIT BLOCK 


.SBTTL | 
;COPYSU 
: COPY SUBUNIT PARAMETRS TO SUBUNIT BLOCK 
024013 , PUSH RO : SAVE RO 
~IRP X,<RO> 
MOV X,-(SP) 
.ENDR 
024013 100467 MOV RO,=(SP) 
024014 104300 022631 001576 MOV UCURSR,HRQ.01 =; MOVE SUBUNIT NUMBER TO COMMUNICATION AREA 
024017 104207 060004 MOV ATGUPRM,RO ; MOVE REQUEST NUMBER 
024021 CALL __HOSTRQ : REQUEST INFORMATION FROM HOST 
024021 020000 001543 “020000,HOSTRQ 
‘ .IF B HOSTROQ 
-ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED | 
024023 POP RO ; RESTORE RO 
.IRP X,<RO> 
MOV (SP)+,Xx 
.ENDR | 
024023 104267 MOV (SP)+,RO | 
: THESE ARE THE ONLY BITS THAT THE HOST SHOULD SEND TO THE TEST 
077177 VALBIT = INITW!DCYLS!ECCCHK! RONLY! WONLY !RTRIES! SEQSEK !BEUSED ! TRACKS !WCHECK 'WCHKAL 'DAT | 
024024 103200 100600 001576 ° BIC #*CVALBIT, HRQ.01 CLEAR ALL BUT VALID BITS (SUBUNIT PARAMETERS) | 
024027 104301 001577 MOV : GET PATTERN NUMBER 
024031 100671 000004 MOV mt $.PAT(RO) ; SAVE 
024033 104305 001576 MOV HRQ.01,R5 : GET UNIT PARAMETERS 
024035 102205 020000 BIT #DCYLS, *R5 : SEE IF DIAGNOSTIC CYLINDERS ARE USED 
024037 BEQ ; IF NOT, BRANCH 
024037 010000 024047 “010000, 48 
-ERRCI ¢ BRANCH/JUMP ADDRESS MUST BE DEFINED 
024041 102205 004000 BIT #RONLY ,RS ; SEE IF READ ONLY 
024043 BNE 4$ ; IF SO, BRANCH 
024043 050000 024047 ate 
“ERROR; 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
024045 101205 040000 BIS #INITW,RS ; FLAG UNIS AS INITIALLY WRITTEN 
024047 102205 000040 4$: BIT #BEUSED RS : SEE IF BEGIN/END SETS USED 
024051 BNE 3$ : IF SO, BRANCH 
024051 050000 024117 *050000,38 


IF B 
«ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 








N 15 
UDAT4 DISK EXERCISER DMACR X04.01 23=AUG=82 12:06:46 PAGE 144-20 SEQ 0819 
COPYSU = COPY ALL SUBUNIT PARAMETERS TO SUBUNIT BLOCK 





.ENDC 
024053 100175 MOV R5, (RO) : SAVE IN SUBUNIT AREA 
024054 ASSUME S-PARH 0. P + ASSUME THAT S.PARM IS ZERO 
-ERROR : THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 
024054 104201 000013 MOV #S.BESS,R1 ; R1 WILL POINT TO BEGIN/END SET AREA 
024656 105071 ADD 0, ‘ R1 POINTS TO TRACK/GR OUP AREA 
024057 104202 001600 MOV #HRO.03,R2 : Re POINTS TO START/END CYL 
024061 104225 MOV (R2)+,R5 : MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
024062 100615 000002 MOV R5 ate : MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
024064 104225 MOV (R2)+,R5 : MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
024065 100615 000003 MOV R5, 3(R1) ; MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
024067 104225 MOV (R2)+,R5 : MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
024070 100115 MOV RS, (RI : MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
024071 104225 MO (R2)+,R5 t MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
024072 100615 000001 MOV R5S,1(R1) + MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
024074 105201 000004 ADD #4°R1 : R1 POINTS AFTER LIMITING CYLINDERS 
024076 104224 MOV (R2)+,R4 + GET TRACK/GROUP COUNT 
024077 104225 5$: MOV (R2)+_R5 + GET WORD 
0241 100215 MOV RS, (R1)¢ + SAVE 
024101 117404 DEC R4 + DECREMENT CCUNT 
024102 BNE 5$ : IF INCOMPLETE, BRANCH 
024102 050000 024077 “050000 5$ 
-ERROR : BRANCH/JUMP ADDRESS MUST BE DEFINED 
024104 104415 MOV ; GET LAST 1/G 
024105 101205 100000 BIS #100060, RS ; MARK AS END OF LIST 
024107 100115 MOV : SAV 
024110 104201 000020 MOV as. Tesse1, R1  : R1 WILL POINT TO START OF T/G LIST 
024112 105071 ADD ROR + R1 POINTS TO START OF T/G LIST 
024113 105301 001604 ADD HRQ.07,R1 + R1 NOW POINTS TO AFTER T/G'S (FOR BAD BLOCKS) 
024115 BR COPBB + BRANCH 
024115 000000 024157 “00, COPBB 
.1F B COPBB 
ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
024117 104201 000013 3$: MOV #S.BESS,R1 ; RJ WILL POINT TO BEGIN/END SETS 
024121 105071 ADD k ; R1 POINTS TO BEGIN/END SETS 
024122 104202 001600 MOV #HRO.03,R2 + POINT TO BEGIN/END SET COUNT 
024124 104224 MOV (R2)+,R4 : GET COUNT, SEE IF NON-ZERO 
024125 BNE 2 : IF SO, BRANCH 
| 024125 050000 024132 “050000 2$ 
| -ERROR : BRANCH/JUMP ADDRESS MUST BE DEFINED 
| 024127 115404 INC R4 : SKIP COUNT 
024130 101205 000200 BIS #ONLYCL RS + FLAG AS BEGIN/END CYLINDER SUPPLIED 
024132 100175 2$: MOV R5, (RO) : SAVE IN SUBUNIT AREA 
026133 ASSUME Ae Patn , : ASSUME THAT S.PARM IS ZERO 
ERROR; THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 
. L 
0264133 104225 1$: MOV (R2)+,R5 : GET LO STARTING CYL 
024134 100615 000002 MOV R5,2(R1) + SAVE 
026136 104225 MOV (R2)+,R5 > GET HJ STARTING CYL 





B 16 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06: ote PAGE 144-21 
COPYSU = COPY AL IT PARAMETERS TO SUBUNIT BLOC 


024157 
024157 
024160 
024165 
024167 
024167 
024174 
024176 
024200 
024203 
024205 
024205 
0 


024213 
024213 


000003 
000001 
000004 
024133 


100000 


022631 
060005 


001543 


001577 
022634 


024237 
000012 


000016 
024220 


022631 
060006 


001543 


001576 


001576 


COPBB: 


BBLOP: 





mov RS, 3(R1) : SAVE 
MOV (R3)+,R5 : GET LO ENDING CYL 
MOV RS, (RI) : 
MOV (RO)+,RS : GET HI ORDER ENDING CYL 
MOV R5,1(R1) 3 SAVE 
ADD #4 -R1 : R1 POINTS AFTER BEGIN/END CYLINDERS 
Mes : POOP AND Copy 
“050000, 1$ « 
.1F 8 18 
-ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
MOV =(R1) RS : MOVE EOL TO BEGIN/END LIST 
BIS #100000,R5 : SET HI BIT TO FLAG EOL 
MOV R5,(R1)+ : SAVE 
PUSH RO : SAVE RO 
-IRP X,<RO> 
,= (SP) 
ENDR _ zs . 
MOV RO,-(SP) 
mcv UCURSR. HRQ.01 =; MOVE TO COMMUNICATION AREA 
MOV #74881 .RO ¢ MOVE REQUEST NUMBER TO RO 
HOSTRQ- + REQUEST INFORMATION FROM HOST 
*920000,Ho8 ha 
“ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
PoP RO : RESTORE R 
-IRP X,<RO> Sanene AG 
MOV (SP)+,x 


.ENDR 
MOV #HRO.02,R2 : R2 POINTS AT BAD BLOCKS 
MOV NUMBB,R4 : R4 1S NUMBER OF BAD BLOCKS 
BEQ NOBB : IF NO BAD BLOCKS, BRANCH 


MOV (SP)+,RO 


-IF 6B NOBB 
—— 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 


MOV R1,S.BADP(RO) ; MOVE POINTER TO BAD BLOCKS TO SUB PARAM 
CLR R4 ; START LOOP AT Z 


CMP #16. ,R4 : SEE IF SECOND BLOCK NEEDED 
BNE f : IF NOT, BRANCH 
“050000, NOEXTR 
.1F B NOEXTR 
-ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
PUSH RO : SAVE RO 
-IRP X,<RO> 
7 (SP 
a we . (s . 
Vv RO,-(SP 
MOV UCURSR,WRO.01  ; SAVE IN COMMUNICATIUN AREA ' 
MOV #148B2.R0 LOAD REQUEST NUMBER 
TRO : REQUEST FURTHER BLOCKS FROM HOST 


cab HOS 
Ry 7000. vs Ny 


SEQ 0820 





C 16 


UDATS DISK EXERCISER DMACR X94.01 23-AUG-82 12:06: een PAGE 144-22 
COPYSU = L SUBUNIT PARAMETERS TO SUBUNIT BLOC 


COPY AL 


024215 


024227 
024231 
024235 


024237 
024241 
024242 


024244 
024244 
024247 


024251 


024257 


024261 


024261 





SFESERR 


Bb a 
— 
w 
2 


g 
3 


050000 


104267 


001576 


022634 
024201 


100000 


024241 


000012 
000007 


024253 


177777 
022631 


023726 


NOEXTR: 


NOBB : 
CPYBEX: 


NOSUN: 
BSUSEX: 


we 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 


POP RO : RESTORE RO 
~IRP X,<RO> 
MOV (SP)+,x 
.ENDR 
MOV (SP)+,RO 
MOV #HRO.01 ,R2 : POINT R2 TO BAD BLOCKS 
MOV (R2)+,R5 : GET BAD BLOCK 
MOV RS (Ride : SAVE BAD BLOCK 
MOV (RO)+,RS : GET BAD BLOCK 
MOV RS, (RiD+ + SAVE BAD LO 
INC RG : INCREMENT R 
CMP NUMBB ,R4 : SEE IF ALL BLOCKS COPIED 
BNE BBLOP ; IF NOT, BRANCH 
“050000, BBLOP 
.1F B BBLOP 
ERROR 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 
MOV =(R1),R5 : GET LAST BAD BLOCK 
BIS #100000, : FLAG AS EOL 
MOV RS, (R1)¢ : 
BR cPY ; 
“00, CPYBEX 
.1F B CPYBEX 
-ERROR ; BRANCH/JUMP ADDRESS MUST BE DEFINED 
MOV R4,S.BADP(RO) ; FLAG AS NO BAD BLOCKS 
CLR RG : CLEA 
MOV R4,S.SCHR(RO) : FLAG CHARACTERISTICS AS NOT YET DEFINED 
POP <R5,R4,R3> : RESTORE R3 - RS 
-IRP X,<R5,R4,R3> 
MOV (SP)+,x 
.ENDR 
MOV (SP)+,R5S 
MOV (SP)+.R4 
MOV (SP)+.R3 
BSUSEX : BRANCH 
850. BSUSEX 
.1F @ BSUSEX 


-ER ~ » 3 BRANCH/JUMP ADDRESS MUST BE DEFINED 


MO #-1,R0 ; TO FLAG SUBUNIT AS INACTIVE 

MOV RO, (R4)+ : MOVE Te eat TO SUB_PARAM TO UNIT PARAMS 
INC UCURSR : MOVE TO NEXT SUBUNIT 

DEC R5 : DECREMENT COUNT 

BNE SLOP : IF UNEXPIRED, BRANCH 

“050000, SLOP 


-IF B SLOP 
‘car 3; BRANCH/JUMP ADDRESS MUST BE DEFINED 
PoP RO ; RESTORE UNIT POINTER 
-IRP X,<RO> 

MOV (SP)+,x 
-ENDR 


MOV (SP)+,RO 
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OPYSU = COPY ALL SUBUNIT PARAMETERS TO SUBUNIT BLOC 
024262 104177 MOV (RO), RO : GO TO NEXT UNIT 
02496 ASSUME U.NEXT,O 
IF NE ,U.NEXT=0 
“ERROR: THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 
024263 103207 140000 BIC #UNADDR, RO : CLEAR UNUSED ADDRESSING BITS 
024265 106207 037705 (MPs #FIRSTU_RO : SEE IF THE ENTIRE RING IS SET UP 
Oeéze BNE __ SUSETL : , BRANCH 
2567 050000 023715 “050000, Se 
“ERROR; BRANCH/JUMP ADDRESS MUST BE DEF INED 
024271 RETURN 
094571 i, 
034571 000000 000000 00.0 | 
“ERROR; BRANCH/JUMP ADDRESS MUST BE DEF INED 
109 024273 fet 
SBTTL Seeeeeeee NON-LOADED OVERLAY. ERROR MESSAGES 
PPITITIIITIL ITIL LLL TTL T TTT TTT TTT Te RIEATAAAAAAEAAREAAAAEAARAREEEHEEEEEEE 
FERRARA AAEAAEAEEEEEEEEEEEEAEREEEAAARAEAAAAEAEARERAEREREREEEAEEEEEREREEEREREEEEEE 
FERRARA EAEAEEEEEEEEEEEEEEEEEEAEEERAEEEEEEEEREEEEEEEEEEREEEEAEEEEEEEEEEEEEEE 
peeeeeaeaaeee- ARAAAAAAEAEAEEAEAEAAAAAAAAAEERERAARAAEEAAEREAEEEAREREREREEEREEEE 
: ERROR MESSAGE FORMAT BUFFERS (NEVER LOADED INTO UDA) 
024273 DMOVLY MS.0 ERROR MESSAGE OVERLAY 
024973 OVTERM S TERMINATE LAST OVERL 
034973 000105 “WREDC ‘OUTPUT EDC FOR THIS OVERLAY 
022710 OVL.MN = .-OVE. 
02271 0 OVL eee = OVL eee +0VL e AN 
023330 OV. ee = OV. ee +OVL.MN 
-CLEDC CLEAR EDC FOR NEXT OVERLAY 
eMACRO OVTERM 
“WREDC OUTPUT EDC FOR THIS OVERLAY 
OVL.MS = .-OVE. 
WL... © OVL. ..+OVL.MS 
peor OV... s0VL.MS 
SEND 
046660 OVS.MS = OV...#2 
000000 VE.MS = 0 
“OFSET OV...-0 
"NLIST BEX 
“LIST MEB 
000000 042 «= 107._—S ss 124‘ ERT: «ASCII. \TATTN ASSERTED DURING SEEK’ 
000016 042 123 105 "ASCH | \"'SEEK FROM GRP 'RBT CveeD28™ TO GRE "DB" CYL “D28NRI\ 
000050 «000 "BYTE 
900051 042122105. SERZ2: “ASCII \\REAL TIME STATE “HIGN\ 
900064 04212 124 ASCII \“STATUS (R TO L): "WI6S2H16S2H16SZH16S2H16S2H16S2HI6N\ 
000117 «=«042,—i‘“‘<i‘z TCC: ASCIT \VATTW ASSERTED UNEXPECTEDLY, ASYNC DRIVE ERROR OR LOGGABLE"W\ 
000155 042 «2«111'—~Ct«=i‘«<2zY "ASCII \""INFORMATION''N 
000185 «000 "BYTE 0 
000166 042125105 ERB: ©—ASCIT \"'SEEK DID NOT COMPLETE, NEITHER ATTN OR R/W RDY WAS ASSERTED'N\ 
00022 062 36 102—St—t—«208S "ASCII \"BEFORE TIMEOUT’ NA 
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eeeetetere NON-LOADED OVERLAY, ERROR MESSAGES 


900235 042125105 “ASCII \“'SEEK FHOR GRP "DB" CYL "D2B" TO GRP "DB" CYL "DZBNRI\ 
000271 04 122 103«-ER4: ~=—CASCI.\'"RCT AREA CORRUPTED, COULD NOT FIND REPLACEMENT FOR'N\ 
000323 04 114 102 CASCIT \"LBN RIN 

000327 04 101 124 “ASCII \“ATTEMPTED TO READ RCT LON "D28N\ 

900347 42125105 “ASCII \"'SEARCING FOR LBN''S10DZ8N\ 

900365 04g 110105 ERS: © SASCII. \"MEADER NOT FOUND DURING WRITE'N\ 

000405 12 061 042 CASCII \R1"BN “'DZBNR3\ prety aise Laing 
000613 042—s123—=Cs«1085 “ASCII \''SECTORS FROM INDEX "D8" TRK "D8" GRP "D8" CYL “D28N\ 
000645 042 117 122 “ASCII \“ORIGIN OF SEEK: GRP "D8" CYL “D28N\ 

000667 000 “BYTE 0. 

000470 042 «= 101 Ss: 124 SERI9:  CASCII \""ATTEMPT “D3N\ 

000476 122 061 042 CASCIT \R1'BN “D28NR3\ Tibi pin, Re pe 

000505 042 123 105 “ASCII \''SECTORS FROM INDEX "D8" TRK "D8" GRP "D8" CYL “D28N\ 
900557 04g 117122 “ASCII \"ORIGIN OF SEEK: GRP "D8" CYL “D2BNR1\ 

000562 042 123 105 ER6:  -ASCII \"SELECT TRACK AND WRITE LEVEL 1 CMD NOT EXECUTED'NR1\ 
000614 000 “BYTE 0. 

000615 042 105 103 ER7: ‘ASCII \"ECC DETECTED ERROR'NRI\ 

000630 000 “BYTE 0. 

000631 042 105 103 ER8: [ASCII \"ECC DETECTED ERROR, BUT CORRECTION FAILED'NR1\ 
000660 000 “BYTE 0, 

000661 042 105 SER21: ‘ASCII \"RETRY “D4N\ 

000666 042 105 122 “ASCII \“ERROR RECOVERY LEVEL “D8N\ 

000703 122 061 042 “ASCII \R1"BN > 

000712 042 105 -ASCII \"'SECTORS FROM INDEX "D8" TRK "D8" GRP "D8" CYL “D28N\ 
000744 000 “BYTE 0 

000745 042 105 103 ER9:  cASCII \"ECC CORRECTIONS EXCEED THRESHOLD'NR1\ 

000767 000 “BYTE 0, 

000770 042 105 103 ER10: ASCII \"ECC CORRECTION SUCCEEDED, BUT EDC DETECTS ERRORNR1\ 
001022 042 105 104 CASCIT \“EDC COMPUTED "O16N\ 

001033 042 105 106 “ASCII \"EDC READ'’SSOT6N\ 

001043 000 “BYTE 0 

001044 042 122 105 ER11: [ASCII \"READ DID NOT SUCCEED ON ANY RECOVERY LEVEL'N\ 
001072 122 «= 061s CASCIT \R1"BN "'D28NR3\ 

001101 042 107 122 CASCIT \"GRP "D8" CYL "D28N\ 

001112 000 “BYTE 0, 

001113 042 «= 104. = 107.«ER12: += TASCII «\"'DATA COMPARISON FAILED'NR1\ 

001130 122 061 042 “ASCII \R1°BN “D28N Se ee ee es 
001137 042 123—Ss«*105 “ASCII \''SECTORS FROM INDEX "D8" TRK "D8" GRP "D8" CYL “D28N\ 
001171 042 120 101 “ASCII \“PATTERN NUMBER "D4N\ 

001203 042 #8117 «= 106 “ASCII \"OFFSET OF ERROR WITHIN BUFFER: "D8N\ 

001225 042 117 106 “ASCII \“OFFSET OF ERROR WITHIN DISPLAYED LIST: "D8" (1ST WORD OFFSET 0)'N\ 
001266 123 0646 = «117 “ASCII \$4016$4016$4016S4016S4016S4016N\ 

001306 125064117 “ASCII \$4016S4016S4016S4016S4016S4016N\ 

BO1326 042 105.103 SER24: ASCII \"ECC OR EDC HAD DETECTED ERROR IN BUFFER" N\ 

001334 042 105.103 SERZ5: ASCII \"ECC OR EDC HAD <<NOT>> DETECTED ERROR IN BUFFER'N\ 
001406 = 042 104122 ERT3: ASCII \"DRIVE NOT ONLINE TO UDA, AND NOT SPINABLE"N\ 

001435 042 125 116 ER14: ‘ASCII \"UNABLE TO COMPLETE SEEK =~ TRIED 3 TIMES'N\ 

Oor4g2 = 1286148 CASCIT \R1"'BN “"D2BNR3\ 

001471 042 107 12 “ASCII \"GRP “DB” CYL "D28N\ 

001502 000 “BYTE 0 
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0015 04 123 105 ERTS: ASCII \SEEK REQUIRED "D2" RETRIES BEFORE COMPLETING’ N\ 
0015 12 061 04 “ASCIT \RIBN, “D2BNRSN, 
001541 0462 107 ~ 12 SASCIT \"GRP "DB" CYL "D28N\ 
00155 000 “BYTE 
00155 042 105 122 ER16: ASCII \"ERRORS DURING DRIVE INITIALIZATION AND SETUP"NR1\ 
001603 000 “BYTE 0. 
001604 042 116 117 ER17: CASCII \‘'NO VALID STATE FROM DRIVE'N\ 
OO16ee 42116117 SASCII \"'NO DRIVE CLOCKS'W\ 
0016 000 “BYTE 0. 
QO1634 = 04g 116117 ERITA: ASCII. \''NO VALID STATE FROM DRIVE'N\ 
Qo1gs2 042110101 “ASCII \"WARD PARITY OR PULSE ERROR FOR 1/2 A SECOND'N\ 
001702 = 042 101,«S 124 ERI: += -ASCIZ_\"‘ATTEMPT TO WRITE ON WRITE PROTECTED DRIVE'N\ 
001730 042 105 122 “ASCII \"ERROR CODE RETURNED FROM UDA: "O16NR1\ 
001753 000 “BYTE 0 
001754 4z 119105 ERT9: “ASCII \"WEADER NOT FOUND DURING READ'N\ 
001773 9122S (0612 “ASCII \RIe ; 
002002 042 123 105 ASCII \“SECTORS- FROM INDEX "D8" TRK DB" GRE “DB CYL “D2EN\ 
072034 042 117 ~~ 122 ASCII \"ORIGIN OF SEEK: GRP "D8" CYL "D2BN 
002055 000 “BYTE 0, 
002056 04g 123105 R20: ASCII \"'SELECT TRACK AND READ LEVEL 1 CMD NOT SENT'NR1\ 
2106 = 042s 122 ER21: <ASCII \"DRIVE NOT FORMATTED IN 512 BYTE MODE == UNABLE TO TEST'N\ 
002142 042 130 102 “ASCII \""XBN 0 MODE WORD: "OT6N\ 
002156 000 “BYTE 0. 
002157 = 042-125) 116 ER23: «— CASCII. \"'UNABLE TO CONTINUE TESTING’ NRIR1\ 
002177 000 “BYTE 
90220 04g 122,125 SER42: ASCII \“RUN/STOP SWITCH OUT'N\ 
002214 042 123 120 SER43: [ASCII \"'SPINDLE DROPPED READY'N\ 
0022 000 “BYTE 0, 
002231 042 120 117 SERG4: ‘ASCII \"PORT SWITCH OUT'N\ 
002242 000 “BYTE 0 
00cee3 042 120101 SERGS: ASCII \“PARITY ERRORS FOR MORE THAN A HALF SECOND'N\ 
002272 042 105 104 ER24: “ASCII \"EDC DETECTED ERROR BUT ECC DID NOT'WRI\ 
002315 042105104 “ASCII \"EDC COMPUTED "O16" EDC READ “O16N\ 
002337 896 042-127) 122:«ER25: = TASC. \"WRITE ATTEMPTED MAXIMUM TIMES'N\ 
002357 122 —Ss«061 S(O “ASCII \R1"BN "“DZBNR3\ 
002365 000 “BYTE 0 
002 042 122 105 ER26: ASCII \"'READ ATTEMPTED MAXIMUM TIMES'N\ 
002405 122 061 042 “ASCII \R1"BN "DZENR3\ 
002414 000 “BYTE 0 
002615 042, 102,117 ER2B: ASCII \"BOTH READ ONLY <AND> WRITE ONLY BITS SET ~~ HOST ERROR'N\ 
002452 42 125116 ER33: ASCII \"UNABLE TO CORRECTLY READ OVERLAY “O1GNR1\ 
002677 042126110. SER39: ASCII. \"THIS UDA AND ALL DRIVES ATTACHED WILL BE REMOVED FROM TESTING'N\ 
00540 42 125105 ER34: ASCII \"'SERDES OVERRUN ERROR DURING READ'NRT\ 
002563 = 04 104101 ERSS: ASCII he ATA OR STATE CLOCK TIMEOUT DURING READ'NR1\ 
00261 042 106 101 ER36: cASCII \"DATA SYNC TIMEOUT DURING READ'NR1\ 
00263 000 “BYTE 0 
26 042 122 057 ER37: [ASCII \"R/W RDY DROPPED BEFORE/DURING READ'WR1\ 
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002657 





ESTSESESTSELStecetacscuReses 


oo 
s 


_ 
™m 
~™ 


SENSNS 


_ 
Nm 
~m 


SERS 


o-o— 
SRSR 


_ 
nN 
™m 


i} — —) 
090 M0 
SEW WEES 


_~ = 
nm NH 
_u OS 


124 
107 


123 
123 


122 
122 


061 


061 
104 


117 


105 
105 
101 
057 
103 
042 
042 


042 
101 


042 


042 
116 


042 
042 


042 
131 


122 
042 


122 
105 


120 






BYTE 

ER38: .ASCII 
BYTE 

ER4O: .ASCII 
ASCII 

ASCII 

ASCII 

-BYTE 

ER41: .ASCII 
ASCII 

ASCII 

-BYTE 

SER26: .ASCII 
BYTE 

SER32: .ASCII 
-BYTE 

ER42: .ASCII 
ASCII 

-BYTE 

ER44: «ASCII 
-BYTE 

ER45: .ASCII 
YTE 

ER47: .ASCII 
-BYTE 

ER48: .ASCII 
YTE 

ER49: =. ASCII 
-BYTE 

ER5SO: .ASCII 
-BYTE 

ERS1: .ASCII 
-BYTE 

ERS2: .ASCII 
ASCII 

-BYTE 

ERS3: .ASCII 
-BYTE 

ERS4: .ASCII 
ASCII 

-BYTE 

ERSS:  .ASCII 
-BYTE 

ERS6: .ASCII 
-BYTE 

ERS7: .ASCII 
ASCII 

-BYTE 

ERS8: .ASCII 
-BYTE 

ER59: .ASCII 
-BYTE 

ER62: .ASCII 
ASCII 

BYTE 

SER20: .ASCII 
-BYTE 
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0 

\"'RCVR RDY DROPPED BEFORE/DURING READ''NR1\ 

\V"ALL COPIES OF RCT READ WITH ERROR, SEARCHING FOR''N\ 
\"LBN “RIN 


\"LAST RCT LBN SEARCHED ‘D28N\ 
\'"SEARCING FOR LBN’'S6D28N\ 


\"COULD NOT FIND REPLACEMENT FOR''N\ 

\"LBN "RIN 

“LON TO REPLACE ‘D26N\ 
"THAT WAS REVECTORED’ 'W\ 
wW 


“WITH HEADER NOT FOUND’ 'N\ 


o 


or 


‘TIMEOUT WAITING FOR SECTOR OR INDEX PULSE’'N\ 
‘GRP ‘DB"* CYL 'D28NR1\ 
's 


“SEEK OR HEAD SELECT ERROR DETECTED DURING WRITE’ 'WR1\ 

“SEEK OR HEAD SELECT ERROR DETECTED DURING READ’'NR1\ 

\"DATA OR STATE CLOCK TIMEOUT DURING WRITE''NR1\ 

\""R/ RDY DROPPED BEFORE/DURING WRITE’ 'NR1\ 

\""RCVR RDY DROPPED BEFORE/DURING WRITE’'NR1\ 

\R1°BEGIN/END SET STARTING BLOCK NUMBER GREATER THAN ENDING BLOCK NUMBER'N\ | 
\R1'"THE BEGIN/END SETS GIVEN OVERLAP’ W\ 


\R1°'BEGIN/END SET ENDING BLOCK NUMBER EXCEEDS MAXIMUM’ 'N\ 
\" MAXIMUM BLOCK NUMBER ON DEVICE IS ‘D28N\ 


} 
| 
\R1'DUPLICATE BAD BLOCKS'N\ | 
\R1°'BAD BLOCK NUMBER EXCEEDS MAXIMUM. MAXIMUM BLOCK NUMBER’ 'N\ 
| 
| 
| 
| 
| 
| 


o-oo 7~or7o-o- 


o-oo 


\"ON DEVICE IS ‘D28N\ 
\R1'STARTING CYLINDER GREATER THAN ENDING CYLINDER’ W\ 
\R1°RANDOM AND SEQUENTIAL SEEKS CAN NOT BE MIXED WITHIN A UNIT'N\ 


0 
\R1°OVERFLOW WHEN CALCULATING THE L/DBN FROM THE GIVEN CYLINDER’ W\ 
\""CYLINDER TOO LARGE’ W\ 


\RIRT”* EXCEEDS MAXIMUM FOR DEVICE. MAXIMUM IS “D8N\ 
\R1""TWO IDENTICAL *'R1°'S'W\ 


R1R1°'BN COMPUTED FROM END CYLINDER GIVEN EXCEEDS MAXIMUM ‘'R1°BN ON'W\ 
“DEVICE = CYLINDER TOO LARGE’'W\ 


“OPERATOR ERROR IN ANSWERING MANUAL INTERVENTION QUESTIONS FOR THIS UNIT’W\ 
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SENAY INE SO 
MONVSUEU 


2S 


WWII NINIRINIRININ 
VN =U 


SARREE 


spessessssesssssssseseses 


SESEIE 


ESE 


SESESESESES 


oS 
& 
Nm 


ESESESES 


042 


122 
122 
125 
125 
105 
124 
124 
106 


105 
105 
116 
116 
122 
111 
111 
111 


ER63: 
ER64: 
ER68: 
ER69: 
SER36: 
ER70: 
ER71: 
ER72: 
ER73: 
ER74: 
ER75: 
ER76: 


ER77: 
ER78: 


SERO: 
SER1: 
SER2: 
SER3: 
SER4: 
SERS: 
SER6: 
SER7: 
SER8: 
SER: 


ER1000: : 





ASCII 


\""REAL TIME STATE RECEIVE ERROR DURING WRITE’'NR1\ 
\"REAL TIME STATE RECEIVE ERROR DURING READ’'WR1\ 
\""UNKNOWN ERROR CODE DURING WRITE’'WR1\ 

\"UNKNOWN ERROR CODE DURING READ''NR1\ 

\"ERROR CODE RETURNED ‘016NR1\ 

\""TIMEOUT OF SEND*'NRIR1\ 

\""TIMEOUT OF RECEIVE’'NRIR1\ 

\""FIRST WORD RECEIVED WAS NOT START FRAME’'NRIR1\ 
\'"FRAMING ERROR ON LEVEL 0 RECEIVE'WNRIR1\ 

, oem ERROR ON LEVEL 0 RECEIVE’ WRIR1\ 
\"'BUFFER SIZE SMALLER THAN LEVEL 2 RESPONSE’ 'NRIR1\ 
C RESPONSE OF LEVEL 2 CMD NOT AS EXPECTED’'NR1\ 
\"RESPONSE RECEIVED “HENA1\ 

\""DRIVE NEVER DEASSERTED RECEIVER READY AFTER SEND''WRIR1\ 


\SUNKNOWN ERROR CODE RETURNED FROM LEVEL 2 RECEIVE’WR1\ 
\"ERROR CODE RETURNED *‘O16NR1\ 


\""ATTEMPTING TO GET STATUS''N\ 
\"ATTEMPTING DRIVE CLEAR CMD''N\ 
\"ATTEMPTING TO BRING DRIVE ONLINE’'N\ 
ATTEMPTING TO CHANGE MODE''N\ 
\""ATTEMPTING ERROR RECOVERY CMD''N\ 
\""ATTEMPTING TO GET SUBUNIT CHAR’ W\ 
\""ATTEMPTING TO SPIN UP DRIVE’'N\ 
\""ATTEMPTING TO RECALIBRATE''N\ 
\""ATTEMPTING TO GET COMMON CHAR''N\ 
\"ATTEMPTING TO ISSUE SEEK''N\ 


\"'UNABLE TO FIND REQUESTED DRIVE FOR TESTING’ N\ 
\""THE FOLLOWING IS VISIBLE ON THE PORTS’'W\ 


\"UDA PORT 0 == “'R1\ 
\'UDA PORT 1 == "'R1\ 
\"'UDA PORT § o- RIN 
\"UDA PORT 3 == ‘RI\ 


SEQ 0826 
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5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


BASUNSNEUONA 


LYWIWIWIWinhon 
VW = Or 
wr 


735 
113 005735 
005736 


-OoO— 
R>38> 


Snes 


SS 


116 
122 
124 
124 
106 
106 


042 


117 
103 
111 
111 
111 
122 
110 


122 


SER10: 
SER11: 
SER12: 
SER13: 
SER14: 
SER15: 
SER16: 
SER17: 
SER18: 


SER18D: 
SER18C: 
SER18B: 
SER18A: 


SER4O: 
SER41: 


RBNTXT: 


TRK$: 
GRP$: 
L$: 
DS: 
RCTLS: 
-SBTTL 





No DRIVE ATTACHED’ 'W\ 

\""RCVR RDY NEVER ASSERTED’ 'N\ 

\""TIMEOUT OF SEND''N\ 

\""TIMEOUT OF RECEIVE’'N\ 

\'"FIRST WORD RECEIVED WAS NOT START FRAME''N\ 
\'"FRAMING ERROR ON LEVEL 0 RECEIVE''N\ 

\'"CHECKSUM ERROR ON LEVEL 0 RECEIVE''N\ 

\""RESPONSE LONGER THAN EXPECTED FOR GET STATUS CMD''N\ 
\ DRIVE "RIN 


\D12"", '\ : NOTE: THE STRING WITHIN THE \\'S <cMUST>> 
\D12"", tN ; BE AN EVEN NUMBER OF CHAR, BECAUSE T 

\Di2", "N ; LABELS WILL FORCE WORD ALINGMENT, LEAVING 
\D12N\ ; JUNK IN THE LAST BYTE. (SER18A OK TO BE ODD) 


\"'DRIVE NOT AVAILABLE TO THIS UDA''N\ 
\""UNSPINABLE DRIVE "'R1\ 
\""REVECTORED TO RBN ‘D28N\ 

\""TRACK’'\ 

\""GROUP*"\ 

VUN 

0 

VD" 

0 

\'RCT LN 


BY 
INFORMATIONAL MESSGES 


MESSAGES 


\N'INITIAL WRITE COMPLETE’'N\ 


\N''THE PREVIOUS DEVICE FATAL WILL CAUSE THE FOLLOWING DRIVES'W\ 
\""TO BE DROPPED: “'R1\ 


\N'"A CORRECTABLE ECC ERROR EXISTS IN “'R1'BN ‘D28N\ 
\""SECTORS FROM INDEX "D8" TRK ‘D8’ GRP ‘'D8"’ CYL ‘D28N\ 


gress ONLY DRIVE, INITIAL WRITE WILL NOT BE PERFORMED’ 'N\ 


OUTPUT EDC FOR THIS OVERLAY 
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SYMBOL TABLE 
AFTOP. 005403 CPYBEX 024241 ECCCHK= 010000 ER49 003270 GORCLB 005076 
AFTWRT 010744 CR.CLR 002364 ECCFLG= 010000 ERS 000365 GORTRY 005056 
ALLOCM 010271 -DIS 002410 ECCRSH= 000002 ERSO 003315 GOSEEK 
ATIN = 2 -ERR 2403 ECHO = itd ERS1 003362 GOTOBE 005711 
AVAIL = 000100 CR.GCR 855008 ECHOC = 000350 Ene 003405 GOTOFS 005714 
BBLOP 024201 CR.GST 002355 EDCLOP 001647 ERS 003465 041T 003722 
BE 006323 CR.INR 002415 ENABLE 005036 ERS4 003502 GROUP 02766 
BESDWN 006167 CR.MOD 002371 oc = 1000 ERSS 003552 GRPCYL= 000002 
BESUP 006321 CR.ONL 002352 ERCOV 014104 ER56 003604 GRPOFF= 000011 
BEUSED= 000040 CR.RUN 022620 ERECOV= 00000 ERS? 003644 GRP$ 05513 
BF .DAT= 000000 CR.SCR 022613 EREX 420 ERS8 003717 GST 002430 
BF ..ECC= 000401 CR. 002376 ERHARD= 1 ERS9 003750 HBHINB= 007777 
BF .EDC= 000400 CSCEXT 014512 ERLEV = 000002 ER6 000562 HBLONB= 170377 
DBB_E 023772 002760 ERMASK= 100000 ER62 003765 HDRPRE= 000005 
BLOUNT 023573 CvT = 000020 ERMODE 003011 ER63 004115 HD.BAD= 110000 
KC 246 CYL 764 ERR 02436 ER64 004145 -DBN= 140000 
= CYLBN 020241 ERRLEV 002437 ER68 004175 HD.LBN= 000000 
BSUSEX 024253 CYLSCR 0 ERRMC = 060014 ER69 004220 -PRV= 050000 
BUFARA= 01 C2DF TL= ERRMES= 060013 R7 000615 HD.RBN= 060000 
BUFFLG= 040000 C2HARD= 040000 ERRPOS 003013 ER70 004261 HD.REV= 03 
BUFSIZ= 000043 DATCMP= 000002 ERSOFT= 140000 ER71 004275 HD.XBN= 120000 
BU 007746 DATPRE= 000005 1 000000 ER72 00431¢ 02755 
L 002552 DBNCYL= 000022 10 000770 ER73 004342 HIBYTE= 177400 
CALC 005541 ER1000 005066 ER74 004366 HICYL = 000001 
CALCSC 00 DCLOCK= 000004 11 001044 ER75 004413 HIDBN = 000003 
22773 02427 ER12 001113 ER76 004444 HILBN = 000002 
CHAINS 00 DCMPAL= 000001 ER13 001 ER77 004523 HIMEM = 037777 
HGMOD= 000201 DCMPYS 005535 ER14 01435 ER78 004557 HIRBN = 000003 
CHKBB. = 021155 24 ER15 001503 ER8 000631 HISEED 003010 
CHKBES 020324 DCYLS = 020000 ER16 001553 ERO 000745 HIXBN = 00 
CHKCYL 020122 DEBUG = 000000 ER17 001604 EXIT = 000021 HOSTRQ 001545 
CHKON 721 DIE = 000002 ER17A =0vul6 FB.DAT= 000000 HRDREV= 000003 
CHKECC 013437 DINIT = 000011 ER18 0170 FB.EDC= 000400 HRQ. 1575 
CHKEDC 013016 DIREC = 010000 ER19 001754 FCTSIZ= 000010 HRQ. 101576 
CHKTG 021346 2422 ER2 000117 FIRSTU= 037705 ° 01577 
CHKUP 756 DISCON= 000204 ER20 002056 FIXPAT 005455 ° 001600 
H 003017 E = 060016 ER21 002106 FNDBES 006343 ° 001601 
CHRRES= 000170 DOWNG 00752 ER23 002157 FNDLOP 006353 HRQ.05 001602 
CLCLBN 005773 DOWNT 007333 ER24 002272 FNDRER 012070 ° 001603 
CLCMAX 020711 DRC 00 ER25 002337 FORMAT= 00000i HRQ.07 001604 
CMPDAT 014403 DRINIT= 040000 ER26 002366 FSTOP = 100000 HRQ.08 001605 
CMPEDC 001640 DROP = 100000 ER28 002415 FTIME = 001000 HRQ.09 001606 
CMPERR 014520 DRPALL 016727 ERS 000166 FTLDEV= 040000 HRQ.10 001607 
CMP2 002536 DRTYPE= 000007 ER33 002452 FTLSYS= 000000 HRQ.11 001610 
CMXEX 014721 DRVCLR= 000005 ER34 002540 FT.BUF= 000000 HRQ.12 001611 
002563 T.HI = 000001 HRQ.15 O0isi2 
002612 FT.LOW= 00000 HRQ.14 001615 
002634 FWRD 01451 HRQ.15 001614 
002660 GCR 22626 HRQ.16 001615 
Bogert GETCHR= 000207 HRQ.17 001616 
002705 GETMEM 022765 HRQ.18 001617 
002775 GETSER 021707 HRQ.19 001620 
Bp 3068 GETSTA= 000011 HRQ.20 001621 
0031 GETSUB= 000210 HRQ.21 00162 
003162 GETU 023101 eee 00102 
003214 GMPARM 023056 -23 001624 
003243 GOINIT 005106 ~24 001625 


——— aa ey 


| 


' 


K 16 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE 144-30 SEQ 0829 | 
SYMBOL TABLE 
HRQ.25 001626 MAXSND= 001750 PATPTR 003021 001453 SER1 005333 
HRQ.2 ide MEDTYP= 000006 PATO 003041 RTRIES= 001000 SER1 005356 
HRQ.27 0016 MPCL 00301 003063 022625 SER18 005410 
HRQ.28 001631 MESSAG= 06001 PAT10 003212 dey 015603 SER18A 005432 
HRQ. 001632 MICREV= 000003 PAT11 003234 WRDY = 100000 SER1 005426 
HRQ. 001633 OOP 023014 PAT12 003237 RW.ANG= 000007 SER18C 005422 
HRQ.31 001634 opeses PAT13 003261 RW.BUF= 000002 SER18D 005416 
HRQ.32 00163 MODS12= 126736 PAT14 003303 -CMD= 000005 SER18E 023547 
HRQ.33 001636 D576= 074163 PATIS5 003310 RW.CPT= 000000 SER18F 017001 
HRQ. 001637 MOVDBN 002705 PAT2 003066 RW.HI = 000004 SER19 000470 
D 006707 MOVOUT 002746 PATS 003071 RW.LOW= 000003 004665 
INCODT= V 0065 PATS 003074 RW.SDI= 000006 SER20 004047 
02771 RD = 000016 PATS 003116 RW.STA= 000001 SER21 000661 
INITD 022427 MS1 005527 PAT6 003140 yore BOO 167 SER22 000051 
INITW = S2 005545 PAT? 003162 017514 SER24 001326 
INR 002431 MSS 005616 PATS 003165 CHARI 020761 SER25 001354 
INS 002432 005701 00320 SCHRCP 020072 SER26 003035 
INSEEK= = 000017 PHYSA = 001000 SCR 022627 004707 
017005 M.PARM 003006 UM 00300 SCR1 003002 SER32 003051 
INTEDC= 000 NEWDNT 007622 PREVBE 006414 SCR2 03003 SER36 004242 
INTINP= 10 NEWEXT 014400 DA = 00000 SCTWRD= 000377 SER39 002477 
IRECLB= NEWLEV 014205 RANDOM 00556 SDIVER= 000006 004726 
ISUEXT 016216 N 05344 RBLOCK 011754 SDIS_ = 000003 SER4O 005435 
ISUSEK 016133 NEWSUB= 004000 N = 00020 SEARCH 015255 SER41 005457 
IWIPRG= NEWUPT 7573 RBNFLG 002763 SECCHK 012134 SER42 002200 
JMPRET 003 NEXTBE 006460 RBNTRK= 000004 SECCYL 022641 SER43 002214 
LASTU 022632 NLBEXT 006171 RBNTXT 005472 SECGRP 022640 SER44 002231 
LBHINB= 177417 NLEV 014171 UFLN= 000415 SEC 03016 SER45 02243 
LBLONB= 177760 024237 RCBREQ= 002000 SECPTR 010300 004747 
LBNCYL= NOBORO 005727 T = 0000 SECTOR 002770 SER6 004770 
LBNHST= 000012 NOEXTR 024220 RCTCPS= 000001 SECTRK 2637 SER? 005010 
LBNTRK= NOSEEK 016047 RCTCSZ= 000014 SEC512= 000400 SER8 005027 
LEVNZR 014334 S 00 RCTL$ 005523 SEC576= 000440 005050 
LEVUSD= 0 NOSUN 024251 vV___= 000005 SEEK 15642 SETSEC 007705 
LINKLN= 000010 023674 RCVERR= 000400 SEKCNT 016274 005134 
LNCONT 002670 NOUNIT 003352 RCVRDY= 000001 SEKEXT 016053 SHRTTO= 00 
LNCYL 22634 RDSTAT 001470 SEKINP= 002000 SLOP 023726 
LOBYTE= 0003 NUML2S= 000010 AD 011 SEKOUT 016052 SMASKL 017525 
LOCYL 002433 TR= 000005 RECALB 016635 SEKREQ= 004000 SMASKX 017533 
= 002414 NXTLEV= 010000 RECOVR 004505 SEKTST 016220 SNDAGN 001550 
TO= 015432 REDWRT= 000100 = 000004 014401 
LOSEED 7 NXTTRK 006543 RETRY = 001000 SEQBE 006060 SNDONE= 002356 
LRDTRK 00 ONEPAT 010465 RETS_ = 000001 SEQLP 03377 017 
LSTMOD 014726 ONEPAX 014501 REVCT 01500 SEQNCR 003375 SORTBB 017403 
LSTOVL ONL 002440 REVEC = 000400 SEQSEK= 000100 SORTBE 017302 
LSTTRK 007717 ONLYCL= 000200 = 00 SEQTG 07147 SORTTG 017461 
L 5517 OUTO 006364 REVSOK 015135 SERCHN 022420 SPINUP 017204 
L2.E0F= OVE .MN= 001364 = 000 SERRTY 022417 Ss = 000001 
L2.ERS= 000003 OVE .MS= 000000 RNDBE 005650 SERSEC= 023057 ST 02442 
L2.0PC= OVL.MN= 022710 NDTG 006737 0 004630 STAC 01416 
L2.RLN= 000002 OVL.MS= 005737 5447 SER1 004646 STACYL 002756 
2. SLN= 1 OVL...= 030647 RONLY = 004000 SER10 005205 022654 
SK 630 OVSTRT= 001362 T 3315 SER11 Bpes$e STATUS= 000007 
MAXDBN 022635 VS.MN= 00104 ROOTLP 003320 senile 005236 003370 
MAXMSK= 177740 OVS.MS= 046660 = 013400 SER1 005250 STSERR 01642 
MAXMUM 006366 OV... = 031267 RSTOP = 100000 SER14 005263 STSEXT 01665 
MAXSEC 003020 PATEXT 005457 RTDS 001417 SER15 0053511 TSRES= 000366 








L 16 
UDATS DISK EXERCISER DMACR X04.01 23=AUG=82 12:06:46 PAGE 144-31 SEQ 0830 | 
SYMBOL TABLE 
ST.C_ = 000002 S.LETR= 000005 ieee = 060002 U.COPY= 000057 U.SUBP= 000001 
ST.CON= 000002 S.MCNT= 000013 T2DLL = 060001 U.CSEC= 000024 U.SUBU= 000050 
ST.DB = 001000 -MEGR= 000010 4881 = 060005 U.CTRK= 000020 U.TIMH= 000005 
ST.DE = 0002 S.MEGW= 000011 T4BB2 = 060006 U.ECCT= 000032 ‘J.TIML= 000006 
ST.DF = 000020 S.PARM= 000000 T4MPRM= 060003 U.ELEV= 000027 U.TSEC= 000025 
ST.DR = 000040 S.PAT = 000004 T4MXFR= 060011 U.LCYL= 000067 U.UNUM= 000063 
ST.EL = 000010 $.SCHR= 000007 T4SEEK= 060010 U.LGRP= 000071 U.WPRT= 000045 
ST.ERR= 000602 $.SDCL= 000002 T4SOFT= 060007 U.MASK= 000025 U.WRIT= 000026 
ST.FO = 002000 $.SEEK= 000001 T4UPRM= 060004 U.MBN = 000051 VALBIT= 077177 
ST.MOD= 000001 $.TGOF= 000015 UCURSR 022631 U.MLEV= 000031 VALID = 100000 
ST.MSK= 000000 $.TGSS= 00001 UDADM4= 001 G U.MSEC= 000022 WAITSI= 000012 
ST.OA = 000200 S.TRKL= 000006 UDASO = 000000 U.MSTO= 000011 WBLOCK 010550 
ST.PE = 000040 TALK 001670 UDAS2 = 000001 U.NEXT= 000000 WBUFLN= 000401 
ST.PS = 000002 TGS 022642 0 U.NFUN= 000013 WCHECK= 000010 
ST.RE = 900700 TG 0216 K 3 U.NSEC= 000021 WCHKAL= 000004 
ST.REQ= 000001 THREBE 005705 UNADDR= 140000 U.PARM= 000046 WCONT = 040000 
ST.RR = 000 TLEN.U= 0000 UNITS 023553 U.PAT = 000014 WONLY = 002000 
T.RTY= 000003 TLKHST 001517 UNSSUC= 000175 U.PCTG= 000017 WREAL = 122400 
«RU = 000001 TMEMPL 010277 U.RBN = 000055 WRITBT 002425 
ST.SR = 000020 TO 017167 UPG 007427 U.RCOV= 000047 WRITE 010 
-S$7 = TRACK 002767 UPT 00724 U.RRTY= 000010 WSTOP = 140000 | 
-UNT= TRACKS= 000020 UREAD = 000013 U.RTRY= 000036 XBNCYL= 000021 
ST.WE = 0000 TRA 020027 TST= U.RVER= 000062 XFERRT= 0000 
S 020044 TRKGRP= 000003 UWRITE= 000014 U.RWER= 000061 XOPLPO 014455 
SUBUNT 022630 TRK 005507 U.CBN = 000053 U.RWTO= 000012 XOPLP1 014463 
T 4 TROOT 023012 U.CCNT= 000015 U.SDIL= 000034 XOPLP2 014502 
SUSETL featls TRYAGN 005667 U.CCOP= 000060 U.SDIS= 000033 XREAD = 000002 
SWAPBE 017351 TSTNEC 016055 U.CCYL= 000064 U.SDI2= 000035 XWRITE= 000003 
s- tee sash} TIMSIZ= 060000 U.CGRP= 000066 U.SRTY= 000007 ZEREDC 001660 


. ABS. 062556 000 | 
00 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY mat salt ta WORDS ( 146 PAGES) 
DYNAMIC MEMORY ABLE FOR 71 PAGES 
-B:UDAT4.L52/C= 30. SODMACSo/M, B:UDAT4 








UDAT4 DISK EXERCISER DMACR X04.01 23=AUG=82 12:06:46 PAGE S=1 


CROSS REFERENCE TABLE (CREF V04.00 ) 


AFTOP 64-28 
AFTWRT 98-129 


144-108 
98-99 


73-68 
100-244 
-17 


98-114* 
144-1084 
144-1084 
100-89 


144-1084 
144-108 


1 
98-1074 


74-145 


74-1408 


63-42 


105-85 


104-58 


84-17 
96-21 


52-18 
52-16 


125-42 
105-112 
105-60 


103-13 


116-86 
142-49 
124-39 


94-45 


134-39 
95-18* 
113-6 


58-24 
144-108* 


75-13 
108-60 
106-70 


85-65 
97-24 
5 


52-2 

52-23 
130-97 
106-71 
109-93 
104-56 
119-75 


130-151 
114-25 


134-57 
98-79 


109-244 
142-178 


40-11 


52-27 
54-41 


134-17 


106-97 


117-16 
138-14 
99-7 


40-12 


M 16 


54-18 54-77 
119-82 120-56 
134-43 134-61 
142-179* 

8-26 138-40 
100-49 102-6 
40-13 40-15 


55-11 11989 144-108 

144-108 
137-59 144-108 144-108 144-108 
144-1084 
103-9 104-42 105-41 105-104 106-39 
144-108 


SEQ 0831 | 


109-40 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:06:46 PAGE S-2 
CROSS REFERENCE TABLE (CREF V04.00 ) 


COPLPO 98-924 98-102 
COPLP1 98-964 98-101 
COPLP2 98-1044 98-106 
COUNTD 72-38 72-424 
CPYBEX 144-108 144-1084 
CR.CLR 40-94% 56-52 
R.DIS 40-134 47-40 
R.ERR 40-124 108-66 
CR.GCR 123-33 144-10 
CR.GST 40-84 54-44 
CR.INR 40-154 120-39 
-MOD 40-1 56-62 
CR.ONL 40-64 56-9 
R.RUN 124-32 144-1084 
CR.SCR 130-5 144-1084 
CR.SEK 40-114 118-9 
CSCEXT 109-76 109-864 
CURBN 45-5# 80-13* 
96-44 96-73* 
114-41 117=10* 
CVT 5-19% 44-62 
CYL 45-84 80-19 
142-78 
YLBN 132-11 132-24 
CYLSCR 80-18 80-30 
$ 30-82 134-65 
D.LIMT 9-44 43-158 
;D.SCHR 9-5# 43-18 
DATCMP 9=-S7# 64-14 
DATPRE 6-324 99-10 
DBNCYL 6-414 136-10 
DCEXT 68-7 68-11 
DCLOCK 7-248 34-33 
CLR 40-25%  56-51* 
DCMPAL 9-594 68-12 
DCMPYS 68-13 68-174 
DCRE 68-9 68-124 
DCYLS 9-444 63-8 
E 1-564 2-2 
109-32 =111-30 
IE 9-108 123-40 
DINIT 5-124 59-56 
DIREC 9-178 49-14 
Is 40-13 40-204 
DISCON 7-324 40-20 
DONE 7-184 47-52 
DOWNG 85-41 89-24 
DOWNT 85-39 87-24 
DRC 40-9 40-244 
DRINIT 9=-32# 54-28 
ROP 9-154 47-30 
130-126 130-142 
DRPALL 55-37 121-248 
DRTYPE 6-154 
DRVCLR 7-37#@ 40-26 
DRVEKT 144-74 144-898 


142-80 
80-15* 


116-36 
124-41 


49-116 


137-73 


144-108 
142-73 


80-57 
111-74 
117=13* 


94-46% 


144-1094 


68-17 


68-194 


96-49 

50-55 
119-34 
130-121 

57-23 


59-58 
49-28 
137-89 


80-59 
111=78* 
117=14* 


94-48 


105-98 


100-122 
51-6 

120-32 

130-153 


58-35 


49=84 


80-72* 
112-17 
142-65* 


114-27 


105-125 


104-88 
62-35 

144-108 

137-68 
74-33 


49-109 


80-74* 
112-17 
142-66* 


114=30* 


106-117 


130-80 
62-47 
144-109 
142-211 
80-54 


49-132 


80-76* 
113-14 
142-124 


116-60 


108-58 


132-35 
98-52 
144-73 
80-70 


54-6 


80-78% 94-37% 94-38 94-408 
113-16* 113-81 113-51 114-228 
142-133 142-187* 142-189* 

116-60 117-17 118-6 118-7 
144-108 
134-36 138-22 142-205 144-108 
100-33 101-32 104-35 105-35 
144-108 

85-35 

55-7 55-35 $5-43 S71? 


94-41% 
114=-23* 


118-24 


144-108 
106=32 


58-'8 


SEQ 0832 


96-42 
114-41 


142-77 


108-32 


132%eSG 
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D1 ig TOS a sot | 
UDAT4 DISK EXERCISER DMACR XO4-01 23-AUG-B2 12:06:46 PAGE S-5 SEQ 0835 
CROSS REFERENCE TABLE (CREF VO4.0 | 
| 


FNDLOP 75-114 75-15 
FNDRER 102-25 103-24 
A ~4# 


FT.HI 4-284 

FT.LOW 4-298 

FTIME 9-208 49-11 49-14 55-47 58-33 144-108 144-108 

FILDEV 7-614 7-65 7-65 34-9 52-20 54-3 54-5 56-25 99-15 99-44 102-11 116-5 133-22 396 134-21 
+ vam 7H 134-30 134-53 134-67 = 134-69 = 1357-40) §=- 1138-18 =: 138-36 )=— 138-42 9=— 139-45 = 1140-29 143-207 144-71 144-108 

FILSYS 7-6 


O# 
FWRD 109-60 109-894 


GETMEM 130-71 144-108 144-108 144-1084 
a rere ig OP 137-95 142-244 


100-155 100-160 104-81 104-133 104-138 


62-118 99-17 99-46 100-176 102-13 104-154 119-111 





45-94 94-50" 116-60 118-8 142-79 
GRPCYL 6-244 135-15 139-32 140-42 


139-22 144-108 144-108 144-108 144-108 
HBLONB 9 6-50# 44-29 44-33 44-58 98-77 142-131 


HD.BAD 4-814 8 
-DBN 4-844 96-51 
BN 4-784 96-55 
HD.PRV 4-824 
4-79# 96-53 
HD.REV 4-80# 8 


4-834 142-132 
HIBN 44-34% 44-59% 45-24 54-32 59-54% 96-54 
HIBYTE 6-47# 43-12 44-11 44-13 44-20 44-44 54-8 
5 a 128-27 129-14 130-84 130-90 135-9 135-1 


36-56 3-12 85-59 92-8 99-11 123-53 123-57 
1 140-46 
HICYL 6-234 44-37 44-49 114-27 

IDBN 3 


1 
6 136- 136-19 139-37 139-41 140-9 140-25 


2 
HIMEM = 64-18 8 8-79 45-26 
6-284 44-2 
HISEED ym Pr of 5.7, 70-19 70-25* 73-23 81-40 
HOSTRQ 35-7 36-24 39-106 47-53 49-77 53-6 55-4 55-13 99-51 100-144 102-30 104-122 105-92 106-86 





| 
| 
} 
T 
HBHINB 649% 42-11 44-38 44-50 74-68 74-96 77-26 78-27 79-11 «109-55 111-65) =: 113-13 = 126-16 =: 1133-20 | 
| 
| 
| 
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484 
LOCYL 40-29% 142-77* 142-78 142-79% 
LONG 40-144 


81-36 | 


LONGTO 59 
LOSEED 45-234 70-8 70-16 70-248 
108-62 109-125 110-244 | 


31 -64 1 
STMOD 104-163 105-65 105-100 105-129 1 
49-140" 55-28 


73-18 
42-57* 
06-121 


89-9 

M.PARM 45-228 47-318 47-47% = 47=50* 49-29 9 49=71* —55=38* —5B-19* 58-29% 76-74 «= B09" 85-51" 123-40" 124-478 | 
130-121* 130-153« 132-68 142-3118 144e55* 144-258 14h-108* 144-108* 144-108 

MAXDBN 152-45 132-47 134-56 134-69 134-69 136-28* 136-29% 138-39 138-42 138-42 144-1084 

MAXSND 8-948 39-12 54-43 164-108 


MEMPOL 45-26 94-42 144-108 144-108 144-108* 
MESSAG 7=17# 49-77 106-89 121-56 137-47 


6-124 
MKLOOP 144-108 144-1084 
MOD 40-10 40-224 
MODS12 5-26# 142-201 


44-7 4-4 44-604 
MRD 5-17# 36-1 
MS1 49- 144-1094 


ra] 
NEWEXT 108-57 108-61 108-63 108-844 


74-143 
NEWSUB 9-18# 49-14 49-63 49-65 62-74 64-14 74-141 397714 78-14 86-20 87-18 122-33 
NEWUPT 90-24 


49-139 + 7 55-40 55-50 55-544 121-62 
144-108 144-108 144-1084 
47-35 


47-29 47-444 | 

144-108 144-108 144-1084 144-108* | 

i ey eS a 0s oy 8, 3B, HERE $Br24"$R-40H 0-56 39-60" 0-64" 39-688 | 
39-724 39-754 39-76 39-76 39-76" «= 39-764 «39-82 «39-83 «39-83 «39-83. «39-83. 39-8339- ! 

39-85 39-838 39-834 49-778 52-208 52-288 52-29 56-18 «56-13 Soctde Socide  Sonn8 Sang Sactoe 





-—cC 
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106-61 
106-63 
106-96 
108-49 
09 
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00-1724 100-173 100-173 


100-173# 100-174 100-174 100-174 100-174 


101-53 


105-77 

105-111 

108-49 
09 


101-53 
105-1074 105-1074 


1 
1 
1 
1 
i 
1 
1 


99-154 


9# 100-130 100-130 100-130 100-13 
101-544 101-544 101-544 101-544 
102-12 
05-111 
106-64 
106-96 


101-53 


2 
2 
3a 


22 2 
NNN O0-OoOr-w 


109-103 109-103 109-103 
109-1044 109-105 


02-114 


101-54 
084 105-109 105-109 105-109 
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O# 1 
.' 
106-894 106-894 


105-77 
5-107. 105-107 105-107 


Gre eS 


nr Sneuh. 800 o 

re — 
| 

mn 


5-11 
5-11 
6-60 
6-62 


& 
> 4 
So 
= 
uy 
oa 
So 
= 
SAUNT &  & 
So 
— 
wn 
Ooooooooo 
3s g 
— 


100-131 
100-133 
104-994 104 


1 


0-133 
1 
1 
1 
1 
4 
3 
5 
60 
71 

-72 


56- 
98- 
99- 
b5-4§ 
00-1 


Me se 8 
MN OOTK—COOew 


109-122 109- 


05-1 


= Dik Sell etd eee eel Seok ceed oo oe aed 


a 


CUM) te te 
~ SIa-cnome 
Se TATNOMI 
oepeeeeese 


105# 109-105# 109-10 


122 


04-1234 104-1284 104-132# 104-1374 
109-12 

; 

3 

4 

6 

6 

8 

9 


04-1004 104-1004 104-1004 104-101 
04-147 104-147 104-1474 


101-54 
104-99 


CS eee ea ee 


¢ 


BR & 
WOK e-aone 
See TNOME 
@eeeeeses 
MCUM 7 OOOO 
Se eee 
coed cael Sell Seal oad tel See eel ec 


101-54 
09-12 


2 
3 


= = 
MOR. —- —- ASM 
ih he ae oe 
oeeseees ‘6 
NNMT OOOO 
OOnr Kr rrr e—— 
tee cee ee cel el ool el ol oe el ol 


09-122 109-122 109- 
99-1228 


108-70 
109-102. 109-102 109-1 


109-1034 
09- 
09- 


ONAN TR — KK - OOMe 
SSS EEK KK MN TNOMNK. 


a oeeeeeces 
NNMT OOOO 
tl ] i ceed sak geek eee ee ee oe 


Scent See Seek Seek Gee ae ee cee ee ee 


100-174 100-1744 1 


01-534 101-534 101-54 


02-71 


©.ACM 
SAAN e--aocae 
“erry 


oe ee 
ddcuduht bode 

all mandi eee Sonal Ged deed ooo coed 
I a ce a oe 


3 

64 
70 
71 
73 
ea 


104-97 


coat eaeik seat Geni ieee aunt aeeii auedk seed 








UDAT4 DISK EXERCISER DMACR X04.01 23=AUG-82 12:06:46 PAGE S-10 


CROSS REFERENCE TABLE (CREF V04.00 ) 


I & ~ 
bddtn ee toad 
le el el oe ce ee ee 

eo ee on 
Soir erirtrty 

m ~ 
UIA MMMM 
Ct ek ee el el el oe ee el ee ed 
wteiaSmn SSF 
QO —OUMMOwmM stu 
PAROMSSEROES 
S eslh aeathSeei Reneh neceeicoet eect aero 

ao S mos 
ehh obkee ewer 
SOROS SS G7OG55 
Sack eet eee en eek son ee eel ee ce ed 
& 
xs S eee aS 
MEVOWMNOM OA OMA © 
eoirartretrs 
QOoooosrss sooo 
FE CUMMMMMMM 2s 
Cl eel cee el eel ool coe cel el cel oe ed 
3 
hb pote ee | 2 2 @ 
MUO K—MMMOO OTe Oo 
ROK KK NMNOOM TNE 
eeeseeeee eve eee 
Oooooss sr Tooor. 
FH HK— KH MMMMMMM st 
Re Re 
a 
zVoOooz 2 2 @ 
NNOOMMIMOA OFUa Oo 
ROK KK NNOOM TNE 
OPER NERA HEH 
SRR RO 
Sep 
= doo & = oo 
OK RK MUTT OOM TNE 
EYP URRRA SR HH 
Cal cel eel eee ae ce ee ee oe ee eed 
ae 
= woo cod 2 
ROKK MUTT OOM TCU. 
PEP ERRRaee eS 
GOO ws TTT TOOOw 
SE HK CUMMMMMM st 
RRO 
= woo 22 
NMUSSMOMONA.OWAe 
ROKK MUTT OOM aT Tr. 
@esspeeeeeeeeen 
eh ek oe el YL | PMIIMMIM TF 
I et sel Sei sel Seetl Soee se oeel coe oeeel ol oe oe 
2 doo ae 
NNVNOSO LONE oN 
ROKK MUTT OOM ys Tr. 
oeesvpeeee eee es 
COCOONS III OOS~ 
SH EH CUM MM MMMM s+ 
OO ee 
Oz 2 3 
baddhreeteade 
pial iw Pv Py Py So totes 
Ceri al eet Se eel ce eee see oe ce ce oe 
es 
SF i 
Saad r ie teeae 
Ok mee ae eee see oo el ce el cl oe ol od 
= =e is 
wan Snr anrearonns 
SPYEREARERS HS 
Fe cel ool Sell ce ce eel ol Se ee eel oe 





a 
Le] 
- 
Cet 
fi 
wT 
wv 
_ 
~ 
~ - 
~ - 
é a 
oa w 
= w 
- - 
a 
oa 
w So 
~ — 
a + 
So w 
- - 
bp 
o o ~m 
~ So o _ 
~ -- - 
a ‘ t o 
 ) ww wT 
So wr wv w 
Cod - =— - 
= 
oa Mo 
So mm oS -o 
w oOo = -— 
6 A ad i) 
co vTrw wv 
So mm wT wv 
_ - -— -— 
oa 
oa an 
mm nw & oo 
oOo w Tre -— 
‘ t] ‘ i ‘6 
~ oS wT wT wv 
o @ mM wT ww 
_ - = oe 
Ro 
oa zo oom t*] 
- ww Co oo oo- So 
- «M - OF- efor _ 
‘ i ‘ $e $e0e t 
Nu @ 4 esr wes Lf 
oo fF wT vwvvw w 
- reer - 

RRR 22 
=~ 2S ex O-Ovo- eKOursTODONUMN@DOTOOTw 
= M e 6 —- Ore OOor y ehhh hee bh hawk eet 
APPR SCSAREATRS ¢eeeeeeetees @eeees 
Nu wTk oO OWnes Tens SSSSSSSSSS3ss3ssse3 
Vek OOM w w wvwvwvevwevwvwveveesrevvs 

- -e- - - 
& & 
& ®& oa ~ Sz 
TONUND ATOOCOVO0R- o NMTHOR. on 
ees seetetpteeeceeeeeoevenene 5 @#eeees 
OK ODKOOMN&K kK TKK KveTTOOOOOODODOODOOONONOONO 
-rCOOoOyTr kK w TF TF vwevvevvyvyvwvwvesseess 
- - o- re 
- *2uy 
aH g-aAaa ~->Orrtee ev eee 
2225625855550000 
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| 
106-92 | 
| 
/ 


84-11 
100-124 100-136 101-57 


83-22 
100-84 


72-44 73-16 73-56 81-34 
94-35 96-45 98-54 


64-14 


70-24 
62-93 


49-14 
117-8 


44-22 
113-25 


104-103 110-58 


i 
J 
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RBNFLG 


44-24% 
43-11 
100-131 


111-38 
112-24 
66-124 


8-60 


45-74 
44-10 
100-171 
144-108 
59-44 


114-12 
54-58 


39-39 
144-108 


111-46 


66-14 


98-50 


CROSS REFERENCE TABLE (CREF V04.00 ) 
44-8+ 


142-58 
44-25 44-41 
101-54 104-98 


116-49 120-68 


144-108 

54-18 54-41 
144-108 144-108 
64-14 65-15 


104-109 105-96 
95-11 96-9 
115-7 


144-75 144-108 


52-13 56-6 
54-38 59-53 
105-119 106-101 


114-33 115-24 
100-132 100-172 
98-80 


2 
96-17* 100-133 


95-52 96-33 
100-51* 100-130 
96-43* 100-50 
142-137« 
105-51 
142-96 
128= 136-8 
72-56 4-37 
132-39* 153-45 
100-130 100-170 


130-83 
104-149 


144-108 


66-6 


106-115 
96-82 


144-108 


ws ba 

2 sco 

eo ous 
wig 
NOS 
Wo 


-61 
100-170 
100-130 


144-108+ 
74-89 

132-46* 

101-53 


142-53 


105-75 105-109 106-62 


67-6 68-8 


108-56 


95-9 


106-94 108-49 


96-7 96-80 


109-103 116-60 


SEQ 0841 


119=72 


111-244 
101-51 = 101-63 = 104-90 §= 105-58 = 105-94 105-115 106-104 106-113 


120-51 


1 
1 
1 
110-46 
03-11" 104-97 
00-170 103-10 


144-108+ 

75-7 126-6 
132-48 134-9 
104-97 104-148 


105- 
113- 
105-77 
142- 


110 106-63 106-89 


105-111 106-64 


120* 142-163* 


104-148 105-74 105-108 


104-97 


126-8 
134-11 


105-74 


104-148 105-74 


132-8 132-9 
140-57 140-59 


105-108 106-61 


106-95 
106-89 


106-61 
105-108 


132-14 
140-60 


106-89 


109-104 
106-96 


106-89 
106-61 


132-16 
140-64 


106-93 


109-105 


106-93 
106-89 


132-17 
140-70 


108-48 


sinniisitiiiepbiiiiaaniieisindaiaais 


oc 
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109-102 
O* 


144-108 


111-498 


144-108 


113-24 
99-24 


104-244 


144-1094 


115=19* 


130-154 


49-136* 


2 
144-108 


102-19 
110-54 


97-114 


141-15 
111-70 


144-108 
62-70 


1 


1 
1 
1 
1 
1 


16-59 
81-42 


40 
44-108 
06-45 
44-1084 
41-13 
44-108* 


63-34 


134-16 


62-80* 
105-105* 


40-8 
40-124 
144-108 


142-146 


144-1084 


114-47 


119-52 
59-44 


144-40 


130-88 
81-48 90-7 
104-160* 105-62 
100-80* 130-59« 
9-62 49-76 
8-47 100-121 
134-35 134-42 
144-63 144-108 
44-61 83-10 
140-39 142-50 
130-113* 
91-8 91-9 
91-14 91-21 
83-5 85-48 
74-35% 74-87% 
105-112 105-114* 


40-8 40-84 
40-13 40-13 
144-108# 144-1084 


116-244 119-87 

119-85 

117-19 = 11955 

144-64 144-108 


90-9 91-10 91-12 
105-64* 107-39 107-40* 
49-104 55-42 55-45 
101-47 104-87 105-68 
134-60 137-35 137-46 

144-108 
85-57 92-6 99-9 
142-64 142-68 142-125 
139-21 139-23* 140-6 
129-6 139-13 = 140-64 
88-13 89-16 -10 
76-10*  86-8* 87-6* 
106-41* 106-88 108-53* 
rs ya 40-94 
40-15 40-15 


40-134 
144-1084 144-1084 


120-76 


120-69 


140-59 
140-70 
130-92* 


88-6* 
109-99* 


40-10 
40-154 


140-60 
144-108 144-108 


89-6* 96-59 144-42* 
111=79 

40-10 40-10% 40-11 
40-16 144-108 144-108 


nr 


SEQ 0842 | 
| 
110-68+* 130-58 
58-16 62-69 63-33 
106-100 125-41 130-79 
137-75 §86137-87 8§=138-21 
112-22 114-11 114-26 
144-108* 


zc 
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SER12 144-108 144-1094 

SER13 144-108 144-1094 

SERI4 144-108 144-1094 

SER15 144-108 144-1094 

SERI6 144-108 144-1094 

SERI7 144-108 144-1094 

SER18 144-108 144-109" 

SERIBA 121 144-108 144-1094 

SERI8B 121-65 144-108 144-1094 

SERI8C 121-66 144-108 144-1094 

SER18D 121-67 144-108 144-1094 

SERI3E 144-108 144-1084 

SERIBF 121-54 121-648 

SERI9 100-169 104-147 144-1094 

SENSO 138022 SG-21-” 134-23 134-30 134-53. 134-67 134-69 138418138 36 138-42 139-45 140-29 
- - - - - - - - - - =45 140-29. 144-71 

SER21 105-73 105-107 106-60 106-92 144-10 

SER22 59-73. 39-77 59-83 52-29 56-55 99-16 9945 100°167 100-175 102-12 104-145 104-153 119-94 

SER24 109-98 144-1094 

SER25 109-101 144-109" 

SER26 112-14 113-48 114-38 144-1094 

ER3_ 56-64 144-1094 

SER32 112-16 113-50 114-40 144-1094 

SER36 100-166 104-144 144-1094 

SER39 144-108 144-1094 

SER4 108-70 144-1094 

SERGO 144-108 144-1094 

SER41 144-108 144-1098 

SERG2 56-28 144-1094 

SERG3 56-32 144-1098 

SERG4 56-34 144-1094 

SER4S 144-108 144-1094 

SERS 130-150 144-1094 

SER6 124-38 144-1094 

SER7 120-65 144-1094 

SERB 123-37 144-1094 

ERD 118-33 144-109 


Ss 
SERCHN 142-120* 142-124* yt 142-135* 142-136% 142-137 142-139 142-163% 142-168 143-44 
142-179% 142-196* 142-1978 142-198 142-199% 142-201% 142-207 142-216 142-217 142-218 142-219 143-14 


92-26 - 
69-9 98-58 100-86 100-94 100-140 101-61 104-107 110-69 115-20 144-86 


SEQ 0843 © 


| 
| 
| 
] 


144-1098 | 


119-110 | 





1ST 


TMEMPL 


~ nuun 
Ow) — 
“vo 
mo 
2 
= 


39-42 
123-55 


Soe 


94-42 


40-384 
123-59 
134- 


22 


56-48 
54-84 
54-80 
56-41 


56-23 


54-84* 
56-38 


56-23 
56-23 


144-108 
144-108 
144-108 


39-50 
97-68 


33-26 
123-6 
134-53 


56-45 


144-108 
119-88 


142-208 


144-108 
94-32 
97-7 


44-S2* 


144-108 
119-95 


142-212 


140-45 


97-104 


1 
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45-44 142-51% 142-52 


119-103 119-107 119-1124 


142-223% 142-224% 143-24 


99-51 


56-53 
140-914 
144-1084 


100-144 
56-63 


102-30 
108-67 


104-122 105-92 
118-10 120-40 


ee 


106-85 
123-34 


116-68 
124-33 


119-70 
130-54 


123-45 
132-40 


119-91 
142-74 
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WAITS! (5-134 99-12 102-8 142-140 | 
WBUFLN 4-944 4-95 95-13 144-108 
WCHECK 9=54# 49°14 62-66 62-82 64-14 67-8 67-17 68-10 144-108 
WCHK 9-564 67-12 144-108 


WONLY 99-47% te 137-38 144-108 


WREAL 4-7 -1 

WRITBT 40-2354  56-61* 
ITE 96-84 98-244 
oP 4-718 =13 

XBNCYL 6-4 130-108 


1 
XREAD S-5# 102-23 142-150 
XWRITE 5-64 99-28 
ZEREDC 9 38-13 38-154 
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ISUSEK = ISSUE SEEK COMMAND 

weeeaeenee OVERLAY MODULE SEKTST = SEE IF ey | see IS COMPLETE 
weeaeaeeee OVERLAY MODULE RECALB - RECALIBRATION 

weeeeeeeee OVERLAY MODULE DRPALL = DROP a SU et ON THIS DRIVE 
seeeeeneee OVERLAY MODULE INSET = SET UP UNIT FOR INITIALZATION 
weeeeeeeee OVERLAY MODULE COMCHR - SET UP COMM ON CHARACTERISTICS 
seneeneees OVERLAY MODULE SPINUP = SPIN THE DRIVE U 


? 


TF? 
Le 
at tO Ss os SH OHS SH 


eee 
fe 


CONAUSWN 
iT YT etree 


ht 8 a at as ts ss = Ss ss =) = ss nS ss 


MONIARINONYR 


\ eh wt 
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1 
1 
1 
1 
4 


ed a 


i 


eeeeeeneee OVERLAY MODULE SORT = SORT ALL ed BEGIN/SETS, AND BAD BLOCKS 
SORTBE = SORT THE BEGIN/END SETS IN ASCENDING ORDER 

SWAPBE - IF The oe SETS OUT OF ORDER, SWAP 

SORTBB = SORT THE BAD BLOCKS IN ASCENDING ORDER 

SWAPBB = IF BAD BLOCKS OUT OF ORD WA 

SORTTG = SORT THE ee etek IN ASCENDING OR RDER 

seteeeeees OVERLAY MODULE SCHARO = SET UP SUBUNITS, CHECK THAT ALL PARAMETERS ARE WITHIN BOUNDS 
SMASK = CALCULATE THE USUBUN IT MASK 

TRAV = TRAVERSE THOUGH THE UNITS TO FIND SUBUNIT CHARS THAT MATCH 

SUBTRV = anit THROUGH ee ee SUBUNIT CHARS THAT MATCH 


CHKCYL = CHECK VALIDITY OF STARTING AND ENDING CYLS, CONVERT TO BEGIN/END SET 
CYLBN = GIVEN A CYLINDER, CALCULATE STARTING BN ON THAT CYLINDER 

CHKBES = aay THE BEGIN/END SETS FOR ERRO 

COMPSC = COMPUTE SECTORS/GROUP AND SECTORS/CYLINDER 

CLCMAX = CALCULATE THE MAXIMUM WRITEABLE DBN 

weeeeeeeee OVERLAY MODULE — AR1 = SET UP SUBUNITS, CHECK TRACK/GROUP PARAMETERS 
CHKBB = CHECK THE BAD BLOCKS FOR ERRORS 

CHKTG = CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN'S 

COMPDP = CALCULATE SECTORS/TRACKS OR SECTORS/GROUPS 

seeeeeeene eee MODULE GETSER = GET THE HDA AND DRIVE SERIAL NUMBER 

REPSER = FIND AND REPORT DRIVE AND HDA SERIAL NUMBER 

ASSOCIATED VARIABLES FOR GETTING THE HDA SERIAL NUMBER 

weeeenneeee OVERLAY MODULE INITD = INITILIZE THE DRIVE PARAMETERS FOR TESTING 
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DEBUG 
INCODT 







ISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 2 
NE MACROS = OVERLAY VERSION WITH "RELOCATION" 


-TITLE UDAT4 DISK EXERCISER 


; COPYRIGHT (C) 1981,1982 


DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOT Ss OTHER 


ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DIGITAL ASSUMES NO RESPONSIB 
ITS SOFTWARE ON EQUIPMENT WHI 


FOR THE USE OR RELIABILITY OF 


ITY 
IS NOT SUPPLIED BY DIGITAL. 


IL 
CH 


:THIS PROGRAM SHALL BE ASSEMBLED WITH THE PROGRAM DMACRO 
[USING A COMMAND LINE SIMILAR TO: 


; UDAT4 BIN, UDAT4/C=SDMACRO,UDAT4 

; ONE, AND ONLY ONE OF THE FOLLOWING ASSEMBLY OPTIONS <<MUST>> BE 
; SELECTED 

UDASO = 1 : SET TO 1 IF ASSEMBLY IS FOR UDASO 

UDA52 = 0 : SET TO 1 IF ASSEMBLY IS FOR UDAS2 

QDA = 0 : SET TO 1 IF ASSEMBLY IS FOR QDA 

; OTHER OPTIONS 


0 : SET TO 1 TO DEBUG TEST4 
0 ; MUST BE 0 FOR UDASO 
- ENABL 


ABS 
DMCODE UDADM4,0,714,3,0,1000 
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MODIFICATION CONTROL 

45 »SBTTL MODIFICATION CONTROL 

46 000000 sREPT 0 

af 

49 MODIFICATION CONTROL == ALL CHANGES AFTER OCTOBER 29, 1981 WILL BE 

20 ENTER de THIS SECTION TO ALLOW THE HISTORY OF TEST’4 TO BE DOCUMENTED 

52 THE "'GET STATUS AFTER ERROR CODE (IN ROUTINE CORECT) 

53 WAS CHANGED TO OVERCOME THE RA81 PROBLEM WHERE RECEIVER 

54 READY WAS NOT IMMEDIATELY ASSERTED AFTER AN ERROR (THE 

55 DRIVE WAS “PICKING UP THE "AFTER AN ERROR, AND 

56 ALL_F'S USED TO BE DISPLAYED BECAUSE I WOU 

57 RECEIVER READY WHEN J, W THIS REQUIRED MOVING 

58 THE “WAIT FOR CLOCKS’ CODE, WHICH USED TO BE 

59 'GET STATUS AFTER ERROR’ CODE (IN CORECT) TO THE MODULE 

60 GOINIT, AND REWRITING A SMALL AMOUNT OF CODE IN CORECT. 

62 ALL CODE ADDED FOR CONDITIONAL ASSEMBLY FOR THE 

65 eupr  UDASO/UDAS2. 
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UDA DM PROGRAM PARAMETERS 


VIESWWNONAOUS Ww 


NMenNA— 


007774 
007774 


000000 
000001 
000002 


000000 
000400 


000000 


110000 


-SBTTL 


O Tee te te teee 
no 
= 
= 


Be Se Sete Ti Vises Se Se Se TT Fits Se Se te 


Ru. STAT 
F 





UDA DM PROGRAM PARAMETERS 


LLIST MEB 
EQUATES 

HIGHEST USABLE LOCATION OF UDA MEMORY + 1 

. Aas, : OVERLAY ADDRESS LOCATION 


OFFSETS FOR FORMAT TRACK TABLE 


= 0. ; BUFFER POINTER OFFSET 
= 1. : HI ORDER HEADER OFFSET 
= 2. ; LOW ORDER HEADER OFFSET 


OFFSETS FOR FORMAT TRACK BUFFER 


= 0. : FIRST DATA WORD OFFSET 
= 256. : EDC WORD OFFSET 


OFFSETS FOR READ/WRITE 1/0 CHAIN TABLES 


= 0. 3 STATUS AND NEXT peer POINTER OFFSET 
= RW.STAT+1 : POINTER TO DATA BUFFER 

= RW.BUF +1 : HI ORDER EXPECTED HEADER 

= RW.LOW+1 : LOW ORDER EXPECTED HEADER 

- RW.HI+1 : SDI COMMAND AND HEAD ADDRESS 

= RW.CMD+1 : DUMMY SDI CONTROL BLOCK POINTER 

= RW.SDI+1 : THETA FROM INDEX 


CONSTANTS FOR READ AND WRITE XFC'S 


= 40000 ; BUFFER FULL OR EMPTY FLAG 

= 10000 : ECC ERROR IN BUFFER BIT 

= 100000 : END OF CHAIN 

= 100000 : LAST ENTRY IN CHAIN FOR FORMAT 

s 3 READ CONT ine 

= 13400 3 READ REAL TIME COMMAND 

= oc : LAST ENTRY IN CHAIN FOR READ 

= 0000 : WRITE CONTI 

= 122400 : WRITE REAL TIME ECOMMAND 

= EOC+BUFFLG : LAST ENTRY IN CHAIN FOR WRITE 

= 256. ; 256 WORDS IN A SECTOR IN 512 BYTE MODE 
= 288. ; 288 WORDS IN A SECTOR IN 576 BYTE MODE 


HEADER CODES 


= 000000 : GOOD LEN 
= 060000 : GOOD RBN, PERHAPS UNUSED 
= 030000 : REVECTORED LBN 

2 110000 : BAD BLOCK 


SEQ 0856 


zc | 


an we 
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UDA DM PROGRAM PARAMETERS 

82 50000 HD.PRV = 050000 ; PRIMARY REVECTORED BLOCK 

83 120000 HD.XBN = 120000 ; XBN BLOCK 

Se 140000 HD.DBN = 140000 ; DBN BLOCK 

a6 ; OFFSETS FOR DATA BUFFERS 

88 000000 BF.DAT = 0. 3 DATA 

89 000400 BF.EDC = 256. ; ERROR DETECTION CODE 

oe 000401 F.ECC = 257. ; LAST 12 ECC RESIDUES 

4 : BUFFER AND READ/WRITE CHAIN LINK SIZES 

94 000401 WBUFLN = 257. ; WRITE BUFFER SIZE 

95 000415 RBUFLN = WBUFLN+12. : READ BUFFER SIZE 

99 000007 LINKLN = 7. : LINK SIZE 


Ree nea utne 


000000 


000021 


126736 
074161 


000000 


001000 





vwmMNnoD 


AAAS st 
WommammmcwrwnwDwD 


AMNNAHNMNMNMMMNMNMWMs: +8. 
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UDA DM PROGRAM PARAMETERS 


1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
] 
0 
1 
2 
3 
4 
5 
6 
7 
8 
- 
0 
1 
2 


XFC DEFINITION EQUATES 


Se Se Ge Ge Ge Ge Ge Ge Ge Se He Be Ge Ge Se Se Se Be 


OOD VNOAOUS WP 
. 


NOUIEWII Or 2 es se te oe 


MEDIA TYPES 
THIS WORD IS FOUND AS THE 


126736 
074161 


GET STATUS OFFSETS 


Oe e 


0000 


STATUS BIT DEFINITIONS 


So 


Hhnnnnnnnnnnnnn 
= =n Rar —rw—ny 
ooooooeo 

oo 
Be Se Ge Ge Ge Ge Ge Be Fe Ge Ge Be Be Ge 


oo 
oo 


BREAKPOINT XFC CODE 
FORMAT TRACK XFC COD 


0 CODE 

SEND BUFFER TO MAINTENANCE READ COMMAND 
GET BUFFER FROM MAINTENANCE WRITE COMMAND 
CONVERT TO PHYSICAL ADDRESS XFC CODE 
TERMINATE DM PROGRAM XFC CODE 


FIRST WORD OF XBN 0 (OR ANY OF ITS COPIES) 


512 BYTE MODE 
576 BYTE MODE 


UNIT NUMBER 
SUBUNIT MASK 
REQUEST BYTE 
MODE BYTE 
ERROR BYTE 
tt emt BYTE 


CB 

RETRY COUNT/FAILURE CODE 

USED IN ERROR POSITION TO MARK VALID STATUS 
IN INPUT BUFFER 


ONLINE TO ANOTHER (SET J" DRIVE UNAVAILABLE) 
READJUSTMENT BIT (SET IF RECALIBRATION REQUIRED) 
DIAGNOSTIC REQUEST (SET IF DIAGNOSTIC REQUESTED) 
SPINDLE READY (SET IF SPINDLE READY) 
LOGGABLE INFO IN EXTENDED US 
PORT SWITCH (SET IF PORT SWITCH IN) 
ict treme (SET IF RUN/STOP SWITCH IN) 
RETRIABLE ERROR (SET IF RETRIABLE ERROR OCCURRED) 
PROTOCOL ERROR (SET IF PROTOCOL ERROR OCCURRED) 
INITIALIZATION FAILURE (SET IF INIT FAILED) 

TE ENABLE (SET IF WRT ATTEMPTED ON PROT DISK) 
FORMATTING (SET IF FORMATTING ENABL 
DIAGNOSTIC CYLS (SET IF DIAG CYL ACCESS ENABLED) 
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UDA DM PROGRAM PARAMETERS 


58 000400 ST.S7 = 400 ; SECTOR SIZE (SET FOR 576 BYTE SECTORS) 


es 





¢ 3 
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UDA DM PROGRAM PARAMETERS 


NOR PP PR RV ro 
NO OONAOUSWN “OC DOONOUSWwh— 


000000 
0 






GET COMMON CHARACTERISTICS OFFSETS 
SHORT TIMEOUT _<3:0> 
DI VER <7:4> 


S$ <7:4> 
aie COPIES <11:8> 
ECTOR SIZE <15:15> 
ERROR RETRY cEVELS <7:0> 
ECC THRESHOLD <15:8> 
MICROCODE REVISION NUMBER <7:0> 
HARDWARE REVISION NUMBER <15:8> 
; UNIQUE DRIVE ID <47:0> 
; DRIVE TYPE IDENTIFIER <7:0> 
; REVS/SECOND <15:8> 


GET SUBUNIT CHARACTERISTICS OFFSETS 
OFFSETS ARE CURRENTLY GIVEN AS FOLLOWING THE COMMON CHARACTERISTICS 
0. : NUMBER OF C\ ry roere te Lo anea <31:0> 
; GROUPS PER CYLINDER <7:0> 
; AR 11:8> 


NNW SO 


Wronn— 
eee 


; REMOVAB 1=REMOVEABLE 
; DATA PREAMBLE SIZE. IN WORDS <7:0> 
; HEADER Pt IN WORDS <15:8> 


sl N 

; RCT COPY S e* cio: o> 

; CYLS IN XBN AREA <15:0> 
; CYLS IN DBN AREA <15:8> 


TRIE TEE TESTES rere rerererereraerare yi 

a 
m 

foal 

~ = 

ame, o - 

— 
> 
A 
~ 
N 
Vv 


a OOOAUIMNES Sw 
2 . 


Gon~wwwOe « « 


BIT MASK DEFINITIONS 


= 46s. 3 HIGH BYTE MASK 

= 00037 : LOW BYTE MASK 

= 7777 ; HI BYTE, HI NIBBLE MASK 
= 170377 ; HI BYTE, LO NIBBLE MASK 
S 177417 ; LO BYTE, HI NIBBLE MASK 
= 177760 ; LO BYTE, LO NIBBLE MASK 
= 170000 : UNUSED ADDRESSING BITS 


SEQ 0860 | 
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UDA DM PROGRAM PARAMETERS 


MSWN =O OONAUSWN—ODOONOUSWR— 


NMONIRINPINIR) 


060000 


000100 
000400 
100000 


sMAINTANENCE READ/WRITE REQUEST NUMBERS 


RCVRDY 
T 


STATE BIT DEFINITIIONS 


060000 


14. +DUPPKT 


2 


100 
400 
100000 


¥ iaee 
TIONS 


INFORMATION MESSAGE 
MARK DM PROGRAM AS NO LONGER RUNNING 


RECIEVER READY 1 = READY 
ATTENTION BIT FOR RETURN DRIVE SIGNALS XFC 
Senine the go a ~~ THERE ARE CLOCKS 


ITY ERROR 
F SET, UDA IS ABLE TO READ AND/OR WRITE TO DRIVE 


SDI COMMANDS AND RESPONSES 


SDI LEVE 


204 


SOOnouow 


So F— WW 20 ]70N UNO 
VIO 


L 


L2.0PC+1 
+ 


TERS+1 


; DISCONNECT DRIVE 
; ERROR RECOVERY 
CHANGE MODE 


DRIVE ONLINE 
DRIVE RUN 
DRIVE CLEAR OPCODE 


; GET CHARACTERISTIC 


Ss 
T oral CHARACTERISTICS 


LETION 
GET CHARACTERISTICS RESPONSE 
GET SUBUNIT CHARACTERISTICS RESPONSE 
GET STATUS RES 
DIAGNOSTIC ECHO COMMAND AND RESPONSE 


2 COMMAND OFFSETS 


OP CODE 

SEND LENGTH IN BYTES 

RECEIVE LENGTH IN WORDS 

EXPECTED RESPONS 

ERROR OFFSET INTO UNIT PARAMETERS 


SEQ 0861 





UDATS4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 8-1 SEQ 0862 


UDA DM PROGRAM PARAMETERS 


040000 
100000 


C2DFTL 


ERROR CODES 


0 : SYSTEM FATAL ERROR 
040000 : DEVICE FATAL 
100000 : HARD ERROR 

140000 


; SOFT ERROR 
<ERHARD& “*CERSOF T>! <ERSOF T&*CERHARD> ; CHANGE SOFT TO HARD ERROR 
<F TLDEV&*CERSOF T>! <ERSOF T&*CFTLDEV> ; CHANGE SOFT TO DEVICE FATAL 
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NFORMATION 


TEST 4 SPECIFIC INFORMATION 
TEST 4 SPECIFIC INFORMATION 


UNIT PARAMETER OFFSETS 


4] 
& 
= 
— 
“4 


mmmm a 
o 
+ 
st 


Ev+l 


SOO IerF ar DBRnuwvnvwvAom 


DLerMUML2s 


LHYVOMZBAMEBOABZOVOV!™!ND 


“wv 
orv 
onww 
<3- 

+++ 
—— 


Cc 

wo 
+c 
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eb 


mm 
<= 
+ 
a 
Bee Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Fe Ge Se Se Se Se Se Ge Be Se Se Ge Ge Se Ge Be Be Ge Be Se Se Bs Be Se Se 


U.LCYL#2 
PARAMETER OFFSET 


0. 3 
S$.PARM+1 3; COUNT OF NUMBER OF SEEKS 
3; STARTING DIAGNOSTIC EYLINDER 


S.SEEK+1 


POINTER TO NEXT UNIT (RING LINKED LIST) 
4 WORDS OF SUBUNIT PARAMETER POINTERS 
HI ORDER TIMEOUT FOR SEEK 

LO ORDER TIMEOUT FOR SEEK 

Ser en COUNTER 


OR FAR 
UNIT MASK FOR XFC CALLS (0001 = 1000) 
WRITE PROTECTION STATUS 
CURRENT ERROR RECOVERY Level 
MAXIMUM NUMBER OF READ RETRIES 
x 1 MUM A i OF ERROR RECOVERY LEVELS 


RROR COUNTS 
K TO WRITE PROTECT READ-ONLY DRIVES 
UNIT PARAMETER WORD 

RECOVERY rreer tans 
SUBUNIT OFF (0 = 3) 


- 
L/DBN FOR START OF CHAIN 


ON EA 
THAT WE'RE — ON 


RROR (IF ANY) E LAST R 
ERROR THAT OCCURRED BEFOR THE “REVECTOR OPERATION 
STARTING SUBUNIT NUMBER 

CURRENT CYLINDER 

CURRENT GROUP 

LAST CYLINDER SEEKED TO 

LAST GROUP SEEKED TO 


rte PARAMETER WORD 


SEQ 0863 | 
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TEST 4 SPECIFIC INFORMATION 


000004 
000005 


000006 
000007 
000010 


000012 
000013 


000013 
000015 
000017 


000377 
000105 
000072 
007702 
177774 


001750 


Zz 
x 
—_ 
+ 
— 
Be Se Se Se Se te te 


$.BADP+1 
IF TRACK/GROUP LIMITS ARE 


SEQ 0864 


POINTE BLOCK AR 
START OF BEGIN/END SETS 
oar THE SUBUNIT PARAMETERS HAVE THE 


FOLLOWING FIELDS ADDED TO TH 


S.BESS 
S.MCNT+2 
S$. TGOF +2 


o- 
oO 
= 
wn” 
“~ 
= 
par 
nn 


255. 
9 


69. 

U.LGRP+1 
HIMEM-TLEN.U 
177774 


1000. 


3 MAXIMUM TRACK/GROUP COUNT 
: ORIGINAL TRACK/GROUP OFFSET 
: START OF TRACK/GROUP SETS 


NUMBER OF WORDS IN SECTOR TO FILL 
oe had EDC _VALUE 
UNIT PARAMETER LEN 

LOCATION OF FIRST UNIT Clone 6 BLOCK 


WRITE 
; MAXIMUM TIMES TO SEND A COMMAND TO AN OFFLINE DRIVE 


H 3 
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TEST 4 SPECIFIC INFORMATI 

1 : 

¢ ; DUMMY SDI CONTROL BLOCK OFFSETS 

4 000001 D.LIMT = 1 : DUMMY SDI SEARCH LIMIT 

3 000092 D.SCHR = 2 : DUMMY POINTER TO SUBUNIT CHAR=5 

4 : MASTER PARAMETER BITS (M.PARM) 

9 100000 IWIPRG = 100000 : INITIAL WRITE IN PROGRESS 

10 000002 DIE = 000002 : ERRORS DURING INITIALIZATION 

1 INTINP = 000001 : INITIAL SETUP IN PROGRESS 

13 ; UNIT PARAMETER BITS (U.PARM(RS)) 

15 100000 DROP = 100000 ; DROP BIT (SET IF UNIT OR SUBUNIT ROPPED) 

16 040000 INITw = 40000 : INITIAL WRITE (SET IF INITIAL WRITE IN 

17 010000 DIREC = 10000 : DIRECTION (SET IF SEQUENTIAL ACCESSES DECREASING) 

18 000 NEWSUB = 4000 : SET IF SEQUENTIAL SEEKS MOVED TO NEW S 

19 002000 SEKINP = 2000 : SEEK IN PROGRESS = SET IF T UE 

20 001000 TIME = 1000 : FIRST TIME FLAG = SET FOR INIT C | 
21 00 REVEC = 400 : REVECTOR BIT (SET IF BLOCK REVECTORED) 
22 000200 RBNBN = 200 : SEE IF WORK iNG ON, RBN 
23 100 REDWRT = 100 + REDWRT (R READ OR WRITE IN PROGRESS SET IF WRITE) 

24 : 10 : RESERVED (SEE SUBUNIT PARAMETER BITS) 

35 ; 2 : RESERVED (SEE SUBUNIT PARAMETER BITS) 
27 : 
2 : ERROR RECOVERY PARAMETERS (U.RCOV) 

30 ; | 
31 100000 ERMASK = 100000 : IF 1, ERROR RECOVERY IS DISABLED | 
32 0000 DRINIT = 40000 : IF 1. INDICATES iHAT DRIVE WAS INITIALIZED | 
33 020000 LEVUSD = 20000 : IF 1, RE“ISSUE THIS LEVEL OF ERROR RECOVERY | 
34 010000 NXTLEV = 10000 : IF 1, ISSUE NEW LEVEL OF ERROR RECOVER 

25 900 SEKREQ = 4006 : IF 1, SEEK IS REQUIRED FOR ERROR RECOVERY 

35 2000 RCBREQ = 2000 : IF 1, RECALIBRATE IS REQUIRED FOR ERROR RECOVERY 

37 001000 RETRY = 1000 : IF 1. JUST RETRY THE SAME MODULE 

39 ; 
40 ; SUBUNIT PARAMETER BITS (S.PARM(R4)) 
42 : 100000 : RESERVED (DROP BIT) 
43 : 40000 + RESERVED (INITIAL WRITE) 

44 020000 dcyLS = 20000 + DIAGNOSTIC CYLINDER FLAG (SET IF DBNS) 

45 010000 ECCCHK = 10000 : 1 IF ECC CORRECTION ALLOWED MASTER BITS 

4 000 RON = 4000 : READ ONLY (SET IF READ ONLY) 

47 002000 = 2000 : WRITE ONLY (SET IF WRITE ONLY) 

48 001000 RTRIES = 1000 : 1 IF RETRIES ALLOWED 
49 000200 ONLYCL = 200 ; IF ONLY CYLINDERS SPECIFIED 

50 : USED DURING SETUP ONLY 

51 000100 SEQSEK = 100 : NTIAL SEEK (START UP TESTING ONLY) 

52 0 BEUSED = 40 : BEGIN/END SETS (USED IF SET) 

53 000020 TRACKS = 20 ; KS OR GROUPS (TRACK IF SET) 

54 000010 WCHECK = 10 > WRITE CHECK BIT (IF SET, WRITE CHECK WILL BE DONE) 

55 ; WCHECK' IS ALSO USED FOR THE UNIT PARAMETERS 

56 000004 WCHKAL = 4 ; SET IF WRITE CHECK ALWAYS TO BE DONE 

57 000002 DATCMP = 2 ; DATA COMPARE (SET IF DATA COMPARE TO BE DONE) 
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TEST 4 SPECIFIC INF 


58 . 
59 000001 DCMPAL = 1 


DATCMP IS ALSO USED FOR THE UNIT PARAMETERS 
: SET IF DATA COMPARE ALWAYS TO BE DONE 


SEQ 0866 


ro 





UDAT4 
MACRO 


NR Se SS OS SS 
WN $$ SO CONOUESWN $C OONOUSWwhN— oo 


SK EXERC 
FINITION 


Tie 
nw 


N 
-SBTTL 


SDIAGS 
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MACRO DEFINITIONS 
DIAGNOSTIC MACRO FOR TEST4 OVERLAYS 


-MACRO DIAGS$S$ 
TST SSDIAG+SDI AGS 
BEQ +6 . 
MOV #60000,RO 
MOV RO ,aSSDIAG+$DIAG$ 
eNLIST 
IF NE ,UDASO 
LIST 
+1 

eNLIST 
-ENDC 

F NE ,UDAS2 
LIST 
eERROR ; NOT CHECKED OUT YET 
BR +2 
eNLIST 
-ENDC 
LIST 
= SDIAGS + 1 


SEQ 0867 


——_ 





MSO OCONOUSWN OC OONOUSWN— OOo 


PONONUNINININYIR 2 St Oo 
NOUSW 
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OCNTS 


SDI$ 


OVERLAY INFORMATION MACRO 


oo 
RD 


«ENDM 
MESSAGE 


DFOVLY LAS Gene .SAREAEAREA 
<SAREA=PARTO>/2 


NB ,EAREA 

<EAREA=SAREA>/2 

0 

0 

OVL. “ONAME ' #4 

NE ,OCNT$=-LABLS 

3; OVERLAY NUMBER AND POSITION IN TABLE DO NOT MATCH 
OCNT$+1 


CONTROL TABLE MACRO 


MSG li CMDSZ,RPLSZ, SUCCOM 
CMDBUF 3 ADDRESS OF COMMAND 


CMDSZ : SIZC OF COMMAND IN BYTES 
3; ™ 3 SIZE OF REPLY IN WORDS 
SUCCOM : SUCCESSFUL COMPLETION CODE 
so izey- Sie 3 RETRY COUNT OFFSET 

+ 


SEQ 0868 


pars bei toe DMACR X04.01 23-AUG-82 12:02:53 PAGE 13 ie 


ONS 


MAGRO DEF IN 


MEWN 0 CONOUSwh— 


— toed od 


MACRO BCS LAB.. 
cIF NE ,UDASO 
LIST 


«NLIST 


i 


BCC 


BCC 


LAB.. 


—— 


SEQ 0869 | 





m ‘APRS, 
SER DMACR X04.01 23-AUG-82 12:02:53 PAGE 14 : SEQ 0870 
; PUSH REGISTER MACRO 


»MACRO PUSH R9 
~IRP X,<R9> 


D 
D 
1 
2 
3 
¢ 
MOV X,=-(SP) 
6 -ENDR . 
‘ -ENDM 
5 3 POP REGISTER MACRO 
1 
2 
3 
4 
5 


«MACRO POP R9 
IRP X,<R9> 


-ENDR 


MOV (SP)+,Xx 


-—c 





—_— 
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MACRO DEFINITIONS 


NONOTRD 2 ts ss 
WR SO OONOUSWN 35 OONOUS Wh 





PRIMARY ERROR REPORTING (TEST 4) 
-MACRO SOFTER NUM,ARGS 
ERROR ERSOFT,NUM,<ARGS> 
MOV #ERRMES ,HRO.RQ 
-ENDM 
«MACRO REPSFT SFTFLG,ECCFG,SEKFLG,COMFLG 
IF NB,SFTFLG 


cIF IDN, SFTFLG, SOFT 
MoV #1,HRQ.02 


oIFF 
1 ; NON SOFT ERROR FLAG IN SOFT ERROR POSITION 


-ENDC 
: CLR HRO.02 
.ENDE 

"IF NB,ECCFG 

“IF IDN, ECCFG,ECC 

a MOV #1,HRQ.03 
“ERROR : NON ECC ERROR FLAG IN ECC ERROR POSITION 

; CLR HRQ.03 
ENDC 

"IF NB, SEKFLG 

"IF IDN, SEKFLG, SEEK 

we MOV #1,HRO.04 
“ERROR ; NON SEEK ERROR FLAG IN SEEK ERROR POSITION 

? CLR HRO.04 
.ENDC 

“IF NB, COMFLG 

“IF 1DN, COMFLG, COMM 


MOV #1,HRQ.05 


IFF 
-ERROR 3 NON COMMUMICATION ERROR FLAG IN COMMUNICATION ERROR POSITION 
CLR HRO.05 
.ENDC 
PUSH = RO 
MOV U.UNUM(RS) ,RO 
ADD U. SUBU(R5) .RO 
MOV RO,HR 
V ATES E, RO 
CALL TRO 
POP 
.ENDM 


-MACRO HARDER NUM,ARGS 
ERROR ERHARD,NUM,<ARGS> 
MOV #ERRMC ,HRO.RO 


SEQ 0871 


—o 





4 
8 

UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 15-1 Se 0872 | 

MACRO DEFINITIONS | 
5 -ENDM 
60 -MACRO DEVFTL NUM,ARGS | 
61 ERROR FTLDEV,NUM,<ARGS> 
62 MOV #ERRMC ,HRO.RO 
65 .MACRO SYSFTL NUM,ARGS 

66 ERROR FTLSYS,NUM,<ARGS> 

67 MOV #ERRMC ,HRO.RO | 
68 ~ENDM | 
70 MACRO ERROR TYPE,NUM,ARGS 
71 -RADIX 10 
72 NUMPTR = 5 
73 MOVMSG #ER'NUM,4 
74 IF NB, <ARGS> 
75 IRP__—_X, <ARGS> 
76 MOVMSG X,\NUMPTR 
77 NUMPTR = NUMPTR + 1 
78 eENDR 
79 ~EN 
80 MOV #NUM! TYPE +4000. ,R2 
81 MOV R2,HRQ.02 
82 MOV #.,HRQ.01 
83 »RADIX | 
84 ~ ENDM 
86 «MACRO CERROR STNUM,ARGS 
87 RADIX 10 | 
88 NUMPTR = STNUM 
89 -IRP _X, <ARGS> 
90 MOVMSG X,\NUMPTR 
91 NUMPTR = NUMPTR + 1 
92 -ENDR 
93 RADIX | 
oS -ENDM 
96 «MACRO ERRORC ARGS 
97 «RADIX 10 | 
98 .IRP  —_-X, <ARGS> 
99 MOVMSG X,\NUMPTR 
100 NUMPTR = NUMPTR + 1 
101 .ENDR 
102 »RADIX 
103 ° D } 
104 
105 -MACRO MOVMSG ARG, INDX 
108 MOV ARG, HRQ.0° INDX 
109 .IFF 
110 MOV ARG, HRQ. * INDX 
111 ~ENDC 
112 ~ ENDM 
113 
114 -MACRO ENDERR POS 









SEQ 0873 


: SET THE POSITION 


: CLEAR THE POSITION 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG=82 12:02:53 PAGE 15-2 

MACRO DEFINITIONS 
115 «RADIX 10 
116 TIF NB, POS 
117 NDERR POS 
118 VIFF 
119 NDERR \NUMPTR 
120 ENDC 
121 “RADIX 
122 ENDM 
123 
124 «MACRO NDERR POS 
125 iF NE , POS 
126 MOVMSG #SER22,POS 
127 MOV #POS+1,ERRPOS 
128 IF LT,26.-fuS 
129 -ERROR 3 STATUS AT END OF ERROR MESSAGE WILL OVERFLOW HOST COMMUNICATION BUFFER 
131 cIFF 
132 CLR ERRPOS 
133 ENDC 
134 "ENDM 
136 ; MESSAGE 2EPORTING MACRO 
138 «MACRO MSSG ——NUM, ARGS 
139 “RADIX 10 
140 NUMPTR = 3 
141 MOVMSG #MS"NUM,2 
149 IF NB, <ARGS> 
14 *IRP KX, <ARGS> 
144 MOVMSG X.\NUMPTR 
145 NUMPTR = NUMPTR + 1 
146 ENDR 
147 ENDC 
148 PUSH 0 
149 MOV U. UNUM ( 
150 ADD U. SUBU( 
151 V SSAG 
152 CALL ‘HOST 
153 POP 0 
154 RADIX 
155 “ENDM 
156 : 
157 : 


| 
| 
| 
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zASSUME MACRO 


-MACRO ASSUME | P1,P2 
-ERROR "tie THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 
ZENDM 

MOR THE CONTENTS OF TWO REGISTERS 

-MACRO RXOR —_REG1,REG2 

MOV REG2,=(SP) 3 SAVE REGISTER REG2 

BIC REG1,REG2 R COORESPONDING 6 BITS IN REG2 


BIC (SP)+,REG1 : CLEAR CORE SPONDING air S IN 
oon REG1,REG2 3 OR WHAT'S LEFT 


CONVERT .BLKW CALLS TO ACTUAL WORDS GENERATED 
sat ~-BLKW COUNT 


[REPT COUNT 
D «~O 


MASSIVE INLINE CODE MACROS NOT PRINTED 


SEQ 0874 





UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 34 
START OF TEST CODE 


000714 


Wrorn oa ae 
SOON OONO NWN 


31 000720 
32 000745 


114007 


104206 000745 
004521 


123456 


-SBTTL START OF TEST CODE 
;THE FOLLOWING IS FOR DEBUG PURPOSES ONLY. CAN BE NOP OR BREAKPOINT. 


CLR RO ; CHANGE TO BREAKPOINT FOR DEBUG 
INITIALIZE STACK 

MOV #STACK,SP ; SET UP STACK POINTER 

BR START : BRANCH OVER SUPPORT CODE 


sSTACK AREA 
2 
1 


-BLKW 1. : STACK 
STACK: .WORD 23456 MARKER FOR STACK UNDERFLOW 


SEQ 0875 
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~ REAL TIME DRIVE STATE ROUTINE WITH ERROR REPORTING (T 
-SBTTL RTDS 
RTDS: CALL 


DO ee — 4 
“SOOONOUEw wo 
S 
N“N 
~~“ 
Ww 


31 001010 


020775 


060014 
002230 


000025 


077674 


177777 


024000 
000004 
000400 


177777 


001107 


001107 


001103 


2$: 
3$: 


1$: 
.SBTT 


L 


RTDSL: 


2$: 
-SBTT 


L 


RDSTAT: 


RETURN 
7S 


TATUS 


1$: 





ST 
BEQ 
BMI 
CERROR 


BR 
CERROR 


MOV 
MOV 


MOV 
ENDERR 
RETURN 
RTDSL 
MOV 


M 
RETURN 


° aber TIME DRIVE STATE oo tn WITH ERROR REPORTING (TEST 4) 
TDSL GET REAL VE STATE 


; TIME DRIV 
; SEE IF ERROR OCCURRED 
1$ ; IFN RANCH 
2$ : IF RECEIVE ERROR, BRANCH 
4,#ER17 + REPORT NO CLOCKS ERROR MESSAGE 
= scala MOV #ER17,HRO.04 
4,#ERITA t REPORT RECEIVE ERRORS ERROR MESSAGE 
MOV #ER17A,HRO.04 


#17. Ny mete HRQ.02 ; ERROR NUMBER SET 
#.,HRQ.01 ADDRESS OF ERROR SET 
MERRIC, eHRQ.RQ OM REQUEST SET 


CLR ERRPOS 


° _ AS _RTDS BUT WITHOUT ERROR REPORTING 
U.MASK(R5S),R2 ; MOVE MASK TO R2 


0 
RDSTAT ET DRIVE S TATUS 
#*CCRCVRDY!ATTN!AVAIL !RURDY>, R1 ; a UNUSED BITS 
R2 3; TEST STATUS FOR ERR 
2s : IF NO ERROR, BRANCH 
#-1,R1 3 FLAG AS INVALID 


RDSTAT = GET DRIVE’S REAL TIME DRIVE STATE 


DRIVE STATUS 
RETURNED IN DM REGISTER 1 


PUSH 


RETURN 


RO SAVE RO 


MOV_RO,-(SP) 
#24600 ,R0 : MOVE 1/2 SECOND COUNT TO R 
STATUS : GET REAL TIME DRIVE STAT e* 
#0CLOCK,R1 3 iF IF tag + aa IS PRESENT 
nn : if IF eave 
RO 3 DECREMENT COUNT 
1$ : IF COUNT INCOMPLETE, BRANCH 
#177777,R2 ; MARK AS RECEIVE ERROR 
3$ : BRANCH OVER ‘NO ERRORS‘ 
R2 : NO ERRORS 
RO 3 RESTORE RO 


MOV (SP)+,RO 
RETURN TO CALLING MODULE 


SEQ 0876 


; CLEAR THE POSITION 





1 

2 001031 
3 
4 
5 
6 
7 


8 001082 


Sete Sete age 


Ot a os 
RELLS 


R 


Nm 
_ 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 36 
HSTTLK = TALK TO THE HOST (INTERRUPT THE HOST BEFORE 3 MIN) 


sort HSTTLK = TALK TO THE HOST (INTERRUPT THE HOST BEFORE 3 MIN) 


THIS ROUTINE INTERRUPTS THE HOST WITHOUT CONVEYING ANY USEFUL 
INFORMATION = ALL IT DOES IS SAY "I'M STILL ALIVE’ 


REPSFT ,., 
CLR HRQ.02 
CLR HRQ.03 


MOV_RO,-(SP) 


MOV (SP)+,R0 
RETURN 


H 4 
UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 37 SEQ 0878 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


seers HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 





1 
¢ 001053 
4 ;SEND REQUEST BUFFER TO HOST AND WAIT FOR RESPONSE. 
5 ;CLEAR ARGUMENT AREA OF OUT BUFFER IN PREPARATION 
§ FOR NEXT HOSTRO CALL. 
8 INPUTS: 
uw : RO = HOST REQUEST NUMBER 
19 HY OUT BUFFER LOADED WITH DATA 
12 001053 PUSH <RO,R1,R2> 
001053 100467 MOV RO,-(SP) 
001054 100461 MOV R1,-(SP) 
001055 100462 MOV R2,-(SP) 
13 001056 104070 001103 MOV RO,HRQ.RQ 3; STORE REQUEST NUMBER IN BUFFER 
14 001060 104207 001103 SNDAGN: MOV #HRQ.RO,RO : SEND BUFFER TO HOST 
15 001062 104201 000043 MOV #BU Ri 3; SIZE OF SEND BUFFER 
16 001064 060016 XFC MRD 3; SEND BUFFER 
17 001065 115001 TST R1 3; CHECK FOR 
18 001066 051060 BNE SNDAGN $ ERROR, TRY AGAIN 
19 001067 104207 001103 MOV #HRQ.RQ,RO 3 WAIT FOR RESPONSE FROM HOST 
20 001071 104201 000043 MOV #BUFSIZ,R1 3: SIZE OR RECEIVE BUFFER 
21 001073 060017 XFC MWR 3; RECEIVE BUFFER 
22 001074 104200 177777 001103 MOV #-1,HRQ.RO 3; MAKE REQUEST ILLEGAL 
23 001077 PoP <R2,R1,R0> 
001077 104262 MOV (SP)+,R2 
001100 eset MOV (SP)+,R1 
001101 104267 MOV (SP)+,RO 
24 001102 000000 RETURN 









UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 38 


HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
sSTORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 
sHRQ BUFFER = DATA TO SEND/RECEIVE TO/FROM HOST 


NOUEWN $90 NOUESWN On 


Wh 


WN $9 OBNOAUESWN $6 OONOAUSWN $0 OONOUS wh 


ee NNN Soe So tet 
atta tat tat tat to tat tot tat toto totattat-totattatattatatotat-to 


wv 


ah 8 kk kd tk ad td ot nd a tt to ss 
MEWN-ON 


ad a a ad as es st et et tn td th td 


3 
3 
3 
4 
4 


-Oo0on 





HRO. 34: 


BUF S1Z 





S55 


SOOO OOOOOOoooooooooooooooooooooooo 





HOST REQUEST CODE 
ARGUMENT 


sDATA 


sDATA ARGUMENT 32 
sDATA ARGUMENT 33 
zDATA ARGUMENT 34 


SIZE OF BUFFER 


SEQ 0879 


1 

2 001146 

3 

4 

5 

6 

7 001146 
potas 
00114 
001150 

8 001151 

9 001153 

10 001155 

11 001156 
001356 
001157 
001160 
001161 

12 001162 

13 001163 

14 001164 

15 001165 

16 potas 

17 00116 
001167 
001170 
001171 

18 001172 


—— O3<“92e222 — od od od 
SEP Zanlscees Feesse 


000400 
0001 





05 


- SBTTL 


CMPEDC: 


EDCLOP: 


ZEREDC: 


UDATS DISK EXERCISER DMACR X04. a 23-AUG-82 12:02:53 PAGE 39 
CMPEDC = EDC CALCULATION ROUTIN 


J 4 


CMPEDC = EDC CALCULATION ROUTINE 


THIS WILL yh THE EDC OF A SECTOR POINTED TO BY RO, RETURNING 


THE VALUE IN 

PUSH <R4,R1,R0> 
MOV #256.,R1 
MOV #INTEDC,R2 
MOV (RO)+,R4 
RXOR R4, 

MOV R2,-(SP) 
BIC 4,R 

BIC (SP)+,R4 
BIS 4,R2 

ADD R2,R2 

BCC ZEREDC 

INC Re 

DEC 

BNE EDCLOP 

PoP <RO,R1,R4> 


mem i ne ee + - 


SAVE R1 AND RO AND R4 
MOV R4,-(SP) 
MOV R1,-(SP) 
MOV RO,=(SP) 


; COMPUTE OVER 256 WORDS 
; MOVE uae EDC VALUE TO R2 


GET A WORD 
EXCLUSIVE OR THE WORD WITH THE CURRENT EDC VALUE 
SAVE REGISTER R2 

CLEAR COORESPONDING BITS IN R2 

ell ster BITS IN R4 


SHIFT R2 LEFT BY 1 
IF _THE AIGH. BIT WAS CLEAR, —— 
SET LO Ni CCUM 1 (OLD HI BIT) 


DECREMENT COUNT 

IF COUNT UNEXPIRED, a 

RESTORE Th AND RO AN 
MOV (SP)+,RO 
MOV (SP)+,R1 
MOV (SP)+,R4 


SEQ 0880 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 40 
TALK = SDI LEVEL 2 INTERCHANGE ROUTINE 


nse emer 
SEQ 0881 


thy TALK = SDI LEVEL 2 INTERCHANGE ROUTINE 





1 
é 001173 
4 : TALK SENDS THE COMMAND TO THE DRIVE. IF AN ERROR OCCURRS, R2 IS 
2 : RETURNED NONZERO 
7 001173 PUSH <R4, R5> ; SAVE POINTER TO UNIT AND SUBUNIT PARAMETERS 
001173 100464 MOV R4,=(SP) 
001174 100465 MOV RS5.=(SP) 
8 001175 104652 000025 MOV U.MASK(RS),R2  ; GET UNIT SDI SELECT MASK 
9 001177 104205 000001 MOV , : SEND TIMEOUT DEFAULT IS ONE 
10 001201 106203 001616 CMP #SNDONE ,R3 : SEE IF ONLY TO BE SENT ONCE 
11 001203 071206 BMI 1$ ; IF $0, BRANCH 
12 001204 104205 001750 MOV #MAXSND RS : SEND MAXIMUM NUMBER OF TIMES (ONLINE) 
13 001206 104137 1$: MOV R3) RO : POINTS TO SDI COMMAND BUFFER 
14 001207 ASSUME L2.0PC,0 
15 001207 104631 000001 MOV L2.SLN(R3),R1 =; LOAD BYTE COUNT 
16 001211 060004 KFC SEND : SEND SDI COMMAND 
17 001212 115001 TST R1 > SEE IF SDI COMMAND SENT SUCESSFULLY 
18 001213 011237 BEQ 2$ ; IF $0, BRANCH 
19 001214 117405 DEC R5 : DECREMENT TIMEOUT 
20 001215 051206 BNE 1$ : IF UNEXPIRED, BRANCH 
21 001216 POP R5 : RESTORE R5 
001216 104265 MOV (SP)+,R5 
22 001217 PUSH = R3 : SAVE SDI PACKET POINTER 
001217 100463 MOV R3,-(SP) 
23 001220 024223 ALL _—«GOINIT : INIT THE DRIVE 
24 ooi221 SOFTER 70 + REPORT 
001221 104200 004261 001107 MOV #ER70,HRO.04 
001224 104202 147746 MOV #70! ERSOF T+#4000. ,R2 
001226 104020 00110 MOV R2,HROQ.02 
001230 200 001230 001104 MOV #..HRQ.01 
001233 200 060013 001103 MOV #ERRMES ,HRO.RO 
25 001236 001440 BR 11$ : BRANCH 
26 001237 2$: POP RS : RESTORE RS 
001237 104265 MOV (SP)+,R5 
27 001240 104654 000033 MOV U.SDIS(R5S),R4 ; R4 HAS SHORT TIMEOUT 
28 001242 106203 001654 CMP #LONG,R3 : SEE IF LONG TIMEOUT TO BE USED 
29 001244 031247 BPL : IF SO, BR 
30 001245 104654 000034 MOV U.SDIL(RS).R4 + R4& HAS LONG TIMEOUT 
31 001247 4$: PUSH = R3 : SAVE POINTER 
001247 100463 MOV R3,-(SP) 
32 001250 020746 CALL TDS : GET REAL TIME DRIVE STATUS 
33 001251 115002 TST R2 + OK? 
34 001252 011255 BEQ 56 3 IF SO, BRANCH 
35 00125 024201 CALL GORTRY 3; ELSE, RETRY 
36 001254 001610 BR 17$ : AND BRANCH DUE TO ERROR 
37 001255 110601 5$: ROR R1 : IS RCVRDY SET? 
38 001256 041275 BCC 6$ ; IF NOT, BRANCH 
39 001257 ASSUME RCVRDY,1 
40 001257 SOFTER 77 
001257 104200 004523 001107 MOV #ER77 ,HRO..04 
001262 104202 147755 MOV #77 ‘ERSOFT+4000. .R2 
001264 104020 001105 MOV R2,HROQ.02 
001266 104200 001266 001104 MOV #.-HRO.01 
001271 104200 060013 001103 MOV #ERRMES ,HRO.RO 
41 001274 001440 BR 11$ : END ERROR 


| "St SO er res Magic’ ys 1] 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 40-1 SEQ 0882 


TALK = SDI LEVEL 2 INTERCHANGE ROUTINE 


42 001275 104207 001702 6$: MOV #ST,RO : POINT TO RECEIVE BUFFER 
43 001277 104631 000002 MOV L2.RLN(R3),R1 = NUMBER OF WORDS IN RESPONSE 
44 001301 104652 000025 MOV U.MASK(R5),R2  : STORE MASK IN R 
5 001303 060005 XFC RCV : RECEIVE SDI RESPONSE 
001304 115001 TST R1 : SEE IF SDI RESPONSE RECEIVED SUCESSFULLY 
47 001305 011475 BEQ 13$ : IF $0, BRANCH 
48 001306 106201 000001 CMP #1,R1 : SEE IF TIMEOUT 
49 001310 051335 BNE 7$ ; IF NOT, BRANCH 
50 001311 021031 CALL =‘ TLKHST : SAY ‘I'M ALIVE’ TO THE HOST 
51 001312 POP 3 + RESTORE R3 
001312 104263 MOV (SP)+,R3 
52 001313 117404 DEC RG : DECREMENT TIMEOUT VALUE 
53 001314 051247 BNE 4$ : IF TIMEOUT UNEXPIRED, BRANCH 
54 001315 PUSH = R3 + SAVE R3 
001315 100463 MOV R3,-(SP) 
55 001316 024223 CALL GOINIT : INIT THE DRIVE 
56 001317 SOFTER 71 : FLAG AS ERROR 
001317 104200 004275 001107 MOV #ER71,HRO.04 
001322 104202 147747 MOV #71 'ERSOFT+4000. ,R2 
001324 104020 001105 MOV ,HRQ.02 
001326 104200 001326 001104 MOV . HRQ.01 
001331 104200 060013 001103 MOV #ERRMES ,HRO.RO 
57 001334 001440 BR 11$ : BRANCH 
58 001335 106201 000002 7$: CMP #2,R1 ; SEE IF FIRST WORD NOT START FRAME 
59 001337 051356 BNE 8S : IF NOT, BRANCH 
60 001340 SOFTER 72 ; REPORT FIRST WORD NOT START FRAME 
001340 104200 004312 001107 MOV #ER72,HRO.04 
001343 104202 147750 MOV #72 'ERSOF T+4000. ,R2 
001345 104020 001105 MOV »HRQ.02 
001347 104200 347 001104 MOV . HRO.01 
001352 104200 060013 001103 MOV #ERRMES ,HRO.RO 
61 001355 001440 BR 11$ : BRANCH 
62 001356 106201 000004 8$: CMP #4,R1 : SEE IF FRAMING ERROR 
63 001360 051377 BNE 9$ : IF NOT, BRANCH 
64 001361 SOFTER 73 : REPORT FRAMING ERROR 
001361 104200 004342 001107 MOV #ER73,HRQ.04 
001364 104202 147751 MOV #73 ERSOFT+4000. .R2 
001366 104020 001105 MOV R2,HRQ.02 
001370 104200 001370 001104 MOV #. .HRQ.01 
001373 104200 060013 001103 MOV #ERRMES ,HRO.RO 
65 001376 001440 BR 11$ : BRANCH 
66 001377 106201 000010 9$: CMP #10,R1 : SEE IF CHECKSUM ERROR 
67 001401 051420 BNE 10$ : IF NOT, BRANCH 
68 001402 SOFTER 74 : REPORT CHECKSUM ERROR 
001402 104200 004366 001107 MOV #ER74 ,HRO.04 
001405 104202 147752 MOV #74 ‘ERSOF T+4000. .R2 
001407 104020 001105 MOV R2,HRO.02 
001411 104200 001411 001104 MOV #..HRO.01 
001414 104200 060013 001103 MOV #ERRMES ,HRO.RO 
69 001417 001440 BR 11$ : BRANCH 
70 001420 106201 000020 10$: CMP #20,R1 : SEE IF BUFFER TOO SMALL 
71 001422 051447 BNE 12$ : IF NOT, BRANCH 
72 001423 SOFTER 75 : REPORT BUFFER TO SMALL 
001423 104200 004413 001107 MOV #ER75,,HRO.04 
001426 104202 147753 MOV #75 'ERSOFT+4000. .R2 
001430 104020 001105 MOV R2,HRO.02 
001432 104200 001432 001104 MOV #..HRO.01 
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= SDI LEVEL 2 INTERCHANGE ROUTINE 
001435 104200 060013 001103 MOV #ERRMES ,HRO.RO 
73 001440 11$:  ENDERR 6 : FLAG END OF REPORTING BUFFER 
001440 104200 000051 001111 #SER22,HRO.06 
001443 104200 000007 002230 mov #6+1, ERRPOS : SET THE POSITION 
74 001446 001537 BR 14$ : EXIT 
75 001447 12$: HARDER 78 : UNKNOWN ERROR RETURNED BY UDA 
001447 104200 004557 001107 MOV #ER78,HRO.04 
001452 104202 107756 MOV #78! ERHARD+4000. ,R2 
001454 104020 001105 MOV Re, HRO.02 
001456 104200 001456 001104 MOV *HRQ.01 
001461 1042 001103 MOV SERANC. ;HRO.ROQ 
76 001464 CERROR 6,R1 : REPORT ERROR | 
001464 104010 001111 MOV R1,HROQ.06 
77 001466 ENDERR 7 : FLAG END OF REPORTING BUFF ER 
001466 104200 000051 001112 MOV #SER22,HRQ.07 
001471 104200 000010 002230 MOV ot J ERRPOS ; SET THE POSITION | 
78 001474 001537 BR 14$ : EXIT 
79 001475 114002 13$: CLR R2 : FLAG AS NO ERROR OCCURED 
80 001476 106637 000003 CMP L2.ERS(R3),RO : SEE IF COMMAND ACCEPTED ! 
001500 011557 BEQ 16$ : IF $0, BRANCH 
82 001501 SOFTER 76 : REPORT 
001501 104200 004444 001107 MOV #ER76,HRO.04 | 
001504 104202 147754 MOV #76 'ERSOFT+4000. .R2 
001506 104020 001105 MOV R2,HRQ.02 
001510 104200 001510 001104 MOV #..HRQ.01 | 
001513 104200 060013 001103 MOV #ERRMES ,HRO.ROQ 
83 001516 CERROR 6,<L2.ERS(R3),RO,#SER22> ; REPORT FURTHER ERRORS 
001516 104630 000003 001111 MOV L2-ERSCRS), HRQ.06 
001521 104070 00111 MOV k *HRQ. 
001523 104200 000051 001113 Mov ptstRee. one. 08 | 
84 001526 104200 100011 002230 MOV #<VALID+11>,ERRPOS ; FLAG AS STATUS GOO | 
85 001531 106207 000175 CMP #UNSSUC,RO 3 SEE IF UNSUCCESSFUL RESPONSE 
86 001533 011537 BEQ 14$ : IF SO, BRANCH | 
87 001534 103200 100000 002230 BIC AVALID,ERRPOS : GET Sfatus FOR PRINTING | 
88 001537 024201 14$: CALL —_-GORTRY : RETRY THIS COMMAND (MINIMUM) | 
89 001540 POP ; RESTORE POINTER TO COMMAND 
001540 104263 MOV (SP)+,R3 
90 001541 104633 000004 MOV L2. EOF (RS), R3 ; GET SDI ERROR OFFSET 
91 001543 105053 ADD R5_R3 : POINT TO ERROR WORD 
92 001544 104134 MOV GS), R4 : GET ERROR C 
93 001545 115404 INC : INCREMENT 
94 001546 106204 000002 CMP 2 RG : SEE IF MA 
95 001550 041555 BCC : IF NOT, BRANCH 
96 001551 103200 100000 001105 BIC #c2DFTL.HRO.02 : CHANGE ERROR TO A DEVICE FATAL 
97 001554 114004 CLR : IN CASE DROPS DISABLED, CLEAR’ ERROR COUNT 
98 001555 100134 15$: MOV R4, (R3) : SAVE COUNT 
99 001556 001610 BR 178 : EXIT 
100 0061557 16$: POP R3 : RESTORE POINTER TO COMMAND 
001557 104263 MOV (SP)+,R3 
101 001560 104633 000004 MOV L2.EOF(R3),R3  ; GET SDI ERROR OFFSET 
102 001562 105053 ADD : POINT TO ERROR WORD 
103 001563 104134 MOV (R3) RG : GET E c 
104 001564 011610 BEQ 17 : IF NO RETRIES, BRANCH 
105 001565 100132 MOV R2,(R3) : ZERO RET 
106 001566 REPSFT SOFT,,,COMM : REPORT SOFT AND COMMUNICATION ERRORS 
001566 104200 00001 001105 V 
001571 114000 001106 CLR HRa 03° 








ny DISK EXER 
- SDI LE 


001573 
00 


0016 
107 001610 

001610 
108 001611 


<o 


001107 
000063 
000050 
001104 
060007 


ER DMACR X04.01 235-AUG-82 12:02:53 PAGE 40-3 
INTERCHANGE ROUTINE 


17$: POP R4 
RETURN 


; RESTORE R4 


SEQ 0884 © 


HRQ.04 

MOV _RO,-(SP) 
U.UNUM(R5) ,RO 
+ SUBU(R5) ,RO 


RO,HRQ.01 
arecort. RO 
HOSTRO 


MOV (SP)+,RO 
MOV (SP)+,R4 
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UDAT4 DISK EXERCISER DMACR X04.01 23-AUG=82 12:02:53 PAGE 41 
SDI PROTOCOL MESSAGE TABLES AND RESPONSE BUFFER 


—— 
mises 


1 
2 
3 
4 
5 
6 001612 
001612 
001613 
001614 
001615 
? 001616 
8 001617 
001617 
001620 
001621 
001622 
001623 
9 001624 
001624 
001625 
001626 
001627 
001630 
10 001631 
001631 
Ooie3s 
0016 
11 001636 
001636 
001637 
001640 
001641 
00 ons 
12 00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
oo 
00 
00 
00 


a a a 3 Ss SS Ss Ss 4) — =) FH SS Hh SF) SS hs) sh ss 


SEADAAA BAnnnaeeerer 
—ONOUW SW —OONOuUlw 


16 
17 





000000 


000007 
000176 
000040 


» SBTTL 


SD1$ 


CR.ONL: 


SNDONE 


CR.GST: 


CR.CLR: 


CR.MOD: 


CR.SEK: 


CR.ERR: 


CR.DIS: 


: MSG INR, 1, Re compit 
- WORD 


SDI PROTOCOL MESSAGE TABLES AND RESPONSE BUFFER 
MESSAGE TABLES 


; INITIAL OFFSET 


0 
MSG ONL, cn if COMPLT ; BRING DRIVE ONLINE 


- WORD 3 ADDRESS OF COMMAND 
- WORD ou 3 SIZE OF COMMAND IN BYTES 
-WOR 7 SIZE OF REPLY WOR 


; SUCCESSFUL COMPLETION CODE 
PREVIOUS come BE SENT TO AN OFFLINE DRIVE 


“WORD COMPLT 
WORD SDI$+U. te 


MSG GST.1. Ae STSRES : GET 
«WORD ‘GST : ADDRESS OF COMMAND 
“WORD 1 : SIZE OF COMMAND IN BYTES 
“WORD 7 + SIZE OF REPLY IN WORDS 
“WORD STSRES ; SUCCESSFUL COMPLETION CODE 
“WORD SDI$+U.SDI2 : RETRY COUNT OFFSET 
MSG DRC,2,7,COMPLT ; DRIVE CLEAR 
.WORD DRC ; ADDRESS OF COMMAND 
“WORD 2 ; SIZE OF COMMAND IN BYTES 
“WORD 7? ; SIZC_OF REPLY IN WORDS 
“WORD COMPLT ; SUCCESSFUL COMPLETION CODE 
“WORD SDI$#U.SDI2 : RETRY COUNT OFFSET 
MSG MOD,3,7,COMPLT ; CHANGE MODE 
«WORD ‘MOD i ADDRESS OF COMMAND 
“WORD «3 i SIZE F COMMAND IN N BYTES 
“WORD 7 SI7E 0 EPLY IN WORDS 
“WORD COM : SucceSsrut COMPLETION CODE 
“WORD SDIseU, $D12 TRY COUNT OFFSET 
MSG INS,6,7,COMPLT ; initiate SEEK 
.WORD ‘INS’ : ADDRESS OF C 
“WORD g : SIZE OF COMMAND iN BYTES 
WORD t SIZE OF REPLY IN WORDS 
“WORD COMPLT : SUCCESSFUL COMPLETION CODE 
<WORD SDI$#U.SDI2 RETRY COUNT OFFSET 
MSG ERR,2,7,COMPLT : ERROR ietbveny 
«WORD ‘ERR : ADDR ESS OF COMMAND 
WORD é : SIZE OF COMMAND IN BYTES 
“WORD : SIZE OF REPLY IN WORDS 
WORD COMPLT ; SUCCESSFUL COMPLETION CODE 
WORD $+U.SD12 RETRY COUNT OFFSET 
MSG DIS, 3 »COMPLT : DISCONNECT DRIV 
.WORD ‘DiS® ; ADDRESS OF C 
WORD 2 : SIZE OF COMMAND IN BYTES 
R : SIZE OF REPLY 


» WORD IN WORDS 
WORD  COMPLT 3 SUCCESSFUL COMPLETION CODE 
«WORD SDIS+U. Sdl2 My T 


RY COUN 
ALL COMMANDS BEYOND THIS POINT ARE LONG TIMEOUT 
INITIATE ORECAL IBRATE 


INR 3 ADDRESS OF COMMAND 
se 3 SIZ D IN BYTES 
“WORD 7 ; SIZE OF REPLY IN WORDS 
RD COMPL : aie ser apt th CODE 
WORD SDIS+U.SDI2 ;_ RETRY COUNT OFF 
= SDIS ; SAVE NUMBER OF LEVEL 2 SDI COMMANDS 


SSsosooeeoosess 


MEWN $0 OONOUSWN O00 
= 


ba bed teh tee? tert 9b A eh gh Nae Sor = 
oo~ 
Ss 8s 


204 
201 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 1 
SDI PROTOCOL MESSAGE TABLES AND RESPONSE BUFF 


bis: 


-BYTE 







2:02:53 PAGE 41-1 
ER 


LEVEL 2 COMMAND MESSAGE 


0,DISCON 
» CHGMOD 
-DRVCLR 
GETSTA 


* IRECLB 
* INSEEK 


SSOSSCOSOSOOOOOOCOCO 
o mM 
z 
< 
S 
2 
r 


ov 


~ 
oO 
. 


——— ——— - — -—---— 


DATA STRUCTURES 


DISCONNECT DRIVE 
DO NOT SPIN DOWN DRIVE 
CHANGE MODE 


MODE 
DRIVE CLEAR 


; GET STATUS 
; INITIATE RECALIBRATE 


INITIATE SEEK 
INS CYLINDER/HEAD ARGUMENTS 
HI CYLINDER 


GROUP 
ERROR RECOVERY 


ONLINE COMMAND 
TIMEOUT VALUE 


; RESPONSE BUFFER 


SEQ 0886 


NO wr 
S 
~“ 
exsvens |g 


oo 0 30 2 oa wwe 


NNN NNN NNN 
WW 


> 
NONW 


NOUSWN CO OC 
~“ 
, 
Ww 


i eo 


~“ 
NRNSY 
NOUN 


MLW —O OC 


MMNNNN-— 
SS8SSSSSSSSSSSSSSSSSsssssssss 


a ss ss a ss st 
~“ 


N 
o 


EN NUN Ra Beery 


Sk 
-OVIft UOnoOou 


wo 

eo 
° 

NOnNWN— 


-O—— 
=8e 


ns a 


000046 
000200 


000012 
000002 


000002 
177777 


000001 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02: rt _— 42 
BLKCHK = SEE IF A BLOCK WITH ERROR IS KNOWN TO BE B 





SEQ 0887 


Py gh BLKCHK = SEE If A BLOCK WITH ERROR IS KNOWN TO BE BAD 


3$: 





BLKCHK CHECKS THE BLOCK IN U.LBN TO ASSURE THAT IT IS NOT A BAD 


BLOCK. 


BEQ 

BCS 1$ 

ADD #2,R1 

MOV =1(R1),RO 
BPL 3$ 

MOV #1,R0 

BR 4$ 

CLR RO 

ROR 


RETURN 


MOV U.PARM(RS) ,R1 
er 
MOV $.BADP(R4) ,R1 


MOV #RW.LOW,R2 
RO,R2 

CALL CMP2 
2$ 


RO 
POP <RO,R1,R2> 


IF SO, R2 IS RETURNED NONZERO 
PUSH <R2,R1,R0> 


; SAVE ALL REG'S 


MOV R2,-(SP) 
MOV R1,-(SP) 
MOV RO,-(SP) 
GET UNIT PARAMETERS 
7 IF ON RBN 


POINT TO LBN 

POINT TO LON TO BE TESTED 

COMPARE BAD BLOCK L 

IF EQUAL, BRANCH 

IF LIST GREATER THAN BLOCK, IT'S OK 
BCC -+2 
BR 1$ 


POINT TO NEXT BAD BLOCK 
SEE IF EOL 


IF NOT, BRANCH 
SET UP FOR CARRY TO BE SET (UNKNOWN BAD BLOCK) 


SET UP FOR THE CARRY TO BE CLEAR (BAD BLOCK KNOWN) 
SET cae TO REFLECT KNOWLEDGE OF BAD BLOCK 


REST 
MOV (SP)+,RO 
MOV (SP)+,R1 
MOV (SP)+,R2 
RETURN TO CALLING PROGRAM 





ge 3 


UDATS DISK siiges <— X04.01 23-AUG-82 12:02:53 PAGE 43 


CMP2 


- 28 BIT 


AMEWN 0 OONOUES wh 
g 
~ 
o 
wn 


Ss st 


4617 000001 


07 170000 
Hs 000001 


Se Se Sete Ge Bete 


1$: 


-SBTTL CMP2 
MP2: 


- 28 BIT COMPARE 


CMP2 COMPARES A 28 BIT NUMBER POINTED TO a R2 TO A 28 BIT NUMBER 
POINTED TO BY R1. BOTH NUMBERS ARE L 
WORD (POINTER TO LOW WORD) AND THE H HIGH IT F THE 
WORD POINTED TO BY R1 ARE STRIPPED OFF (THIS IS TO. ELIMINATE THE 
END-OF=LIST FLAG ON THE B/E SETS AND BAD BLOCKS) 


MOV 1(R1) ,RO : MOVE HIGH ORDER » ges TO RO 

BIC #*CHBHINB,RO : CLEAR UNUSED BIT 

CMP 1(R2),RO 3 COMPARE HIGH ORDER WORRD TO RO 
BNE 1$ 3 IF UNEQUAL, BRANCH 

MOV (R1),RO : 

(R2),RO ; 


CMP COMPA OW 
RETURN ; RETURN TO CALLING PROGRAM 


SEQ 0888 


eel a I TEE ORES 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG=82 12:02:53 PAGE 44 
BULDUM = BUILD THE DUMMY SDI CONTROL BLOCK FOR READS AND WRITE 


nn BULDUM = BUILD THE DUMMY SDI CONTROL BLOCK FOR READS AND WRITES 


1 

§ 001777 

¢ ; BULDUM WILL BUILD THE DUMMY SDI CONTROL BLOCK 

6 001777 11e008 CLR R2 : RBN'S 

7 002000 104643 000000 MOV S.PARM(R4) ,R3 : GET SUBUNIT PARAMETERS 

8 002602 jOgeos 020000 BIT #OCYLS,R3 : SEE IF IN DIAGNOSTIC AREA 

9 002 052013 BNE 1$ IF SO, BRANCH 

10 002005 Here) 000007 MOV S.SCHR(R4) ,R2 : GET SUBUNIT CHARACTERISTICS 

11 002007 10462 MOV RBNTRK(R2),R2_ ; GET RBN'S/TRACK 

12 002011 103202 177600 BIC #HIBYTE!200,R2 ; CLEAR UNUSED BITS 

13 002013 + F404 1$: ADD S.TRKLC(R4) ,R2 ; GET SECTORS/TRACK 

14 002015 10502 ADD R2,R2 : DOUBLE _SECTORS/TRACK FOR HEADER alr LIMIT 
15 002016 104020 002210 MOV Re, ses tye LIMT MOVE TO DUMMY SEARCH LIMIT 

16 002020 104643 000007 MOV S.SCHR(R4), RS; -RB Potw S$ TO ee CHARACTERISTICS 
17 002022 107203 000005 SUB #5,R3 R3 P $ TOS 

18 002024 104030 002211 MOV R3-DUMSDI*D. SCHR’ ; MOVE tO DuMeY SUB CHAR POINTER 
19 002026 000000 RETURN ; RETURN TO CALLING PROGRAM 


SEQ 0889 


G 5 
UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 45 SEQ 0890 
CALC = CALCULATE THE CYL, GRP AND TRACK FOR THE GIVEN L/RBN 


1 -SBTTL CALC = CALCULATE THE CYL, GRP AND TRACK FOR THE GIVEN L/RBN 

é 002027 CALC: 

4 : CALC CALCULATES THE CYLINDER, GROUP, TRACK AND SECTOR OF THE BLOCK 
6 002027 115007 TST RO ; SEE IF CALCULATION AREA MUST BE SET UP 

7 002030 052164 BNE MOVOUT ; IF CH 

8 002631 104070 002200 MOV RO, RBNFLG : SET RBN FLAG AS ZERO 

9 002033 104643 000007 MOV S.SCHR(R4) RS aS POINTS TO SUBUNIT’ S CHARACTERISTICS 
10 002035 104637 MOV RBNTRK(R3),RO ; GET RBN'S PER TRACK 
11 002037 103207 177600 BIC #HIBYTE'200,RO : CLEAR UNUSED B 

12 002041 105637 000011 ADD LBNTRK(R3),RO  : ADD LON'S PER TRACK 

13 002043 103207 177400 BIC #HIBYTE RO + CLEAR UNUSED BITS 

14 002045 104070 002217 MOV RO,SCR1 ; SAVE 

15 002047 104147 V (R4)R : GET SUBUNIT PARAMETERS 

16 002050 ASSUME S.PARM,O : ASSUME THAT S.PARM IS ZERO 

17 002050 102207 020000 BIT #OCYLS.RO : SEE IF USING ine ADIAGNOSTIC CYLINDERS 

18 002052 052123 BNE MO : IF $0, BRANCH 

19 002053 104637 000011 MOV LBNTRK(R3), RO : MOVE LBN'S PER TRACK TO RO 
20 002055 103207 177400 BIC #HIBYTE,RO- : CLEAR UNUSED BIT 
21 002057 104651 000046 MOV U.PARM(RS) R1 ; MOVE UNIT PARAMETERS TO RO 
22 002061 102201 000200 BIT #RBNBN,R1 ; SEE IF BLOCK REVECTORED 
23 002063 012101 BEQ NCYL : IF NOT, BRANCH 

002064 104070 002200 MOV RO, RBNFLG : STORE CBN'S PER TRACK IN REN FLAG AREA 

25 002066 104637 000004 MOV RBNTRK(R5),RO  ; MOVE RBN'S PER TRA R 
26 002070 103207 177600 BIC #177600, RO : CLEAR THE HIGHER Bits. LEAVING RBN'S/TRACK 
27 002072 104070 002177 MOV RO, LRDTRK 3: MOVE RBN‘S PER TRACK TO CALCULATION AREA 
38 002074 104637 000003 MOV HIRBNCRS) RO : GET HI RBN 
29 002076 103207 170377 BIC #HBLONB,RO : CLEAR UNUSED BITS 

30 002100 002107 BR LNCONT t BRANCH 

31 002101 104070 002177 LNCYL: MOV RO-LR ; MOVE LBN'S PER TRACK TO CALCULATION AREA 
32 002103 104637 000002 MOV HILBNCRSD RO  : GET HI LBN 

33 002105 103207 170377 BIC #HBLONB, RO ; CLEAR UNUSED BITS 

34 002107 104070 002172 LNCONT: MOV RO, HIBN ; SAVE 
35 002111 114007 CLR RO : LOW ORDER CYLINDER IS ZERO 

36 002112 104070 002173 MOV RO, STA + SAVE LO ORDER STARTING CYLINDER 

37 002114 104637 000001 MOV HIEYL CRD RO  : RO CONTAINS HI CYLINDER BITS 

38 002116 103207 007777 BIC #HBHINB,RO : CLEAR UNUSE 

39 002120 104070 002174 MOV RO, STACYL#1 : MOVE HI STARTING CYLINDER TO UNIT PARAMETERS 
40 002122 002164 BR MOVOUT 3 BR BRANCH 
41 002123 104637 000004 MOVDBN: MOV RBNTRK(R3),RO =: MOVE NUMBER OF RBN'S PER TRACK TO RO 
42 002125 103207 177600 BIC #177 ; CLEAR THE HIGHER BITS, LEAVING, RBN' S/TRACK 
43 002167 104631 000011 MOV LBNTRK (RS), R1 +: ADD LBN'S/TRK, GIVING DBN'S/T 
44 002131 103201 177400 BIC #HIBY TE,R : CLEAR UNUSED “gifs 
45 002133 105017 ADD 1,R : ADD LBNS/TRK TO RBNS/TRK TO GIVE DBNS/TRK 
46 002134 104070 002177 MOV RO” LRDTR 3 SAVE DBNS/TRK IN COMPUTATIONAL AREA 
47 002136 104647 900002 MOV S. Serre), RO : GET LO ORDER STARTING DIAGNOSTIC CYLINDER 
48 002140 104070 00217 MOV RO, STACYL : SAVE LO ORDER 
49 002142 104637 000001 MOV HICYL CRS) RO GET HI CYLINDER “BITS 

50 002144 103207 007777 BIC #HBH ; CLEAR UNUSED BI 

51 002146 101647 3 BIS S.SDCL#1(R4),RO : ; GET HI ORDER STARTING DIAGNOSTIC CYLINDER 
32 002150 104070 002174 MOV RO, STACYL#1 ; SAVE HI ORDER CYL 

53 002152 104637 000003 MOV HLBBNCRS) ,RO : GET HI BIT 

54 002154 110607 ROR RO : ROTATE TO CORRECT POSITION 

55 002155 110607 ROR RO ; ROTATE TO CORRECT POSITION 

56 002156 110607 ROR RO ; ROTAT CORRECT POSITION 

57 002157 110607 ROR RO : ROTATE TO CORRECT POSITION 








—s DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 45-1 
CALC = CALCULATE THE CYL, GRP AND TRACK FOR THE GIVEN L/RBN 


03207 hat 1a BIC yy nde RO CLEAR UNUSED BITS 
70 00 SAVE 


58 1 ' 
$9 092162 104070 00217 MoV = RO, H ; 

60 002164 104207 00217 MOVOUT: MOV PCALCSC RO : POINT TO CALCULATION AREA 
61 002166 104641 000007 MOY $-SCHRCR4).R1_—; POINT TO SUBUNIT CHAR TABLE 
62 002170 060020 KFC CVT ; CALCULATE 

63 002171 000000 RETURN : RETURN TO CALLING PROGRAM 


ae ite ee ——™ a 


SEQ 0891 


1 
4 00217 
00217 
4 002173 
5 002175 
6 002177 
? 002200 
8 002201 
9 002203 
10 002204 
11 002205 
\¢ 002206 
‘3 002207 
16 002217 
17 002220 
18 
19 
20 002221 
21 002222 
22 002223 
23 002224 
24 002225 
25 002226 
26 002227 
27 0022 
$8 002231 
30 002231 
31 
32 
33 
34 
35 
36 


034245 
061453 


007774 


002203 








UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 46 
TEST 4 STORAGE AREA FOR VARIABLES 


v hy STORAGE AREA FOR siete 


LK 1 
-BLKW 2 
-BLKW 2 
-BLK 1 
-BLKw 1 
-BLKW 2 
-BLKW 
-BLKW 1 
-BLKW 1 
-BLKw 1 
-BLKW 8. 
-BLKW 1. 
-BLKW 
-BLKW 


-BLK 
ASSUME -~DUMSDI 


s 
xz 
=] 
= oa 
pa 
= 
wn 
Ww 
TTR TE TE TELE TET 


SEQ 0892 


I BN BITS <27:24> 
CALCULATION AREA FOR CYL, GRP, TRK 
orarbane CYLINDER NUMBER 
SECTORS PER TRACK 
RBN FLAG 
CYLINDER 
GROUP 


DUMMY SDI AREA 


XFC READ AND WRITE WILL WRITE THE 
REVECTORED LBN IN THIS SPACE, 
OTHERWISE, USE IT FOR SCRATCH 


; PATTERN NUMBER STORAGE AREA FOR ERRORS 
; ‘et ge NUMBER 


MASTER P. 


; LO poe RANDOM NUMBER SEED 
; HI ORDER RANDOM — SEED 
; UNEXPECTED ATTENTION 

; MEMORY POOL 


FLAG 
FOR UNIT DATASTRUCTURES 


; RTDS AND STATUS POSITION 


3 *** NEXT WORD REQUIRES By UDA TO BE 18 PAST thet SDI BLOCK START 
WORD DUMSDI-4 NTER 


CHAINS: 





= 

@ 

aa 

x 

ce 
oe 


BE 


FOR LBN REVECTOR INFORMATION 


LEIVE IT OR NOT, THIS OILL WRITE THE REVECTORED LBN 
IN LOCATIONS DUMSDI+8 7 DUMSDI+9 


D 
EG. DUMSDI+18. POINTS TO 12 SHORT OF WHERE TO PUT THE 


REVECTOR INFORMATION 


; READ/WRITE CHAIN HEADER 
MAXIMUM NUMBE 


X R OF BUFFERS THAT CAN BE READ 
MAXIMUM NUMBER OF BUFFERS THAT CAN BE WRITTEN 
MAXIMUM NUMBER OF SECTORS THIS PASS 


as 


UDATS DISK EXERCISER DMACR X04.01 23-AUG=82. 12:02:53 PAGE 47 SEQ 0893 
DATA PATTERNS THAT WILL SE URITT THE DRIVE 
1 -SBTTL DATA teal Sy THAT WILL BE arlene § TO THE DRIVE 
§ 002236 002928 PATPTR: .WORD ATO POINTERS TO DATA PATTERNS 
002237 002300 "WORD PATI 

4 002240 002303 “WORD PAT 

5 002241 002306 “WORD PAT 

§ 002242 002311 “WORD PATS 

7 002263 002333 “WORD PATS 

8 002244 002355 “WORD PATG 

9 002245 002377 “WORD PAT? 

10 002246 002402 “WORD PATB 

11 002247 002424 “WORD 

12 002250 002427 “WORD PAT10 

13 002251 002451 “WORD PAT11 

14 002252 002454 «WORD PATI2 

15 002253 002476 “WORD PATI 

16 002254 002520 “WORD PAT14 

17 002255 002525 “WORD = PAT15 

iN : DATA PATTERNS (EDC OF PATTERN, LENGTH OF PATTERN IN WORDS, FOLLOWED BY PATTERN) 
21 002256 177777 PATO: WORD = 177777 ; DUMMY EDC 

22 002257 000001 -WORD 1 ; USER DEFINEABLE PATTERN 
23 002260 000000 “WORD 0 
24 002261 000000 “WORD 0 

25 0022 “WORD 0 

26 002263 000000 “WORD 0 

27 002264 00 “WORD 0 

28 002265 000000 “WORD 0 

9 002266 000000 : 0 

30 002267 000000 : 0 

31 002270 “WORD 0 

32 002271 000000 “WORD 0 

33 002272 000000 . 0 

34 002273 0 “WORD 0 

35 002274 000000 “WORD 0 

36 002275 000000 0 

37 002276 000000 “WORD 0 

38 002277 000000 “WORD 0 

39 002300 115337 PATI: WORD 11533? ; EDC FOR PATTERN 

40 002301 “WORD 1 ; Br 10001011 10001011" 
41 002302 105613 “WORD 105613 

42 002303 010524 PAT2: :WORD 010524 ; EDC FOR PATTERN 2 
43 002304 000001 “WORD 1 
44 002305 031463 “WORD 031463 ; B°0011061100110011" 
45 002306 001747 PAT3: WORD 001747 ; EDC FOR PATTERN 3 
46 002307 000001 “WORD 1 

47 002310 030221 “WORD 030221 é 

48 002311 135776 PAT4: .WOR 135776 3; EDC FOR FATTERN 4 
49 002312 000020 “WORD 16. ; SHIFTING ONES 

50 002313 000001 “wORD 000001 

51 002314 000003 “WORD 000003 

52 002315 000007 “WORD 000007 

53 002316 900017 “wORD 000017 

54 002317 000037 “WORD 000037 

55 002320 600077 “wORD 000077 

56 002321 000177 "WORD 000177 

57 002322 000377 “WORD 000377 





RU i Cae ee scents pinnlietnntanjnecenitnnel 
lean DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 47-1 SEQ 0894 


DATA PATTERNS THAT WILL BE WRITTEN TO THE DRIVE 
58 002323 000777 -WORD 000777 


59 OOS ase 001777 «WORD 001777 

60 002325 003777 eWORD 003777 

61 B05 366 007777 ~WORD 007777 

62 petit 017777 - WORD 17777 

63 0023 037777 - WOR 037777 

64 002331 077777 ~ WOR 077777 

65 tT 177777 WORD 177777 

66 002333 052420 PATS:  .WORD 052420 ; EDC FOR PATTERN 5 
67 002334 WORD 16. ; SHIFTING ZEROS 

68 002335 177776 -WORD 177776 

69 002336 177774 WORD 177774 

70 002337 177770 WORD 177770 

71 002340 177760 WORD 177760 

72 002341 177740 WORD 177740 

73 tt ok 177700 WORD 177700 

74 002343 177600 WORD 177600 

75 002344 177400 WORD 177400 

76 002345 7000 -WORD 177000 

77 oog ee 176000 «WORD 176000 

78 002347 174000 ° 174000 

79 002350 170000 17000 

80 002351 160000 -WORD 160000 

81 002352 140000 WORD 1400 

82 002353 0000 -WORD 100000 

83 002354 000000 -WORD 000000 

84 002355 114734 PAT6: .WORD 114734 ; EDC FOR PATTERN 6 
85 Oe ees 000020 - WORD 6, : ALTERNATING ZERO WORD AND ONE WORD IN 
86 002357 000000 «WORD 000000 3 3-2-1-1-1 SEQUENCE 
87 002360 000000 «WORD 000000 

88 002361 00 -WORD 000000 

89 002362 177777 «WORD 177777 

90 0023635 177777 WORD 177777 

91 002364 177777 WORD 177777 

92 002365 «WORD 0600 

93 002366 - WORD 000 

94 002367 177777 WORD 177777 

95 002370 177777 WORD 177777 

96 002371 «WORD 000000 

97 Oe ers 177777 WORD 177777 

98 00237 «WORD 000000 

99 002374 177777 WORD 177777 

100 002375 00 -WORD 000000 

101 002376 177777 WORD 177777 

102 002377 140753 PAT7: .WORD 1407: : EDC FOR PATTERN 7 
103 002400 1 WORD 1 ; B°1011011011011001° 
104 002401 133331 WORD 13333: 

105 002402 021147 PAT8:  .WORD 021147 ; EDC FOR PATTERN 8 
106 002405 000020 WORD 16. : B°0101010101010101° AND 
107 002404 052525 - WORD 035382 : B°1010101010101010° 
108 002405 b2S5e5e eWORD 052525 : IN 3-2-1-1-1 SEQURNCE 
109 002406 052525 WORD 052525 

110 002407 1$2525 eWORD 125252 

111 002410 125252 WORD 12525 

112 002411 1e3636 «WORD 12525 

113 pase lg 62626 WORD 0 § 2 

114 002413 052525 -WORD 052525 





L 5 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 47-2 SEQ 0895 | 
DATA PATTERNS THAT WILL BE WRITTEN TO THE DRIVE 
115 002414 125252 eWORD 125252 
116 002415 125252 WORD 125252 
117 002416 052525 eWORD 052525 
118 002417 125252 «WORD \e363¢ 
119 002420 052525 ~WORD 05252 
120 002421 125252 «WORD 125252 
121 poeess 052525 ~WORD 052525 
122 002423 125252 - WOR 125252 
123 002424 041260 PAT9:  .WORD 041260 : EDC FOR PATTERN 9 
124 002425 000001 WORD 1 : B°1101101101101100° 
125 002426 155554 WORD 155554 
126 002427 074075 PATIO: .WORD 074075 3 EDC FOR PATTERN 10 
127 002430 000020 WORD 16. ; B°0010110100101101° AND 
128 002431 026455 -WORD 026455 : B°1101001011010010° 
129 002432 026455 -WORD 026455 : IN 3=2-1-1-1 SEQUENCE 
130 002433 026455 ~WORD 026455 
131 002434 151322 WORD 151322 
132 002435 151322 WORD 151322 
133 002436 151322 WORD 151322 
134 002437 026455 «WORD 026455 
135 002440 026455 WORD 026455 
136 002441 151322 WORD 151322 
137 002442 151322 WORD 151322 
138 002443 026455 WORD 026455 
139 002444 151322 WORD 151322 
140 002445 026455 WORD 026455 
141 002446 151322 WORD 151322 
He 002447 026455 - WORD 026633 
143 002450 151322 WORD 151322 
144 002451 153110 PAT11: .WORD 153110 : EDC FOR PATTERN 11 
145 002452 000001 WORD 1 : B°0110110110110110° 
146 002453 066666 «WORD 066666 
147 002454 046211 PAT12: .WORD 046211 : EDC FOR PATTERN 12 
148 002455 000020 WORD 16. : RIPLE ONE | 
149 002456 000001 -WORD 000601 
150 002457 000002 -WORD 000002 
151 000004 «WORD 
152 002461 000010 WORD 000010 
153 002462 000020 -WORD 000020 
154 002463 000040 -WORD 000040 
155 0024 000100 - WORD 
156 002465 000200 -WORD 000200 
157 0024 00 - WORD 
158 002467 001000 «WORD 001000 
159 002470 002000 «WORD 002000 
160 002471 004000 «WORD 004000 
161 002472 010000 «WORD 010000 
196 002473 020000 -WORD 020000 
163 002474 040000 -WORD 040000 
164 002475 100000 «WORD 100000 
165 002476 121147 PAT13: .WORD 121147 : EDC FOR PATTERN 13 
166 00247 WORD 16. : RIPLE ZERO 
167 0025 177776 WORD 17777 
168 002501 177775 WORD 17777 
169 002502 177773 WORD 177773 
170 002503 177767 WORD 177767 
171 002504 177757 WORD 177757 





SEQ 0896 


m 5 


UDAT4 DISK EXERCISER DMACR ai or 23-AUG=82 12:02:53 PAGE 47-3 


DATA PATTERNS THAT WILL BE WRITTEN TO THE DRIVE 


* MAKE TEST 4 FORMATTER 
COMPATIBLE 


* PATTERNS 14 AND 15 


woOOooaerwoonwoae 


NAN) Une 


 MAMMN OMMM Oo 


Ll ed tel ed ed el td brah eg then all 
eer ee er KKK KOK Or KK OOnr KO 


OR NERO OR NOEL OO 
SOOO SP COCK MK NNNINNINNOMM 
MMNNAALALNAALALNLALALALALALALALALALALA 
cucucucucucucucucuCcuCuCuCICuCuCUCICUCUCC 


SSSSSSSSSSESSESSESESSS 


NR RRRRR Gwe ww 


Ce a 





UDAT4 DISK EXERCISER DMACR Xx04.01 es-AuG-8e 12:02:53 PAGE 48 
ROOT = MAIN DRIVING MODULE OF TEST 4 


Ssssoooses 


MMrrorrer 


MEW —OODNOUE Ww 
PAN 


WWWWIWWinonronoronor 


Sse 


4 
4 
5 
5 
5 
5 
5 
5 
5 
60 
61 


54 002576 


PP at 
vin WoO UO — 

oo 
-_- NO Oo UNV 


203 


NS WON-Oo WwW NO O-o 


“ MVINVAWUNIES | MLM row wLS 


ory o=9=~=8-a o-]-00— O-- O- oo 
— 
S 
oO 
N 


So Weuo- 


007702 


000046 


002223 


040000 


000046 


001650 


000004 
002223 


100000 
060016 


002223 


-SBTTL ROOT 


ROOT: 


ROOTLP: 


1$: CALL 


2$: CLR 
NOUNIT: 


STOP: 





#FIRSTU,RS 
(RS) RS 
U.NEXT,O 
U.PARM(RS) ,R1 
NOUNI 

DROP, 100000 
M PARR 
1WIPRG, 100000 
NOUNIT- 
SEQNCR 
U.PARM(RS) ,RO 
DROP, 100000 
#CR.DIS,RS 


Ss 
IWIPRG,100000 
#IWIPRG,M.PARM 
ROOT 


#DONE ,RO 
HOSTRQ 
EXIT 


= MAIN DRIVING MODULE OF TEST 4 
; RS POINTS TO FIRST UNIT TO BE TESTED 


COUNT OF DROPPED UNITS IS SET TO ZERO 
R5 POINTS TO NEXT UNIT IN CHAIN 


GET UNIT PARAMETERS 


IF N 


UME SIGN BIT 
SEE IF IN PROCESS OF INITIAL WRITE 
NOT, BRANCH 
ASSUME IWIPRG IS SIGN 


SEQ 0897 


Ta IF ye A IS BEING INITALLY WRITTEN 


EQUENCER 
IF JUST DROPPED 


IF NOT, BRANCH 
ot TO DISCONNECT 
COUNT OF DROPPED pi Ry SET TO ZERO 


BRAKCH TO BOTTOM OF 
ay ge ei COUNT OF DROPPED UNITS 


E ir. FOUR a UNITS HAVE BEEN DROPPED 


IF NOT, BRANC 
SEE IF gy le WAS IN PROGRESS 


IF NOT, 
ASSUME IWIP 


RG IS SIGN BIT 


CLEAR INITIAL WRITE BIT 
NOW START a STING 


MOVE DONE T 


HOST ot -; pel AREA 


SENT DONE MESSAGE T 
EXIT DIAGNOSTIC MACHINE MODE 





i 
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SEQNCR = OVERLAY DRIVER FOR TEST 4 


1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 


002577 


002577 104657 000013 
002601 


Sete Se Sete Fete 


SEQLP: 


~SBTTL SEQNCR = OVERLAY DRIVER FOR TEST 4 
EQNCR: 


SEQUENCER re be THE VARIOUS MODULES, USING THE ADDRESS RETURNED 

IN a BY THE PREVIOUS MODULE. RO HOLDS THE NEXT ADDRESS TO VECTOR 
TO. IF R71 IS ZERO, AN _IMMIDATE CALL IS MADE TO THE NEXT ROUTINE. 
IF R2 IS NONZERO, AN ERROR WAS ENCOUNTERED, AND THE ERROR COUNT IS 
INCREMENTED. THE ERROR IS THEN REPORTED TO THE HOST. 


MOV U.NFUN(RS),RO ; LOAD RO WITH NEXT FUNCTION ADDRESS 


SEQ 0898 


0808 








UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 50 SEQ 0899 
DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UNIT 


j =SBTTL DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UNIT 
3 ; 
4 : DROP TEST MAKES SURE AT LEAST ONE ACTIVE SUBUNIT IS ACTI VE aM THE UNIT 
2 : IF SO, R4 POINTS TO SUBUNIT PARAMETER BLOCK, U.SUBU IS UPDATED T 
é ; THE SUBUNIT OFFSET, AND R3 IS RETURNED Positive. IF not Ons I 
i ; RETURNED NEGATIVE AND THE ENTIRE UNIT IS DROPPED 
9 002601 PUSH RO : SAVE NEXT MODULE ADDRESS 
002601 100467 MOV RO,-(SP) 
10 002602 104657 000046 MOV UY. PARM(RS) ,RO ; GET UNIT PARAMETERS 
11 002604 102207 001000 BIT #FTIME,RO : SEE IF FIRST TIME THROUGH 
12 002606 012673 BEQ 1$ : NC 
13 002607 024207 CALL  GOSEEK FIRST , FORCE A SEEK 
14 002610 103207 015610 BIC RENN: REVEC 1FTHAE!DIREC !WCHECK! NEWSUB, RO 
15 002612 100657 000046 MOV RO, U.PARM(RS)  ; SAVE 
16 002614 104057 MOV R5.RO : RO WILL POINT AT SUBUNIT POINTERS | 
17 002615 115407 INC RO : RO POINTS AT SUBUNIT POINTERS 
18 002616 ASSUME U.SUBP,1 
19 002616 114002 CLR R2 ; UP TO 4 SUBUNITS ON THIS UNIT | 
20 002617 100652 000024 MOV R2,U.CSEC(RS) |: ZERO ALL TRACK COUNTS SO WHE TEST AT THE 
21 002621 100652 000021 MOV R2,U.NSEC(R5) : BEGINNING Of SETUP IS SATISIFIED SO CONTROL 
22 002623 100652 000023 MOV R2,U.TSEC(RS) : DROPS Lae a TO SETUP THE NEXT OPERATION | 
23 002625 104273 11$: MOV (RO)+,R3 ; GET SUBUNIT POINTER | 
24 002626 072637 BMI 12$ : IF NO SUBUNIT, BRANCH 
25 002627 104133 MOV (R3) ,R3 : GET SUBUNIT PARAMETERS 
26 002630 ASSUME $.PARM,O : ASSUME THAT S.PARM IS ZERO 
27 002630 072637 BMI 12$ : IF DROPPED, BRANCH 
28 002631 ASSUME DROP, 100000 : ASSUME DROP IS SIGN BIT 
29 002631 115000 002223 TST M.PARM : SEE IF INTIIAL WRITE IN PROGRESS 
30 002633 032644 BPL 13$ : IF NOT, H 
31 002634 ASSUME IWIPRG,100000 =: ASSUME IWIPRG IS SIGN BIT 
32 002634 102203 040000 BIT #INITWLRS : SEE IF THIS SUBUNIT IS TO BE INITIALLY WRITTEN | 
33 002636 052644 BNE : IF SO, BRANCH 
34 002637 115402 12$: INC R2 : INCREMENT COUNT 
35 002640 106202 000003 CMP #3,R2 : SEE IF COUNT EXHAUSTED 
36 00264 032625 BPL 11% : IF NOT, CH 
37 002643 003037 BR 4$ : IF SO, DROP ENTIRE UNIT 
38 002644 100652 000050 13$: MOV R2,U.SUBU(R5) : SAVE SUBUNIT OFFSET 
39 002646 104024 MOV R2,R4 : MOVE TO SUBUNIT POINTER REGISTER 
0 002647 105054 ADD R5.R4 : ADD UNIT POIN 
41 002650 105204 000001 ADD #U. SUBP,R4 + ADD SUBUNIT POINTER OFFSET 
42 002652 104144 MOV (R4) RG ; R4 NOW POINTS TO SUBUN 
43 002653 023700 CALL = RECOVR SET UP UNIT FOR RUNNIN Ne 
44 002654 104207 104000 MOV #ERMASK | SEKREQ, Rd ; DISABLE RECOVERY FORCE A SEEK 
45 002656 100657 000047 MOV RO,U.RCOV(RS) - ; SAVE IN RECOV: ERY 
002 104207 000010 MOV #NUML2S,RO : GET NUMBER OF L 2 COMMANDS 
47 002662 104051 MOV RS,R : R1 POINTS TO UNIT BA RAMETERS 
48 002663 105201 000035 ADD #U.SD12,R1 : R1 POINTS TO SDI AhEVEL 2 ERROR COUNT AREA 
49 002665 114002 CLR ; SET UP TO CLEAR AREA 
002 100212 14$: MOV R2,(R1)¢ : CLEAR 
51 002667 117407 DEC RO + DECREMENT COUNT 
52 002670 052666 BNE 14$ ; IF INCOMPLETE, BRANCH 
53 002671 11400 CLR : PROCESS THIS UNIT 
54 002672 003045 BR 5$ : EXIT 
55 002673 104054 1$: MOV R5,R4 : GET POINTER TO UNIT DATASTRUCTURE 
56 002674 115404 INC RG : POINT AT SUBUNIT POINTERS 





eh 


002675 


Le) 
o 


Seexeeceees 
sss VINO 


98 002771 
00 


RARAVLSSSLESLALLE 
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wouwnemd & 


s 


—— OA At tt It IOS OC OO 
Se wo 
Ww woul 
wMuvivi 
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oOo 
Seueces 
NANO VII 


Ss 


Nm Sysse 
SSR 


o- O-— 
uo We 
Vie MW ENNWNOON 


SVSOMNSS 


RARGRENRARGER 
o-oo 
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—w 

~N 

RS 
o=- & 
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000050 


004000 
004000 
000046 
000024 
000021 


000023 
002223 


040000 
005527 
000063 
000050 
060015 


000050 


040100 


000004 
000001 


000050 
000003 





UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 "aa ~ 
DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UN 


"a U. eta 
U. SUBUCRS) ,R4 
(Ra). R4 


mov : 
BMI é 3 
MOV (R4), R1 : 
ASSUME $.PARM,O : 
BIT pNEUSUB. RO : 
BEQ 6s : 
BIC #NEWSUB, RO : 
MOV RO,U.PARM(RS) ; 
CLR R2 3 
MOV R2,U.CSEC(RS) : 
MOV ,U.NSEC(RS) =: 
MOV ,U.TSEC(RS) =: 
TST M.PARM : 
BPL : 
ASSUME IWIPRG,100000_ : 
BIC #INITW.R1 : 
MOV R1, (R4S : 
ASSUME S.PARM,O : 
MSSG. : 
MOV U.SUBUCRS) ,R2 
CALL CHKUP 
BR 5 
6$: CLR oF 
TST 
BPL aH 
ASSUME DROP,100000 : 
2s: BIT WSEQSEK! INITW, RV 
BNE 10$ 
:RNDSUB 
: GET NEXT SUBUNIT TO CHECK 
55$: MOV RO 
MOV #U.SUBP,R3 
ADD , 
MOV U. SUBUCRS) ,R2 
21$: INC R 
CMP #3,R2 
BPL $ 


228: MOV R5,R4 


238: DEC RO 


R4 POINTS ut SPECIFIC pike te POINTER 
i POINT it iseetince 


GET SUBUNIT PARAMETER 

ASSUME THAT S.PARM IS ZERO 

iF Nor, ey TO GO TO NEXT SUBUNIT 
sem NEWSUB BIT 

FOR CEARING FOLLOWING WORDS 

ZERO ALL TRACK COUNTS SO THE TEST AT THE 
BEGINNING OF SETUP IS SATISIFIED SO CONTROL 
DROPS THROUGH TO SETUP THE NEXT OPERATION 
iF wor IF tte WRITE IS IN PROGRESS 
ASSUME’ IWIPRG IS SIGN BIT 

eee INITIAL WRITE BIT 


ASSUME THAT S.PARM IS ZERO 
REPORT INITIAL WRITE gp tg 
MOV #MS1,HRQ. A. 

RO,=(SP) 
MOV U.UNUM(RS) -HRO.01 
ADD U. SUBU(RS) ,HRQ.01 
#MESSAG,RO 


MOV ° 
CALL HOSTRQ 
MOV (SP)+,RO 


SEE a ANY MORE UNITS TO INITIAL WRITE 


; GET ACTIVE SUBUNIT POINTER 


; BRANC 
; If as ah as PROCESS 


SEE IF UNIT 


; IF ACTIVE, BRANCH 


ASSUME DROP IS SIGN BIT 
; SEE IF SEQUENTIAL SEEKS 
; IF SO, BRANCH 


RANDOMLY 


SUBUNIT COUNT 
R3 WILL POINT TO at wee 
R3 POINTS TO SUBUNIT NTERS 

IS SUBUNIT NUMBER 


R2 Ss IT 
GO XT UNIT 
SEE IF GREATER THAN 3 
IF - BRANCH 
Ss It 0 
R4 POINTS TO S$ IT POINTERS 
R4 NOW POINTS TO A SPECIFIC SUBUNIT POINTER 
R4 NOW POINTS TO SUBUNIT PARAMETERS 
IF NO rape 
GET SUBUNIT PARAMETERS 
ASSUME THAT S.PARM IS $ 7ERO 
IF ACTIVE, BRANCH 
DECREMENT C 


( hl a IN INITIALIZATION} 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 50-2 
DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UNIT 


107 003001 
108 003002 
109 003004 
110 003006 
111 003010 
N¢ 003011 
113 003013 
114 003014 
115 003015 
116 003017 
117 003021 
118 003022 
119 003023 
120 003024 
121 003025 
122 003026 
123 003027 
124 003030 
125 003031 
126 So eoss 
127 00303 
128 003034 
129 003035 
130 003036 
131 003037 
132 003041 
133 003043 
13% 003045 
135 003046 
136 003047 
137 003052 
003052 
138 003053 
139 003054 
140 003055 
144 003057 
is Sas 
147 00306 
148 003064 
149 003065 
150 003067 
151 003070 
152 003072 


So=Boaot Roos 

=== KOU —OooO 
Busses seNeasee 
Geeerscusnesae 

NVMIN SUIS onrwu MAW 


-_ 
_ 
NRWAWWIWIN SU 


cesey- = 
Sua esse 


ooon ve ne 
Bbseecesess fae 
M=NNNNA S NOVIWN Ss 


w 


NUN NNN OO 


ss 
CS 
= 


000046 
100000 
000046 
000050 


000050 
010000 


000046 
100000 
000046 
177777 


002222 
000100 


004257 
004245 


002217 


248: 


10$: 


3$: 


4$: 


5$: 


7$: 


21$ 
U.PARM(RS) ,R3 
#DROP,R 
R3,U.PARM(RS) 
R2,U.SUBUCRS) 
R3 


5$ 
U.SUBU(R5) ,R2 
#O0IREC,RO 

3$ 

CHKUP 

RO 
5$ 
CHKDN 

RO 

5$ 

4$ 

CHKDN 

RO 

5$ 

CHKUP 

RO 

5$ 
U.PARM(RS) ,R3 
#DROP RS 

| T aaimaataaes 


7 
#-1,SCR1 
RO 


ROR 
OTABLE (RO) ,R2 
PTABLE(R2),R1 
LOADED 


; IF _ INCOMPLETE, BRANCH 
; GET ie oe 


EXIT 
SAVE SUBUNIT 


NUMBER 
: rest THIS SUBUNIT IMMIDATELY 


R2_IS SUBUNIT NUMBER (0-3) 
SEE IF GOING UP OR DOWN 
IF DOWN, BRANCH 

FIND NEXT UPPER SUBUNIT 
IND ONE? 

IF SO, BRANCH 

SEARCH DOWN FOR ONE 

FIND ONE? 

IF SO, BRANCH 

DROP 

LOOK DOWN FOR SUBUNIT 

FIND ? 


IF SO, BRANCH 
GET UNIT PARAMETERS 
DROP UNIT 


SAVE 

SEE IF THIS SUBUNIT TO BE TESTED 
IF NOT, BRANCH 

FLAG AS = SUBUNIT 


RESTORE 
MOV (SP)+,R0 
iF IF ACTIVE SUBUNIT EXISTS 


H 
SAVE THIS OVERLAY NUMBER 
SEE IF THE ROUTINE IS ON AN OVERLAY 
IF NOT, BRANCH 


SAVE THE OVERLAY NUMBER 
MULTIPLY THE OVERLAY NUMBER BY 4 


; GET THE OVERLAY AREA NUMBER 


MULTIPLY THE AREA NUMBER B 


Y2 
; SEE IF THE SvERLAY REQUESTED IS IN MEMORY 


IF SO, BRANC 


SEQ 0901 


Ouewn— 
Ww 
o 
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~~ 
NO 


=$SSSS 


WONOUSWN—OVOOn 
eee ed ae ed ed ed ed ed oD od ed ed 
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td 4 2 3) 2 = I I 
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sessssssssesessosessessesess 
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Ww 
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UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 51 
OVRLAY = OVERLAY PROCESS FOR BRINGING IN OVERLAYS IF NEEDED 


F 6 


3 hy # OVRLAY = OVERLAY PROCESS FOR BRINGING IN OVERLAYS IF NEEDED 


41$: 


42$: 


MO 
LOADED: 


BRING IN THE OVERLAY 
<R5,RO,R1,R2,R3> 


#3,R5 
OTABLE*3(RO), R1 
#1777 


PTABLES{ (R2), R3 
OTABLE+3(RO) *R2 


#140000, R2 
OTABLE+2(RO),RO : 
UREAD 


RO,R1 


42 
<R3,R2,R1,R0> 


<RO,R1,R2,R3> 


R5 
41$ 


#177777, HRQ.03 
HR RO 


HOST 


STOP 
<R3,R2,R1,RO,R5> 


R1,PTABLE (R2) 
#1, 
R2 


<R1 , #SER39> 


OTABLE+1(RO) RO 
R1 


3 SAVE REGISTERS 
MOV R5,-(SP) 


MOV R2,=(SP) 


a MOV R3,-(SP) 
TRY TO READ 3 TIME 
GET THE HI ORDER BITS OF UNIBUS ADDRESS 
CLEAR UNUSED BITS 
POINT TO WHERE TO LOAD OVERLAY 
ET NUMBER OF WORDS TO TRANSFER 
ROTATE BITS TO CORRECT POSITION 


CLEAR UNUSED BITS 

GET LO ORDER ree otek he 

READ THE OVERLAY INTO UDA MEMORY 

ADD THE ERRCR” REGISTERS TOGETHER 

IF NO ERRORS, BRANCH 

RESTORE THE REGISTERS 
MOV (SP)+,R3 
MOV (SP)+,RO 
MOV RO,-(SP) 


MOV R2,-(SP) 
MOV R3,-(SP) 


; SAVE THE REGISTERS 


DECREMENT COUNT 


: IF INCOMPLETE, BRANCH 

; UNABLE TO READ FROM HOST MEMORY 
MOV #ER33,HRQ.04 
MOV HRQ. 
MOV 


eo 06 
MOV pe ee 
MOV R2,HRQ.02 
eHRQ.01 
#ERRMC ,HRO.RO 
FLAG AS NOT ASSOCIATED WITH ANY UNIT 


; 4 TO REPORT ERROR 
; REPORT THAT PROGRAM IS At 


= HED 
MOV (SP)+,R3 


INI 
3 RESTORE THE REGISTE 


MOV (SP)+,R5 
MARK oe OVERLAY AS IN MEMORY 
GET THE NUMBER OF OVERLAY ens DESTROYED 
aie conTAlns THE "EMPTY AREA® FLAG 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 Re a PAG 


OVRLAY = OVERLAY PROCESS FOR BRINGING IN OVERLAYS 


00 1 
33 00390 11740 GONE: DEC 
003203 073211 BMI 
5 003204 105202 00000 ADD 
003206 100621 00424 MOV 
37 003210 003202 BR 
38 003211 PLOAD: POP 
003¢11 1Ose6s 
39 003212 i 004246 MOV 
43 003214 104652 000047 GO4IT: MOV 
44 003216 073227 BMI 
45 003217 ASSUME 
003217 020746 CALL 
47 003220 115002 TST 
48 003221 053225 BNE 
49 005222 102201 000102 BIT 
50 003224 013227 BEQ 
51 003225 024201 1$: CALL 
52 003226 003231 BR 
53 003227 2s: 


RO 
PLOAD 


#2 ,R2 
R1,PTABLE(R2) 
GONE 


R2 


PTABLE+1(R2),RO ; 
U.RCOV(RS).R 


ERMASK , 100000 
RTDS 


1$ 
#AVAIL!ATIN,R1 
2s 


GORTRY 
JMPRET 


SEQ 0903 


MOV R2,-(SP) 
arity! im Bah Hy COUNT 
IF ALL_NECESS ny in — DESTROYED, BRANCH 
POIN NT TO NEXT SOVERLAY AREA 
MARK AREA AS DESTROYED 
GO TO TOP OF L My 
RESTORE R2 


MOV (SP)+,R2 
GET OVERLAY ADDRESS 


; TF NO Re RECOVERY WORD 


RECOVERY, BRANCH 
RMASK § 


ASSUME E IGN BIT 
; BEFORE Pohon Orel SEE IF ONLINE 
; i's YY ERROR OCCURRED 


IF 


BRAN cH 
: see If AVAILABLE OR ATTENTION ASSERTED 


RETRY f THIS MODULE 


ey 





UDATG DISK EXERCISER DMACR X04.01 23-AUG="i2 12:02:53 PAGE 52 
JMPRET = THIS IS THE LOCATION THAT VECTOR: TO/FROM ALL OVERLAY 


1 -SBYTL JMPRET = THIS IS THE LOCATION THAT VECTORS TO/FROM ALL OVERLAYS 

2 o03585 PUSH RO 3 PUSH THE BRANCH ADDRESS ONTO THE STACK 
003227 100467 MOV RO,-(SP) 

3 003230 000000 RE TURN ; VECTOR TO MODULE 

4 003231 JMPRET: 


er mr a a 


SEQ 0904 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 53 SEQ 0905 
CORECT = CORRECT THE ERRORS 


1 -SBTTL CORECT = CORRECT THE ERRORS 

. sCORECT 

¢ 3 CORRECT THE ERRORS AND RECOVER 

6 003231 PUSH <R1,R0> 3; SAVE NEXT OVERLAY AND CALL TYPE 
003231 100461 MOV R1,-(SP) 
OO ests 100467 MOV RO,-(SP) 

7 003233 114000 002226 CLR ERMODE ; CLEAR ERROR MODES 

8 003235 115002 TST R2 ; SEE IF ERROR OR MBYTE REPORT 

9 003236 053331 BNE 5$ : IF SO, BRANCH 

10 003237 104652 000047 MOV U.RCOV(RS),R2 3; GET ERROR RECOVERY WORD 

11 003241 073671 BMI $ 3; IF RECOVERY DISABLED, BRANCH 

\¢ 003242 ASSUME ERMASK,100000 3 ASSUME RECOVERY MASK IS SIGN BIT 

13 003242 020746 CALL RTDS 3; GET REAL TIME DRIVE STATE 

14 003243 115002 TST R2 3; SEE IF ERROR OCCURRED 

15 003244 053361 BNE 70$ 3; oUiIF - REPORT 

16 003245 102201 000100 BIT #AVAIL,R1 3; SEE IF AVAILABLE ASSERTED 

17 003247 013277 BEQ $ s iF » BRANCH 

18 0032 102201 000002 BIT #ATITN,R1 3; SEE IF SPINABLE 

19 003252 053273 BNE 1$ : IF SO, BRANCH 

20 00325 DEVFTL 13 3; REPORT UNSP:NABLE DRIVE 
003253 104200 001406 001107 MOV #ER13,HRO.04 
003256 104202 047655 MOV #13! FTLDEV+4000. ,R2 
003260 104020 001105 MOV R2,HRO.02 
003262 104 003262 001104 MOV #.,HRQ.01 
003265 104200 060014 001103 MOV #ERRMC ,HRO.RO | 

21 pO 3578 ENDERR 0 
003270 114000 002230 CLR ERRPOS ; CLEAR THE POSITION 

22 003272 003361 BR 70$ 3; REPORT 

23 003273 101200 090100 002226 1$: BIS #AVAIL ,ERMODE 3; AVAIL ERROR 

24 003276 003302 BR $ 3; BRANCH 

25 003277 102201 000002 23: BIT #ATITN,R1 ; SEE IF ATTENTION IS ASSERTED 

26 003301 013671 BEQ 3; IF NOT, BRANCH 

27 003302 101200 000002 002226 3$: BIS #ATTN, ERMODE 3; FLAG AS ATTENTION ERROR 

28 003305 SOFTER 2 3; ATTENTION ASSERTED UNEXPECTEDLY 
003305 104200 000117 001107 MOV #ER2,HRO.04 
003310 104202 147642 MOV #2'ERSOFT+4000. ,R2 
003312 104020 001105 MOV R2,HROQ.02 
003314 104200 003314 001104 MOV - -HROQ.01 
003317 104200 060013 001103 MOV #ERRMES ,HRO.RQ 

29 00332 ENDERR 
003322 104200 000051 001110 MOV #SER22.,HRO.05 
003325 104200 000006 002230 MOV #5+1, ERRPOS 3; SET THE POSITION 


30 003330 003364 


BR 6$ 3; BRANCH 








UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 54 . SEQ 0906 


CORECT = CORRECT THE ERRORS 
1 003331 106200 060011 001103 5$: CMP #TGMXFR,HRO.RQ ; SEE IF MEGABIY TRANSFER REPORT 
2 003334 053352 BNE 40$ IF NOT, BRAN 
003335 104650 000063 001104 MOV U.UNUM(R5) ,HROQ. 01 3 MOVE STARTING UNIT NUMBER TO COM AREA 
4 003340 105650 000050 001104 ADD U. SUBU(R5) .HRO.01 ADD OFFSET 
5 003343 104307 001103 MOV HRO.ROQ,RO : SETUP iol COM 
6 003345 021053 CALL -HOSTRO + REPORT 
7 003346 115000 001104 TST HRQ.01 : SEE IF DROPPED 
8 003350 073636 BMI 80$ : IF $0, BRANCH 
9 003351 003671 BR 90$ : IF NOT, BRANCH 


: ” ear ran ia emia savaiiemmentee 
ears DISK EXERCISER a at 23-AUG-82 12:02:53 PAGE 55 


CORECT = CORRECT THE ERROR 


SEQ 0907 





1 003352 104302 001105 40$: MOV HRQ.02,R2 : GET ERROR TYPE 
é 003354 103202 037777 BIC #37777 RO + CLEAR ERROR NUMBER 
003356 106202 040000 CMP #F TLDEV,R2 : SEE IF DEVICE FATAL 
4 003360 053364 BNE 6$ ; IF NOT, BRANCH 
5 003361 ASSUME FTLDEV,040000 : ASSUME IN HI 2 BITS 
6 003361 101200 100000 002226 70$: BIS #DROP,ERMODE § : ERROR CAUSED THE ENTIRE DEVICE TO BE DROPPED 
7 003364 104307 002230 6$: MOV ERRPOS,RO t GET ERROR POSITION 
8 003366 013523 BEQ : IF NO REPORTING, 
9 003367 103207 100000 BIC #VALID,RO t CLEAR "ALLREADY VALID’ BIT 
10 003371 105207 001104 ADD #HRO.RQ+1,RO |: POINT TO OUTPUT BUFFER 
11 003373 PUSH  <R4,RO> : SAVE SUBUNIT POINTER AND ERROR POINTER 
003373 100464 MOV R4,=(SP) 
003374 100467 MOV RO,=(SP) 
12 003375 104657 000011 MOV U.MSTO(RS),RO ; GET MASTER SEEK TIMEOUT 
13 003377 115407 INC RO + INCREMENT RO FOR BNE RATHER THAN BCC 
14 003400 114003 CLR R3 : FOR LOW ORDER TIMEOUT 
15 003401 020775 31$: CALL = RTDSL : GET REAL TIME DRIVE STATE 
16 003402 115002 TST R2 : SEE IF ERROR 
17 003403 053417 BNE 33$ : IF ERROR, BRANCH 
18 003404 102201 000003 BIT #RCVRDY!ATIN,R1 ; SEE IF RECEIVER READY OR ATTENTION ASSERTED 
19 003406 053417 BNE 33$ : IF SO, BRANCH 
20 003407 104201 000310 MOV #200. ,R1 : INNER LOOP TIMEOUT 
21 003411 117401 32$: DEC R1 : DECREMENT COUNT 
22 003412 053411 BNE 32$ : IF INCOMPLETE, BRANCH 
23 003413 117403 DEC R3 : DECREMENT TIMEOU 
24 003414 053401 BNE 31$ : IF INCOMPLETE 
25 003415 117407 DEC RO : DECREMENT TIMEOUT 
26 003416 053401 BNE 31$ : IF INCOMPLETE, BRANCH 
27 003417 104657 000047 33$: MOV U.RCOV(RS),RO : GET RECOVERY TYP 
28 003421 102207 04000 BIT #ORINIT,RO : SEE IF DRIVE WAS INITIALIZED 
29 003423 013432 BEQ 34$ : IF NOT, H 
30 003424 101207 04000 BIS WORINIT,RO + CLEAR INITIALIZE FLAG 
31 003426 100657 000047 MOV RO,U.RCOV(RS) : SAVE RECOVERY STATUS 
32 003430 104301 002172 MOV HIBN,R1 : GET ORIGINAL STATE 
33 003432 104167 34$: MOV (SP) -RO : RESTORE ERROR POINTER 
34 003433 100471 MOV R1,-(RO) : SAVE STATE IN ERROR MESSAGE 
35 003434 115000 002230 TST ERRPOS * SEE IF STATUS VALID 
36 003436 073511 BMI 6$ : IF SO, BRANCH 
37 003437 ASSUME VALID,100000  ; ASSUME VALID BIT IS MSB 
38 003437 020775 CALL  —RTDSL : GET REAL TIME DRIVE STATE 
39 003440 115002 TST : SEE IF VALID 
40 003441 053477 BNE 24$ : IF NOT, BRANCH 
41 003442 102201 000101 BIT #RCVRDY!AVAIL,R1; SEE If RECEIVER READY OR AVAILABLE 
42 003444 013477 BEQ 24$ ; IF NOT, BRANCH 
43 003445 104204 001750 MOV #MAXSND,R4 : SET UP TIMEOUT 
44 003447 104203 001617 MOV #CR.GST.R3 + POINT TO GET STATUS COMMAND 
45 003451 104652 000025 MOV U.MASK(R5),R2  : GET UNIT SDI SELECT MASK 
46 003453 104137 21$: MOV R3) RO : POINTS TO SDI COMMAND BUFFER 
47 003454 ASSUME L2.0PC,0 
48 003454 104631 000001 MOV L2.SLN(R3),R1 = LOAD BYTE COUNT 
49 005456 060004 KFC SEND : SEND SDI COMMAND 
50 003457 115001 TST R1 : SEE IF SDI COMMAND SENT SUCESSFULLY 
51 003460 013464 BEQ 228 : IF $0, BRANCH 
52 003461 117404 DEC RG t DECREMENT TIMEOUT 
53 003462 053453 BNE 21$ : IF TIMEOUT INCOMPLETE, BRANCH 
54 003463 003477 BR 24$ + BRANCH 
55 003464 104654 000033 22$: MOV U.SDIS(RS),R4 : R4& HAS SHORT TIMEOUT 















CORECT = CORRECT THE ERRORS 


001702 
000002 


177777 
000007 


oS 
= 
~m 
o 
= 


001711 
000007 


000002 002226 


001704 
177407 


84 003534 000010 001703 
85 003537 


238: 


24$: 


258: 


268: 


27$: 


20$: 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 55-1 


T,RO 
OS at ycR3) ORI 
RCV 
R1 
26$ 
RS 
23$ 
<RO,R4> 
#-1,R3 
#7 ,R2 
R3,(RO)+ 
R2 
25$ 
8$ 
<RO,R4> 


He oR1 
=(R1) ,R3 
RS.  (RO)+ 
27$ 
#ATTN, ERMODE 
IF ERROR was CAUSE OF 
ST+ST R1 
SeMIBYIE iS, R1 


$ 
IF LOGGABLE INFORMAT 
$5) Oh eST 0s RES 


Pe Se Se Wte Se Se Se Ge Se Be @ 


F ERROR ( BRANCH 
iON IS CAUSE or ATTEN 


IAPER OF US RECEIVE BUFFER 


NUMBER OF WO ace IN RESPONSE 
RECEIVE SDI_RESPONS 
SEE IF SDI aed RECEIVED SUCESSFULLY 


IF SO, BRAN 
DECREMENT TIMEOUT VALUE 
IF TIMEOUT UNEXPIRED, BRANCH 
RESTORE ERROR AND SUBUNIT POINTER 
MOV (SP)+,RO 


MOV (SP)+, *R4 
R3 CONTAINS ‘UNABLE TO GET STATUS’ 
R2 CONTAINS COUNT 

MO 

| COUNT INCOMPLETE. BRANCH 

RESTORE ERROR AND SUBUNIT POINTER 


MOV (SP)+,RO 
MOV (SP)+,R4 


; RI aaa ce TO AFTER STATUS BUFFER 
; R2 HAS COUNT 


MOVE STATUS WORD TO R35 

MOVE TO oe BUFFER 
DECREMENT COUNT 
BRANCH IF COUNT INCOMPLETE 
SEE IF UNEXPECTED ATTENTION 
IF NOT, BRANCH 

ATTENTION 


; GET ERROR BYTE 
tLe R eae BITS 


TION 
SEE IF LOGGABLE we 
IF NOT, BRANCH c RECOVER") 


WN $$ SO CONOUSWwh— 


as at 


00 
3607 


RRAn 


0 


Ssssooseeesses 


< 
N 


33 
RRRRRES 
QESTESS 


Sssssoosessss 
USfW—ON 


arenes 
333333 


WWW 





1 

1 

1 

104 

Mh ty 34 
1 

1 

0 


2 

15002 
53352 
0 


4267 


1 
0 
1 
104261 
10 

1 
1 
j 
0 


1 
04207 


101202 


000063 001106 8$: 
000050 001106 
001103 


001104 
000047 
000002 


000001 
001106 
001107 


000063 


060007 


000047 
001000 
000047 
006000 
000023 
001000 


002222 


002226 


000026 
000001 


100000 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 56 
CORECT ~ CORRECT THE ERRORS 


U.UNUM(R5) ,HR 
ue - SUBUCR5) ,HR 
HRQ.01 

80$ 

DROP, 100000 
U.RCOV(RS) ,R2 


ERMASK , 100000 
#ATTN, ERMODE 
50$ 


SOFT 


RECOVR 

2 

40$ 

<RO,R1> 

U. REgVERS? R3 


PRETRY Y,R2 
R2,U.RCOV(RS) 


#SEKREQ!RCBREQ, Rs 


9$ 

#SEEK RO 
NOSUB 
#RETRY,R3 
LSTOVL RO 
R1 


100$ 
<RO,R1> 
DSABLE 


‘one 
DROP, 100000 
R1 


#DRPALL RO 
C101 Car Aran 


#DROP ,R2 


; MOVE néauesr 
: REPORT 


ST 
: CLEA 


SEQ 0909 


: pH BASE NUMBER 
DD sory OFFSET 


HOST 
SEE IF uurT_BROPPED 


; so, 

; HOST DROP BIT = BIT 15 

; SEE IF RECOVERY IS ENABLED 

; IF NOT, BRANCH 

; ASSUME RECOVERY aaoat IS SIGN BIT 
; DID WE HAVE AN ERR 

; IF NOT, BRANCH 

; ELSE, REPORT om a 


1,HRQ.02 
CLR aro. OS 
CLR HRQ.04 

MOV RO,=(SP) 

MOV U.UNUM(RS) ,RO 
ADD u. SUBU(R5).RO + 
MOV RO,HRQ.01 
MOV aThSOFT, RO 
CALL - HOSTRQ 


MOV (SP)+,RO 
RECOVER FROM ERRORS 
iF IF TJ OCCURRED 


$0, LOO 
; RESTORE RO, R1 


MOV (SP)+,RO 
MOV (SP)+,R1 
GET RECOVERY WORD 
ORE IN a 


R RETRY BIT 
STORE RECOVERY WO RD 

; SEE IF SEEK NEEDED 

IF NOT, cane 
SEEK NEXT 


XIT 
SEE IF LAST MODULE SHOULD BE RETRIED 
T, BRANCH 


IF _NO 
RETRY LAST OVERLAY 
ee 


EXI 
RESTORE REGISTERS 
MOV (SP)+,RO 
MOV (SP)+,R1 
DISABLE da RECOVERY 
TF wht IF EN Be UNIT DROPPED 


OT, NCH 
Taniok “DROP SIGN BIT 
ar bay a LL 

SEE iF a Bae ta IN PROGRESS 
IF NOT, BRANCH 

IF SO, JUST RETURN TO TROOT 

GET SUBUNIT PARAMETERS 


DROP SUBUNIT 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 56-1 
CORECT = CORRECT THE ERRORS 


4 003657 


100142 


000046 


000001 


000013 


90$: 


100$: 


NOSUB: 


TST 
BEQ 
MOV 
RETURN 


N 
R2, a 
S.PARM,0 
UPaRM RS), RI 
at Y. PARM(RS) 
#SETUP,RO 
NOSUB 
<RO,R1> 
R1 
SEQLP 
RO,U.NFUN(RS) 


6 


SAVE 


GET UNIT PARAMETERS 
MARK AS FIRST TIME 


SAVE 
ay NEXT MODULE 
RESTORE REGISTERS 


; SEE IF IMMIDATE CALL 
BRANCH 


IF SO, 
SAVE NEXT FUNCTION 
RETURN TO ROOT 


‘ip 


SEQ 0910 | 


MOV (SP)+,RO 
MOV (SP)+,R1 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 57 SEQ 0911 | 
RECOVR = RECOVER FROM THE ERROR 


1 LSBTTL RECOVR = RECOVER FROM THE ERROR 
2 003700 RECOVR: 
4 : SET UP DRIVE AS IT SHOULD BE 
& 003700 020746 CALL —-RTDS ; SEE IF WE CAN GET VALID STATE 
? 003701 115002 TST —R2 : SEE IF WE HAVE VALID STATE 
8 003702 054061 BNE «108 : IF NOT, BRAN 
§ 003703 104203 001612 MOV so ACR. ONL R3 : POINT TO ONLINE COMMAND 
10 003705 021173 CALL TALK : INITIATE SDI. INTERCHANGE 
11 003706 115002 : SEE IF ERROR OCCURRED 
12 003707 013714 Beati«é*dTS : TF NOT, BRANCH 
13 003710 CERROR 5.#SER2 : REPORT SECONDARY ERROR 
003710 104200 004665 001110 MOV. #SER2,HRO.05 
14 003713 004061 BR 10$ : BRANCH TO ERROR LOOP 
13 003714 104203 001617 1$: MOVs ACR.GST.R3 : POINT TO GET STATUS 
16 003716 021173 CALL TALK : SEND SDI INTERCHANGE 
17 003717 115002 TST sR? i SEE IF AN ERROR OCCURRED 
18 003720 013725 BEoOt«OS : BRANCH IF 
19 003721 CERROR 5, #SERO ¢ REPORT. SECONDARY ERROR 
003721 104200 004630 001110 MOV. -#SERO.HRO.0S 
20 003724 004061 pe 108 : LOOP AND TRY AGAIN 
51 003795 104207 177777 28: MOV —-#=1,. RO ; SET UP FOR COMPLEMENT OF STATUS 
52 003727 103807 001703 BIC §T+#$T .REQ,RO RO HAS STATUS 
5$ 003781 102207 000023 BIT  #ST_PS!ST-SRIST.RULRO : SEE IF ANY FATAL STATES EXIST 
5% 003733 014004 BEQ «6S : TF NOT. BRANCH 
55 003734 DEVFTL 33 : REPORT SWITCH OUT OR SPINDLE NOT READY 
05754 104200 002157 001107 MOV #ERZ3. HRO. 
003737 104202 047667 MOV #23! F TLDEV+4000. ,R2 
003741 104020 001105 MOV —«wRDHRQ.02 
003743 104200 003743 001104 MOVs # “HRQ.OT 
003746 104900 060014 001103 MoV #ERRMC|HRO.RO 
26 003751 102207 000001 BIT _#ST.RU.RO : SEE IF RUN/STOP SWITCH OUT 
57 003753 013760 BEQ ts : TF NOT, BRANCH 
58 003754 CERROR 5, #SER42 : REPORT RUN SWITCH OUT 
003754 104200 002200 001110 MOV #SER42,HRO.05 
29 003757 003772 BR 5$ : BRAN 
$0 003760 102207 000020 38: BIT —#ST.SR.RO i SEE iF SPINDLE DROPPED READY 
$1 003762 015767 BEQ 4 : TF NOT, BRAN 
32 00376 CERROR 5, #SER43 : REPORT SPINDLE NOT READY 
003763 104200 002214 001110 MOV #SER43,HRO.05 
33 003766 003772 BR 5$ : BRANCH 
34 003767 4$:  CERROR 5, #SERG4 : REPORT PORT SWITCH OUT 
003767 104200 002231 001110 MOV. #SER44,HRO.05 
35 003772 5$: _ ENDERR 
003772 104200 000051 001111 MOV _—«#SER22, HRO.06 
003775 104200 000007 002230 MOV  #6#1,ERRPOS ~~ —s;- SET THE POSITION 
004000 101300 100000 002230 BIS #100000,ERRPOS ;: STATUS VALID 
? 004003 004061 BR : BRANCH 
004004 102207 000100 6$: BIT —#ST.RR.RO : SEE IF DRIVE 1S TO BE RECALIBRATED 
9 004006 054010 BNE 78 : TF NOT. BRANCH (NOTE COMPLEMENT 
40 904007 024215 CALL GORCLB t MARK AS RECALIBRATION NEEDED 
3 Oo401¢ Wso7oy 001705 = io mae a ROVE” URiTE PROTECT BUTTON STATUS TO LO BYTE 
3; M0 L 
‘3 BO<o1s 1p0Gs7 oob eG my obeuunitersy : Shue UNH PROTECT STATUS FOR CHANGE MODE 
45 004017 104301 001704 MOV -—«ST*ST.ERR,R1. ss: GET ERROR BITS 





ac 


UDATS DISK EXERCI 
RECOVR = RECOVER F 


48 004021 
47 004023 
48 004024 
49 004026 
50 004027 
51 004030 
26 004032 
53 004634 
54 004035 
55 004036 
56 004037 

004037 
57 004042 
58 004043 
59 004045 
60 004047 
61 004051 
62 004053 
63 004055 
64 004056 

004056 
65 004061 
66 004063 





DMACR_X04.01 23-AUG=82 12:02:53 PAGE 57=1 


R 
OM THE ERROR 


177400 
000200 


1 
3 
1 
0 
7? 
0 001667 
H 001624 


200 004646 


000026 


001631 


004707 
002226 


001110 


001110 


11$: 


9$: 


CALL 


CALL 
CERROR 


CLR 
RETURN 


#HIBYTE ,R1 
9$ 
+) Saal 


#CR.MOD,R3 
TAL 

5. #SER3 
ERMODE 


CLEAR UNUSED BITS 

IF NO ERRORS, BRANCH 

SEE IF A DRIVE ERROR OCCURRED 

IF NOT, BRANCH 

SEEK I$ REQUIR 

MOVE ERROR BITS TO CLEAR DRIVE COMMAND 
POINT TO ND 

INITIATE SDI INTERCHANGE 

SEE IF ANY ERRORS OCCURRED 

IF NOT, BRANC 


NCH 
REPORT SECONDARY ERROR 
MOV 


#SER1,HRQ.05 
BRANCH TO ERROR LOOP 
GET WRITE PROTECTION BUTTON STATUS 
SET WRITE PROT BITS FOR READ ONLY DRIVES 
SET OTHER CHANGE MODE BITS 
VE TO GE MODE COMMAND 
OMMAND 


ODE C 
INITIATE SDI_INSERCHANGE 


REPORT ene * ome (IF_NO ERROR, DON'T CARE) 


#SER3,HRQ.05 
RESET ERMODE 
RETURN TO CALLING PROGRAM 


SEQ 0912 


Fn ae 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 58 SEQ 0913 
CHKON = FIND PREVIOUS ACTIVE SUBUNIT 


1 -SBTTL CHKDN = FIND PREVIOUS ACTIVE SUBUNIT 

¢ 004064 CHKON: 

¢ : SEARCH THE SUBUNIT LIST DOWN AND TRY TO FIND AN ACTIVE SUBUNIT 
6 004064 104203 000001 MOV #U.SUBP,R3 ; R3 WILLPOINT TO SUBUNIT POINTERS 
7 004066 105053 ADD R5,R3 ; R3 POINTS TO SUBUNIT POINTERS 

8 004067 117402 1$: DEC R2 3 DECREMENT OLD SUBUNIT 

9 004070 074104 BMI 2$ : IF ALL SUBUNITS CHECKED, BRANCH 
10 004071 104034 MOV R3,R4 : MOVE SUBUNIT LIST POINTER TO R4 
11 004072 105024 ADD R2,R : PO OSs 

12 004073 104144 MOV (R4) RG : R4 POINTS TO SUBUNIT 

13 004074 074067 BMI 1$ ; 0 UNIT, BRANCH 

14 004075 104147 MOV (R4) ,RO ; RO HAS SUBUNIT PARAMETERS 

15 004073 ASSUME $.PARM,0 ; UME THAT a IS ZERO 

16 004076 074067 BMI 1$ : IF TH T DROPPED, BRANCH 
17 004077 ASSUME DROP,100000 : ASSUME DROP _IS SIGN BIT 

18 004077 100652 000050 MOV R2,U.SUBUCRS) ; SAVE wer” —_ 

19 004101 114007 CLR RO : FOUND A SUBUNIT 
20 Boe Og 114003 CLR R3 3 PROCESS THIS SUBUNIT 
21 004103 004113 BR 3$ : EXIT 
22 004104 104657 sp ties 2$: MOV U.PARM(RS),RO ; GET UNIT PARAMETERS 
23 004106 103207 010000 BIC #DIREC,RO : FV DIRECTION UP 

24 004110 100657 000046 MOV RO,U.PARM(RS)  ; SAVE 
25 004112 104057 MOV R5,RO : DIDN'T FIND A SUBUNIT 

26 004113 000000 3$: RETURN : RETURN TO CALLING PROGRAM 


aa 






UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 59 
CHKDON = FIND FOLLOWING ACTIVE SUBUNIT 





1 .SBTTL CHKDN = FIND FOLLOWING ACTIVE SUBUNIT 
; 004114 CHKUP: 

4 : SEARCH THE SUBUNIT LIST UP AND TRY TG FIND AN ACTIVE SUBUNIT 
6 004114 104203 000001 MOV #U.SUBP,R3 : R3 WILLPOINT TO SUBUNIT POINTERS 

7 004116 10505 ADD R5,R3 : R3 POINTS TO SUBUNIT POINTERS 

8 004117 115402 1$: INC Re : INCREMENT OLD SUBUNIT 

9 004120 106202 000003 CMP #3,R2 : SEE IF ALL SUBUNITS CHECKED 

10 004122 074144 BMI 3 : IF ALL SUBUNITS CHECKED, BRANCH 

11 004123 104034 MOV R3,R4 : MOVE SUBUNIT LIST POINTER TO R4 

12 004124 105024 ADD R2,R4 + POINT TO SUBUNIT 

13 004125 104144 MOV (R4) RG + R4 POINTS TO SUBUNIT 

14 004126 074117 BMI 1$ : IF NO UNIT, BRANCH 

15 004127 104147 MOV (R4) RO : RO HAS SUBUNIT PARAMETERS 

16 004130 ASSUME §.PARM,O t ASSUME THAT S.PARM IS ZER 

17 004130 074117 I 1$ : IF THIS $ DROPPED, BRANC 

18 004131 ASSUME DROP, 100000 + ASSUME DROP IS SIGN BIT 

19 004131 115000 002223 ST M.PARM : SEE If INITIAL WRITE IN PROGRESS 
20 004133 034137 PL 2$ : IF NOT, BRANCH 
21 004134 ASSUME IWIPRG,100000 : ASSUME IWIPRG IS SIGN BIT 
22 004134 102207 040000 #INITW.RO : SEE IF INITIAL WRITE TO BE DONE ON SUBUNIT 
23 004136 014117 BEQ 1$ : IF NOT, BRANCH 
24 004137 100652 000050 2$: MOV R2,U.SUBU(RS) : SAVE SUBUNIT NUMBER 
25 004141 114007 CLR RO : FOUND 
26 004142 114003 CLR R3 t PROCESS THIS ONE 
27 004143 004162 BR 5$ + EXIT 
38 004144 104651 00004 38: MOV U.PARM(RS),R1  : GET UNIT PARAMETERS 

9 004146 115 00222 TST M.PARM : SEE IF DOING AN INITIAL WRITE 

30 004150 034156 BPL 4$ ; IF NOT, BRANCH 

31 004151 ASSUME IWIPRG,100000 : ASSUME IWIPRG IS SIGN BIT 

32 004151 103201 040000 BIC #INITW.RI : FLAG INITIAL WRITE AS COMPLETE ON THIS UNIT 
33 004153 101201 001000 BIS #ETIME.R1 : START TESTING UNIT 

34 004155 004160 BR 9 : EXIT 

35 004156 101201 010000 4$: BIS #DIREC,R1 : SET DIRECTON DOWN 

36 004160 100651 000046 9$: MOV R1,U.PARM(RS) : 

37 004162 000000 5$: RETURN : RETURN TO CALLING PROGRAM 


SEQ 0914 | 


= 
oa 
Ww 


29888 $2888 8 
So nN 


201 


MEWN =O OOBNOUSWN $0 OONOU Sw 


NORPRO) tt ot to es es 


-_--—0O— 
RESS 
No 
we 


000047 


000047 
100000 
0047 


001000 
000047 


004000 
000047 


006000 
000047 


002172 
000025 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 60 
ERROR RECOVERY SUPPORT SUBROUTINES 


-SBTTL 


GORTRY: 


- SBTTL 


GOSEEK: 


- SBTTL 


GORCLB: 


-SBTTL 


GOINIT: 





SEQ 0915 


ERROR RECOVERY SUPPORT SUBROUTINES 
ENABLE = ENABLE ERROR RECOVERY 
ENABLE ERROR RECOVERY 
U.RCOV(RS),R3 ; GET Ba s+ ai WORD 
#ERMA : GAR 


MOV 
BIC P 
MOV R3,U.RCOV(RS) =; aby 


RETUR 
DSABLE = DISABLE ERROR récOVERY™ 


DISABLE ERROR RECOVERY 
MOV U.RCOV(RS) ,R3 
BIS #ERMASK,R3_ 
MOV R3,U.RCOV(RS) 
RETURN RETURN 

GORTRY = RETRY OF MODULE REQUIRED TO RECOVER 


GET RECOVERY WORD 
SET MASK 


JUST RETRY THE LAST MODULE TO RECOVER 

CALL pg : ENABLE ay RECOVERY 
BIS #RETRY RS 3 SET RETRY BIT 

MOV R3,U.RCOV(RS) ; SAVE 


RETURN RETURN 
GOSEEK = SEEK REQUIRED 16 RECOVER 


GOSEEK WILL FLAG THAT THE DRIVE MUST SEEK TO RECOVER FROM AN ERROR 
CALL ENABLE : ENABLE ERROR RECOVERY 

BIS #SEKREQ,R3 ; SET SEEK REQUIRED BIT 

MOV R3,U.RCOV(RS) : ; SAVE 


RETURN RETURN 
GORCLB = RECALIBRATE REQUIRED TO RECOVER 


GORCLB WILL FLAG THAT THE DRIVE MUST RECALISRATE TO RECOVER FROM AN ERROR 
CALL ENABLE ENABLE _ERROR RECOVERY 

BIS #SEKREQ!RCBREQ, ai : SET SEEK AND RECALIBRATE PEQUIRED BIT 
MOV R3,U.RCOV(RS) |; SAV 


RET ; RETUR 
GOINIT = DRIVE MUST BE tii TIAL IZED TO RECOVER 


INIT THE DRIVE, THEN FLAG AS DONE 


PUSH R1 ; SAVE R1 (DON'T KNOW IF NEEDED) 

MOV R1,-(SP) 
CALL RTDSL : GET DRIVE STATE Ar: INIT 
MOV R1,HIBN : SAVE _IN LOCATION 


P UNUSED 
MOV U.MASK(RS),R2  ; GET PORT MASK 
XFC DINIT : INIT THE DRIVE 
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SE . 
GOINIT = DRIVE MUST BE INITIALIZED TO RECOVER 

57 004 2 024207 CALL  GOSEEK : SEEK REQUIRED IF INITED 

58 004 101203 040000 BIS #ORINIT,R3 : MARK THE DRIVE AS INITIALIZED 

59 004235 100653 000047 MOV R3 Y-RCOVERS) : SAVE 

60 004237 104201 001400 MOV #1400,R1 : MOVE TIMEOUT TO R1 

61 004241 117401 1$: DEC R1 : DECREMENT TIMEOUT (WAIT FOR DRIVE CLOCKS) 

62 004242 054241 BNE 1$ : IF COUNT INCOMPLETE, BRANCH 

63 00424 POP R1 : RESTORE R1 

004243 104261 MOV (SP)+,R1 
64 004244 000000 RETURN : RETURN 
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000000 


027574 


000000 
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000000 
000734 


-SBTTL 


BTABLE: 
PARTO: 


PARTI: 
PART2: 
PARTS: 
PARTI: 
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OVERLAY DATA STRUCTURES AND ASSEMBLY ERROR CHECKING 


H 7 


OVERLAY DATA STRUCTURES AND ASSEMBLY ERROR CHECKING 


THE PARTITION TABLE HAS THE PARTITION START ADDRESSES AS = 
AS HOLDING THE NUMBER OF THE OVERLAY LOADED CURRENTLY (IF NO 
OVERLAY IS LOADED, THE OVERLAY NUMBER IS -1 


D 
; WORD 


J 

n” wn 
SESSSS 
<= <= 
oso vOocor 
< “<= 


Ant AO 
AREAI 
AREA2 
BUF ARA 
AREAL 


; PARTITION 3 GOES IN READ/WRITE BUFFER AREA 


PARTITION TO LOAD OVERLAY INTC 


NUMBER OF FOLLOWING 


PARTITIONS THAT ARE oe 


tr ORDER STARTING UNIBUS att i 5 OVERL 
:0> HI ORDER STARTING UNIBUS ADDRES 
“1a: 22> LENGTH OF OVERLAY 


MSSG$,MS,PARTO 
<PARTO-PARTO>/2 


: MESSAGES 


OVL .MS*4 
SETUPS SU, hy PARTS 3 SETUP 


<PARTO=PARTO>/2 
PART S-PARTOD/S 


0 

OVL.SU®4 
WOP,NO, PARTI 

<PARTI~PARTO>/2 


OVL .NO#4 
RNDBE RB,PART2 
<PART2-PARTO>/2 


OVL.RB*4 
CrOBEe SB,PART2 
<PARTO=PARTO>/2 


OVL.SB*4 
RNDTG, RT, PART2 
<PARTC“PARTOD/2 


3 NEWOP 


: SEQBE 


3 RNDTG 


SEQ 0917 


o 
a 


S S & S 


o 


sppsssresessesssssssessssssssssess 


a 
Ww 


~ ~ 
w ~ 


sepssnsesseessssssassss 
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OVERLAY DATA STRUCTURES AND ASSEMBLY ERROR CHECKING 


OVL.RT#4 
SEQTG, ST, PART2 
<PARTE=PARTO>/2 


0 
OVL.ST*4 


BUILDP,BP,PARTO,PART3 
T0>/2 


<PARTO=PARTC 
<PARTS=PARTO>/2 


OVL.BPe4 
WRITE ,W,PARTO 
<PARTO-PARTO>/2 


OVL.We4 
AF TWRT ,AW,PARTO 
— 


OVL .AW*4 
READ,R,PARTO 
"resi t 


OVL .R*4 
SECCHK,SC,PARTO 
<PARTO=PARTOD/2 


0 

OVL.SC*#4 

CHKEDC ,ED,PARTO 
Viasat 


0 

OVL.ED*4 
CHKECC,CK,PARTO 
 saeeiacnincatis 


0 

OVL.CK*4 
ERCOV,EC,PARTO 
<PARTO-PARTO>/2 


OVL.EC*4 
NEWLEV,NL,PARTO 
<PARTOPARTO>/2 


OVL.NL*4 
CMPDAT, CD, PARTO 
<PARTO-PARTO>/2 


0 
OVL.CD*4 
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DFOVLY 
D 


i 
oS 


seRStRSEEBEES 


~“ 
w 


$8 
SeeSase 


NANNING SY 
WWN— 


m™~ 


004376 
50 004377 
77 


51 004403 


53 
54 
55 
56 
57 
58 





AREAO 


EVERYTHING FOLLOWING THE AREAO DEFINITI 
SPACE AND WILL BE DESTROYED AFTER INITIA 


= 
DFOVLY 
«WORD 


LSTMOD,LM, PARTO 
<PARTO-PARTO>/2 


OVL.LM*4 
REVCT,RV,PARTO 
Frit 


Ve 


OVL “y 
SEEK. PARTS 
<PART SPARTOD/2 


0 

OVL.SK*4 
SEKTST,TS,PART3 
<PARTS-PARTO> /2 


0 

OVL.TS*4 
RECALB, RC,PART3 
<PARTS=PARTO>/2 


0 
OVL. 
<PARTO-PA 
<PARTS-PARTO>/2 
OVL .DA®4 


INSET, IN, PARTI 
<PARTI~PARTO>/2 


0 
OVL.IN®4 

COMCHR. CC, PARTI 
<PARTI=PARTO>/2 


0 

OVL.CC*4 
SPINUP, SP, PARTI 
<PARTI=PARTO>/2 


OVL.SP*4 
SORT, SO, PARTI 
<PARTI~PARTO>/2 


OVL 
SCHARO, <0, PART 
SPARTI-SPARTOD/ 


RC*4 
DRPALL ,DA, granig. »PARTS 


SEQ 0919 


3 LSTMOD 


3 REVCT 


: SEEK 


3 SEKTST 


RECALB 


: DRPALL 


ON IS_IN OVERLAY PARTITION 
LIZATION 

: INSET 

: COMCHR 

; SPINUP 


: SORT 


: SCHARO 


65 004447 


66 
67 004453 


000000 
0000 





NUMOVL 


-SBTTL 


SDIS 
CR.SCR: 
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WORD 0 
WORD 0 
ORD OVL.SO*4 
DFOVLY SCHAR1,$1,PARTI 
- WORD <PARTI=PARTO>/2 


RD OVL.S1*4 
DFOVLY GETSER,GS,PARTI 
- WORD <PARTI-PARTO>/2 


WW OVL.GS*4 

DFOVLY INITD,ID,PARTI 

- WORD <PARTI-PARTO>/2 
0 

- WORD - 


L.1D*4 
= - OTABLE> / 4 
ONETIM 


; SCHAR1 


: GETSER 


: INITD 


LIST ME 
UNIT AND SUBUNIT GET CHARACTERISTICS AND RUN SDI COMMANDS 


NOTE: BECAUSE OF THEIR POSITION, THE FOLLOWING SDI LEVEL 2 COMMANDS 


WILL BE ISSUED WITH A LONG TIMEOUT 


= 0 
: MSG GCR,1 ph '- -CURRES 
-WORD ‘GCR 
; WORD 
- WORD 
- WORD 


CHRRES 

4h ot -SDI2 

MSG SCR, €e LY. -SOCRES 
- WORD 


“WORD 

WORD . 

«WORD SBCRES 
eWORD SDI$+*U.SDI2 
= SD1$+1 

MSG RUN,1,7,COMPLT 
-WORD RUN 

eWORD 1 

WORD 

eWORD COMPLT 
eWORD SDI$*U.SDI2 
= SDI$+1 


CHECK THAT 4 UNITS W 
SPECIFIED EACH, CAN 
THE OVERLAYS OR THE 


zane 


DOUBLE UP ON THESE COMMANDS, SINCE IF 
AN_ERROR sist rs A DEVICE FATAL 


: GET CHARACTERIS 


3 ADDRESS OF C 
; SIZE O 


: Y IN WO 
: SUCCESSFUL COMPLETION CODE 
: RETRY COUNT OFFSET 


; GET SUBUNIT CHARACTERISTICS 
3 ADDRESS OF COMMAND 


; SIZE OF COMMAND IN BYTES 

: SIZE OF REPLY IN WORDS 

3 SUCCESSFUL COMPLETION CODE 
3 RETRY COUNT OFFSET 


INITIATE LOAD 
3 ADDRESS OF COMMAND 
; SIZE OF COMMAND IN BYTES 
3 SIZE OF REPLY IN WORDS 
3 SUCCESSFUL COMPLETION CODE 
3 RETRY COUNT OFFSET 


; DRIVE RUN 
; GET Seeait cakaltt WITH A 
; GET S 


UBUNIT CTERISTICS 


; SUBUNIT SELECTION IN LOW ORDER BYTE 


SUBUNITS IN ALL, WITH 16 BAD BLOCKS 


TH 8 
IT IN MEMORY WITHOUT OVERLAPPING WITH 
/@ BU SPACE 


FFER 


SEQ 0920 













000010 
006232 


7 
004477 007702 


024701 


1 
014563 


000012 
000005 


104200 





000001 002223 
000002 002223 


001553 001107 
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UNIT AND SUBUNIT GET CHARACTERISTIC 


MAXSUB 
MINADR 
BUF ARA 
MAXADR 


-SBTTL 


ICS AND RUN SDI COMMANDS 


7 
LIF DF ,MAXADR 
be HIMEM=<<4*<U.LGRP+1>>+<MAXSUB*<S.BESS+68.>>+2> 
LIF NDF ,BUFARA 
7 0 ; TO DETERMINE READ/WRITE BUFFERS START 
a t TO DETERMINE MAXIMUM OVERLAY ADDRESS 


weaneeeeee NON-OVERLAY MODULE START - TEST 4 INITIALIZATION 


FREER AAAAAAAAEAEEEEA EEE TE EEE RAEAEEREAEERAAAEREEHEREREAEREREEEEEEAREEAREEEEEE 
SEAR AAAAAAEAERAEEEEEETEREEAEEAERERAARAAAAAERAAAEREEAEEAEEEEEEREAEEEEEEEAEEEEE 





SERRA AEAAAEAAAAAAAEAEAEEEEAEAEEEAAAAEREREAEEAAAAEAEEEEEAREREREREEEEREREEEEEEEE 
SARA AERAAAAAEEAAE EEE AEEEEEEEERERAAEERAEAAAEEAAERAAEEEEAEEEEERAEEEEEEEEEEEEEE 


THIS ae IS LOADED ALONG ye THE INITIAL DOWNLINE LOAD OF 
TEST 4. ONCE EXECUTED, THIS OVERLAY IS NEVER LOADED AGAIN UNLESS 
THE ENTIRE TEST IS STARTED (OR RESTARTED) AGAIN. ALL OTHER 
OVERLAYS ARE LOADED INTO THE SPACE THAT THIS ONE OCCUPIES INITIALLY, 
THUS DESTROYING THIS OVERLAY. 


-BLKW 1 

.WORD FIRSTU 

-BLKW 1 

-BLKW 1 

eBLKW 2 

-BLKW 1 

-BLK 1 

-BLKW 1 

-BLKW 7 

-BLKw 3 : TEMP STORAGE FOR DRIVE SERIAL NUMBER 
CALL GMPARM : GET MASTER PARAMETERS 

CALL  GETU ; GET ALL UNITS TO TEST 

CALL § BLDUNT 3 BUILD UNIT AND SUBUNIT PARAMETERS 
BIS #INTINP,M.PARM ; MARK AS INITIALIZATION tN PROGRESS 
CALL _—«*TROOT ; FILL OUT UNIT AND SUBUNIT PARM'S, GET SUBUNIT CHAR 
BIT #DIE,M.PARM 3 SEES IF INITIALIZATION ERRORS 

BEQ ; IF NOT, BRANCH 

DEVFTL 16,#SER39 REPORT INITIALIZATION ERRORS 

ERROR FTLDEV,16, <#SER39> 

jRADIX 10 


UMP = 
MOVMSG #ER16,4 


IF LT,4-10 
MOV #ER16,HROQ.04 


oIFF 
MOV #ER16,HRO.4 
-ENDC 
IF NB, <#SER39> 
-IRP X,<#SER39> 
MOVMSG i \NUAPTR 
NUMPTR NUMPTR + 1 


MOVMSG #SER39,\NUMPTR 


SEQ 0921 


ne | 
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weeteneete NON-OVERLAY MODULE START = TEST 4 INITIALIZATION 


004537 104200 


000006 
004542 Hh oy 3 


004616 107070 
004620 104307 
000000 


002477 


047660 


060014 
177777 
001103 


000001 
002227 
005230 


000424 
002233 


000410 
000007 


002234 


002227 
002227 


000001 
170000 
000001 
170000 


001110 


001104 


001103 
001106 


002223 


3$: 


1$: 


2$: 


4$: 


5$: 
-SBTTL 


GE TMEM: 


1$: 


IF LT,5-10 
MOV #SER39,HRO.05 


o IFF : 
MOV #SER39,HRO.5 
~ENDC 
NUMPTR = NUMPTR + 1 
-ENDC 
MOV #16!FTLDEV+4000. ,R2 
MOV R2,HRQ.02 
MOV #.,HRQ.01 
»RADIX 


#ERRMC ,HRQ.RQ 


MOV 
MOV #-1,HRQ.03 ; MOVE "NOT ASSICIATED WITH ANY UNIT* TO UNIT # 


MOV HRQ.RQ,RO : GET REQUEST 

CALL §-HOSTRQ + REPORT 

BR STOP : STOP TEST 4 

BIC MINTINP,M.PARM : INITIALIZATION NO LONGER IN PROGRESS 
MOV MEMPOL ,RO + RO HAS POINTER TO FREE MEMORY 

SUB #6UFARA,RO : SUBTRACT END OF CODE FROM FREE MEMORY 
MoV RO,R3 ; Etta “COUNT OF FREE MEMORY 

SUB #RBUFLN+LINKLN,RO SUBTRACT NEEDED MEM FOR READ 
BMI 2$ : IF NO HORE MEMORY. BRANCH 

INC R1 : INCREMENT COUNT 

BR 1$ : LOOP 

MOV R1, SECMAX : SAVE. IN SECTOR MAXIMUM 

SUB #WBUFLN¢LINKLN,RS ; SUBTRACT NEEDED MEM FOR WRITE 
INC R1 3 INCREMENT COUNT 

SUB #LINKLN,R3 ; SUBTRACT LINK LENGTH FROM MEMORY 

BMI 5$ : IF MEMORY EXHAUSTED, BRANCH 

BR 4$ : LOOP 

MOV R1, CHNMAX : SAVE IN SECTOR MAXIMUM 

BR ROOT + START EXERCISE 

GETMEM = ALLOCATES MEMORY FOR UNIT AND SUBUNIT BLOCK AND SUBUNIT PARAMETERS 


RETURN A BLOCK OF MEMORY 


SUB RO, MEMPOL ; SUBTRACT REQUESTED LENGTH FROM MEMOY POOL 
MOV MEMPOL ,RO LOAD RO WITH POINTER TO REQUESTED MEMORY 
RETURN RET URN TO CALLING PROGRAM 

CBB2 = 28 BIT COMPARE of SETUP MODULES 


28 BIT COMPARE FOR BAD BLOCKS 


MOV 1(R3) ,R4 ; GET WORD THAT R3 POINTS TO 
BIC #*CHBHINB,R4 STRIP OFF UNUSED BITS 
MOV 1 GET OTHER WORD TO COMPARE 


R2),R 
BIC #*CHBHINB,RS 


bl a OFF THE UNUSED BITS 
CMP os oR 


COMPA 
IF DIFFERENCE IS FOUND, BRANCH 


BNE 

MOV (Re) «RB GET OTHER WORD TO COMPARE 
CMP (R35) ,R5 COMP 

RETURN RETURN TO SORTBE 


a a a ns nn 


oc 


UDATS DISK EXERCISER DMACR X04.01. 23-AUG-B2, 12:02:53 PAGE 62~6 SEQ 0923 | 
TROOT = TEMPORARY ROOT FOR SEQNCR DURING TEST 4 SETUP 


seonte TROOT = TEMPORARY ROOT FOR SEQNCR DURING TEST 4 SETUP 


004640 T 

: TROOT WILL FILL OUT THE AS YET UNDEFINED FIELDS IN BOTH UNIT 

: AND SUBUNIT PARAMETERS, AS WELL AS GETTING THE SUBUNIT CAHRACTERISTICS 
004640 104205 007702 MOV #FIRSTU,RS : R5 POINTS TO FIRST SUBUNIT 
004642 114002 MKLOOP: CLR : FOR ZEROING RECOVERY WORD 
004643 100652 000047 MOV Re. U.RCOV(RS) : ZERO RECOVERY WORD 
004645 104207 001000 MOV #FTIME,R + MARK AS FIRST TIME (WILL DISABLE RECOVERY) 
004647 100657 006046 MOV RO,U.PARM(RS) : SAVE 
004651 104201 000027 MOV #INSET,R : FIRST MODULE IS INSET 
004653 100651 000013 MOV R1,U.NFUN(RS) : SAVE IN UNIT PARAMETERS 
004655 104201 000003 MOV #3.R : SDI SHORT | TIMEOUT SET TO 30 SEC 
004657 100651 000033 MOV R1,U.SDIS(R5) : MOVE TO PARAMETERS 
004661 104201 000360 MOV #360, t WRITE PROTECT THE ENTIRE DRIVE 
004663 100651 000045 MOV R1,U.WPRT(RS) : SAVE 
004665 022577 CALL  SEQNCR : RUN SEQUENCER 
004666 104657 000046 MOV U.PARM(RS),RO =: GET UNIT PARAMETERS 
004670 101207 001000 BIS #ETIME, : SET FIRST TIME 
004672 100657 000046 MOV RO,U.PARM(RS) : SAVE 
004674 104155 MOV (R5).R5 : TRAVERSE TO NEXT UNIT 
004675 ASSUME UsAEXT 0 a + ASSUME U.NEXT OFFSET IS ZERO 

-ERROR ; THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 
004675 106205 007702 CMP #FIRSTU,RS ; SEE IF TRAVERSED ENTIRE RING 
004677 054642 BNE MKLOOP F NOT, BRANCH 
004700 000000 RETURN ? RETURN’TO CALLING PROGRAM 
004701 AREAI INITILIZATION OVERLAY AREA 

“SBTTL GMPARM ="GET MASTER PARAMETERS (PATTERN 16) AND SET UP OVERLAY ADDRESSES 
004701 GMPARM: 

: GET MASTER PARAMETERS 
004701 104302 007774 MOV OVSTRT,R2 ; GET STARTING ADDRESS OF OVERLAY (LO) 
004703 104303 007775 MOV OVSTRT+1,R3 : GET STARTING ADDRESS OF OVERLAY (HI) 
004705 104020 004261 MOV R2,OTABLE+2 : MOVE STARTING ADDRESS INTO OVERLAY TABLE 
004707 104207 000036 MOV #NUMOVL-1,RO : RO HAS NUMBER OF OVERLAYS 
004711 104205 004257 MOV #OTABLE,R5 : RS POINTS TO OVERLAY TABLE 
004713 104651 03 MORE: MOV 3(R5) Ri : R1 HAS OVERLAY LENGT 
004715 110601 ROR R : SHIFT TO MAKE BY 
004716 103201 100001 BIC #100001 .R1 t CLEAR UNUSED BITS 
004720 105012 ADD R1,R2 : FIND ADDRESS OF NEXT OVERLAY 
004721 044723 BCC : IF NO CARRY, gehan CH 
004722 115403 INC R3 + PROPOGATE CAR 
004723 100652 000006 1$: MOV R2,6(R5) + STORE STARTING. ADDRESS OF NEXT OVERLAY 
004725 104651 000007 MOV 7ER9) RI : GET OVERLAY LENGTH (<<2) 
004727 101031 BIS R3,R1 : SET HI ORDER OVERLAY ADDRESS 
004730 100651 000007 MOV RI. 7cR 5) + SAVE 
004732 105205 000004 ADD 4:R : POINT TO NEXT OVERLAY AREA 
004734 117407 DEC : DECREMENT COUNT 
004735 054713 BNE MORE : IF ALL OVERLAYS NOT SET UP, BRANCH 
004736 104207 060003 MOV #TGMPRM, RO + RO CONTAINS HOST REQUEST 
004740 021053 CALL -HOSTRQ : INITIATE HOST REQUEST 
004741 104207 001104 MOV #HRQ.01,R0 : R POINTS TO PATTERN INFORMATION 
004743 104272 MOV (RO)+,R2 + R2 HAS LENGTH OF PATTERN 





sc 


SEQ 0924 






UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 62-7 
GMPARM = GET MASTER PARAMETERS (PATTERN 16) AND SET UP OVERLAY 















-ERROR 3 THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 


| 
004744 014754 BEQ 38 ; IF NO PATTERN, BRANCH | 
004745 104201 002257 MOV #PATO+1,R1 ; R1 POINTS TO PATTERN 16 AREA (SKIP EDC) | 
004747 looete MOV R2,(R1)4 ; nove PATTERN LENGTH TO PATO AREA 
004750 10427 2$: MOV (RO)+,R3 : GET WORD OF PATTERN 
004751 100213 MOV R3, (Ri) ; MOVE TO PATTERN 16 AREA 
004752 117402 DEC R2 ; DECREMENT COUNT 
004753 054750 BNE 2$ ; IF COUNT UNEXHAUSTED, BRANCH 
004754 000000 $: RETURN : RETURN TO CALLING PROGRAM 
.SBTTL GETU = POLL ALL PORTS, THEN GET UNITS TO TEST 
004755 GETU: 
: GET THE UNITS TO TEST | 
. { 
; POLL ALL PORTS AND FILL IN A UDA PORT INFORMATION TABLE (UNITS) | 
004755 104205 000001 MOV #1,R5 : MOVE INITIAL MASK TO RS | 
004757 104204 005345 MOV WUNITS,R4 + R4 POINTS TO UNIT TABLE 
004761 5$: PUSH RG > SAVE R4 | 
~IRP X,<R4> 
MOV X,=-(SP) 
~ENDR | 
004761 100464 MOV R4,=(SP) | 
004762 104052 MOV R5,R2 : MOVE MASK TO R2 | 
004763 021007 CALL RDSTAT ; GET DRIVE ! STATUS 
004764 115002 TST R2 : SEE IF ERR OR 
004765 014777 BEQ 208 + IF NOT, BRANCH 
0047 074772 BMI 10$ : IF MSB, PARITY ERRORS > HALF SECOND | 
004767 104203 005205 MOV #SER10,R3 + NO DRIVE ATTACHED 
004771 004774 BR 15$ + BRANCH 
004772 104203 002243 10$: MOV #SERGS,R3 + PARITY ERRORS 2 HALF SECOND 
004774 100643 000001 15$: MOV R3,1(R4) t SAVE ERROR MESSAGE | 
004776 005171 BR 106$ : REPOR 
004777 114003 20$: CLR R3 : SET UP TIMEOUT COUNT 
005000 104052 25$: MOV R5,R2 : MOVE PORT SELECT TO R2 
005001 021007 CALL = RDSTAT : GET STATUS | 
005002 115002 TST R2 : SEE IF ERROR 
005603 055007 BNE 308 : IF SO, BRANCH | 
005004 %02201 000001 BIT WRCVRDY,R1 : SEE IF RECEIVER READY ASSERTED 
905006 055016 BNE 35$ : IF CH | 
005007 117403 30$: DEC R3 + DECREMENT 
005010 055000 BNE 25s : IF INCOMPLETE, BRANCH | 
005011 104203 005220 MOV #SER11,R3 : RECEIVER READY NEVER ASSERTED 
005013 100643 000001 MOV R3,1(R4) : SAVE ERROR MESSAGE 
005015 005171 BR 100$ : REPORT | 
005016 102201 000100 35$: BIT WAVAIL,R1 : SEE IF ORIVE IS AVAILABLE 
005020 035026 BNE 40$ : IF SO, BR 
005021 104203 005435 MOV #SER4O,R3 : GET SECONDARY ERROR | 
005023 100643 000001 MOV R3,1(R4) : SAVE 
005025 005171 BR 106$ ; EXIT 
005026 104208 001750 40$: MOV #MAXSND,R2 : SET UP MAXIMUM TRIES AT SENDING 
005030 104203 001617 MOV WR. GST.R3 + R3 POINTS TO GET STATUS COMMAND 
005032 104137 45$: MOV R3),RO ; SET ADR OF SDI COMMAND BUFFER 
005033 ASSUME Le. OBC 0 a 


sc ] 





5 DISK tyeig DMACR X04.01 23-AUG-82 12: 16es 53 PAGE 62-8 


= POLL ALL PORTS, THEN GET UNITS TO TES 


005033 104631 
005035 


005035 100462 
00 


So 

oS 

3 

Ww 
-—OoO-0—— 
o 
VnuMns 
ofoonw 
WOoV1on 
—WWPnon fu 


So 
wi 
= 


005051 


BeeREee 
3 3 


= 
=3 


$ss 
32288 

sssy 
— — 

e=- 
REASSE 
scsce 


Mon 
=WN = =Wna= 


SoR=o 
O28 
NSO—GNO 


Of 1042 
1 1 


000001 


005236 
000001 


000003 
001702 
000002 


000001 


005250 


005263 


005311 


50$: 


55$: 


60$: 


65$: 


MOV "tetas 
PUSH R 
~IRP X,<R2> 


.ENDR 
MOV R5,R2 

KFC SEND 

PoP R2 

~IRP X,<R2> 

.ENDR 

TST R1 

BEQ 50$ 

DEC R2 

BNE 45$ 

MOV #SER12,R3 
MOV R3,1(R4) 
BR 106 

PUSH RG 

.IRP X,<R4> 

.ENDR 

MOV #3,R4 

MOV #ST,RO 
MOV Le-RLNCR3) -RI 
MOV R5,R 

XFC RCV 

TST R1 

BEQ 85$ 

CMP #1,R1 

BNE 60$ 

DEC R4 

BNE 55$ 

POP RG 

~IRP X,<R4> 

.ENDR 

MOV #SER13,R3 
BR 80$ 

POP R4 

.IRP X,<R4> 

.ENDR 

ROR R1 

ROR R1 

BCC 65$ 

MOV #SER14,R3 
BR 80$ 

ROR R1 

BCC 70$ 

MOV #SER15,R3 
&R 80$ 








SET BUFFER LENGTH 
SAVE R2 


SETUP FOR SEND 
SEND COMMAND 
RESTORE COUNT 


DECREMEN 


COUNT 
IF UNEXPIRED” BRANCH 
NUMBER 


GET ERROR 
SAVE 


SAVE R4 


< c= 


SHORT TIMEOUT 
ATA BUFFER ADDRESS 
LENGTH 


MOV X,=(SP) 
MOV R2,=(SP) 


MOV (SP)+,Xx 
MOV (SP)+,R2 


DID ag ACCEPT COMMAND 
a 


MOV X,=-(SP) 
MOV R4,=-(SP) 


F NOT, BRANCH 
DECREMENT TIMEOUT VALUE 
IF NOT TIMEOUT , BRANCH 


RESTORE R 


: GET ERROR NUMBER 


BRANCH TO EXIT 
RESTORE R4 


MOV (SP)+,Xx 
MOV (SP)+,R4 


MOV (SP)+,Xx 
MOV (SP)+,R4 


ROTATE INTO POSITION TO TEST 


SEE IF FIRST 
IF 


WORD NOT START FRAME 


GE R NUMBER 
BRANCH TO END OF LOOP 


ao 


82 


So 
uw 


QF 


NVNNNN 


ed ed ed ed ed ed ed 
RVRRRE VY 
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mn 
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MWMmOoul 
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ER DMACR X04 
L PORTS, THEN 


005333 


005356 
000001 


177777 


001702 
170000 


000002 
010000 


040000 


177760 


23-AUG=8 
UNITS TO 


70$: 






90$: 


95$: 


100$: 








2 12:02:53 PAGE 62-9 
TEST 


PUSH : 
-IRP X,<R1,R2> 


Bete Ge Ge Sete 


POP <R2,R1> 
eIRP X,<R2,R1> 


SEE IF CHECKSUM ERROR 
IF NOT, BRANCH 
GET ERROR NUMBER 
BRANCH TO END OF LOOP 
GET ERROR NUMBER 


AVE 
BRANCH TO END OF LOOP 


NOW FILL IN THE TABLE WITH ALL THE SUBUNIT NUMBERS 
; RESTORE R4 


GET "NO UNITS’ FLAG 


MOV (SP)+,X 
MOV (SP)+,R4 


CLEAR ANY ERRORS THAT ARE FLAGGED 


RO HAS UNIT NUMBER 
R 2 


SAVE R1 AND R2 


MOVE UDA PORT MASK TO R2 
GET STATUS 
SEE IF SPINABLE 


IF SO, BRANCH 
SET ‘NOT SPINABLE’ FLAG 
RESTORE 


FLAG UNIT AS NOT TESTED 
SWAP R2°S BYTES 


MOVE SUBUNIT MASK TO LO NIBBLE 


MOVE SUBUN R 
INCREMENT SUBUNIT NUMBER 
BRANCH 


; CLEAR ANY ERRORS THAT ARE FLAGGED 


MOV X,-(SP) 


MOV R1,-(SP) 
MOV R2,-(SP) 


MOV (SP)+,Xx 


MOV (SP)+,R2 
MOV (SP)+,R1 


R4 POINTS TO START OF UNIT JUST HANDLED 


MOV (SP)+,Xx 


an 


years "shell lai ba pace ph t 23-AUG-82 os :02:53 PAGE 62-10 SEQ 0927 


L ALL PORTS, THEN GET UNITS TO TEST 
005171 104264 MOV (SP)+,R4 
005172 105204 000004 ADD #4 RG 3 RG watt 4 al TO pt UNIT (CLEAR CARRY FOR ROL) 
005174 110205 ROL R5 : RS HAS NEXT UNIT PORT MASK 
005175 106205 000020 CMP #20,R5 : See” it ALL PORTS TESTED 
005177 054761 BNE 54 : IF NOT, BRANCH 

; NOW GET THE PLUG NUMBERS TO TEST AND FIND THEM IN THE TABLE 
005200 104207 060012 MOV #UTOTST,RO : GET WHAT SUBUNIT NUMBERS TO TEST REQUEST 
005202 021053 CALL -HOSTRQ : GET THE PLUG NUMBERS 
005203 104207 001104 MOV #HRQ. 01, ,R0 : RO POINTS TO UNIT NUMBERS TO TEST 
005205 104201 005345 105$: MOV #UNITS : R1 ae tnt UDA PORT INFORMATION 
5207 104112 110$: MOV th + R24 
005210 075233 BMI 130$ : IF NONE UME RANCH 
005211 PUSH = RI. + SAVE R1 
-IRP X,<R1> 
MOV X,-(SP) 
.ENDR 
005211 100461 MOV R1,=(SP) 
005212 103202 160000 115$: BIC #160000,R2 ; CLEAR "NOT TESTED’, LEAVE "UNSPINABLE' SET 
005214 106172 CMP (RO) ,R2 : SEE IF IT IS A UNIT TO TEST 
005215 055221 BNE $ + NO MATCH 
005216 100112 MOV R2,(R1) + SAVE UNIT AS ONE TO TEST 
005217 POP R1 t RESTORE STACK 
-IRP X,<R1> 
MOV (SP)+,X 
-ENDR 
005217 1042 1 MOV (SP)+,R1 
005220 005335 BR 175$ : LOOK FOR THE NEXT ONE 
005221 115401 120$: INC R1 : POINT TO NEXT SUBUNIT 
605222 104012 MOV R1,R2 + COPY TO R2 
005223 107202 005345 SUR #UNITS,R2 : SUBTRACT STARTING ADDRESS 
005225 102202 000003 BIT #3,R2 : SEE IF STILL ON SAME UNIT 
005227 015232 BEQ 125 : IF NOT, BRANCH 
5230 104112 MOV (R1).R2 : SEE IF ANY MORE SUBUNITS 
005231 035212 BPL 115$ : IF SO, BRANCH 
005232 12£$: POP R1 + REST 
-IRP X,<R1> 
MOV (SP)+,Xx 
.ENDR 
005232 104261 MOV (SP)+,R1 
005233 105201 000004 130$: ADD #4,R1 : LOOK AT NEXT UNIT 
005235 106201 005365 CMP WUNITS#16.,R1  : SEE IF ENTIRE TABLE SEARCHED 
005237 055207 BNE 110$ : IF NOT, BRANCH 
; DIDN'T FIND THE REQUESTED UNITS == DUMP ALL KNOWLEDGE OF THE 
: UDA PORTS AND DIE 
005240 104170 001106 MOV (RO), HRO.03 ; SAVE UNIT NUMBER IN REQUEST BUFFER 
005242 104204 001110 MOV #HRO.05,R4 : R4 POINTS TO OUTPUT BUFFER 
005244 104205 005345 MOV #UNITS,RS : RS POINTS TO UNIT TABLE 
005246 104157 135$: MOV (R5) RO + GET FIRST WORD OF UNIT 
005247 035254 BPL 1408 : IF VALID UNIT WAS FOUND, BRANCH 
005250 104657 900001 MOV 1(R5) : GET POINTER TO ERROR MESSAGE 
005252 100247 MOV RO, (R4)+ : SAVE IN OUTPUT BUFFER 
00522 005307 BR 176$ : EXI 
54 RS : SAVE POINTER TO UNIT TABLE 
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N 
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Nm 
= 
— 


300 104265 


S 


RaW 


UDATS DISK EXERCISER DMACR X04. 4 
GETU = POLL ALL PORTS, THEN G 


010000 
005457 
005410 


000004 
005340 


005066 001107 


145$: 
150$: 


155$: 


160$: 


165$: 


170$: 








hrs ss 1g: 02:53 PAGE 62-11 
T UNITS TO T 


~IRP X,<R5> 


-ENDR 

BIT #10000,R0 3 
BEQ 145$ : 

MOV #SER41,R0 : 

BR 150$ : 
MOV etn RO : 
MOV R45+ : 
CLR : 

MOV _ pe : 

BMI 160$ : 
INC RO : 
CMP #4,R0 : 

BNE 155$ : 

MOV SER18E=-1(RO),R1 ; 

MOV R1, (R4)+ : 
POP RS s 
-IRP X,<R5> 

~ENDR 

PUSH RS 3 
-IRP X,<R5> 

-ENDR 

MOV (R5)+,R1 3 
MOV R1,(R4)+ : 
DEC B : 

BNE 165$ : 
POP RS : 
-IRP X, <R> 

-ENDR 

ADD #4,R5 3 
CMP MUNITS#16.,R5 ; 

BNE 135$ : 
DEVFTL 1000 : 
ERROR FITLDEV,1000,<> 
eRADIX 10 

NUMPTR = 5 

MOVMSG #ER1000,4 

IF LT,4=10 

oIFF 

-ENDC 

IF NB, <> 

- IRP X,<> 

MOVMSG X,\ 


PTR 
NUMPTR + 1 


MOV X,=(SP) 


MOV R5,-(SP) 
SEE IF DRIVE UNSPINABLE 
F SPINABL ANCH 
REPORT DRIVE(S) UNSPINABLE 


BR 
SAVE TO ERROR MESSAGE 


CLEAR 

GET UNIT NUMBER 

IF Lega dah BRANCH 
INCREMENT COUNT 

SEE IF 

IF NOT, 


LOOP 
; GET POINTER TO CORRECT ERROR MESSAGE 
; So tO acta BUFFER 


MOV (SP)+,X 


MOV (SP)+,R5 
SAVE R5 


MOV X,-(SP) 


MOV R5,-(SP) 
s o. SUBUNIT NUMBER 


DECREMENT COUNT 
IF COUNT INCOMPLETE, BRANCH 
RESTORE R5 


MOV (SP)+,X 
MOV (SP)+,R5 
POINT TO NEXT UNIT TABLE 
iF ur. ENTIRE TABLE SEARCHED 


OT, BRAN 
REPORT FATAL ERROR (WILL SHOW UP AS A 5000) 


MOV #ER1000,HRQ.04 
MOV #ER1000,HRQ.4 





UDAT4 DISK EXERCISER DMACR X04.01 23-A 
GETU = POLL ALL PORTS, THEN GET UNIT 


-—-OoO— =O — 
Nf —wor 
eee See 
ANNO EOP 


Ro 
rs 


051610 
001105 
005323 001104 


060014 001103 
001 


000001 
004500 
005345 
040000 


000001 
040000 


000002 
040000 


000003 


UG-82_ 12:02:53 PAGE 62-12 
S$ TO TEST 


175$: 


SER18E: 


UNITS: 


MOV #1000! F TLDEV+4000. ,R2 


MOV R2,HRO.02 
MOV #. ,HRQ.01 


RADIX 
MOV #ERRMC ,HRO.RO 

MOV HRO.RQ,RO : SET UP FOR REPORT 
CALL §-HOSTRQ + REPORT ERROR 
BR STOP : END TEST 
INC RO : POINT TO NEXT UNIT TO TEST 
MOV (RO) ,R2 : CHECK NEXT UNIT 
BPL 105$ : FIND IN UDA PORT INFORMATION 
RETURN + RETURN TO INITIALIZATION CODE 
.WORD  SER18A : FOR MULTIPLE SUBUNIT ERROR REPORTING 
“WORD SER18B 
“WORD  SER18C 
“WORD SER18D 
.REPT 16. 
-WORD 177777 : UNITS AND THEIR SURPERVISOR NUM 
“WORD 177777 : UNITS AND THEIR SURPERVISOR NUM 
"WORD 177777 : UNITS AND THEIR SURPERVISOR NUM 
“WORD 177777 : UNITS AND THEIR SURPERVISOR NUM 
“WORD 177777 : UNITS AND THEIR SURPERVISOR NUM 
“WORD 177777 : UNITS AND THEIR SURPERVISOR NUM 
"WORD 177777 : UNITS AND THEIR SURPERVISOR NUM 
"WORD 177777 t UNITS AND THEIR SURPERVISOR NUM 
“WORD 177777 t UNITS AND THEIR S$ OR NUM 
“WORD 177777 : UNITS AND THEIR SURPERVISOR NUM 
"WORD 177777 : UNITS AND THEIR SURPERVISOR NUM 
“WORD 177777 : UNITS AND THEIR SURPERVISOR NUM 
“WORD 177777 t UNITS AND THEIR SURPERVISOR NUM 
“WORD 177777 : UNITS AND THEIR SURPERVISOR NUM 
“WORD 177777 t UNITS AND THEIR SURPERVISOR NUM 
“WORD 177777 : UNITS AND THEIR SURPERVISOR NUM 
"WORD 177777 UNITS AND THEIR SURPERVISOR NUM 
BLDUNT - BUILD THE UNIT PARAMETER BLOCK 
BLDUNT WILL BUILD THE UNIT AND SUBUNIT PARAMETERS 
MOV #1,R2 : PORT 1 MASK 
MOV R2,UMASK + SAVE MASK 
MOV #UNITS,R4 : POINT TO UNITS To BE TESTED TABLE 
MOV 4),RO ; GET UNIT TO BE TESTED 
BMI NOU : IF FIRST UNIT NOT TO BE TESTED, BRANCH 
BIT #40000,R0 ; SEE IF FIRST SUBUNIT TO BE TESTED 
BEQ 3$ : IF SO, BRANCH 
MOV 7(R4),RO : GET SECOND SUBUNIT INFORMATION 
BIT #40006,R0 + SEE If THIS SUBUNIT IS USED 
BEQ 4 : IF SO, BRANCH 
MOV (R4) RO : SEE If THIRD SUBUNIT TO BE TESTED 
BIT #40006,R0 ; CHECK TESTING BI 
BEQ a ; If IT 1S TO BE TESTED, BRANCH 
MOV (R4),RO : SEE IF FOURTH SUBUNIT TO BE TESTED 


SEQ 0929 


aon 







005424 104070 
100672 


005426 

54 104203 
005432 
005432 100467 
005433 104145 
005434 103205 
005436 100675 
005440 105207 
005442 104245 
0054435 102205 
005445 015450 
005446 104205 
005450 100275 
005451 117403 
003426 055442 
00545 
005453 104267 

5454 107204 
005456 104302 
005460 110202 
005461 104020 
005463 105204 
005465 106204 
005467 055373 

54 104203 
005472 100703 





= BUILD THE UNIT PARAMETER BLOC 


-ENDR 


H 
UDATS DI DISK EXERCISER DMACR x04.01 23-AUG-B2 12:02:53 PAGE 62-13 SEQ 0930 
040000 BIT #40000,R0 : TEST TESTING BIT 
BNE N : IF UNIT (THE WHOLE THING) NOT TO BE TESTED, BRANCH 
000072 3$: MOV #TLEN.U,RO + RO HAS UNIT DATA STRUCTURE LENGTH 
CALL GETMEM : GET MEMORY 
177053 MOV RO, aL ASTU : LINK LAST POINTER TO THIS ONE 
ASSUME U.NEXT,O 
IF NEU. NEXT=0 
“ERROR THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 
004477 MOV RO,LASTU : SAVE POINTER TO THIS one 
000025 MOV R2,U.MASK(RO) : SAVE PORT SELECT 
000004 MOV #4,R3 : MAXIMUM OF FOUR SUBUNIT S 
PUSH RO : SAVE POINTER TO UNIT INFORMATION 
.IRP X,<RO> 
MOV X,=(SP) 
.ENDR 
MOV RO,-(SP) 
MOV (RG) RS : GET STARTING SUBUNIT 
170000 BIC #°CHBHINB,RS §: CLEAR "NOT USED’ BIT, IF SET 
000063 MOV RS,U.UNUM(RO) =: SAVE STARTING SUBUNIT NUMBER 
000001 ADD PRO : RO WILL POINT TO SUBUNIT POINTERS 
1$: MOV (R4)+ Re. : MOVE SUBUNIT NUMBER TO UNIT PARAMETERS 
040000 BIT #40000,R5 : SEE IF SUBUNIT TO BE TESTED 
BEQ 2$ : IF SO, BRANCH 
177777 MOV #-1,R5 > FLAG OS BUNT AS NOT TESTED 
2$: MOV RS, (RO)+ : MOVE TO SUBUNIT POINTERS (NON-NEG IF TESTED) 
DEC R3 : DECREMENT COUNT 
BNE 1$ : IF ALL SUBUNITS ARE FILLED IN, BRANCH 
POP RO : RESTORE RO 
.IRP X,<RO> 
MOV (SP)+,x 
.ENDR 
MOV (SP)+,RO 
000004 SUB #4 RG ; R4 NOW POINTS TO BEGINNING OF UNIT HANDLED 
004500 NOU: MOV UMASK,R2 ; GET UNIT PORT MASK 
ROL t ROTATE TO NEXT PORT 
004500 MOV R2,UMASK : SAV — MASK 
000004 ADD #4 RG ; R4 POINTS TO NEXT UNIT INFORMATION 
005365 CMP MUNITS#16.,R4 3 SEE IF ALL UNITS SET 
BNE ULOP : IF ALL UNITS NOT SETUP, BRANCH 
007702 MOV #F IRSTULRS : COMPLETE RING 
177003 MOV R3,aLASTU : LAST UNIT NOW POINTS TO FIRST 
ASSUME U.NEXT,O 
IF NE, U.NEXT=0 
ERROR ; THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 
007702 V #F IRSTU,RO ; RO POINTS TO FIRST UNIT PARAMETERS 
SUSETL: PUSH R + SAVE POINTER TO UNIT PARAMETERS 
-IRP X,<RO> 
MOV X,=(SP) 


MOV RO,-(SP) 


~SOTTL BLDSUS = BUILD ALL SUBUNIT PARAMETER BLOCKS ON THIS UNIT 


BUILD ALL SUBUNIT PARAMETERS 


sc 


| 1 8 
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BLDSUS = BUILD ALL SUBUNIT PARAMETER BLOCKS ON THIS 





SEQ 0931 


f 


005477 104204 000001 MOV #U.SUBP,R4  R4 WILL POINT TO SUBUNIT POINTERS 
005501 105074 ADD RO, 4 POINTS TO SUBUNIT POINTERS 
005502 104670 000063 004476 MOV U.UNUM(RO) nak” : SAVE SUBUNIT R 
005505 104205 000004 MOV ry 7 MAX NUMBER OF SUBUNITS 
005507 104147 SLOP: MOV tras RO : RO GETS SUBUNIT "POINTER' 
005510 076004 BMI NOSUN : IF SUBUNIT INACTIVE, BRANCH 
005511 104070 004476 MOV RO,UCURSR : UCURSR GETS SUBUNIT NUMBER 
005513 PUSH  <R$,R4,R5> + SAVE R3 = RS 
LIRP X,<R3R4,R5> 
MOV X,-(SP) 
.ENDR 
005513 100463 MOV R3,=(SP) 
005514 100464 MOV R4,=(SP) 
005515 100465 MOV R5,=(SP) 
Seats BLDBES = FIND HOW MANY WORDS NEEDED FOR THE BEGIN/END OR TRACK/GROUP SETS 
; COMPUTE THE BEGIN/END SET AREA NEEDED 
005516 104300 004476 001104 MOV UCURSR,HRQ.01 =; MOVE SUBUNIT NUMBER TO COMMUNICATION AREA 
005521 104207 060004 MOV #T4UPRA,RO : MOVE REQUEST NUMBER TO RO 
005523 021053 CALL §- HOSTRQ + REQUEST INFORMATION FROM HOST 
005524 102200 000040 001104 BIT WBEUSED,WRQ.01 : SEE IF BEGIN/END SETS ARE USED 
005527 055535 BNE : IF $0, BR cH 
005530 104207 000020 MOV #S.TGSS+1,RO |; MAXIMUM CONFIGURATION LENGTH 
005532 105307 001112 ADD HRQ.07,RO : ADD NUMBER OF T/G SETS 
005534 00554 BR BLDBB : BRANCH 
005535 104207 000013 2$ MOV #S.BESS,RO : MINIMUM CONFIGURATION WORD COUNT 
005537 104301 001106 MOV HRQ.03,R1 : GET NUMBER OF BEGIN/END SETS 
005541 055543 BNE 1$ : IF NON-ZERO, BRANCH 
005542 115401 INC R1 : MAKE R11 
005543 105011 1$: ADD R1,R1 ; MAKE B/E SETS * 2 
005544 105011 ADD R1.R1 i WAKE B/E SETS * ,f 
005545 105017 ADD R1.RO TO LENGTH OF SUBUNIT PARAMETERS 
.SBTTL BLDBB = FIND HOW MANY vinit? NEEDED FOR One BAD BLOCKS 
005546 BLTBB 
: COUNT THE BAD BLOCK PARAMETERS 
005546 PUSH RO : SAVE SUBUNIT LENGTH 
-IRP X,<RO> 
MOV X,-(SP) 
.ENDR 
005546 100467 V RO,-(SP) 
005547 104300 004476 001104 MOV UCURSR,HRQ.01  ; MOVE SUBUNIT NUMBER TO COMMUNI CATION’ AREA 
005552 104207 060005 MOV #14BB1.RO : MOVE REQUEST NUMBER 
005554 021053 CALL HOST : REQUEST INFORMATION FROM HOST 
005555 POP R : RESTORE SUBUNIT LENGTH 


0 
-IRP X,<RO> 
.ENDR 
MOV HROQ.01,R1 
MOV R1,NUMBB 
R1,R1 
ADD R1.RO 


MOV (SP)+,x 


MOV (SP)+,R0 
; GET NUMBER OF BAD BLOCKS 
; SAVE NUMBER OF BAD BLOCKS 
; MAKE BAD BLOCKS * 
; ADD TO SUBUNIT DATA STRUCTURE LENGTH 


> 
So 
_—] 
Sete tet 





J 8 
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BLDBB = FIND HOW MANY WORDS NEEDED FOR THE BAD BLOCKS 
005564 024616 CALL GETMEM GET REQUESTED AMOUNT OF MEMORY 
SBebu COPYSU = COPY ALL SUBUNIT PARAMETERS TO SUBUNIT BLOCK 
: COPY SUBUNIT PARAMETRS TO SUBUNIT BLOCK 
005565 PUSH RO : SAVE RO 
~IRP X,<RO> 
MOV X,=(SP) 
.ENDR 
005565 100467 MOV RO,=-(SP) 
005566 104300 004476 001104 MOV UCURSR,HRQ.01 ; MOVE SUBUNIT NUMBER TO COMMUNICATION AREA 
005571 104207 060004 MOV #T4UPRM,RO : MOVE REQUEST NUMBER TO RO 
005573 021053 CALL § -HOSTRQ : REQUEST INFORMATION FROM HOST 
005574 POP RO t RESTORE RO 
.IRP X,<RO> 
MOV (SP)+,Xx 
.ENDR 
005574 104267 MOV (SP)+,RO 
: THESE ARE THE ONLY BITS THAT THE HOST SHOULD SEND TO THE TEST 
077177 VALBIT = INITW!DCYLS!ECCCHK!RONLY ! WONLY !RTRIES! SEQSEK!BEUSED! TRACKS! WCHECK! WCHKAL !DAT 
005575 103200 100600 001104 BIC #*CVALBIT, HRQ.01 CLEAR ALL BUT VALID BITS (SUBUNIT PARAMETERS) 
005600 104301 001105 MOV : GET PATTERN NUMBER 
005602 100671 000004 MOV A »S.PAT(RO)  : SAVE 
5604 104305 001104 MOV H 5 : GET UNIT PARAMETERS 
005606 102205 020000 BIT #DCYLS.RS > SEE IF DIAGNOSTIC CYLINDERS ARE USED 
005610 015616 BEQ : IF NOT, BRANCH 
005611 102205 004000 BIT #RONLY RS : SEE IF READ ONLY 
005613 055616 BNE ; IF SO, BRANCH 
005614 101205 040000 BIS #INITW.RS t FLAG UNIS AS INITIALLY WRITTEN 
005616 102205 000040 4$: BIT #BEUSED,RS : SEE IF BEGIN/END SETS USED 
005620 055663 BNE 3$ : IF SO, BR 
005621 100175 MOV 5, (RO) : SAVE IN SUBUNIT AREA 
005622 ASSUME SPARK O : : ASSUME THAT S.PARM IS ZERO 
-ERROR : THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 
005622 104201 000013 MOV #S.BESS,R1 : R1 WILL POINT TO BEGIN/END SET AREA 
005624 105071 ADD RO, : R1 POINTS TO TRACK/GROUP AREA 
005625 104202 001106 MOV #HRO.03,R2 : R2 POINTS TO START/END CYL 
005627 104225 MOV (R2)+,R5 : MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
5630 100615 000002 MOV R5,2(R1) : MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
5632 104225 MOV (RO)+,R5 + MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
005633 100615 000003 MOV RS, 3(R1) : MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
005635 104225 MOV (Rd)+,R5 : MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
5636 100115 MOV R5, (Ri : MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
005637 104225 MOV (Rd)+,R5 ; MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
005640 100615 000001 MOV R5,1(R1) ; MOVE LIMITING CYLINDER TO SUBUNIT PARAMETER 
005642 105201 000004 ADD #4°R1 : R1 POINTS AFTER LIMITING CYLINDERS 
005644 104224 MOV (R2)+,R4 : GET TRACK/GROUP COUNT 
005645 104225 5$: MOV (R2)+-R5 + GET WORD 
00 100215 MOV R5,(R1)+ : SAVE 
005647 117404 DEC : DECREMENT COUNT 
005650 055645 BNE 5$ : IF INCOMPLETE, BRANCH 





zac 
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COPYSU = COPY ALL SUBUNIT PARAMETERS TO SUBUNIT BLOCK 








SS ee ne oo 


SEQ 0933 


005651 104415 MOV : GET LAST 1/G 
005652 101205 100000 BIS #100060, RS : MARK AS END OF LIST 
005654 100115 MOV RS, ( : SAV 
005655 104201 000020 MOV as. Tesse1, R1 :R1 WILL POINT TO START OF T/G LIST 
005657 105071 ADD "R : R1 POINTS TO START OF T/G L 
005 105301 001112 ADD HRQ.07,R1 + R1 NOW POINTS TO AFTER T/G°S (FOR BAD BLOCKS) 
005662 005721 BR + BRANCH 
005663 104201 000013 3$: MOV #S.BESS,R1 ; R1 WILL POINT TO BEGIN/END SETS 
005665 105071 ADD RO,R1 : R1 POINTS TO BEGIN/END SETS 
5666 104208 001106 MOV #HRO.03,R2 ; POINT TO BEGIN/END SET COUNT 
005670 104224 MOV (R2)+,R4 : GET COUNT, SEE IF NON-ZERO 
005671 055675 BNE : IF $0. BRANC 
005672 115404 INC R4 3 SKIP COUNT 
005673 101205 000200 BIS #ONLYCL,RS : FLAG AS BEGIN/END CYLINDER SUPPLIED 
5675 100175 2$: MOV 5, (RO) : SAVE IN SUBUNIT 
005676 ASSUME oY ARNO , : ASSUME THAT S. PARR ts ZERO 
ERROR : THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 
005676 104225 1$: MOV (R2)+,R5 : GET LO STARTING CYL 
5677 100615 000002 MOV R5,2(R1) ; 
005701 104225 MOV (R2)+,R5 : GET HI STARTING CYL 
005702 100615 000003 MOV RS, 3(R1) : 
5704 104225 MOV (R3)+,R5 : GET LO ENDING CYL 
005705 100115 MOV R5, (R1) + SAV 
5706 104225 MOV (R3)+,RS : GET HI ORDER ENDING CYL 
005707 100615 000001 MOV R5,1(R1) : SAVE 
005711 105201 000004 ADD *R1 : RI POINTS AFTER BEGIN/END CYLINDERS 
005713 117404 DEC : DECR EMENT COUNT 
5714 055676 BNE 1s : LOOP AND COPY 
005715 104415 MOV : MOVE EOL TO BEGIN/END LIST 
005716 101205 100000 BIS #100060, R5 ; SET HI BIT TO FLAG EOL 
005720 100215 | MOV R5,(R 3 SAVE 
005721 COPBB: PUSH RO + SAVE RO 
.IRP X,<RO> 
MOV X,=(SP) 
.ENDR 
005721 100467 MOV RO,-(SP) 
5722 104300 004476 001104 MOV UCURSR,HRQ.01 =; MOVE TO COMMUNICATION AREA 
005725 104207 060005 MOV #14BB1.RO : MOVE REQUEST NUMBER TO RO 
005727 021053 CALL §-HOSTRQ : REQUEST INFORMATION FROM HOST 
005730 POP R : RESTORE RO 
.IRP X,<RO> 
MOV (SP)+,x 
.ENDR 
104267 MOV (SP)+,RO 
104202 001105 MOV #HRQ.02,R2 : R2 POINTS AT BAD BLOCKS 
104304 004501 MOV NUMBB, R4 | R4 TS NUMBER OF BAD BLOCKS 
015773 BEQ : IF NO BAD BLOCKS, BRAN 
100671 000012 R1,S.BADP(RO) : MOVE POINTER TO Seab BLOCKS TO SUB PARAM 
114004 CLR RG : START LOOP AT ZER 
106204 000016 BBLOP: (CMP #14. ,R4 : SEE IF SPCOND BLOCK NEEDED 
055756 BNE NOEXTR : IF NOT, BRANCH 
PUSH R : rb 
-IRP X,<RO> 


MOV X,-(SP) 
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OPYSU = COPY ALL SUBUNIT PARAMETERS TO SUBUNIT BLOCK 


rs 
VMI VIMUIVITI NS 
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004476 001104 
060006 


001104 


004501 
100000 


000012 
000007 


177777 
004476 


170000 
007702 





UCURSR ,HRQ.01 
#T4BB2,R0 


HOSTRQ 
RO 


-IRP X,<RO> 


MO 
NOEXTR: a ad 


NOBB: Mm 
CPYBEX: CLR 
MO 


#HRQ.01,R2 
(R 


YB 
R4,S.BADP(RO) 
R4,S.SCHR(RO) 

<R5,R4,R3> 


POP 
.IRP X, ne R4,R3> 


-ENDR 
NOSUN: MO 
BSUSEX: MOV 


-ENDR 
MOV 
“ee & 


- ERROR 
fee 


BSUSEX 
#-1,R0 
RO, (R4)+ 
UCURSR 

R5 
SLOP 


RO 
~IRP X,<RO> 


MOV RO,=(SP) 
SAVE IN ser meen AREA 


LOAD REQUEST 
REQUEST FURTHER BLOCKS FROM HOST 
RESTORE RO 


MOV (SP)+,X 
MOV (SP>+,RO 


; POINT R2 TO BAD BLOCKS 
LOCK 


R T R4 
re AT. ALL — COPIED 
7h gtast BAD BLOCK 
G AS EOL 

SAVE EOL 

BRANCH 

FLAG AS NO GAD BLOCKS 

CLEAR R4 

FLAG CHARACTERISTICS AS NOT YET DEFINED 

RESTORE R3 = R5 
MOV (SP)+,Xx 
MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,R3 

BRANCH 

TO FLAG SUBUNIT AS INACTIVE 

MOVE POINTER TO SUB PARAM TO UNIT PARAMS 

MOVE TO NEXT SUBUNIT 

DECREMENT COUNT 

IF UNEXPIRED, BRANCH 

RESTORE UNIT POINTER 

MOV (SP)+,Xx 


MOV (SP)+,RO 


(RO), RO, : GO TO NEXT UNIT 
UNE KT 
E,U. ut T=0 
: THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 
#UNADDR, RO ; CLEAR UNUSED ADDRESSING BITS 
#F IRSTU.RO ; SEE IF THE ENTIRE RING IS SET UP 
SUSE TL + IF NOT, BRANCH 


LE ,MAXADR-. 
+4 


LE ,MAXADR-. 
+4 


SEQ 0934 


m 8 
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70 
84 006023 reer ne 
.SBTTL %#teteeees NON-LOADED OVERLAY, ERROR MESSAGES 


FERRARA EAE E EEE EE ERE EEE REAR EAAEEREEEEEEEEEEEEEEEEEEEEEEREREEEEEEEEEEE 
FERRARA ARERR EE EEE ERE AE EEE EERE EEAEREEEREEERAEEEEEEEEEEEE 
FREER ARERERREEEEEEEE EEE EEE EEE RARER EEREEEEREEREEEEEEEEEEE 
SERA ERE EEE REE EEE AEEAAEEEEEAEEEEEEEREEAEEREREEEEEEEEEEEEEEEEEE 


; ERROR MESSAGE FORMAT BUFFERS (NEVER LOADED INTO UDA) 
006023 DMOVLY MS,0 3 ; ERROR MESSAGE OVERLAY 
006023 OVTERM ;TERMINATE LAST OVERLAY 
006023 000105 WREDC SOQUTPUT EDC FOR THIS OVERLAY 
005110 OVL.MN = .~OVE .MN 
005110 OVL... = OVL...+OVL.MN 
005530 OV... = OV...*0VL.MN 
-CLEDC ;CLEAR EDC FOR NEXT OVERLAY 
MACRO OVTERM 
-WREDC sOUTPUT EDC FOR THIS OVERLAY 
OVL.MS = .~OVE .MS 
OVL... = OVL...+OVL.MS 
Vics = OV...*OVL.MS 
.ENDM 
000000 OVE.MS = 0 
OF SET OvV...-0 
“NLIST BEX 
“LIST MEB 
000000 042 101 124 ERI: [ASCII \"ATTN ASSERTED DURING SEEK'N\ 
000016 042 123 105 -ASCII \""SEEK FROM GRP ‘'D8"* CYL ‘D28*' TO GRP ‘'D8"* CYL ‘D28NR1\ 
000050 000 “BYTE 0 
000051 042 122 105 SER22: [ASCII \'REAL TIME STATE "HI6N\ 
900064 042 123124 “ASCIT \"'STATUS (R TO L): "H16S2H16S2H16S2H16S2H16S2H16S2H16N\ 
117 042-101 S «124s ER2: ~—s- ASCII. \"ATTN ASSERTED UNEXPECTEDLY, ASYNC DRIVE ERROR OR LOGGABLE"N\ 
000155 042 111 116 SASCIT \""INFORMATION''NR1\ 
000165 000 “BYTE 0. 
000166 042 123 105 ER3: ASCII \" SEEK DID NOT COMPLETE, NEITHER ATTN OR R/W RDY WAS ASSERTED''N\ 
000225 042 102 105 SASCII \"BEFORE TIMEOUT’ N\ 
900235 042123108 “ASCII \"'SEEK FROM GRP "DB" CYL "DPA" TO GRP "DB" CYL “DZBNRT\ 
271 042, 122,103 «ERS: ~~ TASC. \""RCT AREA CORRUPTED, COULD NOT FIND REPLACEMENT FOR'N\ 
000323 042 114 102 CSCI \"LBN 'RT\ 
000327 9 042——is101—'i(its12K “ASCII \"ATTEMPTED TO READ RCT LEN “D28N\ 
00347 042 123 105 “ASCII \"'SEARCING FOR LBN''S10D28N\ 
000364 000 “BYTE 
000365 042 110 105 ERS: [ASCII \"HEADER NOT FOUND DURING WRITE'N\ 
000405 122 061 042 CASCIT \RIBN "D28NR3\ 
000413 042 123 105 “ASCII \''SECTORS FROM INDEX "D8" TRK D8" GRP "D8" CYL "“D28N\ 
000445 042 117 122 “ASCII \"ORIGIN OF SEEK: GRP "D8" CYL "D28N\ 
000467 000 “BYTE 0 
000470 042 101 124 SERI9: “ASCII \“ATTEMPT. “D3N\ 
7% «122 «= 06142 CASCIT \R1'BN “D28NR3\ 
90505 9 042—s«123—Ss«*105 SASCIT \''SECTORS FROM INDEX "D8" TRK D8" GRP "D8" CYL “D28N\ 
537 042si«ad'7?-——«*dNdDD “ASCII \“DRIGIN OF SEEK: GRP "D8" CYL "D28NRT\ 
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ponte 042 123 105 ER6: 47 \'‘SELECT TRACK AND WRITE LEVEL 1 CMD NOT EXECUTED’'NR1\ 
0001s 042 105 103 ER?: i \"ECC DETECTED ERROR''NR1\ 


000630 
asd 042 105 103 ERB: rth \"ECC DETECTED ERROR, BUT CORRECTION FAILED''NR1\ 


000661 042 122 105 SER21: .ASCII \'RETRY ‘D4N\ 


000666 042 105 122 “ASCII \"ERROR RECOVERY LEVEL “D8N\ 

000703 122 061 042 “ASCII \R1''BN “'D28NR ee ee ee Poe 
000712 = 042—S ss 123—Ss«*108 “ASCII \"'SECTORS FROM INDEX "D8'' TRK "D8" GRP "D8" CYL “D28N\ 
000744 000 “BYTE 0. 

000745 042 105 103 ER9: ‘ASCII \"ECC CORRECTIONS EXCEED THRESHOLD''NR1\ 

000767 000 “BYTE 0. 

000770 042 105 103 ER10: ‘ASCII \‘ECC CORRECTION SUCCEEDED, BUT EDC DETECTS ERROR'NR1\ 
001022 042 105 104 CASCIIT \"EDC COMPUTED "'O16N\ 

001033 042 105 104 CASCII \"EDC READ''SSOTON\ 

001043 000 “BYTE 0 

Qo104, = =§ 4g 122105 ERTI: ASCII "READ DID NOT SUCCEED ON ANY RECOVERY LEVEL"N\ 

001072 122 061 042 CASCIT \R1"BN, "'D 

001101 042 107 122 "ASCLT | \"GRP"DB™ CYL "D2BN\ 

001112 000 “BYTE 0 

001113 = 042, = 104 = 101 ER12: += ASCII_\""DATA COMPARISON FAILED''NR1\ 

001130 122 061 042 TASCIIT \R1"BN \ 

001137 042s 123—Ss«*105 “ASCIT \'SECTORS FROM INDEX “DB TRK "DB" GRP "DB" CYL "D2BN\ 
001171 042 120 101 CASCIIT \MPATTERN NUMBER "D4N 

001203 042 117 106 “ASCII OFFSET OF ERROR uiTHIN BUFFER: ‘D8N\ 

001225 042 117 106 “ASCII \“OFFSET OF ERR HIN DISPLAYED LIST: 

001266 123 064 #117 “ASCII \saolesaorescorescolescolescoren\ 
001306135064 117 ASCII \S4016S4016S4016S4016S4016S4016N\ 

001326 042105103. SER24: ASCII \"ECC OR EDC HAD DETECTED ERROR IN BUFFER'N\ 


8 
adhe: 042 105 103 SER25: .ASCII \"'ECC OR EDC HAD <<NOT>> DETECTED ERROR IN BUFFER''N\ 


BYTE 
001406 042 104 122 ER13: are \"‘DRIVE NOT ONLINE TO UDA, AND NOT SPINABLE’'N\ 


00 
001435 042 125 116 ~ER14: 


~ASCII \"UNABLE TO COMPLETE SEEK = TRIED 3 TIMES'N\ 
ASCII “D2BNR3\ 

ASCII \"'GRP "D8" CYL “'D28N\ 

Ascit \'SEEK REQUIRED "D2" RETRIES BEFORE COMPLETING'N\ 
II \"GRP "D8" CYL “D28N\ 


00 
001553 042 105 122 ER16: i \"ERRORS DURING DRIVE INITIALIZATION AND SETUP*'NR1\ 


001462 122 061 042 ° \R1°'BN 
001471 042 107 1 . 
001502 000 . 0 
1503 042 123 105 ERIS: . 
001532 122 061 042 «ASC \R1"'BN *D28NR3\ 
001541 042 1 -ASC 
1552 000 BYTE 0 
001603 000 -BYT 0 
1604 042 116 117 
001622 042 116 117 eASCII \"'NO DRIVE CLOCKS''N\ 
001653 000 BYTE 0 
634 042 116 117 ERI7A: .ASCII \' 
001652 042 110 101 ASCII \' 
001701 000 -BYTE 0 
001702 042 101 124 €ER18: .ASCII \' 
001730 042 105 122 ASCII \' 
001753 000 -BYTE 0 
001754 042 110 105 €R19: .ASCII \ 
001773 122 061 042 eASCII \R1"BN “'D28NR 


Y 
ER17:  .ASCII \‘'NO VALID STATE FROM DRIVE''N\ 


‘NO VALID STATE FROM DRIVE''N\ 
‘HARD PARITY OR PULSE ERROR FOR 1/2 A SECOND''N\ 
A 


‘ATTEMPT TO WRITE ON WRITE PROTECTED ORI VE’ ‘N\ 


‘ERROR CODE RETURNED FROM UDA: ‘‘O16NR 
“HEADER NOT age DURING READ’ 'N\ 


SEQ 0936 


"D8" (1ST WORD OFFSET 0)''N\ 


YF 


8B 9 
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teeeeeeeee NON-LOADED OVERLAY, ERROR MESSAGES | 
| 
900924123105 .ASCII \"'SECTORS FROM INDEX "'D8'' TRK "D8" GRP "DB" CYL “D2BN\ 
000% = 481172 “ASCII \“ORIGIN OF SEEK: GRP "DB" CYL "D2BN\ | 
00205 04g 125105 _ER20: “ASCII \""SELECT TRACK AND READ LEVEL 1 CMD NOT SENT'NR1\ 
00106 042104122 ERT: “ASCII \"DRIVE NOT FORMATTED IN 512 BYTE MODE == UNABLE TO TEST'N\ | 
00214 042 130 102 “ASCII \"XBN 0 MODE WORD: “‘O16N\ | 
002156 000 “BYTE 
002157 = 042-—S'— isi«s125)—='sis«d16 R23: —-CASCII = \"UNABLE TO CONTINUE TESTING'NRIR1\ 
002177 000 “BYTE 
00 042, 122 125 SER42: [ASCII \"RUN/STOP SWITCH OUT'N\ 
002213 000 BYTE 0 


| 
002214 042 123 120 SER43: “ASCII \'SPINDLE DROPPED READY’ N\ | 
002231 042120117 SERG4: ASCII \“PORT SWITCH OUT'N\ | 
Q0g243 042120 «101 SERGS: ASCII \“PARITY ERRORS FOR MORE THAN A HALF SECOND'N\ | 
002272 042 105 104 ER24: ‘ASCII \"EDC DETECTED ERROR BUT ECC DID NOT'NRI\ 


Sssss 
ooo 
mnrnr 
ues 
So 
ooooo 
ofofo 
ON ONO 
eee 
=< 
o-oo 


002315 042 105 104 ~ASCII \"EDC COMPUTED "016" EDC READ “‘O16N\ | 
002336 000 “BYTE 0 | 
002337 =§ 042 127) 122: ER25: «= CASCII.\"WRITE ATTEMPTED MAXIMUM TIMCS'W\ | 
002357 91222061 S(O “ASCII \R1"'BN "D2BNR3\ | 
002365 000 “BYTE 0 | 
002366 042 122 105 ER26: ASCII \"'READ ATTEMPTED MAXIMUM TIMES'N\ | 
002405 122 061 042 “ASCII \R1"BN "'D28NR3\ | 
002414 000 -BYTE 0 | 
O02413 042 102,117 ER2B: ASCII \"'BOTH READ ONLY <AND> WRITE ONLY BITS SET == HOST ERROR'N\ | 
00e452 = 042125116 ERS3: ASCII \"UNABLE TO CORRECTLY READ OVERLAY “D16NR1\ | 
002477 = 042124110 SERS9: “ASCII \"THIS UDA AND ALL DRIVES ATTACHED WILL BE REMOVED FROM TESTING'N\ | 
002540 042 123 105 ER34: ASCII \"SERDES OVERRUN ERROR DURING READ'NR1\ | 
002562 000 “BYTE | 
002563 = 04104101 ER35: ASCII \"DATA OR STATE CLOCK TIMEOUT DURING READ'NR1\ 

00261 042 104 101 ER36: ASCII \"DATA SYNC TIMEOUT DURING READ'NR1\ 

00263 000 “BYTE 

002634 = 042 122,057 ER37: ASCII \"R/W ROY DROPPED BEFORE/DURING READ'NR1\ 

002660 = 42 122,103. ERB: “ASCII \"'RCVR RDY DROPPED BEFORE/DURING READ''NR1\ 

002705 042 101 114 ERGO: ASCII \ALL COPIES OF RCT READ WITH ERROR, SEARCHING FOR'N\ 

002736 042 114 102 “ASCHT \"LBN "RIA 

002742 = 4211410 ~ASCII \‘LAST RCT LBN SEARCHED “D28N\ 

002760 048125108 “ASCII \"SEARCING FOR LBN''S6DZBN\ 

002775 = «042 s1003)-Ss117 ERGI: «= CASCIZ \"COULD NOT FIND REPLACEMENT FOR'N\ 

003015 042 4869114 «= 102 “ASCII \SLBN RIN 

003021 042 114 102 “ASCII \"LBN TO REPLACE “D28N\ 

003034 000 -BYTE 0 

003035 042 124 110 SER26: <ASCII \"THAT WAS REVECTORED'N\ 

003050 000 “BYTE 0 

003051 4g 127111 SERS2: ASCII. \"WITH HEADER NOT FOUND'N\ 

003066 042 126 111 ER42: ASCII \"TIMEOUT WAITING FOR SECTOR OR INDEX PULSE"N\ 





2A ES 
Sonwns 


MMMM =a 
SNOAR EMS NNER SS 


M2 NS 2 ON -ONVSUSU 


RESEEPEEREEEESESE 


SRS 


107 
123 
123 
104 
122 
122 
061 
061 


061 
115 


061 


061 
117 


061 
061 


061 
103 


061 
061 


061 
104 


117 
122 
122 
125 
125 
105 
124 
124 
106 
106 


122 
105 
105 
101 
057 
103 
042 
042 


042 
101 


042 


042 
116 


042 
042 


042 
131 


122 
042 


122 
105 


120 
105 
105 
116 
116 
122 
111 
111 
111 
122 


ER44: 
ER4S: 
ER47: 
ER48: 
ER49: 
ERSO: 
ERS1: 
ERS2: 


ERS3: 
ERS4: 


ERSS: 
ERS6: 
ERS?: 


ER58: 
ERS9: 
ER62: 


SER20: 
ER63: 
ER64: 
ER68: 
ER69: 
SER36: 
ER70: 
ER71: 
ER72: 
ER73: 


ASCII 
-BY 
“ASCII 
-BYT 
“ASCII 


B 
ASCII 
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\"'GRP ''D8"' CYL “'D28NR1\ 


\""SEEK OR HEAD SELECT ERROR DETECTED DURING WRITE''NR1\ 
\""SEEK OR HEAD SELECT ERROR DETECTED DURING READ''WR1\ 


\'‘DATA OR STATE CLOCK TIMEOUT DURING WRITE''NR1\ 
\''R/W RDY DROPPED BEFORE/DURING WRITE*'NR1\ 
\"'RCVR ROY DROPPED BEFORE/DURING WRITE''NR1\ 


\R1°'BEGIN/END SET STARTING BLOCK NUMBER GREATER THAN ENDING BLOCK NUMBER’ N\ | 


\R1'"THE BEGIN/END SETS GIVEN OVERLAP’ N\ 


\R1"'BEGIN/END SET ENDING BLOCK NUMBER EXCEEDS MAXIMUM''N\ 


\""MAXIMUM BLOCK NUMBER ON DEVICE IS ‘D28N\ 
\R1'‘DUPLICATE BAD BLOCKS’ 'N\ 


\R1°'BAD BLOCK NUMBER EXCEEDS MAXIMUM. MAXIMUM BLOCK NUMBER’ W\ 


\"ON DEVICE IS ‘D28N\ 


\R1'"STARTING CYLINDER GREATER THAN ENDING CYLINDER'N\ 
\R1'"RANDOM AND SEQUENTIAL SEEKS CAN NOT BE MIXED WITHIN A UNIT’'N\ 
\R1°OVERFLOW WHEN OS eaealaaas THE L/DBN FROM THE GIVEN CYLINDER'WN\ 


\"'CYLINDER TOO LARGE’ 


So 


\R1R1°* EXCEEDS MAXIMUM FOR DEVICE. MAXIMUM IS ‘D8N\ 


So 


\R1'TWO IDENTICAL ‘'R1°'S''N\ 


So 


\R1R1°'BN COMPUTED FROM END CYLINDER GIVEN EXCEEDS MAXIMUM ‘'R1°BN ON'W\ 


\"DEVICE = CYLINDER TOO LARGE’'N\ 


-o=oO 


\""REAL TIME STATE RECEIVE ERROR DURING WRITE''NR1\ 
\""REAL TIME STATE RECEIVE ERROR DURING READ’'NR1\ 
\""UNKNOWN ERROR CODE DURING WRITE’'WR1\ 

\""UNKNOWN ERROR CODE DURING READ''NR1\ 

\"ERROR CODE RETURNED ‘‘O16NR1\ 

\""TIMEOUT OF SEND''NRIR1\ 

\""TIMEOUT OF RECEIVE''WRIR1\ 

\""FIRST WORD RECEIVED WAS NOT START FRAME''NRIR1\ 
\""FRAMING ERROR ON LEVEL 0 RECEIVE''WRIR1\ 


\"OPERATOR ERROR IN ANSWERING MANUAL INTERVENTION QUESTIONS FOR THIS UNIT’ Ww 
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004365 000 BYTE 0 

og Bae 103 110 ER74: i \""CHECKSUM ERROR ON LEVEL 0 RECEIVE’'NRIR1\ 

ned Bae 102 125 ER75: “ASCII 3 wore SIZE SMALLER THAN LEVEL 2 RESPONSE’ 'WRIR1\ 

004444 042 122 105 ER76: ASCII \"'RESPONSE OF LEVEL 2 CMD NOT AS EXPECTED’'WR1\ 

004472 042 105 130 eASCII \'EXPECTED RESPONSE ‘'H 

604293 33 122 105 rh \""RESPONSE RECEIVED *'H8NR1\ 

094508 Bae 104 122 ER77: ASCII 4 wane NEVER DEASSERTED RECEIVER READY AFTER SEND’'NRIR1\ 

004557 042 125 116 ER78: ASCII \"'UNKNOWN ERROR CODE gathers FROM LEVEL 2 RECEIVE’WR1\ 

004611 042 105 122 eASCII \"ERROR CODE RETURNED ‘‘O16NR1\ 

epg 000 -BYTE 0 

6 042 101 124 SERO: .ASCII \"ATTEMPTING TO GET STATUS'N\ 
004645 000 -BYTE 
Opeeer 042 101 124 SER1: .ASCII \"ATTEMPTING DRIVE CLEAR CMD''N\ 


004 BYTE 
sng oH 042 101 124 SER2: ete \"ATTEMPTING TO BRING DRIVE ONLINE’ 


70600 , 
004707 042 101 124 SER3: ASCII \"ATTEMPTING TO CHANGE MODE'N\ 
004725 000 “BYTE 0, 
004726 042 101 124 SER4: cASCII \"ATTEMPTING ERROR RECOVERY CMD'N\ 
004746 000 “BYTE 0. 
004747 042 101 124 SERS: ASCII \"ATTEMPTING TO GET SUBUNIT CHAR'N\ 
004767 000 “BYTE 
004770 042 101 124 SER6: [ASCII \"ATTEMPTING TO SPIN UP DRIVE'N\ 
005007 000 “BYTE ; 
005010 042 101 124 SER7: [ASCII \"ATTEMPTING TO RECALIGRATE'N\ 
005026 000 “BYTE 
005027 042 101 124 SERB: ASCII \"ATTEMPTING TO GET COMMON CHAR'N\ 
005047 000 “BYTE 0, 
005050 042 101 124 SER9: ASCII \"ATTEMPTING TO ISSUE SEEK'N\ 
005065 000 “BYTE 0, 
005066 042 125 116 ER1000: [ASCII \‘'UNABLE TO FIND REQUESTED DRIVE FOR TESTING'N\ 
005114 0462 124 110 “ASCII \\"THE FOLLOWING JS VISIBLE ON THE PORTS'N\ 
005140 0422S «125)*104 SASCII \'UDA PORT 0 == ‘RI\ 
005151 042 125 104 CASCIT \'UDA PORT 1 == “RIN 
00516 042 125 106 SASCIT \SUDA PORT 2 == ‘RIN 
00517 062 125 104 CASCIT \"UDA PORT 3 == "RI\ 
005204 000 “BYTE 
005205 042 116 117 SERIO: ‘ASCII \"NO DRIVE ATTACHED'N\ 
005217 000 “BYTE 
005220 042 122 103 SERI1: ‘ASCII \"RCVR RDY NEVER ASSERTED'N\ 
005235 000 “BYTE 
005236 042 «= 124. = «111s SER12: ASCII \""TIMEQUT OF SEND''N\ 
005247 000 “BYTE 
005250 42124117 SERI3: ASCII \"TIMEQUT OF RECEIVE" N\ 
008368 04g 106111 SERT4: ASCII \"FIRST WORD RECEIVED WAS NOT START FRAME'N\ 
005311 042 106 122 SERIS: ‘ASCII \"FRAMING ERROR ON LEVEL 0 RECEIVE'N\ 
005332 000 “BYTE 
005333 04g 103.110 SER16: ASCII \"CHECKSUM ERROR ON LEVEL 0 RECEIVE'W\ 
005356 042 122 105 SERI7: ‘ASCII \"RESPONSE LONGER THAN EXPECTED FOR GET STATUS CMD'N\ 
005407 000 “BYTE 0 











005410 042 
005415 000 
Og 8 104 
0054 104 
005426 104 
0054 104 
005434 000 
005435 042 
005456 000 
005457 042 
005471 000 
005472 042 
005506 000 
005507 042 
005512 000 
005513 042 
005516 000 
005517 042 
005520 000 
005521 042 
005522 000 
005523 042 
005526 000 
005527 116 
005544 000 
005545 116 
005603 042 
005615 000 
005616 
5646 


S 
Sasno 





eeeeeeteee NON-LOADED OVERLAY, ERROR MESSAGES 
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UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 62-23 SEQ 0940 

104 122 SER18: “ASCII \"DRIVE "'RI\ 
061 062 SER18D: .ASCII \p12", ‘\ : NOTE: THE STRING WITHIN THE \\"S <<MUST>> 
061 062 SER18C: .ASCII \D12". ‘\ : BE AN EVEN NUMBER OF CHAR, BECAUSE THE 
061 062 SER18B: .ASCII \Di2". ‘\ : PABELS WILL FORCE WORD ALINGMENT, LEAVING 
061 062 SER18A: “ASCII \D12N\ : JUNK IN THE LAST BYTE. (SER18A OK TO BE ODD) 
104 122 SER4O: “ASCII \"DRIVE NOT AVAILABLE TO THIS UDA'N\ 
125 116 SER41: ASCII \"UNSPINABLE DRIVE "'R1\ 
122 105 RBNTXT: “ASCII \"REVECTORED TO RBN 'D28N\ 
124 122. TRK$: ASCII \""TRACK''\ 
107 122 GRPS: ASCII \"'GROUP"'\ 
114 042 L$: “ASCII \"L"N\ 

“BYTE 0 
104 042 DS: ASCII \"D''N | 

“BYTE 0 
122 103 RCTLS$ ASCII \"RCT LN 

.SBTTL INFORMATIONAL MESSGES 
: MESSAGES 

042 111 MS1: “ASCII \N"INITIAL WRITE COMPLETE’'N\ 
042 124 MS2: ASCII \N''THE PREVIOUS DEVICE FATAL WILL CAUSE THE FOLLOWING DRIVES'W\ 
124 117 ASCII \""TO BE DROPPED: "'R1\ 
042 101 MS3: -ASCII \N''A CORRECTABLE ECC ERROR EXISTS IN "R1'BN "D28N\ 
123 105 ASCII \""SECTORS FROM INDEX D8’ TRK 'DB' GRP ‘D8’ CYL 'D28N\ 
042 122 MS4: ¢ 


ity are ONLY ORIVE, INITIAL WRITE WILL NOT BE PERFORMED''W\ 


ac 


98.952 "teers | 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 63 SEQ 0941 I 
teseeeeses OVERLAY MODULE SETUP = OPERATION TO BE DONE THIS PA 


1 .SBTTL ‘*eeeeneee OVERLAY MODULE SETUP = OPERATION TO BE DONE THIS PASS 
5 005735 DMOVLY SU,AREAO 
005736 000105 WREDC _ $QUTPUT EDC FOR THIS OVERLAY 
9 pReReeNeeeeeeReHeeeeeeeeseeeeeeedeeeeeeeeeeeeeeeeaeeeeeereneeeeeeeeereneeees 
10 SERA RAAEAARAAAEEEAAAAERE EERE EEEEAEREREEAAAEAAREAEREAEEAAERERAEREEEEREEEREEEREEE 
11 FERRARA AAAARERRERERERE REE A AEEAEAEEAAAAEEEREEEEAEERERREREEEREREREEEREREEEEEEE 
12 FERRARA AAAREREEEEEEAEEEAEEEEEAEAEARAREAAAAEEEAEEREEEEEEEEEEEEEAAEEAEEEREREEEES 
13 : 
is 
19 000001 SETUP = 1 : SETUP OVERLAY 
29 : SETUP CLEARS ALL ERROR BITS, THE ERROR COUNT, FINDS THE NEXT 
30 ; LBN TO BE READ OR WRITTEN, DESIDES TO READ OR WRITE, CALCULATES 
31 : THE CYLINDER, TRACK AND GROUP THE LBN RESIDES ON; THEN CALLS 
33 ; 
41 .ENABL LSB 
42 004413 114002 CLR R2 : NO ERRORS 
43 004414 104657 000024 MOV U.CSEC(RS).RO : GET TOTAL NUMBER OF SECTORS ALLREADY R/wW 
44 004416 105657 000021 ADD U.NSEC(R5).RO : ADD H HOW MANY R/W THIS PASS 
45 004420 106657 000023 CMP U.TSEC(R5S),RO : SEE IF ALL CONE 
55 22 014442 BEQ 2$ : IF $0, BRANCH (NEW OPERATION) | 
56 23 100657 MOV RO,U.CSEC(RS) : SAVE CURRENT COUNT | 
57 004425 104657 MOV U. CBNCRS) -RO- : GE | 
58 004427 105657 000021 ADD U.NSEC(RS) 3; ADD NUMBER OF SECTORS R/W THIS PASS 
59 004431 100657 MOV RO,U. eT ; 
60 004455 044514 BCC : IF NO CARRY, BRANCH | 
61 004434 104657 000054 MOV U.CBN+1(R5),RO : GET 
62 004436 115407 INC R : PROPOGATE CARRY 
63 004437 100657 000054 MOV RO,U.CBN+1(R5) : SAVE 
004441 004514 BR + BRANCH 
65 004442 104657 000046 2s: MOV U.PARM(RS),.RO  : GET UNIT PARAMETERS 
004444 102207 000010 BIT #WCHECK,RO : SEE IF WRITE CHECK IS TO BE DONE 
67 004446 054475 BNE $ : IF SO, BRAN 
68 004447 104141 MOV (R4),R1 + GET SUBUNIT PARAMETERS 
69 004450 ASSUME S$.PARM,O + ASSUME THAT S.PARM IS ZERO 
70 004450 102201 000100 BIT #SEQSEK,R1 : SEE IF SEQUENTIAL SEEKS 
71 004452 054462 BNE : IF SO CH 
72 004453 102207 040000 BIT #INITW,RO : SEE If INITIAL WRITE IN PROGRESS 
73 004455 054462 BNE Ae : IF SO, BR 
74 004456 101207 004000 BIS #NEWSUB, RO t FLAG AS TO GO ONTO A NEW SUBUNIT 
75 004460 100657 000046 MOV RO,U.PARM(RS) : SAVE 
76 004462 104207 000002 6$: MOV #NEWOP RO : SET UP A NEW OPERATION 
7 004464 114000 002217 CLR SCR1 : CLEAR SCRATCH AREA1 (NO NEW SUBUNIT FLAG) 
78 004466 104651 000023 MOV U.TSEC(RS),.R1 =: GET TOTAL NUMBER OF SECTORS TO BE WRIITEN LAST OP 
79 004470 054577 BNE : IF NOT FIRST TIME, BRANCH 
80 004471 104200 177777 002217 HOV #-1,SCR1 : FLAG AS NEW SUBUNIT (WITHOUT GOING ONTO NEW SUBUNIT) 
82 004475 103207 000110 5$: BIC #WCHECK !REDWRT,RO : CLEAR WRITE CHECK, MAKE OPERATION READ 
$3 b02S01 1oees? bo0084 nov 5 MBN ( ery : cer LO LBN 
85 004503 100657 00005 MOV RO,U.CBN(RS) =: 
86 004505 104657 900052 MOV U. plist (RS) RO : GET HI LBN 
87 004507 100657 000054 MOV RO,U.CBN+1(R5) : SAVE 
88 004511 114008 CLR Re : NO ERRORS 
89 004512 100652 000024 MOV R2,U.CSEC(RS) : SECTORS R/W IS ZERO 
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weeeereete OVERLAY MODULE SETUP = OPERATION TO BE DONE THIS PA 


90 004514 104657 000023 9$: MOV U.TSEC(RS),RO 
91 004516 107657 000024 SUB U.CSEC(R5) RO 

92 004520 104651 000046 MOV U.PARM(R5).R1 

93 004522 102201 000200 BIT #RBNBN,R1 

94 004524 014530 BEQ 1$ 

95 004525 104207 000001 MOV #1,R0 

96 004527 004546 BR 

97 004530 102201 000100 1$: BIT #REDWRT,R1 

98 004532 054541 BNE 7$ 

99 004533 106307 002233 CMP SECMAX,RO 

100 004535 044546 BCC 

101 004536 104307 002233 MOV SECMAX,RO 

102 004540 004546 BR 

103 004541 106307 002234 7$ CMP CHNMAX,RO 

104 004543 044546 BCC 8$ 

105 004544 104307 002234 MOV CHNMAX,RO 

106 004546 100657 000022 8S MOV RO,U.MSEC(RS) 
107 004550 104653 000031 3$ MOV U.MLEV(RS) ,R3 
108 004552 100653 027 MOV R3,U.ELEV(RS) 
109 004554 104203 177777 MOV =1,R3 

110 004556 100653 12 MOV R3,U.RWTO(RS) 

111 3 NOTE: R2 IS ZERO AT THI 
112 004560 100652 000021 MOV R2,U.NSEC(R5) 
113 004562 100652 000010 MOV R2,U.RRTY(R5) 

114 004564 104207 000023 MOV #SEEK,RO 

115 004566 024163 CALL = ENABLE 

116 004567 102203 030000 BIT #LEVUSD ! NXTLEV, ei 
117 004571 014577 BEQ 4$ 

118 004572 024207 CALL  GOSEEK 

119 004573 103203 030000 BIC #LEVUSD ! NXTLEV, ai 
120 004575 100653 000047 MOV R3.U.RCOV(RS) 
121 004577 114001 4$: CLR R1 3 
122 004600 003231 JMPRET 

123 .DSABL LSB 

127 004602 AREAl = +1 


© GereSe Se Se Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Be Se Se Ge Be Se 
wn 


SEQ 0942 


GET TOTAL ong OF SECTORS TO R/W 
SUBTRACT HOW MANY DONE 

GET ee ie PARAMETERS 

SEE IF RBN IS BEING HANDLED 

IF NOT, H 


*ORAN 
; outa READ/WRITE ONE SECTOR 


ANCH 
SEE IF WRITE IS IN PROGRESS 
IF SO, NCH 
SEE IF TRYING TO READ MORE THAN POSSIBLE 
IF NOT, BRANCH 
SET RO TO MAXIMUM POSSIBLE SECTORS TO READ 


BRANCH 
ae IF anne TO WRITE MORE THAN POSSIBLE 


ANCH 

eile ROTO MAXIMUM POSSIBLE SECTORS TO WRITE 

E_IN NUMBER OF SECTORS TO R/W THIS PASS 
eer MAXIMUM ERROR REVCOVERY LEVEL 
STORE IN CURRENT LEVEL 
START RETRIES A 
SAVE IN UNIT PARAMETER AREA 
POINT 


: NO SECTORES es ort meee READ/WRITTEN 
; ZERO READ RETRY VAL 
; POINT TO SEEK AS a OPERATION 
ENABLE ERROR RECOVERY 
3 SEE y ERROR RECOVERY LEVELS USED 


CAUSE A SEEK TO RESET ERROR RECOVERY 
Save 3 NO ERROR RECOVERY IN PROGRESS 


IMMIDIATE CAL 
: RETURN TO SEQUENCER 


ao 





H 
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eweeeenene OVERLAY MODULE NEWOP - SET UP NEW OPERATION (COMMON 


1 -SBTTL ‘*eeeeeeeee OVERLAY MODULE NEWOP = SET UP NEW OPERATION (COMMON CODE TOO) 
5 004601 DMOVLY NO,AREA1 
004601 000105 eWREDC sOUTPUT EDC FOR THIS OVERLAY 
9 FRAAAAAAAAAAEAERAEA EEE AESEEEE SEERA AAEERERAAEAEEEAEEREEEEEEAEEEEEEEEEEEEEEAREREEE 
10 FTAA AARAAAAAAAAAAEAEEEAEEE EEA ERAAAAAAARERAAAAERAEEEEEEEEEEEEEEEEREEERAAEEEEEES 
11 FRERERAEAAAAERAAAAEEEEEAEEAEEEEEERAEEAEEEAAAAEEEEEEEEEAAEEEEEREEEEAEREEEEAAEEEE 
12 eae ha a ta alata 
13 3 
13 
000002 NEWOP = SETUP+1 
34 : SET UP A NEW OPERATION 
31 -ENABL LSB 
32 004602 104147 MOV (R4),RO ; GET SUBUNIT PARAMETERS 
33 004603 ASSUME S.PARM,0 $ ASSUME THAT S.PARM IS ZERO 
34 004603 102207 040100 BIT #SEQSEK! INITW,RO- ; SEE a BN‘S ACCESSED SREQUENTIALLY 
35 004605 054617 BNE : IF SO, BR 
004606 102207 000040 BIT #BEUSED,RO : SEE IF BEGIN/END SETS USED 
37 004610 014614 BEQ ; IF NOT, BRANCH 
38 004611 104207 000003 MOV #RNDBE ,RO : AY A RANDOM BLOCK NUMBER (BEGIN/END SETS) 
39 004613 004627 BR 4$ 3: EXIT 
40 004614 104207 000005 1$: ane #RNDTG,RO 3 aE RANDOM BLOCK NUMBER (TRACKS/GROUPS) 
BIT #BEUSED,RO 3; SEE IF BEGIN/END SETS USED 
BEQ : IF NOT, BRANCH 
MOV #SEQBE ,RO : GET A SEQUENTIAL BLOCK NUMBER (BEGIN/END SETS) 
BR 3 EXIT (SHOULD BRANCH TO 7$) see 
MOV #SEQTG,RO 3 GET A SEQUENTIAL BLOCK NUMBER (TRACKS/GROUPS) 
CLR R1 3 io ceaok A aes TO NEXT MODULE 
CLR R2 ; NO ERR 
R JMPRET 


8 
-DSABL LSB 





ec 





seemrenenpsenesmnsanstsinemneensrnansasmncinestinsittit a ere nace 
| UDATS DISK EXERCISER DMACR X04.01 23=AUG-82 12:02:53 PAGE 65 SEQ 0944 
AFTOP = AFTER THE SECTOR HAS BEEN DETERMINED, FIND OUT WHAT T 


1 .SBTTL AFTOP = AFTER THE SECTOR HAS BEEN DETERMINED, FIND OUT WHAT TO DO WITH IT 
: 004632 AF TOP: 

rs : AFTER THE SECTORS TO BE READ/WRITTEN HAVE BEEN DETERMINED, SET UP THE 
2 3 REST OF THE OPERATION 

7 *SBTTL CLRUP = CLEAR ALL PARAMETER BITS 

: ;CLRUP 

10 : CLRUP CLEARS ALL NECESSARY FLAG BITS 

12 004632 104657 000046 ‘ MOV U.PARM(RS) RO MOVE UNIT PARAMETERS TO RO 

13 : CLEAR ALL FLAGS BEFORE THE NEXT OPERATION 

14 004634 103207 004712 BIC #RBNBN! REVEC !WCHECK !DAT CMP REDWRT !NEWSUB, RO 

15 004636 100657 000046 MOV RO,U.PARM(RS) SAVE UNIT PARAMETERS 


ee 


PEE 


NOUSWN =O OONOUE Wr 
w 
= 


sesseeesesss 
ASM -ONOS 


104142 
102202 


042000 
004000 


000100 
000046 


1$: 
2$: 
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RO = DETERMINE IF A READ OR A WRITE IS TO BE DONE 


3 dle RORW = DETERMINE IF A READ OR A WRITE IS TO BE DONE 


RORW DETERMINES IF THE BLOCK SELECTED WILL BE READ OR WRITTEN 


MOV (R4) ,R2 ; GET SUBUNIT PARAMETERS 
ASSUME S.PARM,O ; ASSUME THAT S.PARM IS ZERO 
BIT MINITWEWONLY R2 ; SEE IF INITIAL WRITE OR WRITE ONLY 
BNE 1$ : IF $0, BRANCH 

BIT #RONLY,R2 : SEE et READ ONLY 

BNE 2$ ; IF SO, BRANCH 

CALL RANDOM : GET RANDOM NUMBER 

ROR R1 ; ROTATE LOW BIT INTO, CARRY 
BCC 2$ : IF LOW BIT ZERO, BRANCH 

BIS #REDWRT,RO + SET READ OR OR TE™ oy (WRITE) 
MOV RO,U.PARM(RS) : SAVE UNIT PARAMETERS 


| k 9 
UDATG DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 67 


eden IF WRITE, DETERMINE WHAT PATTERN IS TO BE WRITTEN 
parti PATTRN = IF WRITE, DETERMINE WHAT PATTERN IS TO BE WRITTEN 


004663 
004 


OUNEWN $0 CVONOUFE wr 


ee ee 


014 
100651 


000100 
000004 
177760 


177760 
000014 


RNDO: 


FIXPAT: 
PATEXT: 


FIND PATTERN TO USE (ONLY 
BIT #REDWRT,RO ; 

PATEXT ; 
MOV S.PAT(RG),RI 

RNDO : 
BIC #LBLONB,R1 
BR FIXPAT 
CALL RANDOM 
BIC #LBLONB,R1 


BEQ RND 
MOV R1,U.PAT(RS) 


SEQ 0946 


IF WRITE TO BE DONE) 
SEE IF WRITE TO BE DONE 
IF NOT, CH 


GET PATTERN NUMBER 

IF PATTERN NOT SELECTED, BRANCH 

SPECIAL PATTERN vero. CLEAR HI BITS (MAP 16 TO 0) 
IF PATTERN SELECTED, USE IT 

GET RANDOM PATTERN NUMBER 

CLEAR UNUSED BITS 

NO SUCH T THING AS PATTERN 0, TRY AGAIN 


; SAVE THE PATTERN NUMBER 


zc 


$SSSssNe 
VIWNONVU 
09-000" 0-"0— 
SRoNAOROLOLO 
we 

NMNANNRNN NN 
yvisyesssyrevers 
NNO f fSNOWMONON 


WONAUSWN—OVDONOUE wr 


RESEREEESESESE 


RS at ot ot ot 
OO fWN-o 
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wC ~ IF WRITE, SEE IF A WRITE CHECK IS TO BE D 


000100 
000010 
040000 
000004 


000010 
000046 


- IF WRITE, SEE IF A WRITE CHECK IS TO BE DONE 


WCHK SETS THE WRITE CHECK BIT IF A WRITE CHECK IS TO BE DONE 
; oe i. WRITE Le TO BE DONE 
: See IF WRITE CHECK IS TO BE DONE 
; IF NOT, BRANCH 
; ; IF INITIAL WRITE IS iy PROGRESS 
F SO, NO WRITE C O BRANCH 
; ; SEE IF WRITE CHECK IS ALWAYS TO BE DONE 
. BRANCH 
DOM NUMBER 
F THE TIME WRITE CHECK 
AP et a IF LOWEST BIT CLEAR 


RO,U.PARM(RS) : SAVE UNIT PARAMETERS 





UDAT4 
DCOMP 


M 
DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 69 SEQ 0948 | 


= IF READ OR WRITE W/WRITE CHECK, SEE IF DATA COMPARE I 
} ty gL} DCOMP = IF READ OR WRITE W/WRITE CHECK, SEE IF DATA COMPARE IS TO BE DONE 
3 : 
¢ $ DCOMP SETS THE DATCMP BIT IF A DATA COMPARE IS TO BE DONE 
6 004720 10e 608 000002 BIT #DATCMP,R2 ; SEE IF gow a REQUESTED 
7 004722 01474 BEQ DCEXT 3; IF NOT, 
8 004723 102207 000100 BIT #REDWRT, RO : SEE IF “READY 1s TO BE DONE 
9 004725 014731 BEQ A 3; IF SO, BRANCH 
10 004726 102207 000010 BIT #MWCHECK,RO 3 ns IF WRITE CHECK IS TO BE DONE 
11 004730 014743 BEQ DCEXT : IF AN 
12 004731 102202 000001 DCREAD: BIT #DCMPAL,R2 5 SEE IF "DATA COMPARE ALWAYS DONE 
13 004733 054737 BNE DCMPYS s IF Re BRANCH 
14 0047 024764 CALL RANDOM 3; GET DOM NUMBER 
15 004735 110601 ROR R1 3 it iF DATA COMPARE SHOULD BE DONE 
16 0047 044743 BCC DCEXT 3; IF N BRANCH 
17 004737 101207 000002 DCMPYS: BIS #DATCMP,RO 3; SET Ohta COMPARE BIT 
13 oko} 100657 000046 OCEKT MOV RO,U.PARM(RS) ; SAVE UNIT PARAMETERS 








UDAT4 DISK EXERCISER DMACR X04.01 
DCOM 


000054 


000024 
000021 


000001 


3-AUG=82 12:02:53 PAGE 70 
~ IF READ OR WRITE W/WRITE CHECK, SEE IF DATA COMPARE I 


000051 


; te LO LBN 
; GET HI LBN 
AVE 


NOE 


RRORS 
; SECTORS R/W IS ZERO 


SECTORS R/W THIS PASS IS ZERO 


U 
RETURN TO SEQUENCER 


zc | 





See 
PERE 


Soooooooco 
ooo 
MuVMIMviws 
Ssss 
esc 
UF 


AGUS WN—O OONOULSWN OOM 
sssssssese 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 


ou—Oo——o 
oO 
= 


ee ee eee 


wi 
3S 
&S 


002224 
002225 
000007 


000001 
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RANDOM = RANDOM NUMBER ROUTINE 








~SBTTL RANDOM = RANDOM NUMBER ROUTINE 
RANDOM: 


1$: 


2$: 


3$: 


Saer Oo eed A RANDOM NUMBER AND RETURNS IT IN R1 


RANGE 
PUSH 


RETURN 


<RO,R2> 


LOSEED,RO 
ys eal 


° 


#1,R0 

R 

1$ 
LOSEED,RO 
2$ 


R1 
HISEED,R1 
#1057,R0 
3$ 


R1 
547401, R1 
RO,LOSEED 
R1 -HISEED 
<R2,RO> 


SAVE RO AND R2 
MOV RO,=(SP) 
MOV R2,=(SP) 
MOVE LO ORDER SEED TO RO 
MOVE HI SEED TO R1 
MOVE LOOP COUNT TO R2 
ROTATE LO ORDER NUMBER BY 1 
ROTATE HI OREDR NUMBER BY 1 (PROPOGATE CARRY) 
CLEAR R BIT 


OUNT 
I NCOMPLETE, BRANCH 
rig ORIGINAL SEED (Xk X129) 


HI_ CONSTANT 
SAVE LO ORDER SEED 
SAVE HI ORDER SEED 
RESTORE R2 AND RO 
MOV (SP)+,R2 
MOV (SP)>+,R0 


¢ 10 
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SEQ 0951 
MASK = FIND MASK FOR RANDOM NUMB 


- FIND MASK FOR RANDOM NUMBER 


005025 


NOOO NOuelwn— 
So 
So 
w 
Oo 
~ 
w 


-SBTTL MASK 
MASK: 


MASK MASKS OUT HIGHER BITS OF A RANDOM NUMBER, SO THE PROB. OF THE 
RANDOM NUMBER EXCEEDING THE MAXIMUM DESIRED 1S LESSENED 


PUSH RI 3; SAVE R1 
5625 100461 MOV R1,=(SP) 
005026 114001 CLR R1 ; ZERO R1 
005027 105011 1$: ADD R1,R1 3; ROTATE R1 ONE BIT LEFT 
10 005030 101201 000001 BIS #1,R1 3; TURN 
11 005032 106017 CMP R1,R0 ; SEE IF R1 IS GREATER THAN RO 
12 005033 BCS $ ; IF NOT, BRANCH 
005033 045035 BCC -+2 
005034 005027 BR 1$ 
13 005035 104207 177777 MOV #-1,R0 3; SET UP ho COMPLEMENT 
14 005037 103017 BIC R1,R0 3; COMPLEMENT R1 
15 005040 POP ; RESTORE R1 
005040 104261 MOV (SP)+,R1 
16 005041 000000 RETURN 3; RETURN TO RNDLBN 
20 005043 AREA2 = +1 
21 IF LE ,MAXADR-. 
22 MAXADR = +1 
23 ~ENDC 






D 10 
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eeeeeeeeee OVERLAY MODULE RNDBE - GET NEXT RANDOM BEGIN/END SE 


SEQ 0952 


1 .SBTTL ‘e#eeneeeee OVERLAY MODULE RNDBE = GET NEXT RANDOM BEGIN/END SET SECTOR 
5 005042 DMOVLY RB,AREA2 
005042 000105 WREDC sOUTPUT EDC FOR THIS OVERLAY 
9 fF RAAAAAAAEAAAEAAARAEERAEEAEEEEEEAAEREAAERERRERAEAEEARAEEEEAEEEAEREREEEAREEREREREREEE 
10 FERRARA AAAEREEEEEEEEEEEEAAERAEAREAREARERRERAARAAEEEREEEEEEEREREREREEEEE EEE 
11 FRRRAAAAAHEAAEAAAAEAEEEE REAR EEEAREREAAAAEREREREAAREEEREEEEEEAEEREEEEEREEEEEE 
12 FERRARA EAAAEAEAEREEEAA EEE REEAEEREAAEREEAEAEREREREEEEREEEEEEEEEREREEEEREEEEEE 
13 : 
is 
9 000003 RNDBE = NEWOP+1 
29 : RNDBE GETS A RANDOM LBN NUMBER 
31 ; GET A RANDOM BEGIN/END SET FROM THE SUBUNIT’S B/E SETS 
33 .ENABL LSB 
34 005043 114007 CLR R : INITILIZE COUNTER 
35 005044 104203 000016 MOV #S.BESS+3,R3 : R3 POINTS TO FIRST B/E SET 
36 005046 105043 ADD + R3 POINTS TO FIRST B/E SET 
37 005047 104132 CNTLOP: MOV (R3) ,R2 : MOVE EOL FLAG WORD TO R2 
38 005050 075055 BMI COUNTD : IF END-OF=L:ST, BRANCH 
39 005051 105203 000004 ADD #4,R3 : POINT TO NEXT EOL WORD 
40 005053 115407 INC RO + INCREMENT COUNT 
41 005054 005047 BR CNTLOP : IF NOT, TRY AGAIN 
42 005055 115007 COUNTD: TST RO : SEE IF COUNT = 
43 005056 015077 BEQ GOTOFS : IF $0, BRANCH 
44 005057 024764 TRYAGN: CALL RANDOM : GET A RANDOM NUMBER 
005060 103201 177774 BIC #177774,R1 : MASK OUT ALL BUT 2 LOWEST BITS 
46 005062 106207 000002 CMP #2,R0 : TEST HOW COUNT RELATES TO 2 
7 005064 075074 BMI GOTOBE : IF COUNT IS 3, BRANC 
48 005065 015071 BEQ THREBE : IF COUNT IS 2. BRANCH 
005066 103201 177776 BIC #177776,R1 : MASK OUT ALL BUT LOWEST BIT 
50 005070 005074 BR GOTOBE + BRANCH 
51 005071 106201 000002 THREBE: CMP #2,K1 + SEE IF RANDOM NUMBER OVER 2 
52 005073 075057 BMI TRYAGN : IF SO, GET ANOTHER NUMBER 
53 005074 104017 GOTOBE: MOV R1,RO + MOVE RANDOM NUMBER TO RO 
54 005075 105077 ADD RO.RO ; 2 
55 005076 105077 ADD RO.RO : ROX 2 
56 005077 105207 000013 GOTOFS: ADD #S.BESS,RO t POINT TO RANDOM BEGIN/END SET 
57 005101 105047 R4,RO t POINT TO RANDOM BEGIN/END SET 








1 


2 
3 
4 
5 005102 
603106 
00510 
6 005104 
7 005105 
8 005106 
9 005107 
10 005110 
11 005111 
12 005112 
13 005314 
14 005115 
15 005116 
005116 
16 005117 
17 005120 
18 005121 
19 005123 
20 005124 
21 005125 
22 005126 
235 005127 
24 005131 
$2 003136 
6 0051 
005133 
005134 
27 005135 
28 005136 
29 005137 
30 005140 
31 005141 
32 005142 
005142 
005143 
33 005144 
34 005145 
005145 
35 005146 
36 005147 
HH 005150 
8 005151 
39 005152 
40 005154 
41 005155 
005155 
Oat 28 
42 00515 
43 005161 
4h OO 166 
45 00516 
46 005164 
47 005165 


a o-oNoO-N~v 


2 IOI a es 
aesse 
Mw 


See 

Wweu 
——— = OOWO 
Sw YUnonuw 

“VIN ENU WWW 


——90=06 
at 4 4 
wu 


uM 
~~ 


=-—ONOVYVNGO 


o 
VM WW PN PONS = 


VIWEMIM 
SO=—MNMWN OMeL—for 


RRSER 
ANVNVNNO 


Ce 
No 

wuss 

NN 


R 


170000 


002224 


002225 


170000 


000003 


NOBORO: 


10$: 


11$: 


CLCLBN: 


3$: 
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eeeeeeeees OVERLAY MODULE RNDBE - GET NEXT RANDOM BEGIN/END SE 


ONCE A RANDOM B/E SET HAS BEEN FOUND, FIND A RANDOM LBN 


WITHIN THAT B/E SET 


PUSH 


<R4,R5> 


(RO) +,R4 
(RO)+,R5 
(RO) +,R4 


(RO) ,R1 
#170000,R1 
R1,R5 

RO 

RANDOM 


R 
LOSEED,R1 
R5 


11$ 
R5,RO 


MASK 
HISEED,R3 
R5.R3 

108 


CLCLBN 
R4,RO 
MASK 
RO,R1 
R4,R1 


10$ 
R1,R2 

RO 
(RO)+,R2 
3$ 

R3 

(RO) ,R1 


#170000,R1 
R1,R3 
<R5,R4> 


SAVE R4 AND RS 
MOV R4,-(SP) 
MOV R5,-(SP) 

R4 GETS LO ORDER ENDING LBN 

RS _GETS HI ORDER ENDING LBN 

SUBTRACT LO ORDER STARTING LBN 

IF NO BORROW, BRANCH 

Po ah FOR BORROW 


GET WORD 

STRIP OFF EOL FLAG (IF ANY) 
SUBTRACT HI ORDER STARTING LBN 
at LO ORDER STARTING LBN 


MOV RO,=(SP) 
GET A RANDOM NUMBEP 


; ORIGINAL SEED _IN R1 


SEE IF RS IS ZERO 
F C 


IF SO, BRANCH 
; ELSE, STORE IN RO 
COMPUTE R 


ANDOM NUMBER MASK 
MOVE RANDOM NUMBER INTO R3 
CLEAR WITH MASK 
CMP_MAXIMUM RANDOM NUM TO RANDOM NUM 
IF TOO LARGE, DO AGAIN 


BCC -+2 
BR 10$ 

IF NOT THE SAME, BRANCH 

MOVE R4 TO RO TO COMPUTE MASK 

COMPUTE MASK 

MASK OUT HIGH BITS 

SEE IF MAX RND NUM < RANDOM NUMBER 

IF SO, DO AGAIN 
BCC -*2 
B 10$ 


3 MOVE RANDOM NUMBER TO R2 
: RESTORE RO 


MOV (SP)+,RO 
ADD LO ORDER STARTING BLOCK TO RANDOM NUM 
IF NO CARRY, CH 
ADJUST HIGH ORDER FOR CARRY 
MOVE HI ORDER LBN TO R1 


0 
STRIP OFF EOL FLAG IF ANY 
ADD _HI ORDER LBN 


; RESTORE R5, R4 


MOV (SP)+,R5 
MOV (SP)+,R4 


E LBN 

LEN FROM LO ENDING LBN 
NEGATIVE, B°ANCH 
BRANCH 


SEQ 0953 
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weeeeeeees OVERLAY MODULE RNDBE - GET NEXT RANDOM BEGIN/END SE 


48 0051 


005 
53 005174 


117407 
7037 


meu 
~ 
oO 
= 


~~ BO— 
ofnN— 
oon 
Naw 


3 


ow w= Oo 
ono-on 
SMNOVWS 


OoNuo fun 
em ay 


bh 
SeaRsseee 8 
SSsssNese 
NNW ONIN 


177774 


000023 


000051 


004632 


1$: 


4$: 
2s: 


6$: 


MAXADR 


RO 

R3,RO 
#77776,R1 
R1 

R1,RO 

R3 

RANDOM 
#MAXMSK,R1 
R1 

RO,R1 

6$ 

R7,RO 
RO.U.TSEC(RS) 
R3 
#U.MBN,RO 
R2.(RO)+ 
R3, (RO) 
#AFTOP,RO 
R1 

R2 

JMPRET 


LSB 
LE ,MAXADR-. 
+4 


DECREMENT HI ENDING LBN 
SUBTRACT HI LBN FROM HI — LBN 


; IF HI WORD IS cen. BRA 
MOVE MAX COUNT TO 


X IMUM 
; INCREMENT MAXIMUM SECTOR COUNT 
; COPY TO RO FOR MAXMUM 


SAVE R3 
(SP) 


MOV R3,- 
GET A RANDOM NUMBER OF SECTORS TO READ/WRITE 
SET READ/WRITE LIMIT 
MAKE MAXIMUM OF LIMIT+ 
5° ff prt NUMBER EXCEEDS POSSIBLE 
ONLY a ral THE RANDOM NUMBER OF SECTORS 
SAVE IN TSEC 
RESTORE R3 


RO POINTS TO LBN APEA 
RO POINTS TO LBN AREA 


MOV (SP)+,R3 


NO ERRORS 
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000046 
010000 
002217 
000013 
000003 
000004 
000051 


000001 


000002 


000001 


000001 
000001 


170000 


077776 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 75 
weeeeeeeee OVERLAY MODULE SEQBE - GET NEXT SEQUENTIAL BEGIN/EN 


-SBTTL *eetaeeene ++ MODULE SEQBE - GET NEXT SEQUENTIAL BEGIN/END SET SECTOR 


DMOVLY SB,AREA2 

-WREDC OUTPUT EDC FOR THIS OVERLAY 
SERRE EAAEEAEAEAEEAAAEEAEEAEEEEEEEERAAAAAAAAAEAAEAAEAEEEEAEEREEEEEEEEEEEEEEEEEEEEE 
SRA EEAARAAEEAAAEAEEREEAEERAEEEAAAEAERAEREREREREERAEEAEEEEAEEEEEEEREEEEEEEEEEE 
SRAAAAEEAEAAERAEEEEEEEETEREEEAEREAAERAAAAAEEREREREREEEEEEEEEEEEEEEEEKERAEEEEEE 
SRR AAAAAEAAAEAEEEE EEE AEEEAAEAEAEEAAAEREREEEAAEEEEEEEEEEEEEEEEEEEEREEEEE 


SEQBE = RNDBE +1 

; SEQBE FINDS THE NEXT SEQUENTIAL LBN 
.ENABL LSB 
MOV U.PARM(RS),RO =; MOVE UNIT PARAMETERS TO RO 
BIT #DIREC,RO : TEST DIRECTION 
BEQ uP : IF SEQUENTIAL UP, BRANCH 
TST SCRI : SEE IF NEW SUBUNIT 
BEQ 5% : IF NOT, BRANCH 
MOV #S.BESS,R1 + RO WILL POINT TO BEGIN/END SETS 
ADD R4,R1 : RO POINTS TG BEGIN/END SETS 

6$: MOV 3(R1),RO : SEE IF END-OF-LIST 
BMI RS : IF SO, BRANCH 
ADD #4,R1 : POINT TO NEXT BEGIN/END SET 
BR 6$ : LOOP 

8$: MOV #U.MBN,R2 : R2 WILL POINT TO MASTER BN 
ADD RS.R2 : R2 POINTS TO MASTER 
MOV (R1)+,RO : GET LO ORDER ENDING SET 
MOV RO, (R2) : SAVE 
MOV (R1)+,RO : GET HI ORDER ENDING SET 
MOV RO, 1(R2) + SAVE 
BR 7$ > BRANCH 

5$: CALL = FNDBES : FIND BEGIN/END SET THAT LON IS IN 
ADD #2,R1 : POINT TO BEGIN 
CALL CMP2 : SEE IF LBN = BEGINNING LBN 
BEG BE SDWN ; IF $0, BRANCH 
MOV (R2),RO t MOVE LOW ORDER WORD TO RO 
SUB #1,R0 : DECREMENT RO 
MOV RO, (R2) + SAVE 
BCC 7 : IF NO BORROW, BRANCH 
MOV 7(R2),RO + MOVE HIGH ORDER WORD TO RO 
DEC : DECREMENT RO 
MOV RO,1(R2) : SAVE RO 

7$: MOV (R2)+,RO : MOVE LO ORDER BN TO RO 
MOV (R2)+.R3 : MOVE HI ORDER BN TO R3 
SUB (R1)+.RO > SUBTRACT BEGIN BN FROM BN 
BMI 4$ : IF RESULT IS NEGATIVE, BRANCH 
BCC 1$ : IF NO BORROW, BRANCH 
DEC R3 + PROPOGATE BORROW 

1$: MOV (R1),R1 : GET BEGINNING BN 
BIC #*CHBMINB RI : CLEAR EOL FLAG, IF ANY 
SUB R1,R : SUBTRACT HI ORDER BN FROM HI BN 
BEQ 2$ : IF EQUAL, BRANCH 

4$: MOV #77776,R0 : MOVE MAXIMUM COUNT TO RO 

: RO : MAKE SUBTRACTION INCLUSIVE 


$: INC 
$$: CALL MAXMUM SET MAXIMUM COUNT (U.TSEC AND U.MSEC) 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 75-1 SEQ 0956 
eteeeeeeee OVERLAY MODULE SEQBE - GET NEXT SEQUENTIAL BEGIN/EN 
74 005133 005135 BR NLBEXT : BRANCH 
75 .DSABL LSB 
6 005134 025325 BESDWN: CALL  PREVBE ; FIND PREVIOUS B/E SET OR UNIT 
77 005135 104651 000023 NLBEXT: MOV U.TSEC(RS),R1 ©; GET TOT L NUMBER OF SECTORES TO READ/WRITE 
78 005137 117401 DEC Ri : SECREMENT SECTOR COUNT 
79 005140 104653 000051 MOV U.MBNCRS),R3 — ; GET LO ORDER MASTER BN 
80 005142 107015 SUB R1,R + SUBTRACT SECTORS TO READ/WRITE 
81 005143 100653 000051 MOV R3,U.MBN(RS) =; SAVE 
82 005145 045153 BCC 1$ : IF NO CARRY, BRANCH 
83 005146 104653 000052 MOV U.MBNCT(RS),R3 3 GET HI ORDER MASTER BN 
84 005150 117403 DEC R3 : PROPOGATE C 
85 005151 100653 000052 MOV R3,U.MBN+1(R5) : SAVE 
86 005153 005251 1$: BR BEEXT : BRANCH 
87 005154 115000 002217 UP: TST SCRI : SEE IF FIRST TIME ON THIS SUBUNIT 
88 005356 015177 BEQ 5$ : IF NOT, CH 
89 005157 104201 000013 MOV #S.BESS,R1 ; RO WILL POINT TO BEGIN/END SETS 
90 005161 105041 ADD R4,R1 + RO POINTS TO BEGIN/END SETS 
91 005162 104202 000051 MOV #U.MBN,R2 ; Re WILL POINT TO MASTER BN 
92 005164 105052 ADD R5,R ; R2 POINTS TO MASTER BN 
93 005165 104617 000002 MOV 2(R1),RO ; GET LO ORDER STARTING SET 
94 005167 100127 MOV RO, (R2) : SAVE 
95 005170 104617 0000 V 3(R1), + GET HI ORDER STARTING SET 
96 005172 103207 170000 BIC #*CHBHINB,RO =; CLEAR EOL FLAG I 
97 005174 100627 0000 RO, : SAVE 
98 005176 005233 BR 7$ + BRANCH 
99 005177 5$: 
100 -SBTTL UPLBN = IF GOING UP, UPDATE CURRENT BN TO LAST BN READ/WRITTEN 
133 ;UPLBN 
103 : UPLBN UPDATES U.MBN TO POINT TO THE LAST LBN READ/WRITTEN 
106 : (INCREASING LBN) 
106 005177 PUSH  <RO, R2> : SAVE RO,R2 
005177 100467 MOV RO,-(SP) 
005200 100462 MOV R2,=(SP) 
107 005201 104202 000051 MOV #U.MBN,R2 : RZ POINTS TO LAST LBN 
108 005203 105052 ADD 5, + R2 POINTS TO LAST LBN 
109 005204 104657 000023 MOV U.TSEC(RS),RO : GET NUMBER OF SECTORS WRITTEN 
110 005206 117407 DEC R > SUBTRACT ONE 
111 005207 105127 ADD (R2),RO : ADD LOW ORDER LBN TO RO 
112 005210 100227 MOV RO, (R2)+ : SAVE LOW ORDER WORD, POINT TO HIGH ORDER 
113 005211 045215 BCC : IF NO CARRY, BRANCH 
114 005212 104127 MOV (R2), RO + GET HIGH ORDER WORD 
115 005213 115407 INC : INCRE 
116 005214 100127 MOV RO (R2) : SAVE HIGH ORDER WORD 
117 005215 8$: POP <R2,R0> : RESTORE RO,R2 
005215 104262 MOV (SP)+,R2 
009216 10426 MOV (SP)+-RO 
118 005217 025266 CALL = FNDBES : FIND BEGIN/END SET THAT LBN IS IN 
119 005220 015250 BEG E SUP : IF LBN = ENDING LBN, BRANCH 
120 005221 104127 MOV (R2) RO : MOVE LOW ORDER WORD TO RO 
121 005222 105207 000001 ADD #7,R0 : INCREMENT RO 
122 005224 lore? MOV RO. (R2) : SAVE R 
123 005225 045233 BCC 7$ : IF NO CARRY, BRANCH 
124 005226 104627 000001 MOV 1(R2),RO + MOVE HIGH ORDER WORD TO RO 
125 0052 115407 INC R : INCREMENT RO 
126 005231 100627 000001 MOV RO, 1(R2) : SAV 





UDAT4 DISK EXER 

UPLBN = IF GOI 
127 005233 
128 005234 
19 005235 
130 005 $ 
131 0052 
13 005240 
133 005241 
134 Boas 6 
135 00524 
136 005245 
137 005246 
138 005247 
139 005250 
140 005251 
141 005253 
142 005255 
143 005256 
144 005260 
145 005261 
146 005263 
147 005264 
148 005265 


FF 


ss-=sesi=e2sess 
Seaton VO 
YINNVVIN 
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7 
1 
7 


077776 


000046 
004000 


000002 
004632 


7$: MOV 
MOV 
SUB 
BMI 
BCC 
DEC 
1$: SUB 
BEQ 
4$: MOV 
2$: INC 
3$: CALL 
BR 
BESUP: CALL 
BEEXT: MOV 
BIT 
BEQ 
MOV 
BR 
1$: MOV 
2$: CLR 
CLR 
BR 


: DMACR X04.01 23-AUG=82 12:02:53 PAGE 75-2 
UPDATE CURRENT BN TO LAST BN READ/WRITTE 





NE 
U.PARM(RS) ,RO 
aN 


EWSUB,RO 


1$ 
#NEWOP ,RO 
#AF TOP ,RO 
R1 


R2 
JMPRET 


RO HAS LO Bint LEN 

RS ons HI EN tie LBN 

SUBTRACT LO LBN FROM LO ENDING LBN 

ic RESULT IS NEGATIVE, BRANCH 

IF NO CARRY, ant - gs 

PROPOGATE CAR 

SUBTRACT HI tN FROM ENDING LBN 

IF ZERO, BRANCH 

MOVE MAXIMUM COUNT TO RO 

MAKE aietnon chan INCLUSIVE 

SET MAXIMUM COUNT (U.TSEC AND U.MSEC) 
FIND NEXT B/E SET OR UNIT 

GET UNIT PARAMETERS 

SEE IF NEW SUBUNIT 

IF NOT, BRANCH 

ahane NEXT MODULE 
BRANCH 


; NEXT MODULE i AF TOP 
; ay fo TE CAL 


NO_ ERRORS 
; RETURN TO SCQUENCER 


SEQ 0957 


FNDBES = FIND THE BEGIN/END SET CURRENT BN RESIDES IN 
sort FNDBES = FIND THE BEGIN/END SET CURRENT BN RESIDES IN 


S 
ES 


; FNDBES FINDS THE BEGIN/END SET THAT THE CURRENT LBN RESIDES IN 
3 177777 : MOV #=1,R3 ; START COUNTER (ADJUSTED) 
: 000007 MOV #S.BESS=-4,R1 POINT TO B/E SETS 
2 000051 MOV #U.MBN,R2 POINT TOL 
¢ R5,R2 POINT TO 
3 


POINT TO B/E SETS 
A ; tN 
000004 FNDLOP: ADD #4, “RI : INCREMENT T B/E SET POINTER 


; INCREMENT 
; ; COMPARE LBN nh ENDING LBN 


° one 
IF LON > ENDING LBN, BRANCH 
; : RETURN TO CALLING PROGRAM 


1765 CALL CMP2 

015304 Q ouTO 
303 045276 cc FNDLOP 
304 000000 OUTO: RETURN 


BARU =OCMNOUs WR 
Sssssssseos 


SECT t Wai serene aicesitadenipchionti 
years DISK EXERCISER DMACR X04.01 23-AUG=-82 12:02:53 PAGE 76 SEQ 0958 
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UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 77 
MAXMUM = FIND HOW MANY SECTORS TO READ/WRITE 


.SBTTL 
MAXMUM: 


MAXMUM = FIND HOW MANY SECTORS TO READ/WRITE 


MAXMUM WILL WRITE THE ig A OF SECTORS IF IN INITIAL WRITE, 


OTHERWISE IT WILL R/W ONE T 


TST M.PARM 

BMI 1$ 

ASSUME IWIPRG,100000 
TST SCR1 

BEQ 2$ 

— NXTTRK 


B 

CMP S.TRKL(R4) ,RO 
BPL 1$ 

MOV S.TRKL(R4) ,RO 
MOV RO,U.TSEC(RS) 
RETURN 


3$ ; 


; SEE IF INITIAL WRITE IS IN PROGRESS 
; IF SO, BRANCH 
i ASSUME were IS SIGN BIT 

F wah TIME ON THIS UNIT 
; | FORANCH 
; ALIGN WITH NEXT TRACK 

i IF TRACK GREATER THAN MAX 

; LESS —— LENGTH, BRANCH 


: SA VE NUMBER OF SECTORS TO R/W 
; RETURN TO CALLING PROGRAM 








oh DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 78 


PREVBE = MOVE TO PREVIOUS BEGIN/END SET 


b 005325 
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WWWNWWWWWW 
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Sete Se Sete Se Sets TY 


5$: 


peeves PREVBE = MOVE TO PREVIOUS BEGIN/END SET 


PREVBE IS CALLED IF THE LBN'S ARE DECREASING, AND THE LAST LBN 
WAS THE FIRST LBN WITHIN A B/ E SET. PREVBE FIN 
B T ON THE UB I 
VIOU T. IF IT IS & SET OF THE FIRST 
UNIT. THE DIRECTION OF THE LBN'S ARE REVERSED (THEY BEGIN GOING UP 


TST 83 
MOV U.PARM(RS) ,RO 


BIS #NEWSUB,RO 
MOV RO,U.PARM(RS) 


i IF ALLREADY ON 1ST B/E SET 
F NOT, BRANCH 
GET UNIT PARAMETERS 
AS GOING ON TO THE NEXT UNIT 


XIT 
POINT TO ne cer to ENDING SET 
MOV, NG SET LBN 


G LBN 
; SUBTRACT LO BEGINNING LBN FROM LO ENDING 


bs 
Bete Se Ge Se Ge Ge Ge Ge Se Fe Be Ge Se Se Be Se Se Se Be Se Ge 


SUB (R1)+,R0 

BM 4$ ; IF RESULT IS NEGATIVE, BRANCH 

BCC 1$ F NO CARRY, CH 

DEC 2 PROPOGATE 

MOV (R1),R1 GET BEGINNING 

BIC #*CHBHINB,R1 CLEAR EOL FLAG, IF 

SUB R1,R2 reas. HI ORDER BN FROM HI BN 
BEQ $ IF gene - BRANCH 

MOV #77776,R0 MOVE MAXIMUM COUNT TO RO 

INC TO MAKE IT AN eae SUBTRACT 
CALL NXTTRK SET MAXIMUM COUNT TSEC AND U.MSEC) 
RETURN RETURN TO CALLING PROGRAM 









nm 
S 
uw 
Ww 
Oo 
pa 


003361 104617 000003 
005364 104657 000046 
005366 101207 004000 
005370 100657 000046 

5373 105201 000006 


0053 
005376 107201 000002 


EWN $9 OONOUEWN OO OONOUE wr 


RIPPIN a8 ad et ot ot ot ot 2 


6 1 
sf 005407 103201 170000 


077776 


32 005416 
33 005417 


1$: 





Mm 10 


UDATS DISK EXERCISER DMACR X04.01 23=AUG-82 12:02:53 PAGE 79 SEQ 0961 
NEXTBE = MOVE TO NEXT BEGIN/END SET 


sete NEXTBE = MOVE TO NEXT BEGIN/END SET 


NEXTBE IS CALLED WHEN . CURRENT LBN IS THE LAST OF ITS B/E SET. 
NEXTBE GOES TO THE NEXT B/E SET FOR THE NEXT LON. IF THE LBN IS 
ce oe HE re rast IT GOES TO LL. 4 rid B/E SET OF THE NE 


U F N_THE L 
CHANGED (DOWN), AND THE INITIAL WRITE BIT is CLEARED IN CASE AN 
INITIAL WRITE [S IN PROGRESS 


MOV + alae ; SEE IF ay LS LAST B/E SET ON THIS UNIT 


; If SO, NCH 
MOV U.PARM(RS),RO ; GET SUBUNIT PARAMETERS 
BIS #NEWSUB,RO- 


R 
; MARK AS GOING ON TO A NEW SUBUNIT 
on RO,U.PARM(RS) SAV 


7s" ; EX! 
AD #6,R1 ; POINT TO NEXT BEGINNING LBN 
+ move ; MOVE BEGINNING LBN TO LBN 


SUB (R1)+,RO 
BM 


Be Ge Se Ge Se Se Ge Ge Ge Se Ge Ge Ge Ge Be Se Be Be Ge Se Be Se & 
S 
ma “4 =m 
Sax >] o 
> 
o 
— 
@ 
m 
i=) 
Z 


BCC 2$ F NO CARRY, 

DEC R3 PROPOGATE 

MOV (R1),R1 GET BEGI 

BIC #*CHBHINB,R1 CLEAR EOL FLAG, IF 

38 R1,R5 ; Pere aS” Ba HI ORDER aN. FROM HI BN 

MOV #77776,RO0 ; MOV MAXIMUM COUNT TO RO 

INC ; INCREMENT RO (INCLUSIVE SUBTRACT) 

CALL NXTTRK ; SET MAXIMUM COUNT (U.TSEC AND U.MSEC) 
RETURN ; RETURN TO CALLING PROGRAM 


a 





104267 
000000 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 80 
MOV2 = 28 BIT MOVE 


- 28 BIT MOVE 


; MOVE SOURCE LOW ORDER WORD TO R 


ve = A_28 BIT ec POINTED TO BY R1 TO TWO WORDS POINTED 


CLEARED BEFORE COPYING 


SAVE RO 
ane RO,=(SP) 


MOVE RO TO DESTINATION LOW ORDER WORD 


; MOVE SOURCE HIGH ORDER WORD TO RO 
; STRIP OFF UNUSED BITS 


MOVE RO si DESTINATION HIGH ORDER WORD 


RESTORE 
MOV (SP)+,RO 
RETURN TO CALLING PROGRAM 


1 
2 005433 
3 
4 
5 
6 
7 
8 005433 
005433 
9 005434 
10 005436 
11 005437 
12 005437 
13 005441 
14 005443 
15 005445 
16 005447 
17 005450 
18 005451 
19 005453 
20 005455 
21 005457 
22 005460 
23 005461 
24 005462 
25 005463 
26 005465 
$f 005467 
8 005470 
0054 
29 005471 
30 005472 
005474 
5476 
00 
501 
02 
503 
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e 


002223 


000051 


002176 


005575 
002201 
000004 


000020 
000046 


005575 
002201 
000004 


000020 


000001 
177777 
000046 


177760 


000046 





1$: 


9$: 


2$: 


3$: 


4$: 


UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:02:53 PAGE 81 
NXTTRK = FIND HOW MANY SECTORS TO R/W TO ALIGN WITH NEXT TRACK 


JL NXTTRK = FIND HOW MANY SECTORS TO R/W TO ALIGN WITH NEXT TRACK BOUNDRY 


NX 


COMPUTE HOW MANY SECTORS TO READ/WRITE TO GET ON A TRACK BOUNDRY 
THIS WILL ALLOW SEQUENTIAL READS AND WRITES TO BE PERFORMED 
WITHOUT ANY ‘BACKWARDS’ SEEKING (EXCEPT IN THE CASE OF REVECTORS) 


PUSH RO 3 SAVE RO 
MOV RO,-(SP) 
ont —— ae IF bay A baeee WRITE 


F SO, EXIT (WRITE MAXIMUM POSSIBLE) 
ASSUME IWIPRG IS SIGN 6IT 
let LO ORDER SECTOR TO R/W 


ASSUME IWIPRG,100000 
MOV U.MBN(R5),R1 


MOV R1,CURBN MOVE TO CALC 

MOV U.MBN+1(R5),R1 ie ” a tue Hae TO R/W 

MOV R1,CURBN+1 MOVE TO CALC AREA 

CLR RO TELL CALC TO SETUP ALL eee PARAMETERS 
CALL CALC CALC TRACK THAT SECTOR IS 

MOV #CYLSCR,RO RO POINTS TO SCRATCH SP ACE. 

ror #CYL,R1 R1 ag ght Bi CYL, GRP AND TRACK 


#4,R MOVE 4 
MOV (R1)+,R3 GET wo 
MOV R3, (RO)+ AVE 

R2 DECREMENT COUNT 


= 
So 
< 
Sete Ge Se Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Be Se Fe Be Se 


DEC 
BNE IF INCOMPLETE, BRA 
MOV #20,R0 START INCREMENT BY “io (16 DECIMAL) 
MOV U.PARM(RS),R1 GET UNIT PARAMETER 
CALL ID INCREMENT OR DECREMENT (DEPENDING ON DIRECTION) 
PUSH RO SAVE RO 
MOV RO,=(SP) 
CALL CALC : CALCULATE NEW CYL/GRP/TRK 
MOV #CYLSCR,RO ; RO POINTS TO SCRATCH SPACE 
MOV #CYL,R1 : R1 POINTS TO CYL, GRP AND TRACK 
MOV a + MOVE 4 WORDS 
MOV (R1)+,R3 : 
CMP (RO)+,R3 : COMPARE 
BNE 2$ : IF CHANGE , BRANCH 
DEC R2 + DECREMENT COUNT 
BNE 9$ ; IF INCOMPLETE, BRANCH 
POP RO : RESTORE STEPSIZE 
MOV (SP)+,RO 
CMP #20,R0 ; SEE IF ORIGINAL STEPSIZE 
BEQ 1$ ; IF $0, BRANCH 
BR 3$ + BRANCH 
POP RO ; RESTORE STEPSIZE 
MOV (SP)+,RO 
CMP #1,R0 ; SEE IF Last STEPSIZE 
BEQ 4$ + FOUND FIRST SECTOR ON ANOTHER TRACK 
MOV #=1,R1 : SET UP FOR COMPLEMENT 
BIC U.PARMCRS) .R1 : COMPLEMENT 
ROR RO : ROTATE TO HALVE STEPSIZE 
BIC #LBLONB,RO + CLEAR UNUSED BITS 
BNE 1$ : IF NON-ZERO, LOOP 
Inc RO + MAKE R3 1 


1$ ooP 
MOV U.PARM(RS) ,R3 GET UNIT PARAMETERS 


SEQ 0963 | 


UDATS DIS 
NXTTRK = 


ww 


Wr —COOOnNOus 
sssses ssssssseseses3 


NNNNNNAOOAOOAAAAG AOMMUMUMUNM 
SSRISAF 
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VUEWN 


Soo 


010000 


000051 
002175 


002175 
000051 


000023 


010000 
002175 
002176 
002175 
002176 


5$: 
6$: 


ID: 


1$: 


2s: 


CYLSCR: 








MACR X04.01 23-AUG=82 12:02:53 PAGE 81-1 
SECTORS TO R/W TO ALIGN WITH NEXT TRACK 


gp inec Ae 
U.MBNCR5) RS 
es 
CURBN,R3 
U.MBN(R5S) ,R3 
RO 

RO,R3 

7$ 


R3,RO 
RO,U.TSEC(RS) 


+ ‘eaaiaiad 
Bo -CURBN 
CURBN+1 
RO, CURBN 
CURBN+1 


oooo 


LE ,MAXADR-. 
+4 


Be Ge Ge Ge Ge Ge Ge Ge 


SEQ 0964 


FIND WHAT DIRECTION YOU'RE GOING IN 
IF UP, BRANCH 


N 
; GET LO ORDER STARTING BN 
; SUBTRACT ENDING 


0 
; SUBTRACT STARTING BN 
; GET MAX SECTORS THAT CAN BE R/W 


MOV (SP)+,RO 


COMPARE 

IF CAN WRITE MORE THAN POSSIBLE, BRANCH 
SETUP TO WRITE TO EOT 

SAVE IN SECTORS TO R/W 

RETURN TO CALLING PROGRAM 


SEE IF GOING UP OR DOWN 
BRANCH 
NT BN 
IF NO BORROW, EXIT 
Speen BGRROW 
INCREMENT 


BN 
IF NO CARRY, BRANCH 
PROPOGATE CARRY 


SCRATCH AREA FOR STORING CYL, GRP AND TRK 


D 11 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 82 SEQ 0965 
weeeewetee OVERLAY MODULE RNDTG = RANDOMLY GET NEXT TRACK/GROU 


-SBTTL seeteennes +44 eld MODULE RNDTG = RANDOMLY GET NEXT TRACK/GROUP SECTOR 
DMOVLY RT,AREA 
-WREDC s;OUTPUT EDC FOR THIS OVERLAY 


SERA ERERAEEAEAAEREEE TEETER EEEEERAAAAEEAEEEEAEAEEEEEEEEEEEEAAEEEEAEEEEEEREEE 










005601 
005601 000105 





1 
5 
9 : 
10 SRAAAAEAEAAAAEEEREAEERAEEEEEEEEEEEERAEEAREEEAAAEEEREREAEEEEREEEEEREREEEEEEERREES 
11 SERRA ERAAEEEAEE EEE EEEEAAEEEEEEEAAAARAEREAAERAAREEEEREEEEEEEEEREEEEREREEREEEE 
\¢ FERRARA EERAEEAREEEEEREEEEEEEEEEEAAEEAAEREREREEEEERAEEEREEEEEAEEEEREAEEEEEEEEE EEE 
1 : 
is 
19 000005 RNDTG = SEQBE+1 
¢3 : COME UP WITH A RANDOM BN TO TEST USING THE TRACK/GROUP SETS 
31 : FIRST COME UP WITH A RANDOM COUNT <= MAXIMUM COUNT 
aS ‘ .ENABL LSB 
34 005043 024764 1$ CALL RANDOM ; GET RANDOM NUMBER 
35 005044 114002 CLR R2 t HI ORDE WORD IS ZERO 
36 005045 104301 002224 MOV LOSEED,R1 : LOSEED IN R1 
37 005047 104647 000014 MOV §.MCNT+1(R4),RO : GET MAXIMUM HI ORDER WORD 
38 005051 015063 BEQ 3$ : IF ZERO, BRANCH 
39 005052 025025 CALL MASK : CREATE MASK FOR RANDOM NUMBER 
40 005053 104302 002225 MOV HISEED,R2 : PUT NUMBER IN R2 
41 005055 103072 BIC : : STRIP OFF UNUSED BITS 
42 005056 106642 000014 CMP S.MCNT+1(R4),R2 : SEE IF MAX EXCEEDED 
3 005060 sat BCS 1$ : IF SO, TRY AGAIN ie P 
+ 
5061 iets BR is 
44 005062 055073 BNE 5$ ; IF NOT EQUAL, EXIT 
45 005063 104647 000013 3$: MOV S.MCNT(R4),RO : GET LO ORDER MAX 
46 005065 025025 CALL “MASK : GET RANDOM MAS 
7 005066 103071 BIC RO,R1 > STRIP OFF BITS 
5067 1 000013 CMP S.MCNT(R4),R1  : CHECK WITH MAX 
BCS 1$ : IF GREATER THAN MAX, DO AGAIN le . 
+ 


BR 1$ 


a 


1 


S 
SS 
ue 
oo 

~“ 
WW 


NNR) 3 A et oe 


7 

005074 
5 005075 
6 005677 
7 005100 
8 005101 
9 005102 
0 005104 
1 005105 
2 005107 

005707 

005110 
3 005111 
4 005112 
5 005113 
6 005115 
7 005116 
8 005117 
9 005120 
0 005121 
1 005122 
2 005123 

005123 

005124 


2s 
3 
News 


S=RsSSsSSSR Sk 
wi 

ooo 
NRWNRNSUUMNSW 


SE 


5s: 


6$: 


7$: 


9$: 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 83 
eeeeeeente OVERLAY MODULE RNDTG = RANDOMLY GET NEXT TRACK/GROU 


<R5,R4> 


#S.TGOF RS 
R4_RS 
(R5)+,RO 
(R5)+.R3 
#1,R1 


#7 oR2 
9$ 


(R5)+,R4 
#S.TGSS,RS 
(SP),R5 
(R5)4+,R4 
R4,RO 


R3 
6$ 
<R4,R5> 





NOW FIND THE BN ASSOCIATED WITH THAT COUNT 
; PUSH THE UNIT AND SUBUNIT POINTERS 


MOV RS,=(SP) 
MOV R4.=(SP) 
R5 WILL POINT TO THE TRACK/GROUP OFFSETS 
R5 POINTS TO THE TRACK/GROUP ORIGINAL OFFSET 
VE TO RUNNING TOTAL 


: GET LO ORDER OFFSET, MOVE 
: GET HI ORDER OFFSET, MOVE TO RUNNING TOTAL 
By ONE 


T 

IF NO BORROW, BRANC 
DECREMENT HI COUNT BY ONE 
IF COUNT EXHAUSTED, BRANCH 

Bcc +2 

BR 9$ 
GET T/G OFFSET 
IF NOT END OF LIST, BRANCH 
R5 WILL POINT TO START OF T/G LIST 
R5 POINTS TO START OF T/G LIST 
GET T/G OFFSET 
ADD TO RUNN:NG TOTAL 
IF NO CARRY, BRANCH 


PROPOGATE CARRY 
BRANCH 


RESTORE 
MOV (SP)+,R4 
MOV (SP)+,R5 


Ft 
UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 84 SEQ 0967 
weeeeeeeee OVERLAY MODULE RNDTG = RANDOMLY GET NEXT TRACK/GROU 





1 : 
¢ ; NOW FIND A RANDOM OFFSET INTO THE RANDOM TRACK OR GrouP 
4 005125 PUSH RO : STORE LO SRDEP TOTAL ON STACK 
005125 100467 MOV RO,-(SP) 
& 005126 104642 000006 MOV S. TRKL(R4),R2  ; R2 HAS TRACK LENGTH 
6 005130 10414 MOV (RA), RO + GET SUBUNIT PARAMETERS 
7 005131 ASSUME $.PARM,O : ASSUME THAT S.PARM IS ZERO 
8 005131 102207 000020 BIT pipacese RO : SEE IF USING TRACKS 
9 005133 055147 BNE 11$ : IF $0, BRANCH 
10 005134 104641 000007 MOV S.SCHR(R4).R1 + R1 POINTS TO SUBUNIT PARAMETERS 
11 005136 104611 000003 MOV TRKGRP(R1),°.1  : R1 HAS NUMBER OF TRACKS/GROUP 
12 005140 103201 177400 BIC #HIBYTE,R1 : CLEAR UNUSED BITS 
13 005142 114007 CLR RO ; CLEAR RUNNING TOTAL 
14 005743 105027 10$: ADD R2,RO : FIND SECTO S/GROUP 
15 005144 117401 DEC R1 : DECREMENT COUNT 
16 005145 055143 BNE 10$ : IF UNE XHAUSTED BRANCH 
17 005146 104072 MOV RO,R2 : MOVE ¢ TO R2 (MATCH WITH TRACKS ABOVE) 
18 005147 11$: PUSH R2 : SAVE ON Stack 
005147 100462 MOV R2,-(SP) 
19 005150 117402 DEC : ADJUST COUNT 
20 005151 104027 2,R0 : MOVE TO MASKING REGISTER 
21 005152 025025 CALL MASK : FIND MASK 
22 005153 024764 12$: CALL RANDOM + GET RANDOM NUMBER 
23 005154 103071 BIC RO,R1 : STRIP OFF UNUSED BITS 
24 005155 106021 CMP R2 : SEE If RANDOM NUMBER SMALL ENOUGH 
25 005156 BCS $ : IF NOT, RORANCH 
005156 045160 BCC +2 
005157 0051 BR i2$ 
26 005160 POP R2 : GET NUMBER OF SECTORS 
005160 104262 MOV (SP)+,R2 
5161 107012 SUB R1,R2 ; R2 IS NOW SECTORS REMAINING IN 116 
5162 105261 (SP)+,R1 
5163 100651 000051 MOV R1,U.MBN(RS) =; SAVE 
5165 045167 BCC 13$ : IF NO CARRY, aeRANCH 
5166 115403 INC R3 + PROPOGATE CAR 
5167 100653 000052 13f: MOV R3,U.MBN¢1(R5) : SAVE HI BRODER STARTING BN 
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UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 85 
weeeeeeene OVERLAY MODULE RNDTG - RANDOMLY GET NEXT TRACK/GROU 


1 


¢ ; NOW COME UP WITH A RANDOM NUMBER OF SECTORS TO R/W WITHOUT GOING 
; ; OFF THE TRACK/GROUP THAT WE'RE ON 

5 005171 196202 000016 CMP #16,R2 : ONLY WRITE , MAXIMUM OF 16 SECTORS 

6 005173 03517 BPL : IF LESS THAN 16, 

7 005174 104207 177774 MOV #MAXMSK,RO : SET READ/URITE (unit 

& 005176 005201 BR 14$ : BR 

9 005177 104027 15$: MOV R2,RO ; RO IS SECTORS LEFT ON THIS T/G 

10 005200 025025 CALL MASK : GET MASK 

11 005201 024764 14$: CALL —« RANDOM + GET RANDOM NUMBER 

12 005202 103071 BIC RO,R1 : STRIP OFF UNUSED BITS 

13 005203 115401 INC : MUST BE GREATER THAN ZERO 

14 005204 106021 CMP R2,R1 : SEE IF SMALL ENOUGH 

15 005205 BCS 3 : IF NOT, BRANCH 

005205 045207 BCC +2 
005206 005201 BR 14$ 

16 005207 100651 000023 MOV BTU. TSEC(RS) ; SAVE SECTORS TO WRITE 

17 005211 104207 004632 MOV #AFTOP,RO : NEXT MODULE Is AF TOP 

18 005213 114001 CLR R1 + IMMIDATE CAL 

19 005214 114002 CLR R2 + NO ERRORS 
20 005215 003231 BR JMPRET + RETURN TO SCONCR 
21 .DSABL LSB 
25 TIF LE ,MAXADR=. 
26 MAXADR = +4 
27 .ENDC 


me CC Ee  — 


SEQ 0968 
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WAS SINSAranNowe 


DADRAGCAAAAAMNMIIMNMNii & SRLS 
Doo WO mow = & Boo Wore mun oO Deo Onew 


o-oo Ss S= 5 
w=—O— w ~ 
SUNAEAEEEAL Bon R 
=—£o o-nw — 
Susols mo =8 
sae fy 


® 
~ 


aS OS as 
ta 


ssssssssesesssseses 
38 


BADARADNAANAA 
SNAARN—=OVERVS 


RQ ot et 
Wes 

™ 

Ww 

== NUN Po 


000046 


010000 
000020 


000020 
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weeeeeeeee OVERLAY MODULE SEQTG - GET NEXT SEQUENTIAL TRACK/GR 


- SBTTL 






Reeketeeee all MODULE 
omy ST, AREA 


SEQ 0969 


SEQTG = GET NEXT SEQUENTIAL TRACK/GROUP SECTOR 


OUTPUT EDC FOR THIS OVERLAY 


eReeReReeeeReeeeeeeeeeeceedeeeeeeeeeeaeeneaneeeeeeeeteeeneeeeeeeeeeeeeereeeer 


Be Se Se Cte Se Ge Ge Be Ge Se 


ws 


6$: 


7$: 
8$: 


SE0TG 


= RNDTG+1 
FIND THE NEXT TRACK/GROUP 
-ENABL LSB 

MOV U.PARM(RS) ,RO 
MOV (R4),R1 
ASSUME S.PARM,0 

BIT #D0IREC,RO 


BEQ 3$ 

BIT #TRACKS,R1 

BEQ 2$ 

CALL DOWNT 

BR $ 

CALL DOWNG 

BR $ 

BIT #TRACKS,R1 

BEQ 4$ 

CALL UPT 

BR 5$ 

CALL UPG 

MOV S$. TRKL(R4) ,R2 
R4),R1 


MOV 
ASSUME $.PARM,0 
TST M.PARM 


BPL 7 
ASSUME IWIPRG,100000 
BIT STACKS BS 


BNE 

MOV R2,RO 

MOV S.SCHR(R4) ,R1 
MOV TRKGRP(R1) ,R1 
BIC #HIBYTE ,R1 
CLR R2 

ADD RO,R2 

DEC R1 

BNE 6$ 

MOV R2,U. TSEC (RS) 
MOV #AFTOP,RO 


R2 
BR JMPRET 
-DSABL LSB 


SERA AERAAAAAAEAAEAEAEAEE AERA AAREAAEAERAARERERAEEEAEEEREEEREEEAEEEREEEEEEEEEEE 
SERRE AEEEAEREEEEAEEEEEEEEAEEEREEEEAAAAAEAAAAEEAEEEEEREEEAEAEREEEEEREEREREREEEEE 
SERA AAAAAAEAEAAAAAE SEEKER EERERERAEAAAAAAAEEAERAEAEEEEEHEEEEEEEEEEEEEEEEEE 


TO TEST SEQUENTIALLY 


; eet UNIT PARAMETERS 


T SUBUNIT PARAMETERS 
ASSUME THAT S.PARM IS ZERO 
SEE _IF GOING UP (INITIAL WRITE) OR DOWN 
IF GOING UP OR INITIAL WRITE, BRANCH 
SEE_IF TRACKS OR GROUPS 
IF GROUPS, GRANCH 
GO DOWN A TRACK 
CALCULATE NUMBER OF SECTORS TO READ/WRITE 
GO DOWN A GROUP 


CALCULATE NUMBER OF SECTORS TO READ/WRITE 
SEE_IF TRACKS OR GROUPS 
IF GROUPS, BRANC 


GO UP A_TRACK 
CALCULATE NUMBER OF SECTORS TO READ/WRITE 
GO_UP A _GROUP 


GET SECTORS/TRACK 
pH SUBUNIT PAR 
ASSUME THAT S.PARM IS ZERO 
see IF INITIAL URITE IN PROGRESS 


- BRANCH 

ASSUME’ IW TPRG IS SIGN BIT 

SEE IF TRACKS IN USE 

IF SO, BRANCH 

COPY SECTORS/TRACK TO RO 

GET POINTER TO SUBUNIT CHARACTERISTICS 
/GROUP 


ME OUNT 
IF INCOMPLETE, BRAN 
E NUMBE 


RRORS 
RETURN TO SEQNCR 


7 eae 
UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 87 SEQ 0970 
UPT = MOVE UP ONE TRACK 





1 .SBTTL UPT = MOVE UP ONE TRACK 
¢ 005121 UPT: 

i : POINT U.MBN TO THE NEXT TRACK TO TEST (IT DOESN'T HAVE TO BE A 
5 : TRACK, BUT IF GROUPS, U.MBN MUST BE ADJUSTED BACK TO THE FIRST 
$ ; BN IN THE GROUP 

& 905121 115000 002217 TST SCR1 : SEE IF NEW SUBUNIT 

9 005123 015126 BEQ 10$ 3 IF NOT, BRANCH 

10 005124 025576 CALL  NEWUPT : SETUP NEW SUBUNIT 

11 005125 00517 BR 4$ : EX 

12 005126 104657 015 10$: MOV U.CCNT(RS),RO : GET LO ORDER COUNT 

13 005130 107207 000001 SUB ; : DECREMENT 

14 005132 100657 15 MOV RO.U.CCNT(RS) : SAVE 

15 005334 045153 BCC : IF NO BORROW, BRANCH 

16 005135 104657 000016 MOV U.CCNT#1(R5),RO : GET HI ORDER COUNT 

17 005137 107207 000001 SUB #1,RO t PROPOGATE BORROW 

18 005141 045151 BCC 1 : IF NO BORROW, BRANCH 

19 005142 104657 000046 MOV U.PARM(RS).RO  : GET UNIT PARAMETERS 

20 005144 101207 004000 BIS #NEWSUB, RO : FLAG AS TO GO ONTO NEXT SUBUNIT 

21 005146 100657 000046 MOV RO,U.PARM(RS) : SAVE 
22 005150 005177 BR 4 : EXIT 
23 005151 100657 000016 1$: MOV RO,U.CCNT#1(R5) : SAVE 
24 005153 104657 000017 2$: MOV U.PCTG(RS),RO : GET POINTER TO CURRENT TRACK/GROUP 
25 005155 104271 MOV (RO)+,R1 : GET OFFSET TO NEXT TRACK 

26 005156 055163 BNE 3 : IF OFFSET, BRANCH 

27 005157 104207 900017 MOV #S.1GSS,RO : RO WILL POINT TO START OF OFFSETS 
38 005161 105047 ADD 4 + RO POINTS TO OFFSETS 

005162 104271 MOV (RO)+,R1 : R1 HAS OFF 

30 005163 100657 000017 3S: MOV RO,U.PCTG(RS) : SAVE POINTER TO CURRENT TRACK/GROUP 
31 005165 105651 000051 ADD U.MBN(RS),R1  : ADD OFFSET TO CURRENT BN 

32 005167 100651 000051 MOV R1,U.MBN(RS) : SAVE 

32 005171 045177 BCC 4$ : IF NO CARRY, EXIT 

34 005172 104651 000052 MOV U.MBN+1(R5),R1 : GET HI ORDER BN 

35 005174 115401 INC : PROPOGATE CARRY 

36 005175 100651 000052 MOV R1,U.MBN¢1(R5) : SAVE 

37 005177 000000 4$: RE TURN : RETURN TO CALLING PROGRAM 





yy 


UDATS DISK 
DOWNT = MOVE DOWN ONE TRAC 


1 

; 005200 
4 

5 

6 005200 
7? Bpesog 
8 005¢0 
9 005204 
10 005205 
11 005207 
12 005211 
13 005213 
14 005214 
15 005216 
16 005220 
1? 005221 
18 005223 
19 005225 
20 005227 
21 005250 
22 005232 
23 005234 
24 005235 
25 005237 
26 005240 
27 005241 
28 OO3se 
29 00524 
30 005244 
31 005246 
32 005247 
33 005251 
34 005253 
35 005254 
36 005256 
37 005257 
38 005261 


EXERCISER DMACR 


SeS= 
u—— 
SENS 


RAMAMAMNIANMANMAM EN 
SOUAMNOVIWOVIWMNOUIANO 
NNNONNNI NNN ow 


ASARAATARIO RAR SAD 


PAAR EAR 


vw 
Vv 


S 
FAM fNOO 


tt et IO nd IO I = 
se 


= 


wi 
™ 
MOVOAUUNUENOLNU 


Sexe 


002217 


000015 
000001 
000015 
000016 
000001 
000046 
004000 
000046 
000016 
000017 
000017 


000051 


000051 
000017 


000052 
000052 





- aa 23-AUG=-82 12:02:53 PAGE 88 


¥ 11 


-SBTTL DOWNT = MOVE DOWN ONE TRACK 
DOWNT: 


10$: 


3$: 


4$: 


5$: 


MOVE THE MASTER BN DOWN TO TEST THE PROCEEDING TRACK/GROUP 


SCR1 
10$ 
NEWONT 


U.CCNTCRS) .RO 
RO.U.CCNT(RS) 
U.CCNT+1(R5),RO 
#1,RO 


U.PARM(R5S) RO 
RO.U.PARM(RS) 
RO,U.CCNT#1(R5) 
$.TGSS,R1 


R4, 
U.PCTG(RS) ,RO 
RO,R1 


RO 
(RO) ,R1 


U.MBN(RS),R1 
=(RO),R1 
R1,U.MBN(RS) 
RO,U.PCTG(RS) 
U.MBN+1(R5),RO 


R 
RO,U.MBN+1(R5) 


Ss 
; SAVE POINT 
IF _NO 


SEE IF NEW SUBUNIT 
IF NOT, H 
ne THIS SUBUNIT 
GET LO ORDER COUNT 
— COUNT 
IF NO BORROW, BRANCH 
GET HI ORDER COUNT 
RROW 
GET UNIT PARAMETERS 
FLAG AS TO GO ONTO NEXT SUBUNIT 
SAVE 
EXIT 
SAVE 
RO WILL POINT TO START OF T/G OFFSETS 
RO POINTS TO START OF T/G OFFSETS 
GET POINTER INTO LIST 
SEE IF AT START OF LIST 
IF NOT 


- BRANCH 
RO POINTS TO NEXT WORD 
age IF END OF LIST 


NOT, BRANCH 
GET LO ORDER MASTER BN 
— OFFSET 


PROPOGATE BORROW 


SAVE 
; RETURN TO CALLING PROGRAM 


SEQ 0971 


1 
2 005262 
3 
4 
5 
6 005262 
7 005264 
8 005265 
9 005266 

10 005267 

11 005270 

12 005272 

13 005273 

14 005275 

15 005077 

16 005300 

17 005301 

18 005303 

19 005305 

20 005307 

21 005310 

22 005312 

23 005313 

24 005315 

25 005316 

26 005317 

$8 008391 

$8 00352 

30 005323 

31 005324 

32 005326 

33 005307 

34 005331 

35 005332 

36 005334 

37 005335 

38 005337 

39 005340 

40 005341 





UDAT4 DISK EXERCISER DM 
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oo 
& 


R 
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S33 
S 


as 
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002217 


040000 


000006 
000020 


000051 
000051 
000052 
000052 






-SBTTL UPG 
UPG: 


10$: 


1$: 
2$: 


3$: 


4$: 
5$: 





ACR X04.01 23-AUG-82 12:02:53 PAGE 89 
GROUP 


- MOVE UP ONE GROUP 


MOVE MASTER BN UP TO THE NEXT GROUP 


ALL 
RETURN 





SCR1 
10$ 
NEWUPT 
SETSEC 


#INITW,R1 
4$ 


U.MBN+1(R5),RO 
RO,U.MBN+1(FS) 


U.MBN(R5S),RO 
RO.U.MBN(RS) 
U.MBN+1(R5),RO 
RO,U.MBN+1(R5) 
RO 

UPT 


SEE IF THIS IS A NEW SUBUNIT 
IF NOT, BRANCH 
INITILIZE THE SUBUNIT FOR TRACKS 

; ae THE SUBUNIT FOR GROUPS 
SEE IF AN INITIAL WRITE IS BEING DONE 


; DECREMENT COUNT 
; IF COUNT EXHAUSTED, BRANCH 


V 
; MOVE BN TO NEXT TRACK 
SAVE 


3; EXIT 

3; GET HI ORDER BN 
3 PROPOGATE CARRY 
3: SAVE 


EXIT 
; SETUP NEXT TRACK/GROUP COUNT 
; CLEAR RUNNING TOTAL 
; DECREMENT COUNT 
; IF COUNT EXPIRED, BRANCH 

1° getmatiiaaees TO RUNNING TOTAL 


; LO 
; GET LO ORDER MASTER BN 
; art BACK TO START OF GROUP 


; IF _NO BORROW, BRANCH 
; GET HI ORDER MASTER BN 
; a BORROW 


; SAV 
; CLEAR RO SO UPT DOESN'T DETECT A NEW SUBUNIT 


GO TO NEXT GROUP 
; RETURN TO CALLING PROGRAM 


SEQ 0972 


UDATS DISK 
DOWNG = 


S 
# 
~w 


SESE 


PPA AAA A AA SATII 
Ww LWWIWW 
Ia 

AEWNONOUSN 


ssssessessesesess 
ESSERE 


MEWN $6 OONAOUSWN—OOONOuUSwr— 
uw 
SS 
No 


NOMINININRY 2 ts ot ss = 


005375 


EXERCISER DMAC 
MOVE DOWN ONE GR 


ooo 
SaeSNrnss 
WROUAE WS 


NNUNN I= ££ OO 


ee ee ee 
ROO 
ooo om my os 


ooo 
onr 


002217 


000020 


000020 
000051 
000006 
000051 


000052 
000052 


.SBTTL 
DOWNG: 


10$: 


1$: 
4$: 


DOWNG 


R X04.01 23-AUG-82 12:02:53 PAGE 90 
OuP 





= MOVE DOWN ONE GROUP 


MOVE MASTER BN TO THE NEXT LOWER GROUP 
SEE IF THIS IS A NEW SUBIUNIT 


CALL 
ALL 
RETURN 


4$ 
U.CTRK(RS) ,RO 
RO 


1$ 
RO,U.CTRK(RS) 
U.MBN(RS),RO 
S$. TRKL(R4) RO 
RO.U.MBN(RS) 


U.MBN+1(R5),RO 
RO,U.MBN+1(R5) 
4$ 


DOWNT 
LSTTRK 


IF _NO 


T 
SETUP THIS SUBUNIT FOR TRACKS 
SETUP THIS SUBUNIT FOR GROUPS 


EXI 

GET TRACK COUNT 
DECREMENT COUNT 
tenes BRANCH 


GET LO ORDER MASTER BN 


; SUBTRACT TRACK LENGTH 
SAVE 


EXIT 
; GET HI MASTER BN 
; PROPOGATE BORROW 
SAVE 


GO DOWN A GROUP 
SET MASTER BN ON LAST TRACK OF GROUP 


RETURN TO CALLING PROGRM 


SEQ 0973 


een noe = ~ -— 


ISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 91 SEQ 0974 
2E PARAMETERS FOR SEQUENTIALLY UP BY TRACKS | 





UDAT4 DISK EXERC 
NEWUPT = INITILI 


1 .SBTTL NEWUPT = INITILIZE PARAMETERS FOR SEQUENTIALLY UP BY TRACKS 
3 005376 NEWUPT : 

i ; INITIALIZE THIS SUBUNIT FOR SEQUENTIALLY ACCESSING TRACKS IN 

i ; ASCENDING ORDER 

7 005376 104647 000013 MOV S.MCNT(RG),RO =; GET MAXIMUM COUNT 

8 005400 100657 015 MOV RO,U.CCNT(RS) |: SAVE IN CURRENT COUNT 

9 005402 104647 000014 MOV S.MCNT#+1(R4),RO : GET HI ORDER MAXIMUM COUNT 

10 005404 100657 000016 MOV RO,U.CCNT#1(R5) ; SAVE IN HI ORDER CURRENT COUNT 

11 005406 104647 000015 MOV S.TGOF(R4),RO : GET STARTING OFFSET 

12 005410 100657 000051 MOV RO,U.MBN(RS5) | : SAVE IN MASTER BN 

13 005412 104647 000016 MOV S.TGOF+1(R4),RO : GET HI ORDER STARTING OFFSET 

14 005414 100657 000052 MOV RO,U.MBN+1(R5) : SAVE IN HI ORDER MAST 

15 005416 104207 000017 MOV #S.TGSS,RO : RO WILL POINT TO START OF OFFSETS 

16 G05420 105047 ADD R4, : RO POINTS TO START OF OFFSETS 

17 005421 100657 000017 MOV RO,U.PCTG(RS) ; SAVE IN POINTER TO CURRENT TRACK/GROUP 
18 005423 000000 RETURN : RETURN TO CALLING PROGRAM 


N 11 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 92 SEQ 0975 
NEWONT = INITILIZE PARAMETERS FOR SEQUENTIALLY DOWN BY TRACKS 
1 .SBTTL NEWDNT = INITILIZE PARAMETERS FOR SEQUENTIALLY DOWN BY TRACKS 
: 005424 NEWDNT : 
4 ; INITIALIZE THIS SUBUNIT FOR SEQUENTIALLY ACCESSING TRACKS IN 
2 ; DESCENDING ORDER 
7 005424 PUSH <R5,R4> ; SAVE UNIT AND SUBUNIT POINTERS 
005424 100465 V R5,=(SP) 
005425 100464 MOV R4,=(SP) 
8 005426 104642 000015 MOV S.TGOF(R4),R2 _ ; R2 HAS LO ORDER STARTING OFFSET 
9 005430 104643 000016 MOV 5. TGOF+1(R4),R3 : R3 HAS HI ORDER STARTING OFFSET 
10 005432 104647 000013 MOV S.MCNT(R4),RO  : RO HAS LO ORDER MAXIMUM COUNT 
11 005434 1060657 000015 MOV RO,U.CCNT(RS) : SAVE LO ORDER MAXI 
12 005436 104641 000014 MOV S.MCNT#1(R4),R1 : R1 HAS HI ORDER MAXIMUM COUNT 
13 005429 100651 000016 MOV R1,U.CCNT+1(R5) ; SAVE HI ORDER MAXI 
14 005442 105204 000017 ADD #S.TGSS,R4 : R4 POINTS TO START OF OFFSETS 
15 005444 107207 000001 1$: SUB #1,R0 : DECREMENT C 
16 005446 045453 BCC 2$ : IF NO CARRY, BRANCH 
17 005447 107201 000001 SUB #1,R1 + PROPOGATE BORROW 
18 005451 BCS 4$ : IF COUNT EXHAUSTED, BRANCH 
005451 045453 BCC +2 
005452 005465 BR 4$ 
19 005453 104245 2$: MOV (R4)+,R5 : GET OFFSET 
20 005454 055461 BNE : IF NOT END-OF-LIST, BRANCH 
21 005455 104204 000017 MOV #S.TGSS,R4 : R4 WILL POINT TO START OF OFFSETS 
22 005457 105164 ADD P) RG : R4 POINTS TO START OF OFFSETS 
23 005460 104245 MOV (R4)+,R5 : GET OFFSET 
24 005461 105052 3$: ADD R5,R2- + ADD OFFSET T 
25 005462 045444 BCC 1$° + IF NO CARRY, LOOP 
26 005463 115403 INC R3 : PROPOGATE CARRY 
464 005444 BR 13 : LOOP 
28 005465 104665 000001 4$: MOV 1(SP),R5 : GET UNIT POINTER 
29 005467 100654 000017 MOV R4,U. pcticcns) : SAVE POINTER TO CURRENT TRACK/GROUP 
30 005471 POP <R4,R : RESTORE 
05471 104264 MOV (SP)+,R4 
005472 104265 MOV (SP)+.R5 
31 005473 100652 000051 MOV R2,U.MBN(R5) ; SAVE LO ORDER STARTING BN 
32 005475 100653 000052 MOV R3,U.MBN+1(R5) : SAVE HI ORDER 
33 005477 000000 RETURN : RETURN TO CALLING PROGRAM 
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SETSEC = SETUP TRACK/GROUP COUNT FOR SELECTED GROUPS 


1 .SBTTL SETSEC = SETUP TRACK/GROUP COUNT FOR SELECTED GROUPS 

é 005500 SETSEC: 
4 : MOVE TRACKS/GROUP TO U.CTRK | 
6 005500. 104647 000007 . MOV S.SCHR(R4),RO —; RO POINTS TO SUBUNIT CHARACTERISTICS 
7 005502 104677 000003 MOV TRKGRP (RO), *RO ; RO_HAS TRACKS/GROUPS | 
8 005504 103207 177400 BIC #HIBYTE,RO- ; CLEAR UNUSED BITS | 
9 005506 100657 000020 MOV RO,U.CTRK(RS) ; SAVE AS TRACK 

10 005510 000000 RETURN + RETURN TO CALLING NAODULE | 
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000051 
000051 


000052 
000052 
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LSTTRK = SET MASTER BN TO POINT TO LAST TRACK IN THE GROUP 


LSTTRK = SET MASTER BN TO POINT TO LAST TRACK IN THE GROUP 


SET MBN TO LAST TRACK OF GROUP 


CALL SETSEC ; SETUP TRACK/GROUP COUNT 
C Re ; CLEAR RUNNING TOTAL 
DEC RO MENT COUNT 


UN 
BEQ 3$ OUNT EXPIRED, BRANCH 
4  eirehanes ; a TO RUNNING LENGTH 


L 
ADD U.MBN(RS) ,R2 ; MBN WILL POINT TO LAST TRACK IN GROUP 
MOV R2,U.MBN(RS) SAVE 


Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Bee 


BCC IF _NO CARRY, EXIT 

MOV U.MBN+1(R5),RO GET HI ORDER BN 

INC RO PROPOGATE CARRY 

MOV RO,U.MBN+1(R5) 

RETURN RETURN TO CALLING MODULE 
IF LE ,MAXADR-. 


Dee 


1 
5 
9 
0 
1 
2 
3 
4 
5 
9 
8 
9 
30 
31 


50 60 
51 004463 
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8 Oo IO 
SRerRCRho 


REREPEFESS 
Sss= 
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~ 
So 
nm 


3 


o-oo 
w vey 
SALAS 
AAA 
MVM 
sosfof 


weeeereete OVERLAY MODULE BUILDP - 


000046 
000022 
000200 





002235 
002175 
002176 
002175 


002176 
004701 


002201 
002202 
002203 
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BUILD THE READ/WRITE LINKED 


-SBTTL tteteeeeee OVERLAY MODULE 
DMOVLY BP,AREAO 

»WREDC 
sHeteeteeeeeneneneetenteerereeeet 
Seeeeeeeeeeeeekeeeeeereeererereee 
Seeeeeeeeeeeeeeekeetereeterrerert 
jeenaeenennenenenereeeereereeeets 


BUILDP = BUILD THE READ/WRITE LINKED LISTS 


sOUTPUT EDC FOR THIS OVERLAY 


RERAEAEAAEEAERERERAAAREAEAAEREREREEREEEREEEEEE 
RRARAREREAEAAREERERARAEAAAAEAEAEREREREREEREEEEEE 
RARERAERRAAAAEAAREREREEAEREREEEEEEEEEEEEEEEEE 
RRERAEEREREREREAREAEREREEAAEAEEERAEEREREEREEEEEE 


3 READ/WRITE LINKED LIST BUILDER 


3 COMMUNICATE WITH THE HOST SO NOT TO TIME OUT 
; RO HAS UNIT PARAMETERS 
ER OF SECTORS TO READ/WRITE 


BUILDP = SEQTG+1 
BUILD THE READ/WRITE LINKED LISTS 
-ENABL LSB 
CALL yey 
MOV U.PARM(RS), - 
MOV U. MSECERS) <A AXSEC 
BIT #RBNBN,RO 


3_GET_NUMB 
; SEE IF’ a. bs BE READ/WRITTEN 


BEQ 1 : IF NOT, BRANCH 
MOV U.RBN(RS),CURBN : MOVE L6 ORDER TO CURRENT BN 
MOV ao CURBN N+1 : HI ORDER TO CURRENT BN 
1$: MOV U. CBN(RS) 4 MOVE Lo ORDER TO CURRENT BN 
MOV uU.C BNET ERED CORBNST . + MOVE LO ORDER TO CURRENT BN 
4$: MOV MEMPOL. TMEMPL ; START OF BUILD. CINITILIZE ME M POOL) 
CLR RO : FORCE THE CALCULATION TABLE” TO BE FILLED 
MOV RO, CHAINS > MARK CHAIN AS EMPTY 
5$: CALL CAL t CALCULATE CYL, TRK AND GRP 
CMP U.CCYL(RS),CYL : SEE IF LO CYL MATCHES 
BNE 7$ :_IF NOT, BRANCH 
CMP U.CCYL+1(R5) CYL#1 : SEE IF HI CYL MATCHES 
ENE 7 3 IF NOT, BRANCH 
CMP U.CGRP(RS) ,GROUP 


BNE 7$ ; IF 


: SEE IF GROUP MATCHES 
NOT, BRANCH 


SEQ 0978 








E 12 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 96 


LINK 





= BUILD A LINK (NODE) IN THE READ/WRITE CHAIN 
J -SBTTL LINK = BUILD A LINK (NODE) IN THE READ/WRITE CHAIN 
3 : 
4 ; LINK WILL CREATE THE LINKS FOR THE CHAIN 
6 004464 104653 000046 MOV U.PARM(RS),R3 —; R3 HAS UNIT PARAMETERS 
7 004466 104307 002232 MOV CHAINS, RO ; RD POINTS TO START OF CHAIN 
8 004470 054512 BNE 2$ : IF THE CHAIN IS ALLREADY STARTED, BRANCH 
9 004471 102203 000100 BIT #REDWRT,R3 ; SEE IF READ IN PROGRESS 
10 004473 014504 BEQ : IF SO 
11 004474 102203 000400 BIT #REVEC,R3 : SEE IF TRYING TO FIND A REPLACEMENT 
12 004476 054504 BNE 21$ : IF SO, YOU'RE TRYING TO READ, SO BRANCH 
13 004477 104207 000401 MOV #WBUFLN,RO : RO HAS NUMBER OF WORDS IN WRITE BUFFER 
14 004501 024674 CALL ALLOCM : ALLOCATE THE MEMORY 
15 004502 104070 004702 MOV RO, SECPTR ; SECPTR POINTS TO WRITE BUFFER 
16 004504 104207 000007 21$: MOV #LINKLN,RO ; RO HAS LENGTH OF CHAIN LINK 
17 004506 024674 CALL  ALLOCM : ALLOCATE THE MEMORY 
18 004507 104070 002232 MOV RO, CHAINS : CHAINS POINTS TO FIRST LINK 
19 004511 004532 BR 24$ + BRANCH 
20 004512 104171 22$: MOV (RO),R1 : R1 HAS NEXT LINK POINTER AND STATUS 
24 004513 ASSUME RW.STAT.O t ASSUME STATUS AND POINTER FIRST WORD 
33 004513 102201 100000 BIT #EOC, : SEE IF THIS LINK IS THE LAST 
34 004515 054522 BNE 2 : IF SO, BRANCH 
35 004516 103201 170000 BIC #UNADDR,R1 + CLEAR UNUSED ADDRESSING BITS 
36 004520 104017 MOV R1,RO ¢ RO POINTS TO WERT Cite 
37 004521 004512 BR 22$ 3 LOOP 
38 004522 104072 23$: MOV RO,R2 : SAVE RO 
39 00+ 258 104207 000007 MOV #LINKLN,RO : no HAS LENGTH OF LINK 
40 004525 024674 CALL ALLOCM ; ALLOCATE MEMORY FOR LINK 
41 004526 103201 100000 BIC #EOC,R1 ; CLEAR THE END<OF “CHAIN FLAG 
42 006530 101071 BIS RO,R : PUT IN POINTER TO NEXT LI 
43 004531 100121 MOV R17. (R2) : PUT POINTER BACK IN LAST LINK 
47 004532 me ASSUME RW.STAT,O : ASSUME STATUS AND POINTER” FIRST WORD 


SEQ 0979 
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FILLIN = FILL THE READ/WRITE CHAIN LINK (NODE) WITH REQUIRED I 


J ys FILLIN = FILL THE READ/WRITE CHAIN LINK (NODE) WITH REQUIRED INFORMATION 
3 ; 
: ® FILLIN BUILDS THE PARAMETERS THE UDA REQUIRES TO WRITE OR READ A BLOCK 
6 004532 104302 002204 MOV TRACK ,R2 3; GET TRACK (HEAD) NUMBER 
7 004534 102203 000100 BIT #REDWRT,R3 : SEE IF READ IN PROGRESS 
8 004536 014553 BEQ : RANC 
9 004537 102203 000400 BIT #REVEC,R3 5 SEE af TRYING TO FIND A REPLACEMENT 
10 004541 054553 BNE pi, I 3; IF SO, YOU'RE TRYING TO ated SO BRANCH 
11 004542 101202 122400 BIS EAL ,R2 ; BUILD WRITE REAL TIME COMMAND 
12 004544 100672 000004 MOV + RW. CMD (RO) 3 MOVE TO SDI REAL TIME COMMAND AREA 
13 004546 104202 140000 MOV #wSTOP oR2 3; MOVE LAST BLOCK FLAG TO R2 
14 004550 104301 MOV SECPTR, *R1 : R1 POINTS TO WRITE BUFFER 
15 004552 004567 BR 12s : BRANCH 
16 004553 101202 013400 11$: BIS L,R2 ; BUILD oo REAL dt COMMAND 
17 004555 100672 000004 MOV Re ROLE mS(ROD 3; MOVE TO SDI REAL fIME COMMAND AREA 
18 004557 104202 100000 MOV #RSTOP,R2 3; MOVE LAST BLOCK FLAG TO R2 
19 004561 PUSH + SAVE RO 
004561 100467 MOV RO,=(SP) 
20 004562 104207 000415 MOV #RBUFLN,RO : SIZE OF READ BUFFER 
21 004564 024674 CALL ALLOCM 3 ALLOCATE BUrFER 
22 004565 104071 MOV 5 : R1 POINTS TO BUFFER 
23 004566 POP : RESTORE RO 
004566 104267 MOV (SP)+,RO 
24 004567 100172 12$: MOV R2, (RO) ; MOVE LAST BLOCK FLAG TO NEXT BLOCK COINfER 
28 004570 ASSUME RW.STAT,O 
Hi 004570 100671 00001 R1,RW.BUF(RO) ; MOVE POINTER TO SECTOR TO POINTER AREA 
004572 104202 2207 MOV #DUMSDI,R2 : R2 POIN TO DUMMY SDI AREA 
39 004574 100672 005 MOV R2,RW.SDI CRO) 3; MOVE ay! o POINTER TO DUMMY SDI AREA 
40 004576 104302 002205 MOV ae 3 a Me ae te: gp th TO BE WRITTEN 
41 004600 100672 106 MOV R2,RW.ANGC(RO) s E TO ANGLE FROM INDEX 
42 004602 104302 002175 MOV CURBN,R2 : MOVE LOW ORDER BN TO R2 
43 004604 100672 MOV R2,RW.LOWC(RO) 3; MOVE LOW ORDER BN TO LOW EXPECTED HEADER 
44 004 104302 002176 Vv CURBN+1,R2 : MOVE HIGH ORDER BN TO R2 
45 004610 102203 BIT #RBNBN, R3 ; SEE IF BN IS AN RBN 
46 00461 054622 E 15$ : IF so, 
47 004613 104143 V (R4),R3 : GET S If we iy 
48 004614 ASSUME S.PARM,0O 3; ASSUME THAT S.PARM IS ZERO 
49 004614 102203 020000 BIT #DOCYLS,R3 3 SEE IF USING DIAGNOSTIC CYLINDERS 
50 004616 014624 BEQ 6$ : IF NOT, BRANCH 
51 004617 101202 140000 BIS #HD.DBN,R2 3 DIAGNOSTIC HEADER 
52 00462 624 BR : BRANCH 
53 004622 101202 060000 15$: BIS #HD.RBN,R2 3; REVECTORED HEADER 
54 004624 105302 002172 16$: ADD HIBN,R2 ; ADD HI BN BITS 
55 004626 ASSUME HD.LBN,0 
56 004626 1 72 000003 MOV R2,RW.HI CRO) 3; MOVE R2 TO HI WORD EXPECTED HEADER 
57 004630 104302 002206 MOV INDEX, R2 : GET DISTANCE FROM INDEX 
58 004632 115402 INC R2 + ADJUST INDEX 
59 00463 106706 002217 CMP SCR1,R2 : SEE IF FIRST Secten AFTER INDEX 
60 004635 05463 BNE 3$ : IF NOT, 
61 004636 10005 CLR R2 3 te THETA FROM INDEX 
62 004637 100672 000006 13$: MOV R2,RW.ANG(RO) =: SAV 
71 004641 107200 900001 002235 SUB #1, MAXSEC 3 pe cacneat SECTOR om 
72 004644 014654 BEQ 7 3 IF COUNT COMPLETE, BRANCH 
73 004645 105200 000001 002175 ADD #1, CURBN | ADD ONE TO LO CURRENT SECTOR 
74 004650 044447 BCC 5$ 3: IF NO CARRY, BRANCH 
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FILLIN = FILL THE READ/WRITE CHAIN LINK (NODE) WITH REQUIRED I 


75 004651 


115400 
004 


002176 


000046 
000100 


000400 
000010 
000012 


INC CURBN+1 
5$ 


BR 
7$: CLR R1 
CLR R2 
MOV U.PARM(RS) ,R3 
BIT #REDWRT,R3 
BEQ 
BIT #REVEC,R3 
BNE & 
MOV #WRITE,RO 
BR 3$ 
2$: MOV #READ,RO 
3$: BR JMPRET 


-DSABL LSB 


PROPOGATE CARRY 
RANCH 


B 
IMMIDATE CALL 
NO ERROR 


GET UNIT PARAMETERS 
SEE IF READ IS TO BE DONE 


IF SO, BRANCH 

See IF Yd RCT 
WRITE ROUTINE IS NEXT 
BRANCH 

READ ROUTINE IS NEXT 


SEQ 0981 
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ALLOCM = ALLOCATE MEMORY FOR THE READ/WRITE BUFFERS AND CHAIN 


Ty me et es os 2 a es 


onan 


SOONAMNOOONONS 


se EF 


oo 


No— 


1 
1 


7 


0 
04 
000 


0 
3 


70 004701 


07 004701 
000 


- SBTTL 
ALLOCM: 


TMEMPL : 
SECPTR: 


BUF ARA 


MAXADR 


ALLOCM = ALLOCATE MEMORY FOR THE READ/WRITE BUFFERS AND CHAIN 


ALLOCATE MEMORY FOR READ/WRITE SUFFERS 


SUB RO, TMEMPL 


MOV TMEMPL ,RO 
RETURN 

.BLKw 1 

-BLKW 


1 
“IF LT,BUFARA-. 
SENDC 

“IF LE, MAXADR=. 


ENDC 


: SUBTRACT LENGTH FROM MEMORY POOL 
: RO POINTS TO MEMORY ALLOCATED 
; RETURN TO CALLING MODULE 


: TEMPORARY MEMORY POOL FOR READ/WRITE 
; SECTOR POINTER FOR WRITE 


SEQ 0982 
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eeeeeerere OVERLAY MODULE WRI 


1 .SBTTL ‘*teeeeeeee OVERLAY MODULE WRITE 
5 004703 DMOVLY W,AREAO 
004703 000105 .WREDC :OUTPUT EDC FOR THIS OVERLAY 
9 pReeeeeneeeeneeeeeeeteeeeeeeeeeeeeeeneReeeaaeeeeneeeeeeneeeneneeeeeeeeeeeeeeee 
10 FRA AAAAAAAEAERERAEEEEAEEEEEEEEEEEAAAERAAREEAAEREAAAEREREEEEREEHEREHEEEREEEEEES 
11 fF TRRAAEEAAAAEEEEAAEEAEEAEEAAEEEEAEEAEEAAEAEREEAEREEEEEEREREEEEEEEEREAAEEEEEEEEE 
12 acai ian ia hath ahaa i ieee 
13 ° 
is . 
9 000010 rite = BUILDP+1 
33 ; WRITE GENERATES THE PATTERNS AND WRITES THEM TO THE DRIVE 
3 .ENABL LSB 
024172 CALL DSABLE : DISABLE ERROR RECOVERY 
104657 000012 MOV U.RWTOCRS).RO  ; MOVE READ/WRITE TIMEOUT VALUE TO RO 
115407 INC : INCREMENT COUNT 
100657 000012 MOV RO,U.RWTO(RS) =: SAV 
014513 BEQ : IF ZER KNOW THAT THE TIMEOUT IS UNEX 
106207 000002 CMP #2,R0 : SEE IF OF RIED Ma MAXIMUM TIMES 
BCS 11$ ; IF SO, BRANCH 
044426 Bcc +2 
004432 BR 11$ 
104141 MOV (R4),R1 ; Ger SUBUNIT PARAMETERS 
ASSUME $.PARM,O ; ASSUME THAT $.PARM IS ZERO 
102201 001000 BIT #RTRIES,R1 ; SEE IF RETRIES ARE ENABLED 
054513 BNE : IF BRANCH 
11$: HARDER BF <S.LETR(RG) U-CON(RSS .1) Coned (RS)> 
104200 002337 001107 MOV #ER25,HRO.04 
04640 000005 001110 MOV S.LETR(R4), slike. 05 
04650 000053 001111 MOV U. CBN(RS5) ,HRO.06 
104650 000054 001112 MOV U.C CBNeT (RS) HRQ.07 
104202 107671 MOV #25 'ERHARD+4000. ,R2 
104020 001105 MOV Ro iha. 02 
104200 004452 001104 MOV 1 
104200 060014 001103 MOV SERRAC. HRQ.RQ 
ERRORC <U.PARM(RS),#RBNTXT,U.RBN(RS) ,U.RBN+1(R5)> 
104650 000046 001113 MOV U-PARM(RS) , ina. 08 
104200 005472 001114 MOV @RBNTX 
104650 000055 001115 MOV U. BBNCRE Maa. 10 
104650 000056 001116 enti MOV U.RBN+1(R5),HRQ.11 
114000 002230 CLR ERRPOS : CLEAR THE POSITION 
104653 000046 U.PARM(RS).R3 ; GET UNIT PARAMETERS 
103203 000200 BIC #RBN : IF HANDLING AN RBN, CLEAR IT 
100653 000046 MOV R3, u PARM(RS) : SAVE 
104201 000001 MOV #1-R : ONLY 1 SECTOR HANDLED 
100651 000021 MOV R1.U.NSEC(RS) : STOR 
104207 000001 MOV #SETUP,RO + SETUP IS NEXT MODULE CALLED 
004636 BR 7$ : BRANCH 
02177 8$: CALL  BULDUM : BUILD DUMMY SDI CONTROL BLOCK 


omer eh. BULDSC = BUILD THE SECTOR TO WRITE (FILL WITH PATTERN AND CALC EDC) 


; BULDSC BUILDS THE INFORMATION AND DATA PATTERN TO BE WRITTEN ON THE 
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UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 99-1 SEQ 0984 
BULDSC = BUILD THE SECTOR TO WRITE (FILL WITH PATTERN AND CALC 

66 3 SECTOR 

68 004514 104651 000014 MOV U.PAT(RS),R1 —-;- GET PATTERN NUMBER TO WRITE 

69 004516 104013 MOV R1,R3 : COPY PATTERN NUMBER TO R3 

70 006517 110701 SWAB sé : SWAP THE BYTES 

71 004520 101013 BIS R1,R3 : REPLICATE THE PATTERN NUMBER 

72 004521 104031 MOV R3,R1 : COPY T 

73 004522 110201 ROL R1 : ROTATE TO NEXT POSITION 

74 004523 110201 ROL R1 

75 004524 110201 ROL R1 

76 004525 110201 ROL R1 

77 004526 103201 007417 BIC #*CHBLONB!*CLBLONB,R1 =; CLEAR UNUSED BITS 

78 004530 101013 BIS i. : REPLICATE THE PATTERN 

79 004531 104307 002232 MOV CHAINS,RO : GET POINTER TO FIRST WRITE CHAIN NODE 

80 004533 104677 000001 MOV RW.BUF(RO),RO : RO POINTS TO BUFFER AREA 

81 004535 100273 MOV R3, (RO)+ : MOVE PATTERN NUMBERS TO SECTOR 

82 .SBTTL COPPAT = COPY THE DATA PATTERN TO BUFFER 

+4 ;COPPAT 

85 ; COPPAT COPIES THE PATTERN TO THE SECTOR TO BE WRITTEN 

87 004536 PUSH  <RO,R4,R5> : SAVE RO,R4,R5 
004536 100467 MOV RO,-(SP) 
004537 100464 MOV R4,=(SP) 
004540 100465 MOV RS,=(SP) 

88 004541 104652 000014 MOV U.PAT(RS),R2 =; R2 HAS PATTERN NUMBER 

89 004543 104622 002236 MOV PATPTR(R2),R2 |; POINT TO PATTERN 

90 004545 115402 INC R : SKIP E 

91 004546 104201 000377 MOV #SCTWRD,R1 : R1 HAS NUMBER OF WORDS TO FILL WITH PATTERN 

92 004550 104024 COPLPO: MOV : R4 POINTS TO LENGTH OF PATTERN 

93 004551 104243 MOV (R4)+,R3 ; R3 CONTAINS LENGTH OF PATTERN 

94 004552 106203 000001 CMP 1,R3 : SEE IF PATTERN IS 1 WORD LONG 

95 004554 014564 BEQ ONEPAT : IF $O H 

96 004555 104245 COPLP1: MOV (R4)+,R5S : RS GETS 1 WORD OF THE DATA PATTERN 

97 004556 100275 MOV RS, (RO)+ ; MOVE PATTERN WORD TO SECTOR AREA 

98 004557 117401 DEC R1 : DECREMENT NUMBER OF WORDS TO WRITE IN SECTOR 

99 004560 014570 BEQ COPFIN : IF ALL WORDS WRITTEN, BRANCH 

100 004561 117403 DEC 3 : DECREMENT COUNT OF WORDS IN PATTERN 

101 004562 054555 BNE COPLP1 : IF DATA PATTERN UNFINISHED, BRANCH 

102 004563 004550 BR COPLPO + BRANCH 

103 004564 104145 ONEPAT: MOV (R4) RS : GET 1 WORD OF DATA PATTERN 

104 004565 100275 COPLP2: MOV RS, (RO)+ : MOVE PATTERN TO SECTOR AREA 

105 004566 117401 DEC R1 > DECREMENT NUMBER OF WORDS TO MOVE TO SECTOR 

106 004567 054565 BNE COPLP2 : IF INCOMPLETE, BRANCH 

107 004570 104425 COPFIN: MOV =(R2),R5 ; DC 

108 004571 100175 MOV RS, (RO) : MOVE TO BUFFER 

109 004572 POP <R5,R4,RO> + RESTORE R5,R4,R0 
004578 104265 MOV (SP)+,R5 
004573 104264 MOV (SP)+-R4 
004574 104267 MOV (SP)+.RO 

110 004575 104651 000014 MOV ;PAT(RS).R1 =; GET PATTERN NUMBER 

111 004577 054604 BNE $ : IF NOT PATTERN 16, BRANCH 

Ie 004600 117407 DEC R : POINT TO START OF BUFFER 

113 004601 02114 CALL CMPEDC : COMPUTE EDC 

114 004602 100672 000400 MOV R2,BF.EDC(RO) : SAVE EDC 

115 004604 02463 21$: CALL  WBLOCK : WRITE THE SECTOR 

116 004605 115002 st : SEE IF ERROR OCCURRED 


any 


COPPAT = COPY T 


3S * 


SPEEEREREOERERS - 


tk kk ks at as od ot 
AAA 


SSNS = 


N= 


0546 
10464 


—_ 8 td od od oS IO — 
3Seeerssee 

SE SUUSENES 
SSSR SSES WwW SS 


=e> 
N 
° 


ee 
Ss 


ATTERN TO BUFFER 


000011 
003642 


003642 
0011 


$: 
1$: 


BR 
-DSABL LSB 
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7$ 
S.MEGW(R4) ,R3 
#1954. ,R3 


#1954. ,R3 
aoe S.MEGWCR4) 


R 
MOV #AFTWRT,RO 
JMPRET 


; IF _NOT, BRANCH 


GET MEGAB 


YTE COUNT 
; SEE IF ONE MEGABYTE TRANSFERED 
; BRANCH IF 


NOT 

CLEAR MEGABYTE COUNT 

SAVE NEW COUN 

NOT YT ater READS 

REPORT 1 MEGABIT WRITTEN 

of UP FOR MEGABIT REPORT 
aun AS NON-ERROR 


NO ERRORS 

AFTWRT IS NEXT MODULE 
IMMIDATE CALL 

RETURN TO RDWRT 


SEQ 0985 
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WBLOCK = WRITE THE SECTOR(S) 


1 .SBTTL WBLOCK = WRITE THE SECTOR(S) 
: 004637 WBLOCK: 
4 ; WBLOCK WRITES THE SECTOR(S) ONTO THE DRIVE 
6 004637 PUSH = RG : SAVE R4 
004637 100464 MOV R4,=(SP) 
7 004640 104307 002232 MOV CHAINS ,RO : POINT TO START OF CHAIN 
8 004642 104652 000025 MOV U.MASK(R5),R2 +: R2 HAS SDI INTERCONNECT 
9 004644 104644 000007 MOV R(R4).R4 +: R4 POINTS TO SUBUNIT CHARACTERISTICS 
10 004646 104644 000005 MOV DATPRE(R4).R4 : R4 CONTAINS DATA PREAMBL E LENGTH 
11 004650 103204 177400 BIC #HIBYTE RG : STRIP OFF UNUSED BITS 
12 004652 060012 XFC WAITSI : WAIT FOR SECTOR OR INDEX PULSE 
13 004653 115001 TST R1 + SEE IF ERROR OCCURRED 
14 004654 014714 BEQ 3$ 
15 004655 DEVFTL 42,<U.CGRP(RS) ,U.CCYL(RS) ,U. CCL #1(R5)> 
004655 104200 003066 001107 #ER42,HRO.04 
004660 104650 000066 001110 MOV U. CenPenss. HRQ.05 
004663 104650 000064 001111 MOV U.CCYL(R5) .HRQ. 
004666 104650 000065 001112 MOV U.CCYL#1(R5) ,HRO.07 
004671 104202 0477 MOV #42! FTLDEV+4000. .R2 
004673 104020 001105 MOV R2,HRQ.02 
004675 104200 004675 001104 MOV #..HRQ.01 
004700 104200 060014 001103 MOV #ERRMC ,HRO.RQ 
16 004703 ENDERR 
004703 104200 000051 001113 MOV #SER22,HROQ.08 
004706 104200 000011 002230 MOV #8+1, ERRPOS : SET THE POSITION 
17 004711 024207 CALL  GOSEEK 
18 004712 POP R4 : RESTORE SUBUNIT POINTER 
004712 104264 MOV (SP)+,R4 
19 004713 005015 BR 6$ : EXIT 
20 004714 3$: 
28 004714 060003 XFC XWRITE : WRITE THE SECTOR(S) 
29 004715 POP RG : RESTORE R4 
004715 104264 MOV (SP)+,R4 
30 004716 100651 000061 MOV R1,U.RWER(RS) =; SAVE ERROR IF ANY 
31 004720 014767 BEQ 5$ : IF NO ERROR, BRANCH 
32 004721 104651 000026 MOV U.WRIT(RS),R1  : GET WRITE PROTECTION STATUS 
33 : NOW I OR IN THE READ-ONLY WRITE PROTECT BITS. THIS WILL CATCH 
34 : IT IF IF pQOnE HOW I GET INTO THIS MODULE ON A READ-ONLY DRIVE 
36 004723 101651 000045 BIS U. UPRTiRGS. R1 =; SET READ-ONLY BITS 
37 004725 104652 000050 MOV U.SUBU(R5).R2  : GET SUBUNIT IN USE 
38 004727 105202 000003 ADD a3, R2 : ADD 3 TO SHIFT WRITE PROT STAT TO LO NIBBLE 
39 004731 110601 10$: ROR : ROTATE PROTECTION STATUS (LO BIT TO CARRY) 
40 004752 117402 DEC RD : DECREMENT SUBUNIT IN USE 
41 004733 034731 BPL 10$ : IF >= 0, BRANCH 
42 004734 110601 ROR R1 : MOVE THE BIT INTO CARRY TO TEST 
43 004735 045014 BCC 7$ : IF CARRY CLEAR (NOT WRITE PROTECTED) BRANCH 
44 004736 DEVFTL 18,U.RUER(RS) ; REPORT WRITE ON WRITE PROTECTED DRIVE 
004736 104200 001702 001107 MOV #ER1 RQ, ;04 
004741 104650 000061 001110 MOV ULRWERCR ),HRO.05 
004744 104202 047662 MOV #iBrFTLDEvi4o0d..n2 
004746 104020 90110 MOV R2 
004750 104200 004750 001104 MOV #. -HRQ.01 
004753 104200 060014 001103 MOV PERRMC_HRO.RO 
45 004756 ENDERR 








UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 100-1 
WBLOCK = WRITE THE SECTOR(S) 


005013 
52 005014 
53 005015 


104200 
104200 
024207 


000051 
000007 


000012 


000001 
001106 
001107 


000063 
0 


060007 


001111 
002230 


001105 


5$: 


7$: 
6$: 


BUF ARA 


MAXADR 


SEQ 0987 


MOV ASER22,HRO.06 
MOV #6+1,ERRPOS : SET THE POSITION 


CALL GOSEEK 
R5,R1 DEFFERED CALL 

BRANCH 

GET TIMEOUTS 


; IF NO RETRIES, BRANCH 
; REPORT ONE ~~ 


MOV U.RWTOCRS) ,RO 
BEQ 7$ 
REPSFT SOFT 


CLR HRQ.04 


#1,HRQ.02 
HRQ.03 


MOV _RO,=(SP) 


MOV U.UNUM(R5S) ,RO 
ADD U.SUBU(RS) ,RO 
MOV RO,HRQ.01 

MOV #T4SOFT,RO 


CALL HOSTRQ 


R2 NO ERRORS 


CLR ROR 
“a ; RETURN TO CALLING PROGRAM; 


LT, BUF ARA-. 


“IF LE ,MAXADR-. 
+1 


mm 


MOV (SP)+,RO 


UDAT4 DISK EXERCISER DMACR gat tb 23-AUG=82 12:02:53 PAGE 101 SEQ 0988 
eeeeereeee OVERLAY MODULE AFTW 


1 .SBTTL *keeeeeeee OVERLAY MODULE AFTWRT 
5 005016 DMOVLY AW,AREAO 
065016 000105 .WREDC sOUTPUT EDC FOR THIS OVERLAY 
9 OTT TITITILI LILI LLLELELI TITTLE LITTLE LTT TTT TTT TTT TET TTT TTT Tete 
10 FERRE ARERR EERE EERE REE AEEAEREREEREEEEEEEEEEEEREREREEREEEEEREEEEEEEE EE 
11 FERRARA AERA EEE EEE EERE EERE REAR REREE EAA EEE EERE EREKEEEEEEERE REE 
12 FERRARA RARER EE EEE REE RRER AERA EEE EEEEEEEEEEEEEEES 
13 ; 
is 
9 000011 AF TuRT = WRITE+1 
29 : AFTWRT WILL HANDLE ANY ERRORS THAT OCCURRED DURING THE WRITE 
30 ; OPERATION 
39 .ENABL LSB 
40 .SBTTL FNDWER = IF ERROR DURING WRITE, FIND IT'S POSITION IN THE CHAIN 
Pe FNDWER 
43 : FIND THE FIRST BUFFER THAT IS NOT WRITTEN 
45 004413 PUSH <R4,R5> : SAVE REGISTERS 
004413 100464 MOV R4,=(SP) 
004414 100465 MOV R5,=(SP) 
46 004415 104654 000053 MOV U.CBN(RS).R4 ;- GET LO ORDER BN 
7 004417 104655 000054 MOV U.CBN+1(R5),R5 : GET HI BN 
48 004421 114002 CLR R2 : CLEAR SECTOR COUNT 
49 004422 104307 002232 MOV CHAINS RO : RO POINTS TO FIRST BUFFER 
50 004424 100674 000002 31$: MOV R4,RW.LOWCRO) : MOVE TO CH AIN 
51 004426 100675 000003 MOV RS.RW.HICRO) so: TO CHAIN _ 
004430 104171 MOV (RO) ,R1 : Gere STATUS ABITS 
56 004431 ASSUME RW.STAT,O 
5 004431 102201 040000 BIT #BUFFLG.R1 : SEE If THIS BUFFER HAS BEEN WRITTEN 
004433 054447 BNE 32$ : IF NOT, BRANCH 
67 004434 115402 INC R2 : INCREMENT SECTOR COUNT 
004435 115001 TST R : SEE IF END-OF-LI 
436 074447 BMI : IF LAST BUFFER, EXIT 
70 004437 ASSUME £E0C,100000 + ASSUME WRITE STOP BIT IS SIGN BIT 
71 004437 103201 170000 BIC NADDR,R1 : CLEAR UNUSED ADDRESSING BITS 
72 004441 104017 e : MOVE TO RO 
73 004442 105204 000001 ADD : ADD ONE:TO LOW ORDER BN 
74 004444 044424 BCC $ : IF NO CARRY, BRANCH 
75 004445 115405 INC 5 + PRPOGATE CARRY 
76 004446 424 BR 31$ + LOOP 
77 004447 32$: POP <R5,R4> : RESTORE REGISTERS 
004447 104265 MOV (SP)+,R5 
004450 104264 V (SP)+_R4 
78 004451 100692 000021 MOV R2,U.NSEC(RS) ; SAVE AS NUMBER OF SECTORS HANDLED 
004453 105642 000011 ADD S.MEGW(RG),R2 =: ADD TO MEGABITS WRITTEN 
80 004455 10064¢ 000011 MOV R2,S.MEGW(R4) =: SAV 
81 004457 10465 1 MOV Y-RWER (RS) .Re ; SEE IF ANY ERROR OCCURRED 
82 004461 054474 BNE $ : 
83 004462 104657 6 MOV U.PARM(RS),RO : ber UNIT PARAMETERS 
84 004464 103207 000200 BIC BNBN,RO : CLEAR RBN BIT 
85 004466 100657 6 MOV RO,U.PARM(RS) =: SAV 
86 004470 104207 000001 MOV ETUP,RO + SETUP NEXT MODULE 
87 004472 104051 MOV : + DEFERRED CALL 
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UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 101-1 ‘ SEQ 0989 
FNDWER = IF ERROR DURING WRITE, FIND IT'S POSITION IN THE CHAI 

88 004473 005214 BR 17$ : EXIT 

89 004474 021725 3$: CALL  BLKCHK : SEE If THIS IS A KNOWN BAD BLOCK 

90 004475 BCS 15$ : IF NOT, BRANCH 
004475 044477 BCC +2 
004476 004510 BR 15$ 

91 004477 104657 000021 MOV U.NSEC(R5),RO ; GET NUMBER OF SECTORS WRITTEN 

92 004501 115407 INC » } SKIP THIS SECTOR 

93 004502 100657 000021 MOV RO,U.NSEC(R5S) |: SAVE 

94 004504 104207 000001 MOV #SETUP,RO : SETUP NEXT MODULE 

95 004506 104051 MOV R5,R1 + DEFERRED CALL 

96 004507 005214 BR 7§ : EXIT 

97 004510 104651 000021 15$: MOV U.NSEC(RS),R1 =: GET SECTORS WRITTEN 

98 004512 105651 000024 ADD U.CSEC(R5),R1 =: ADD TO TOTAL SECTORS WRITTEN 

99 004514 100651 000024 MOV R1,U.CSEC(R5) + SAVE 

100 004516 104651 000021 MOV U.NSEC(R5).R1  : GET SECTORS WRITTEN 

101 004520 105651 000053 ADD U.CBN(R5),R1 ; ADD TO LO ORDER CURRENT BN 

102 004522 100651 000053 MOV R1,U.CBN(R5) : SAVE 

103 004524 044532 BCC : IF NO CARRY, BRANCH 

104 004525 104651 000054 MOV - U.CBN+1(R5),R1 : GET HI ORDER CURRENT BN 

105 004527 115401 INC + PROPOGATE CARRY 

106 004530 100651 000054 MOV R1,U.CBN¢1(R5) : SAVE 

107 004532 114001 2$: CLR R1 : SET UP FOR NO SECTORS WIRITTEN 

108 004533 100651 000021 MOV R1,U.NSEC(RS) : SAVE 

109 004535 104651 000061 MOV U.RWER(RS),R1 + GET WRITE ERROR 

110 004537 106201 000003 CMP #3,R1 : SEE IF REVECTOR 

111 004541 014600 BEQ : IF SO, BRANCH 

112 004542 106201 000002 CMP #2,R1 : SEE If FAILURE IN DRIVE 

113 004544 054564 BNE 6$ : IF NOT, BRANCH 

114 004545 SOFTER 6 + REPORT 
004545 104200 000562 001107 MOV WER, HRO.04 
004550 104202 147646 MOV #6! ERSOF T+4000. .R2 
004552 104020 001105 MOV R2,HRQ.02 
004554 104200 004554 001104 MOV #. .HRQ.01 
004557 104200 060013 001103 MOV #ERRMES,HRO.RO 

115 004562 024223 CALL  GOINIT 

116 004563 005115 BR 12$ : BRANCH 

117 004564 106201 000004 6$: CMP #4,R1 : SEE IF HEADER COMPARE FAILURE 

118 004566 054712 BNE : IF NOT 

119 004567 104651 000046 MOV U.PARM(R5S),R1 =: GET UNIT PARAMETERS 

120 004571 104143 MOV (R4),R3 + GET SUBUNIT PARAMETERS 

121 004572 ASSUME $.PARM,O 

122 004572 102203 020000 BIT #OCYLS.R3 ; SEE IF USING DIAGNOSTIC CYLINDERS 

123 004574 054604 BNE : IF 

124 004575 102201 000200 BIT #RBNBN,R1 : SEE If WRITING A RBN 

125 004577 054604 BNE : IF SO, BRANCH 

126 004600 104207 000022 1$: MOV #REVCT,RO + REVECTOR NEXT MODULE 

127 004602 114001 CLR R1 : IMMIDATE CALL 

128 004603 005214 BR 17$ : EXIT 

129 004604 7$: HARDER 5 : REPORT HEADER COMPARE FAILURE 
004604 104200 000365 001107 MOV HROQ.04 
004607 104202 107645 MOV #5 ‘ERHARD+4000. .R2 
004611 104020 001105 MOV R2.HROQ.O2 
004613 104200 613 001104 MOV . HRQ.01 
004616 104200 060014 001103 MOV #ERRMC ,HRQ.RO 

130 004621 ERRORC <S.LETR(R4),RW.LOW(RO) ,RW.HI(RO)> 
004621 104640 000005 001110 MOV S.LETR(R4) ,HROQ.05 
004624 104670 000002 001111 MOV RW. LOW(RO) .HRO.06 





pm a a a ne ened 





Oonoe! 
131 0046 $ 
00463 
004634 
004637 
132 004642 
00464 
00464 
133 004650 
004650 
004653 
004656 
134 004664 


WA Ww 
NADA 
So ~“ 
_ vi 


145 


SBBBEREBSERRSERESSERERESSERNESESIIE 


AAW 
ERE REELS 


S 


104670 


RRR ERLE LE FFE 
o 


ae 
San 
SFSaE 
MON 
WO—GMoue 


382 
WROPORP) 


nr & 
ss ONAN oe 


PEUSeEeES Eabessecss & 
SSSNS VIaaSSsxns VUSSNNS 


Satetits 
= Onn 


& 
mo 
= 


o— 
Ww 
w 


000003 
001113 
00547 
00005 


000056 
000006 


000071 
000067 
000070 


002230 
000200 


001112 


oo 
oo 


ooo ocooo coco 
Sooo ocoooo oo 
= i 
aad aiatatad ada ado 
Mmrnm formrrn -——] 
Out Wo NO Ue 


001107 


001107 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 1 
FNDWER = IF ERROR DURING WRITE, FIND IT'S POSITION IN THE CHAI 


228: 


238: 


C 13 


Es PAGE 101-2 


ERRORC 


ERRORC 


ERRORC 


ERRORC 


ENDERR 


N 
REPSFT 


SOFTER 


#1, 
R1,U.NSEC(RS) 
#SETUP,RO SETUP NEXT MODULE 
E D REP 


ONLY 1 SECTGR WRITTEN 
SAVE 


SEQ 0990 | 
MOV RW.HI (RO) ,HRO.07 
<R1,#RBNTXT,U.RBN(RS)> 
MOV R1,HROQ.08 
MOV #RBNTXT, HRO.09 
MOV U.RBN(R5) ,HRO. 10 
<U.RBN+1(R5) ,RW.ANG(RO)> 
MOV U.RBN+1(R5),HRO.11 | 
MOV RW.ANG(RO) ,HROQ.12 
<RW.CMD(RO) ,U.CGRP(RS) ,U.CCYL(R5S) ,U.CCYL#1(R5)> 
MOV RW.CMD(RO),HROQ.13 
MOV U.CGRP(R5) .HRO.14 
MOV U.CCYL(R5) .KRQ.15 
MOV U.CCYL+1(R5) ,HRO.16 
<U.LGRP(RS5) ,U.LCYL(R5) ,U.LCYL#1(R5)> 
MOV U.LGRP(RS) ,HRO.17 | 
MOV U.LCYL(R5) .HRQ.18 
; MOV U.LCYL+1(R5) ,HRO.19 | 
CLR ERRPOS : CLEAR THE POSITION: 
#RBNBN,R1 NO LONGER HANDLING AN RBN 
R1,U.PARM(RS) } 
| 
! 
| 


1 XIT AN 0 
#153,R1 SEE IF POSITIONER ERROR 
22$ IF NOT, BRANCH 
+e SEEK REPORT SEEK ERROR | 
CLR HRQ.02 
CLR HRO.03 | 
MOV #1,HRQ.04 
MOV RO,-(SP) 
MOV U.UNUM(RS) ,RO | 
ADD U. SUBUC(RS) RO 
MOV = RO, HRQ.01 | 
MOV #T4SOFT,RO 
CALL  HOSTRQ 
MOV (SP)+,RO 
44 : POSITIONER ERROR 
MOV #ERG4 ,HRO.04 
MOV #44 'ERSOFT+4000. ,R2 
MOV »HRQ.02 | 
MOV »- ” 
MOV #ERRMES ,HRQ.RO 
GORCLB : RECALIBRATE NEEDED 
12$ 3 BRAN 
#213,R1 : SEE IF READ/WRITE FAILURE 
23$ : IF NOT, BRANCH 
: READ/WRITE READY FAILURE 
MOV ER48,HRO.04 
MOV #48 ERSOFT+4000. .R2 
MOV R2,HRQ.02 | 
MOV #..HROQ.01 | 
MOV #ERRMES ,HRO.RO 
12$ : ERROR EXIT 
#253,R1 : SEE IF DRIVE DATA OR CLOCK TIMEOUT | 
21$ ; IF NOT, BRANCH 


D 13 i aaa 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 101-3 SEQ 0991 


FNDWER = IF ERROR DURING WRITE, FIND IT'S POSITION IN THE CHAI 
154 005002 SOFTER 47 : DRIVE CLOCK TIMEOUT 
005002 104200 003214 001107 MOV #ER47,HRO.04 
005005 104202 147717 MOV #47 ‘ERSOFT+4000. ,R2 
005007 104020 001105 MOV R2,HRQ.02 
005011 104200 005011 001104 MOV #..HRQ.01 
005014 104200 060013 001103 MOV #ERRMES ,HRO.RO 
155 005017 024223 CALL  GOINIT : INIT THE DRIVE TO RECOVER 
156 005620 005115 BR 12$ : ERROR EXIT 
157 005021 106201 000313 21$: CMP #313,R1 : SEE IF RECIEVER READY TIMEOUT 
158 005023 055043 BNE 24$ + IF NOT, BRANCH 
159 005024 SOFTER : RECEIVER READY FAILURE 
005024 104200 003270 001107 MOV #ERGI,HRO.04 
005027 104202 147721 MOV #49! ERSOF 1 +4000. .R2 
005031 104020 00110 MOV R2,HRQ.02 
005033 104200 005033 001104 MOV #. .HRQ.01 
5036 104200 060013 001103 MOV #ERRMES ,HRO.RO 
160 005041 024223 CALL GOINIT : INIT THE DRIVE TO RECOVER 
161 005042 005115 BR 12$ 
162 005043 106201 000413 24$: CMP #413,R1 : SEE IF RTDS ERROR PURING WRITE 
163 005045 055064 BNE 25$ : IF NOT, BRANCH 
164 005046 SOFTER 63 : 
005046 104200 004115 001107 MOV #ER63,HRO.04 
005051 104202 147737 MOV POS tERSOF 154000. .R2 
005053 104020 001105 MOV R2.HRQ. 02 
005055 104200 005055 001104 MOV #..HRQ.01 
5060 104200 060013 001103 MOV #ERRMES,HRO.RO 
is Mipired sane 25$ GARDER 1S cosense Ri> ’ — UNKNOWN ERROR C 
5064 104200 004175 001107 MOV Peres HRQ.04 
5067 104200 004242 001110 MOV #SER36, HRQ.05S 
005072 104010 001111 MOV R1,HRO.06 
005074 104202 107744 MOV 6B ERARD+4000. .R2 
005076 104020 001105 MOV R2,HRQ.02 
005100 104200 005100 001104 MOV #..HRQ.01 
005103 104200 060014 001103 MOV #ERRMC ,HRO.RO 
167 005106 ENDERR 
005106 104200 000051 001112 MOV #SER22,HRO.07 
005111 104200 000010 002230 MOV #7+1, ERRPOS : SET THE POSITION 
168 005114 005206 BR 14$ 
169 005115 12$:  CERROR 5,#SER19 
005115 104200 000470 001110 MOV #SER19,HRO.05 
170 005120 ERRORC <U.RWTO(RS),S.LETR(R4) ,RW.LOW(RO) ,RW.HI(RO)> 
005120 104650 000012 001111 MOV U-RUTOCRS), HRQ.06 
005123 0 000005 001112 MOV S-LETR(RG) “MnO OF 
005126 104670 000002 001113 MOV Rw.LOW(RO) .HRQ.08 
005131 104670 000003 001114 MOV RW. HI (RO) ,HRQ.09 
171 005134 ERRORC <U.PARM(RS) ,#RBNTXT,U.RBN(RS)> 
005134 104650 000046 001115 MOV U.PARM(RS) ,HRQ. 10 
005137 104200 005472 001116 MOV #RBNTXT,HRQ. 
005142 104650 000055 001117 MOV U.RBN(R5) ,HRO.12 
172 005145 ERRORC <U.RBN+1(R5),RW.ANG(RO)> 
005145 104650 000056 001120 MOV U.RBN+1(R5),HRO.13 
005150 104670 001121 MOV RW.ANG(RO) ,HRQ.14 
173 005153 ERRORC <RW.CMD(RO),U.CGRP(RS) .U. CCYL(RS) su. CCVLST(RS)> 
005153 104670 000004 001122 RU. CHD CRO? HRO.15 
005156 104650 000066 0011 MOV U. MeGRPCRS). *HRQ.16 
005161 104650 001124 MOV U.CCYL(R5) -HRQ.17 
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NOWER = IF ERROR DURING WRITE, 


000065 
000071 
000067 
000070 


000051 
000027 


000001 
000022 





DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 101-4 


FIND IT*S POSITION IN THE CHAI 


001125 
0011 

801137 
001130 


001131 
002230 


U.CCYL+1(R5) ,HRO.18 
U.LGRP(RS) HR. 19 
U.LCYL+1(R5) ,HRO.217 
#SER22,HRQ.22 
MOV 22+1,€ 
: SEEK REQUIRED FOR ERROR RECOVERY 
ONLY TRY TO WRITE ONE SECTOR 

ANCH 


MOV 
ERRORC itt i iteabtmtacnsecentiettae 
: SET THE POSITION 


; NO ERRORS 
; RETURN TO CALLING PROGRAM 


F 13 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 102 SEQ 0993 
weeeerteee OVERLAY MODULE READ 


1 .SBTTL *eeeeeeeee OVERLAY MODULE READ 
5 005216 DMOVLY R,AREAO 
005216 000105 WREDC sOUTPUT EDC FOR THIS OVERLAY 
9 PITIIIITILIIILILIIIIITILIT ITT ITI TL ITT LITITT TTT TT TTL Titi TTT 
10 FERRARA AAAEAAAAAEAAEERE EAE E AERA AEAAAEAEAEEAAEREEREEEEAEREEEEEEREEEEEEEETEREEE 
11 FRERAAEAAAAAAERAEARAEAEEEEAAE TERESA AERA AEEEAEEEEEERERAEAEEEEEEEEEREEEEEREEEEEE 
12 FARRAR AAAAAAEEAAAAEAAEAAEEEEE EEE EAEAAAAAAEAAEREREEEEEREEEREEEEEAREEEEEEEREEEEEE 
13 ; 
13 ! 
000012 READ = AF TWRT+1 
29 : READ READS A BLOCK FROM THE DEVICE 
38 .ENABL LSB 
39 004413 024172 CALL DSABLE : DISABLE ERROR RECOVERY 
40 004414 104657 000012 MOV U.RWTO(RS),RO : MOVE READ/WRITE TIMEOUT VALUE TO RO 
41 004416 115407 INC RO : INCREMENT COUNT 
42 004417 100657 000012 MOV RO,U.RWTO(RS) : SAVE READ/WRITE TIMEOUT 
43 004421 014531 BEQ 5$ : IF ZERO, FIRST TIME == BRANCH 
44 004422 106207 000002 CMP #2,R0 ; SEE IF ATTEMPTED MAX TIMES 
45 004424 BCS 11$ : IF SO, BRANCH 
004424 044426 BCC +2 
004425 004437 BR 11$ 
46 004426 104141 V (R4) RI ; GET SUBUNIT PARAMETERS 
47 004427 ASSUME S.PARM, ; ASSUME THAT S.PARM IS ZERO 
48 004427 102201 001000 BIT WRIRIES,R1 ; SEE_IF RETRIES ENABLED 
49 004431 054531 BNE & ; RANCH 
0 004432 104651 000046 MOV U.PARM(R5),R1  : GET UNIT PARAMETERS 
51 004434 102201 000400 BIT #REVEC,R1 : SEE IF READING RCT 
52 004436 054531 BNE 5$ : IF SO, GO FOR RETRIES 
53 004437 11$: HARDER 26,<S.LETR(R4),U.CBN(R5) ,U.CBN#1(R5)> 
004437 104200 002366 001107 MOV #ER26,HRO.04 
004442 104640 000005 001110 MOV S. LETRORGD. HRO.05 
004445 104650 000053 001111 MOV U. CBN(RS) Ht 
004450 104650 000054 001112 MOV U. CBNSTCRE) HRQ, 07 
004453 104202 107672 MOV #26! ERHARD+4000., 
004455 104020 001105 MOV R2, RQ. 02 
004457 104200 004457 001104 MOV #..HRQ.01 
004 104200 060014 001103 MOV PERRMC. HRQ.RO 
54 00446 ERRORC <U.PARM(RS) ,#RBNTXT,U.RBN(RS) .U.RBN+1 (R5S)> 
004465 104650 000046 001113 MOV U. PARIN(RS) , HRO.08 
004470 104200 005472 001114 MOV @RBNTX 
004473 104650 000055 001115 MOV U. Rowerso™ HRO.10 
004476 104650 000056 001116 MOV U.RBN+1(R5) ,HRQ.11 | 
” poceot 114 002230 — CLR ERRPOS CLEAR THE POSITION. 
56 004503 1Odess é MOV u. PARM(RS),R3 =; GET UNIT PARAMETERS | 
37 004505 103203 000200 BIC #RBNBN,R : IF HANDLING AN RBN, CLEAR IT 
58 004507 100653 000046 MOV R3,U.PARM(RS) : SAVE 
59 004511 104207 1 MOV 1. + ONE SECTOR HANDLED 
60 004513 100657 000021 MOV RO.U.NSEC(RS) =: SAV 
61 004515 104207 000001 MOV #SETUP,RO + SETUP IS NEXT MODULE CALLED 
62 004517 104051 MOV R5,R1 : DELAYED CALL TO SETUP 
©. 004520 102203 000400 BIT #REVEC,R3 : SEE IF READING RCT 
64 004522 014536 BEQ BS : IF NOT, BR 
65 004523 104207 000022 MOV #REVCT,RO + REVECTOR NEXT MODULE 








UDAT4 DISK EXERCISER DMACR " 01 23-AUG-82 12:02:53 PAGE 102-1 
weeeeterene OVERLAY MODULE REA 


66 O08 362 104200 177777 002220 MOV #=1,SCR2 
67 0045 004535 BR 4$ 

68 004531 021777 5$: CALL BULDUM 

69 O08 26 024537 CALL RBLOCK 

70 004533 104207 000013 MO’ #SECCHK,RO 
71 004535 114001 4$: CLR 

72 004536 003231 8$: BR JMPRET 

73 -DSABL LSB 


G 13 who 


eat SECTOR AS BAD 


XIT 
; BUILD THE DUMMY SDI CONTROL BLOCK 
; READ THE SECTOR 

; SECCHK NEXT MODULE CALLED 

; IMMIDATE CALL TO NEXT MODULE 


RETURN TO RDWRT MODULE 


SEQ 0994 


H 13 
UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 103 SEQ 0995 
RBLOCK = READ THE SECTORS 





1 .SBTTL RBLOCK = READ THE SECTORS 
: 004537 RBLOCK: 
‘ : READ A SECTOR FROM THE DEVICE 
6 004537 104307 002232 MOV CHAINS,RO ; POINT TO START OF CHAIN 
7 004541 104652 000025 MOV U.MASK(R5),R2  : R2 HAS SDI INTERCONNECT 
8 004543 060012 XFC WAITSI : WAIT FOR SECTOR OR INDEX PULSE 
9 004544 115001 TST R1 : SEE IF ERROR OCCURRED 
10 004545 014604 BEQ 6$ 
11 004546 DEVFTL 42,<U.CGRP(RS) ,U.CCYL(R5) ,U.CCYL+1(R5)> 
004546 104200 003066 001107 MOV #ER42,HRO.04 
004557 104650 000066 001110 MOV U.CGRP(RS) ,HRO.05 
004554 104650 0 01111 MOV U.CCYL(R5) -HRO.06 
004557 104650 000065 001112 MOV U.CCYL+1(R5) ,HRO.07 
004562 104202 047712 MOV #42! F TLDEV#4600. .R2 
004564 104020 001105 MOV R2,HRO.02 
004566 104200 004566 001104 MOV #..HRO.01 
004571 104200 060014 01103 MOV #ERRMC ,HRO.RO 
12 004574 ENDERR 
004574 104200 000051 001113 MOV #SER22,HRO.08 
004577 1 000011 002230 MOV #8+1,ERRPOS : SET THE POSITION 
13 004602 024207 CALL GOSEEK 
14 004603 BR 5$ : EXIT 
15 004604 6$: 
23 004604 060002 XFC XREAD : WRITE THE SECTOR(S) 
24 004605 100651 000061 MOV R1,U.RWER(RS) =: SAVE ERROR TYPE 
35 004607 024641 CALL  FNDRER 3 FIND READ ERROR (FILL IN CORRECT BN NUMBERS) 
6 004610 115001 TST : SEE IF ANY ERRORS OCCURRED 
27 004611 054637 BNE 4$ 3 IF SO, BRANCH 
28 004612 104657 000012 MOV U.RWTO(RS),RO : SEE IF ANY RETRIES 
29 004614 014637 BEQ 4$ : IF SO, BRAN 
30 004615 REPSFT SOFT ; REPORT SOFT ERROR 
004615 104200 000001 001105 MOV #1,HRO.02 
004620 114000 001106 CLR HRO.03 
004622 114000 001107 CLR HROQ.04 
004624 100467 MOV RO,-(SP) 
004625 104657 000063 MOV U.UNUM(RS) ,RO 
004627 105657 000050 ADD U. SUBU(R5) .RO 
004631 104070 001104 MOV 0,HRO.0 
004633 104207 060007 MOV #T4SOFT,RO 
004635 021053 CALL HOST 
004636 104267 MOV (SP)+,RO 
31 004637 114002 4$: CLR R2 : NO ERRORS 
2 004640 000000 5$: RETURN ; RETURN TO CALLING PROGRAM: 





1 
2 004641 
3 
4 
5 
6 004641 
004641 
00464 
00464 
7 004644 
8 004646 
9 004650 
10 004652 
11 004654 
12 004656 
13 004657 
i Sie 
16 oozes 
17 004664 
18 004664 
19 004666 
20 004667 
21 004671 
22 004672 
23 004673 
24 0046746 
004674 
004675 
004676 
25 004677 
29 
30 
31 
32 
33 
34 


NNO UIVIOS 


R 
—_ o 
SIARGUEAES 


oO 
Nm 
™N 
So 


FNDRER = IF ERROR DURING READ, FIND IT’S 


000053 
000054 
002232 
000002 
000003 


040000 


170000 
000001 
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S POSITION IN THE CHAIN 
peut. FNDRER = IF ERROR DURING READ, FIND IT’S POSITION IN THE CHAIN 


7$: 


8$: 


BUF ARA 


MAXADR 


I 13 


FIND THE FIRST BUFFER THAT IS NOT READ 
; SAVE REGISTERS 


PUSH 


RETURN 
IF 


ENDC 
IF 


- ENDC 


<R1,R4,R5> 


U.CBN(RS) .R4 
U.CBN+1(R5),R5 
CHAIN 


(RO),R 
#BUFFLG,R1 
8$ 

R1 

8$ 

EOC ,100000 
#UNADDR ,R1 
R1,RO0 
#1,R4 

7$ 

RS 

7$ 
<R5,R4,R1> 


LT,BUFARA-. 


LE ,MAXADR-. 
+ 


MOV R1,-(SP) 
MOV R4,-(SP) 
MOV RS5,=(SP) 


; GET of ORDER BN 
GET 


; RO poINts TO FIRST BUFFER 
; MOVE TO CHAIN 


MOVE Ls CHAIN 
GET STATUS BITS 
i: IF THIS BUFFER HAS BEEN READ 


F NOT, H 
SEE IF END-OF-LIST 


MO 
ADD ONE TO Rg ORDER BN 
IF NO CARRY, BRANCH 
PRPOGATE CARRY 


LOOP 

RESTORE REGISTERS 
MOV (SP)+,R5 
MOV (SP)+.R4 
MOV (SP)+,R1 


: RETURN TO CALLING PROGRAM 


SEQ 0996 


cnr ei il aaa 
‘em DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 105 SEQ 0997 


weeeeeeeee OVERLAY MODULE SECCHK = CHECK THAT BUFFER FULL AND 


[ 
| 
1 eSBTTL ‘teeeeeneee OVERLAY MODULE SECCHK = CHECK THAT BUFFER FULL AND ECC 
5 004700 DMOVLY SC,AREAG 
004700 000105 .WREDC sOUTPUT EDC FOR THIS OVERLAY | 
9 FERRARA AAAAA AAA AAEAEE AREA EERE AAAEAAAEAEEAAAEREEEAAEEAAEEAEEERAEEEEEEEEEEEE 
10 FERRARA AAEAEEAEAEEEAEAEEEATEEEREAAAAAAAEEAAAAAAEAEAEEAERERAAEEEAEEEEEEEEEEEEEE 
11 FARRAR AAAERAAEEAEEEEEEAAEEEEEEAEEAAEAAEAEREAAEEEAEEAERAEREEEEREEAEREEREEEE 
12 SERRA EEARAREAAEEEREEAEEEEEEERERAAEAAEAEEAEEAEREREEEREREREREEEREEEEREREEEEEE 
13 3 
is ; 
19 000013 SECCHK = READ+1 
29 ; CHECK TO SEE IF THE SECTOR'S FULL, IF NOT, REPORT WHY (UNLESS 
30 ; REVECTOR, WHERE I°LL REVECTOR THE BLOCK) 
31 ; IF THE SECTOR'S FULL, CHECK ECC AND EDC, THEN CALL THE NEXT ROUTINE 
32 : DEPENDING ON THE OPTIONS IN U.PARM (SELECTED BY USER) 
41 .ENABL LSB 
42 004413 104307 002232 MOV CHAINS, RO : GET POINTER TO READ CHAIN 
43 004415 104171 MOV RO),R1 : GET STATUS OF BUFFER 
47 004416 ASSUME RW.STA,O 
56 004416 102201 040000 BIT #BUFFLG,R1 : SEE If BUFFER FULL 
57 004420 055222 BNE 4$ : IF SO, BRANCH | 
58 004421 021725 CALL = BLKCHK : SEE If THIS IS A KNOWN BAD BLOCK 
59 004422 045207 BCC 3$ ; IF SO, BRANCH 
004423 104651 21 MOV U.NSEC(RS).R1  : GET NUMBER OF SECTORS READ | 
61 004425 105651 000024 ADD U.CSEC(R5).R1 : ADD NUMBER OF SECTORS PREVIOUSLY HANDLED | 
62 004427 100651 24 MOV Ri, CSEC(RS) : SAVE 
63 004431 104651 21 MOV U.NSEC(RS),R1 > GET NUMBER OF SECTORS READ | 
64 004433 105641 000010 ADD S.MEGR(R4).R1  : ADD TO MEGABITS READ 
65 004435 100641 000010 MOV R1,S.MEGR(R4) =: SAVE 
004437 104651 21 MOV U.NSEC(R5S),R1 =: GET NUMBER OF SECTORS READ | 
67 004441 105651 000053 ADD U.CBN(R5),R1 |: ADJUST U.CBN TO SECTOR WITH ERROR 
004443 100651 000053 MOV R1,U.CBN(RS) : SAVE 
69 004445 044453 BCC : IF NO CARRY, BRANCH 
70 004446 104651 000054 MOV U.CBN+1(R5),R1 : GET CURRENT BN 
71 004450 115401 INC R : PROPOGATE CARRY 
72 004451 100651 000054 MOV R1,U.CBN¢1(R5) : SAVE | 
73 004453 114001 1$: CLR R1 : TO CLEAR NUMBER OF SECTORS HANDLED | 
% 004454 100651 000021 MOV R1,U.NSEC(RS) : ZERO SECTORS HANDLED 
75 004456 104651 000061 MOV U.RWER(RS),R1 : GET READ/WRITE ERROR | 
6 004460 106201 000003 CMP #3,R1 : SEE IF REVECTORED BLOCK 
004462 014524 BEQ 23 ; IF SO, BRANCH | 
78 004463 106201 000002 CMP #2,R1 : SEE IF FAILURE IN DRIVE | 
79 006465 054505 BNE 8$ 3 IF NOT, BRANCH 
B0 004466 SOFTER 20 ; 
004466 104200 002056 001107 MOV #ER20,HRO.04 
004471 104202 147664 MOV #20! ERSOF T+4000. .R2 | 
004473 104020 001105 MOV R2,HROQ.02 
004475 104200 004475 001104 MOV #. .HRO.01 
004500 104200 060013 001103 MOV #ERRMES ,HRO.RO 
81 004503 02422 CALL GOINIT 
ie 004504 005110 BR 12$ : BRANCH 
83 004505 106201 000004 8$: CMP #4,R1 : SEE IF HEADER COMPARE FAILURE 
85 004510 104653 000046 MOV U.PARM(RS),R3.: GET UNIT PARAMETERS 
86 004512 104141 MOV (R4),R1 ; GET SUBUNIT PARAMETERS 
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eeereereee OVERLAY MODULE SECCHK = CHECK THAT BUFFER FULL AND 

87 004513 ASSUME $.PARM,O 

88 004513 102201 020000 BIT #OCYLS.R1 : SEE IF ON DIAGNOSTIC CYLINDERS 

89 004515 054527 BNE : IF SO, BRANCH 

90 004516 102203 000400 BIT WREVEC,R3 : SEE If REVECTOR ENABLED 

91 004520 054635 BNE 5$ : IF $0, BRANCH AROUND 

92 004521 102203 000200 BIT #RBNBN,R3 : SEE If READING RCT OR RBN 

93 004523 054527 BNE : IF $0, REPORT ERROR 

94 004524 104207 000022 2$: MOV #REVCT,RO : REVECTOR NEXT MODULE 

95 004526 005224 BR 19$ : EXI 

96 004527 9$: HARDER : REPORT HEADER COMPARE ERROR 
004527 104200 001754 001107 MOV #ER19,HROQ.04 
004532 104202 107663 MOV #19! ERHARD+4000. ,R2 
004534 104020 001105 MOV R2,HRQ.02 
004536 104200 004536 001104 MOV #..HRQ.01 
004541 104200 0600174 001103 MOV #ERRMC ,HRO.RO 

97 004544 ERRORC <S.LETR(R4),RW.LOW(RO) ,RW.HI(RO)> 
004544 104640 000005 001110 MOV S.LETR(R4) ,HRO.05 
004547 104670 900002 001111 MOV RW. LOW(RO) .HRO.06 
004552 104670 000003 001112 MOV RW. HI (RO) ,HRO.07 

98 004555 ERRORC <R3,#RBNTXT,U.RBN(RS)> 
004555 104030 001113 MOV R3,HROQ.08 
004557 104200 005472 001114 MOV #RBNTXTHRO.09 
004562 104650 001115 MOV U.RBN(R5),HRO. 10 

99 004565 ERRORC <U.RBN+1(R5),RW.ANG(RO)> 
004565 104650 000056 001116 MOV U.RBN+1(R5) ,HRO.11 
004570 104670 0 001117 MOV RW.ANG(RO) ,HRQ. 12 

100 004573 ERRORC <RW.CMD(RO),U.CGRP(RS) ,U.CCYL(R5S) ,U.CCYL+1(R5)> 
004573 104670 000004 901120 MOV RW. CMD(RO) ,HRO.13 
004576 104650 000066 001121 MOV U.CGRP(R5S) .HRO.14 
004601 104650 000064 001122 MOV U.CCYL(R5) .HRQ.15 
004604 104650 001123 MOV U.CCYL#1(R5) ,HRO.16 

101 004607 ERRORC <U.LGRPC(RS),U.LCYL(R5) ,.U.LCYL4*1(R5)> 
004607 104650 000071 001124 MOV U.LGRP(RS) ,HRQ.17 
004612 104650 000067 001125 MOV U.LCYL(R5) .HRO.18 
004615 104650 000070 001126 MOV =—-U.LC¥L+1(R5) ,HRO.19 | 

102 004620 ENDERR 0 | 
004620 114000 002230 CLR ERRPOS : CLEAR THE POSITION 

103 004622 103203 000200 BIC #RBNBN,R3 : IF HANDLING A RBN, CLEAR IT 

104 004624 100653 000046 MOV R3,U.PARM(RS) : SAV 

105 004626 104201 000001 MOV ; : ONLY ONE SECTOR HANDLED 

106 004630 100651 000021 MOV R1.U.NSEC(RS) : SAVE 

107 004632 104207 000001 MOV #SETUP,RO : SETUP NEXT MODULE 

108 004634 005226 BR : BRANCH + REPORT, DELAYED CALL 

109 004635 104207 000022 5$: MOV #REVCT,RO : REVECTOR NEXT MODULE 

110 004637 104200 177777 002220 MOV #-1,SCR2 : SECTOR MARKED 

111 004642 005224 BR 19$ : EXIT, IMMIDATE CALL 

112 004643 106201 000052 6$: CMP #52,R1 : SEE IF SERDES OVERRUN ERROR 

113 004645 054664 BNE 208 : IF NOT, BRANCH 

114 004646 SOFTER : SERDES OVERRUN 
004646 104200 002540 001107 MOV #ER34,HRO.04 
004651 104202 147708 MOV #34 'ERSOF T+4000. ,R2 
004653 104020 00110 MOV R2,HRQ.02 
004655 104200 004655 001104 MOV #..HRQ.01 
004660 104200 060013 001103 MOV #ERRMES ,HRO.RO 

115 004663 005110 BR 12$ : REST OF ERROR MESSAGE 

116 004664 106201 000150 208: CMP #150,R1 : SEE IF DATA SYNC TIMEOUT 

117 004666 054705 BNE 228 ; IF NOT, BRANCH 
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SOFTER 36 


SOFTER 45 


Ae GORCLB 
CMP #213,R1 
248 


BNE 
SOFTER 37 


BR 12 
CMP #2 
BNE 21 
SOFTER 55 





V 
; REST OF ERROR MESSAGE 
; a i go ERROR 


12$ 
CMP #153,R1 
23$ IF NOT, B 
; REPORT SEEK oar 


BNE 
REPSFT ,,SEEK 


MOV 
; REST OF ERROR MESSAGE 
; SEE IF DATA enive OR STATE CLOCK TIMEOUT 


muiw 


CALL SENT 
CMP #313,R1 
5$ 


; I 
; R 


DATA SYNC TIMEOUT 
MOV #ER36, 


MOV R2 .HRO .02 
#ERRMES ,HRO.RO 


HRQ.02 
HRQ.03 
MOV #1,HRQ.04 


MOV U.UNUM(RS), 
ADD U. SUBU(R5) .RO 
MOV RO,HROQ.01 

MOV #T4SOFT,RO 
CALL -HOSTRO 


MOV (SP)+,RO 
; REPORT oe ERROR 


#ER4S ,HROQ.04 
MOV #45! ERSOFT+4000. ,R2 
MOV R2,HRQ.02 
MOV #.,HRQ.01 
MOV #ERRMES ,HRQ.RQ 
RECALIBRATION REQUIRED FOR RECOVERY 
REST OF ERROR GE 
SEE IF READ/WRITE READY FAILURE 
IF NOT, BRANCH 
READ/WRITE READY FAILURE 
MOV #ER37,HRO.04 
MOV #37! ERSOFT+4000. ,R2 
MOV R2,HRQ.02 


MOV #. ,HRQ.01 
#ERRMES ,HRQ.RQ 


IF NOT, BRANC 
DRIVE CLOCK TIMEOUT 
MOV #ER3S .HRO.04 
MOV #35! ERSOFT+4000. ,R2 
MOV R2,HRQ.02 
MOV #. ,HRQ.01 
MOV #ERRMES ,HRQ.RQ 
INIT THE DRIVE TO RECOVER 
REST OF ERROR MESSAGE 
ay g Td READY TIMEOUT 


IF NOT, BRANC 
RECIEVER READY FAILURE 
MOV 


ore re guna OS 
MOV #38! ERSOFT+4000. ,R2 

MOV R2,HRQ.02 

MOV #.,HRQ. 

MOV #ERRMES ,HRQ.RQ 
T THE DRIVE TO RECOVER 


NIT T 
EST OF ERROR MESSAGE 


HRQ.04 
MOV #36! ERSOFT+4000. ,R2 


cic 


SEQ 0999 


M13 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 105-3 SEQ 1000 © 
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140 005036 106201 000413 25$: CMP #413,R1 : RTDS FAILURE DURING READ? 
141 005040 055057 BNE 26$ : IF NOT, BRANCH 
142 005041 SOFTER 64 + REPORT 
005041 104200 004145 001107 MOV #ER64,HRO.04 
005044 104202 147740 MOV 964 ERSOFT+4000. .R2 
5046 104020 001105 MOV R2,HRQ.02 
005050 104200 005050 001104 MOV #..HRQ. 
005653 104200 060013 001103 MOV #ERRMES ,HRO.RO 
143 005056 005110 BR 12$ : BRANCH 
144 005057 26$: HARDER 69,<#SER36,R1> ; UNKNOWN ERROR NUMBER 
005057 104200 004220 001107 MOV #ER69,HRO.04 
05062 104200 004242 001110 MOV #SER36, HRQ.05 
005065 104010 001111 MOV 06 
005067 104202 107745 MOV B55t ERiRnD +4000. .R2 
005071 104020 001105 MOV R2,HRQ.02 
005073 104200 005073 001104 MOV #..HRQ.01 
005076 104200 060014 001103 MOV #ERRMC ,HRO.RO 
145 005101 ENDERR 
005101 104200 000051 001112 MOV #SER22,HRO.07 
005104 104200 000010 002230 MOV #741, ERRPOS : SET THE POSITION 
146 005107 005201 BR 14$ ; REST OF ERROR MESSAGE - 
147 005110 12$:  CERROR 5,#SER19 
005110 104200 000470 001110 MOV #SER19,HRO.05 
148 005113 ERRORC <U.RWTO(RS),S.LETR(R4) ,RW.LOW(RO) ,.RW.HI(RO)> 
005113 104650 000012 001111 MOV U.RWTO(RS) ,HRQ.06 
005116 104640 000005 001112 MOV §.LETR(R4) .HROQ.07 
005121 104670 000002 001113 MOV RW.LOW(RO) .HRQ.08 
005124 104670 000003 001114 MOV RW.HI(RO) ,HRO.09 
149 005127 ERRORC <U.PARM(R5) ,#RBNTXT,U.RBN(RS)> 
005127 104650 000046 001115 10V U. PARM(RS) , ina. 10 
005132 104200 005472 001116 MOV #RBNTXT 
0051 104650 000055 001117 MOV U. RENCRS). Naa. 12 
150 005140 ERRORC <U.RBN+1(R5),RW.ANG(RO)> 
005140 104650 000056 001120 MOV u. REN (RS) -HRO. 13 
005143 104670 000006 001121 W.ANG(RO) ,HRO. 14 
151 005146 ERRORC <RW.CMD(RO),U.CGRP(RS).U. COVLERSD” pia evel iness 
005146 104670 000004 001122 MOV RW. CMD (RO) ,HRQ.15 
005151 104650 000066 001123 MOV U.CGRP(RS) .HRQ.16 
005154 104650 000064 001124 MOV U.CCYL(R5) .HRQ.17 
005157 104650 000065 001125 MOV U.CCYL+1(R5) ,HRO.18 
152 005162 ERRORC <U.LGRP(RS),U.LCYL(R5) ,U.LCYL+1(R5)> 
005162 104650 000071 001126 MOV U.LGRP(RS), RQ. 19 
005165 104650 000067 001127 MOV U.LCYL(R5) .HRO.20 
005170 104650 000070 001130 MOV Uctevtei ers) Nae 21 
153 005173 ENDERR 
005173 104200 000051 001131 MOV #SER22,HROQ.22 
005176 104200 000027 002230 MOV #22+1,ERRPOS §; SET THE POSITION 
154 005201 024207 14$: CALL  GOSEEK : SEEK REQUIRED FOR RECOVERY 
155 005202 104207 000001 MOV 1,R0 : SET UP TO READ ONE SECTOR 
156 005204 100657 000022 MOV RO.U.MSEC(RS) =: SAVE 
157 005206 005226 BR 1 ; 
158 005207 104641 000010 3$: MOV S.MEGR(R4),R1 =: GET NUMBER OF SECTORS READ 
159 005211 117401 DEC R : READJUST TO ACTUAL SECTORS TESTED 
160 005212 100641 000010 MOV R1,S.MEGR(R4) : SAVE 
161 005214 104201 100000 MOV #EOC.R1 : MOVE END-OF-CHAIN TO R 
162 005216 100171 MOV R1, (RO) : FLAG THIS BUFFER AS END~OF <CHAIN (FOR LSTMOD) 
163 005217 104207 000021 MOV #LSTMOD,RO + LSTMOD NEXT MODULE 
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164 005221 005224 BR 198 : EXIT, NO ERRORS, IMMIDATE CALL 

165 005222 104207 000014 4$: MOV #CHKEDC,RO ; CHKEDC IS NEXT MODULE 

166 005224 114002 19$: CLR R2 3 NO ERRORS 

167 005225 114001 17$: CLR R1 : IMMIDATE CALL 

168 005226 003231 18$: BR JMPRET : RETURN TO SEGUNCR 

169 -DSABL L 

173 IF LE ,BUFARA-. - 

174 BUFARA = +1 
175 -ENDC 

176 IF LE ,MAXADR-. 

177 MAXADR = +] | 
178 ~ENDC 


B 14 
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1 <SBTTL ‘*#eeneenee OVERLAY MODULE CHKEDC = CHECK THAT ECC AND EDC ARE OK 
5 005227 DMOVLY ED,AREAO 
005227 000105 WREDC sOUTPUT EDC FOR THIS OVERLAY 
9 FARRER EREEEEEEEEEEEEEREEEEEREEREERAEERERAREEEREEEEEEEEEEEEEEEEEE RERRED 
10 fF EREREERAEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEERAERREREEREREAEEEEEEEEEEEEEEEEEEEEEEEE 
11 FERRARA REREEAEEEEEEEEEEEEEEREEEEREEREEERERAEREEEEEEEEEEREREEEEEEEEREEEEEEEEEE 
12 FERRER EEEEEEEEEEEEEEEEEEEAEERERAEEEREEREREAEEREEEEEEEEEEEEEEEAEREREEEEEEE 
13 3 
is 
19 000014 CHKEDC = SECCHK+1 
29 : CHECK THAT THERE IS NO ECC ERROR IN THIS BUFFER, IF NOT, CHECK THE 
30 : EDC, IF THAT IS INCORRECT YOU HAVE A MAJ OR. 
31 : IF ECC AND EDC IS OK, GO TO DATA COMPARE (IF REQUESTED) 
33 .ENABL LSB 
41 004413 104307 002232 MOV CHAINS,,RO : RO POINTS AT READ CHAIN LINK BEING TESTED 
45 004415 104171 MOV (RO) ,Ri + R1 IS BUFFER STATUS 
46 004416 ASSUME RW.STAT,O : ASSUME STATUS IS IN FIRST WORD 
55 004416 102201 010000 BIT #ECCFLG.RI : SEE IF ECC ERROR IN BUFFER 
56 004420 014547 BEQ 11 : IF {NOT CHECK EDC 
57 004421 104653 000046 MOV U.PARM(R5S),R3 : GET UNIT PARAMETERS 
58 004423 102203 000400 BIT #REVEC,R3 : SEE IF FINDING A REVECTOR 
59 004425 054445 BNE : IF SO, BRAN 
60 004426 021725 CALL BLKCHK 3; SEE IF This ts A KNOWN BAD BLOCK 
61 004427 BCS 5$ : IF NOT, BRANCH 
497 044431 BCC +2 
430 004441 BR 5$ 
431 104641 000010 MOV S.MEGR(R4),R1 ; GET NUMBER OF SECTORS READ 
63 004433 117401 DEC R : READJUST TO ACTUAL SECTORS HANDLED 
64 004434 100641 000010 MOV R1,S$.MEGR(RG) : SAVE 
65 004436 104207 000021 MOV #LSTMOD, RO : LAST MODULE IS NEXT 
66 004440 004776 BR 19$ : EXIT, NO ERRORS, IMMIDATE CALL 
67 004441 104141 5$: MOV (R4),R1 : GET UNIT P TERS 
68 004442 ASSUME §$.PARM,O + ASSUME THAT S.PARM IS ZERO 
69 004442 102201 010000 BIT #ECCCHK,R1 : SEE IF ECC CORRECTION IS REQUESTED 
70 004444 014450 BEQ 6$ : IF NOT, BRANCH 
71 004445 104207 000015 2$: MOV #CHKECC,RO ; CHKECC NEXT MODULE 
72 004447 004776 BR : EXIT, NO ERRORS, IMMIDATE CALL 
73 004450 6$: SOFTER 7,<#SER21,U.RRTY(RS) ,U.ELEV(R5)> 
004450 104200 000615 001107 MOV #ER7,HRO.04 
004453 104200 000661 001110 MOV #SER21,HRO.0S 
004456 104650 000010 001111 MOV U.RRTY(RS) ,HRO.06 
004461 104650 000027 001112 MOV U.ELEV(R5) .HRQ.07 
004464 104202 147647 MOV a RSOF T+4000. ,R2 
004466 104020 001105 MOV R24. 02 
004470 104200 004470 001104 MOV . .HRO.01 
004473 104200 060013 001103 MOV PERRMES HRO.RO 
74 004476 ERRORC <S.LETR(R4),RW.LOW(RO) ,RW.HI(RO)> 
004476 104640 000005 001113 MOV S.LETR(R4) ,HRO.08 
004501 104670 000002 001114 MOV RW.LOW(RO) .HRO.09 
004504 104670 000003 001115 MOV RW. HI (RO) ,HRQ. 10 
75 004507 ERRORC <U.PARM(RS) ,#RBNTXT> 
004507 104650 000046 001116 MOV U.PARM(RS) ,HRQ.11 
004512 104200 005472 001117 #RBNTXT MRO. 12 


MOV 
76 004515 ERRORC <U.RBN(R5S),U.RBN¢1(R5) ,RW.ANG(RO)> 
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SEQ 1003 
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004515 104650 000055 001120 MOV U.RBN(RS) ,HRO.13 

004520 104650 000056 001121 MOV U.RBN+1(R5),HRO. 14 

004523 104670 000006 001122 MOV RW.ANG(RO) ,HRO.15 
77 004526 ERRORC <RW.CMD(RO),U.CGRP(RS) ,U.CCYL(RS5)> 

004526 104670 000004 001123 MOV RW. CMD (RO) ,HRO.16 

004531 104650 000066 001124 MOV U.CGRP(R5) -HRO.17 

004534 104650 000064 001125 MOV U.CCYL(R5) .HRO. 18 
78 004537 ERRORC U.CCYL+1(R5) 

004537 194650 000065 001126 MOV U.CCYL#1(R5) ,HRO.19 
79 004542 ENDERR 0 

004542 114000 002230 CLR ERRPOS z CLEAR THE POSITION | 
80 004544 104651 000046 MOV U.PARM(RS),R1  ; GET UNIT PARAMETERS 
81 004546 004742 BR : EXIT 
82 004547 104677 000001 11$: MOV RW.BUF(RO),RO : RO NOW POINTS AT BUFFER 
83 004551 021146 CALL  CMPEDC : COMPUTE THE EDC 
84 004552 104651 000046 MOV U.PARM(RS),R1 =: GET UNIT PARAMETERS | 
85 004554 106672 000400 CMP BF.EDC(RO),R2 : SEE IF MATCH | 
86 004556 054632 BNE 14$ : IF NOT, BRANCH 
87 004557 104657 000010 MOV U.RRTY(R5),RO ; GET | 
88 004561 054567 BNE 23$ z IF RETRIES WERE USED, REPORT SOFT ERROR | 
89 004562 104657 000027 MOV U.ELEV(R5),RO ; GET ERROR LEVEL | 
90 004564 106657 000031 CMP U.MLEV(RS),RO : SEE IF ANY CRROR LEVELS WERE USED 
91 004566 014611 BEQ 22$ ; IF NOT, BRANCH | 
92 004567 238: REPSFT SOFT 3; REPORT SOF? ERROR 

004567 104200 000001 001105 MOV #1,HRO.02 

004572 114000 001106 CLR HRQ.03 | 

004574 114000 001107 CLR HROQ.04 

004576 100467 MOV RO,-(SP) 

004577 104657 000063 MO U.UNUM(RS) ,RO 

004601 105657 000050 ADD U. SUBU(R5) .RO 

004603 104070 001104 MO RO,HRQ. | 

004605 104207 060 MOV #T4SOFT,RO | 

004607 021053 CALL §-HOSTRQ 

004610 104267 ; MOV (SP)+,RO | 
93 004611 114000 002220 22$: CLR SCRZ : FLAG AS GOOD BLOCK 

004613 102201 000400 BIT #REVEC,R1 : SEE IF REVECTOR IN PROGRESS | 
95 004615 014621 BEQ 1 : IF NOT, BRAN 

004616 104207 000022 MOV #REVCT,RO + REVECTOR NEXT MODULE 
97 004620 004776 BR : EXIT 
98 004621 102201 000002 1$: BIT #DATCMP,R1 : SEE IF DATA COMPARE REQUESTED 
99 004623 054627 BNE : IF $0, BRANCH 
100 004624 104207 000021 MOV #LSTMOD,RO : LSTMOD NEXT MODULE 
101 004626 004776 BR 19$ : EXIT, NO ERRORS, IMMIDATE CALL 
102 004627 104207 000020 12$: MOV _—s#CHPDAT. RO : DATA COMPARE NEXT MODUL | 
103 004631 004776 BR 19$ ; EXIT, NO ERRORS, IMMIDATE CALL 
104 004632 104307 002232 14$: MOV CHAINS RO 
105 004634 104020 002220 MOV S$ : SAVE CALCULATED EDC | 
106 004636 104673 00000 MOV RW. BUF (RO) ,R3 | 
107 004640 SOFTER 24,<#SER21,U.RRTY(R5) ,U.ELEV(RS)> 

004640 104200 002272 001107 MOV #ER24,HRO.04 | 

004645 104200 000661 001110 MOV = #SER2 1, HRO.05 | 

094646 104650 000010 001111 MOV U.RRTY(RS) .HRO.06 

004651 104650 000027 001112 MOV U.ELEV(R5) .HRO.07 

004654 104202 147670 MOV #24 'ERSOFT+4000. ,R2 

004656 104020 001105 MOV R2,HRQ.02 

004660 104200 004660 001104 MOV #..HRO.01 

004663 104200 060013 001103 MOV #ERRMES ,HRO.ROQ 


| 
| 
| 
| 
! 
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ERRORC star eee apeincanitrensterarcen teas 


ERRORC 


ERRORC 


ERRORC 


ERRORC 


ENDERR 


<U.PARM(RS) ,#RBNTXT> 


MOV 
MOV 


MOV 


MOV 
re 


MOV 


MOV 
<RW.CMD(RO) ,U.CGRP(R5) ,U.CCYL(RS)> 


<U.CCYL+1(R5),SCR2,BF .EDC(R3)> 


0 

#-1,SCR2 

#REVEC,R1 

13$ 

(R4) ,RO 

$.PARM,0 

#RTRIES,RO 

#ERCOV,RO 
$ 


#C2HARD,HRQ.02 
eee? ARG. RQ 


#DATCMP 
17$ 
#CMPDAT RO 
#LSTMOD RO 
20$ 


R1 
JMPRET 


LE ,MAXADR-. 
+ 


Bee Se Ge Ge Fe Ge Ge Ge Fe Ge Se Se Se Se Be Se Se Be & 


LSB 
! aoe 


; FLAG AS BLOCK BAD 
; 1s ” ~~ IN PROGRESS 


Ger SieuntT PAR 
HAT S. 


AMETERS 


SEE IF DATA — ENABLED 


T, BRAN 

ATA COMPARE IS NEXT MODULE 
EXIT, IMMIDATE CALL 
LSTMOD IS NEXT MODULE 
EXIT, IMMIDATE CALL 
NO ERRORS 


IDATE CAL 
RETURN TO SEGUNCR 


S.LETR(R4), tne: -08 
RW. HI (RO) ,HRO. 10 


U.PARM(RS) ,HRQ.11 
#RBNTXT,HRO.12 


U.RBN(RS) ,HRO.13 
U.RBN+1(R5),HRO.14 
RW.ANG(RO) ,HRQ.15 
RW.CMD(RO),HRQ. 16 
U.CGRP(RS) .HRO.17 
U.CCYL(R5) .HRQ.18 
U-CCYL+1(R5) HRO.19 
BF .EDC(R3) ,HRO.21 


: CLEAR THE POSITION 


ASSUME T PARM IS ZERO 
; SEE IF RETRIES ARE ENABLED 


IF NOT, BRANCH 
ERROR iT" imalbate_ IS NEXT MODULE 
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eeeeeeeeee OVERLAY MODULE CHKECC = CORRECT BUFFER READ USING E 


1 -SBTTL ‘**#eeenene OVERLAY MODULE CHKECC = CORRECT BUFFER READ USING ECC 
5 005001 DMOVLY CK,AREAO 
005001 000105 WREDC ZOUTPUT EDC FOR THIS OVERLAY 
9 PETTITT TTITI TILL LITT LELI TTL ITT TEI T TLE ITT LTE T TTT TTT TTT 
10 FERRARA AEEAEREAEEEEEEREREEEEEEEREREEAEEREEEERAAEEEEEEEEEEEEEEEEREEEEEEEEEEEE 
11 FERRER EEE EEEEEEAEEEREEEEEAEEAEEARERRAEREAEEEEEEEEEEEEEEEEREREREEEEEEEE 
12 FERRARA EEAEREEEEEREEEEEEEEEAEAAERAEEEEEREEEREEEEREEEEREREEEEAEEEEEEEEEREE 
13 3 
is 
4 000015 CHKECC = CHKEDC+1 ; DATA CHECK OVERLAY 
34 : SEE IF ECC ERROR WAS DECTECTED 
38 .ENABL LSB 
9 004413 104307 002232 MOV CHAINS,RO ; RO POINTS TO CHAIN 
40 004415 PUSH RO 3: SAVE POINTER TO LINK 
004415 100467 MOV RO,=(SP) 
1 004416 104200 177777 002220 MOV #-1,SCR2 ; ASSUME BUFFER BAD 
49 004421 060015 XFC ECC : APPLY ECC CORRECTION 
50 004422 115001 TST 1 ; SEE IF COR ~ Nee WORKED 
51 004423 014443 BEQ 1$ 3; IF SO, BRA 
52 004424 PoP RO 3 RESTORE POINTER TO LINK 
004424 104267 MOV (SP)+,RO 
53 004425 SOFTER 8 
004425 104200 000631 001107 MOV #ERB,HRO.04 
004430 104202 147650 MOV #8 ERScr1+4000. .R2 
004432 104020 901108 MOV R2,HRQ.02 
004434 104200 004434 001104 MOV #..HRQ.01 
37 104200 060013 001103 MOV #ERRMES ,HRO.RO 
54 004442 004465 BR 8$ : BRANCH 
55 004443 106657 000032 1$: cme U.ECCT(RS) RO 3; SEE IF CORRECTIONS = TO OR EXCEED THRESHOLD 
56 004445 014447 BEQ 6$ ; =, CH 
57 004446 034545 BPL 2$ : IF NOT, BRANCH 
58 004447 6$: PoP RO 3 RESTORE POINTER TO LINK 
004447 104267 MOV (SP)+,RO 
59 004450 SOFTER 9 
004450 104200 000745 001107 MOV #ERD, HRO.04 
004453 104202 147651 MOV #9 'ERSOFT+4000. .R2 
004455 104020 001105 MOV R2,HRQ.02 
004457 104200 004457 001104 MOV #..HRQ.01 
004462 104200 060013 001103 MOV #ERRMES ,HRO.RO 
60 004465 8$: ERRORC <#SER21,U.RRTY(RS) ,U.ELEV(R5S)> 
004465 104200 000661 001110 MOV #SER21,HRO.05S 
004470 104650 000010 001111 MOV U.RRTY(RS) -HRO.06 
004473 104650 27 001112 MOV U.ELEV(R5) .HRQ.07 
61 004476 ERRORC <S.LETR(R4),RW.LOW(RO) ,RW.HI(RO)> 
004476 104640 5 001113 MOV S.LETR(R4) ,HRO.08 
004501 104670 000002 001114 MOV RW. LOW(RO) .HRO.09 
004504 104670 000003 001115 MOV RW.HI (RO) ,HRO.10 
62 004507 ERRORC <U.PARM(RS),#RBNTXT> 
004507 104650 001116 MOV U.PARM(RS) ,HRQ.11 
004512 104200 005472 00111 MOV #RBNTXT ,HRQ. 12 
63 004515 ERRORC <U.RBN(RS),U.RBN+1(R5) ,RW.ANG(RO)> 
004515 104650 000055 001120 MOV U.RBN(RS) ,HRO.13 
004520 104650 000056 001121 MOV U.RBN+1(R5) ,HRO. 14 
004523 104670 000006 001122 MOV RW.ANG(RO) ,HRO.15 





ne ee 
oe 
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weeeeneeee OVERLAY MODULE CHKECC = CORRECT BUFFER READ USING E 
64 004526 ERRORC 9 <RW.CMD(RO) ,U.CGRP(RS) ,U.CCYL(R5)> 
MOV RW.CMD(RO) ,HRO.1 


oon ege 104670 000004 112 
004531 104650 000066 $0113 


3 
4 MOV U.CGRP(R5) ,HRQ.1 
004534 104650 000064 001125 


MOV U.CCYL(R5) ,HRO.18 


65 004537 ERRORC U.CCYL+1(R5) 
004537 104650 000065 001126 MOV U.CCYL#1(R5) ,HRO.19 

66 004542 ENDERR 0 
004542 114000 002230 CLR ERRPOS ; CLEAR THE position! 

67 004544 004763 BR 11$ : BRANCH 

68 004545 2$: POP R3 3; RESTORE POINTER TO BUFFER 
004545 104263 MOV (SP)+,R3 

69 004546 104637 000001 MOV RW.BUF(R3),RO =; RO POINTS TO BUFFER 

70 004550 021146 CALL : COMPUTE EDC VALUE 

71 004551 72 000400 CMP BF .EDC(RO) ,R2 ; SEE IF EDC VALUE MATCHES 

72 004553 054657 BNE : IF NOT, BRAN 

73 004554 104200 000001 001106 MOV #1,HRQ.03 : REPORT ECC CORRECTION 

74 004557 104657 000010 MOV U.RRTY(R5),RO : GET TI 

75 004561 054571 BNE g if gy BL WERE USED, REPORT SOFT ERROR 

76 004562 104657 000027 MOV U-ELEV(R5S),RO : GET ERRO R LEV VEL 

77 004564 114000 001105 CLR RQ. ; ASSUME NO SOFT ERR 

78 004566 106657 000031 CMP U.MLEVC(RS) RO ; SEE IF ANY oo TEVELS WERE USED 

79 004570 014573 BEQ 228 : IF NOT, BRAK 

80 004571 115400 001105 23$: INC HRQ.02 : REPORT SOFT ERROR 

81 004573 22$: PUSH RO : SAVE RO 
004573 100467 MOV RO,-(SP) 

82 004574 104657 000063 MOV U.UNUM(RS) ,RO 3 GET eae SUBUNIT NUMBER 

83 004576 105657 000050 ADD U.SUBU(R5).RO : ADD OFF 

84 004600 104070 001104 MOV RO,HRQ.01 3 MOVE TO OUTPUT BUFFER 

85 004602 104207 060007 MOV #TESOFT,RO t REPORT REQUEST 

86 004604 021053 CALL HOST ; SEND TO HOST 

87 004605 POP RO : RESTORE RO 
004605 104267 MOV (SP)+,RO 
004 114000 002220 CLR cCR2 ; BUFFER GOOD 

89 004610 MSSG 3 <S.LETR(R4), RW. LbuCRSS. RW. a. iA ND) - RW.CMD(R3) ,U.CGRP(RS) ,U.CCYL(R 
004610 104200 005616 001105 #MS3,HRQ.0 
004613 104640 000005 001106 MOV S.LETR(R4) ,HRO.03 
004616 104630 000002 001107 MOV RW. LOW(R3) -HRO.04 
004621 104630 000003 001110 MOV RW.HI(R3) ,HRQ. 
004624 104630 000006 001111 MOV RW.ANG(R3) ,HRQ. 
004627 104630 000004 001112 MOV RW. CMD(R3) .HRO.07 
004632 104650 000066 001113 MOV U. CGRPCRS) .HRO.O8 
004635 104650 000064 001114 MOV U.CCYL(R5) .HRO.09 
004640 104650 000065 001115 MOV U. teyteteRsh HRQ.10 
004643 100467 MOV RO,-(SP) 
004 104650 000063 001104 MOV U.UNUM(RS) ,HRQ.01 
004647 105650 000050 001104 ADD U. SUBU(R5) -HROQ.01 
004652 104207 060015 MOV #MESSAG,RO- 
004654 021053 CALL HOST 
004655 104267 MOV (SP)+,RO 

90 004656 005006 BR 5$ : EXIT 

91 004657 104020 002230 3$: MOV R2,E THE COMPUTED EDC 

92 004661 SOFTER 10, OaERS1.U. antecney -U.ELEV(RS)> 
004661 104200 000770 001107 MOV #ER10,HRO.04 
004 104200 000661 001110 MOV #SER21 ,HRO.0S 
004667 104650 (00010 001111 MOV U.RRTY(RS) ,HRO.06 
004672 104650 000027 001112 MOV U.ELEV(R5) .HRO.07 
004675 104202 147652 MOV PiIOTERSOFTS4000-_R2 
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eeeeeteeeee OVERLAY MODULE CHKECC = CORRECT BUFFER READ USINC | 
004677 104020 001105 MOV R2,HROQ.02 
004701 104200 004701 001104 MOV #.,HRQ.01 
004704 104200 060013 001103 MOV #ERRMES ,HRO.ROQ 
93 004707 ERRORC <S.LETR(R4),RW.LOW(R3) ,RW.HI(R3)> 
004707 104640 000005 001113 MOV S.LETR(R4) ,HRO.08 
004712 104630 000002 001114 MOV RW.LOW(R3) HRO.09 
004715 104630 000003 001115 MOV RW.HI(R3) ,HRO.10 
94 004720 ERRORC <U.PARM(RS) ,#RBNTXT> 
004720 104650 000046 001116 MOV U.PARM(RS) ,HRO.11 
004723 104260 005472 001117 MOV #RBNTXT,HRQ. 12 | 
95 004726 ERRORC <U.RBN(R5S),U.RBN+1(R5) ,RW.ANG(R3)> | 
004726 104650 000055 001120 MOV U.RBN(RS) ,HRO.13 
004731 104650 000056 001121 MOV U.RBN+1(R5),HRQ. 14 
004734 104630 (90006 001122 MOV RW.ANG(R3) ,HRO.15 
96 004737 ERRORC <RW.CMD(R3),U.CGRP(RS) ,U.cOYL(RS)> 
004737 104630 000004 001123 MOV Rw. CMD(R3) ,HRO.16 
004742 104650 000066 001124 MOV U.CGRP(R5) .HRQ.17 | 
004745 104650 000064 001125 MOV U.CCYL(R5) .HRO.18 
97 004750 ERRORC <U.CCYL+1(R5),ERRPOS,BF.EDC(RO!> ; REPORT ERROR | 
004750 104650 000065 001126 MOV U.CCYL#1(R5) ,HRO.19 
004753 104300 002230 001127 MOV ERRPOS ,HRQ.20 | 
004756 104670 000400 001130 MOV BF EDC (RO) HRO.21 
98 004761 ENDERR 0 | 
004761 114000 002230 CLR ERRPOS : CLEAR THE POSITION 
99 004763 104143 11$: MOV (R4) ,R3 : GET SUBUNIT PARAMETERS | 
100 004764 ASSUME S.PARM,O : ASSUME THAT S.PARM IS ZERO 
101 004764 102203 001000 BIT #RTRIES,R3 : SEE IF RETRIES ARE ENABLED 
102 004766 05500 BNE : IF SO, BRANCH 
103 004767 104653 000046 MOV U.PARM(R5S),.R3 =: GET UNIT PARAMETERS 
104 004771 102203 000400 BIT #REVEC,R3 : SEE IF REVECTOR IN PROGRESS 
105 004773 055003 BNE 4$ : IF $0, BRANCH 
106 004774 103200 040000 001105 BIC #C2HARD,HRQ.02 : MAKE SOFT ERROR A HARD ERROR 
107 004777 104200 060014 001103 MOV WERRMC,HRQ.RQ  : COUNT ERROR | 
108 005002 005017 BR 10$ : BRANCH 
109 005003 104207 000016 4$: MOV #ERCOV,RO : ERROR RECOVERY IS NEXT MODULE | 
110 005005 005027 BR 7$ : BRANCH 
111 005006 114002 5$: CLR R2 : NO ERRORS 
112 005007 104653 000046 MOV U.PARM(RS).R3 : GET UNIT PARAMETERS | 
113 005011 102203 000400 BIT #REVEC,R3 : SEE IF FINDING A REVECTOR 
114 005013 015017 BEQ : IF NOT, BRANCH 
115 005014 104207 000022 MOV #REVCT,RO : REVECTOR NEXT MODULE 
116 005016 005027 BR ? : BRANCH 
117 005017 102203 000002 10$: BIT #DATCMP,R3 : SEE IF DATA COMPARE IS REQUESTED 
118 005021 015025 BEQ 9$ : IF NOT, H 
119 005022 104207 000020 MOV #CMPDAT. RO > DATA COMPARE IS NEXT MODULE | 
120 005024 005027 BR 7$ + BRANCH 
121 005025 104207 000021 9$: MOV #LSTMOD,RO : GO TO LAST MODULE 
122 005027 114001 7$: CLR : IMMIDATE CALL TO NEXT MODULE 
123 005030 003231 BR JMPRET * RETURN | 
124 -DSABL L 
128 <1F LE ,BUFARA-. 
129 BUFARA = +4 
130 -ENDC 
131 c1F LE ,MAXADR=. 
132 MAXADR = + 
133 .ENDC 
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1 .SBTTL ‘teeeeeeee OVERLAY MODULE ERCOV = DATA ERROR RETRIES AND LEVELS 
5 005031 DMOVLY EC,AREAO 
005031 000105 WREDC sOUTPUT EDC FOR THIS OVERLAY 

9 ET SE = on 3 Bs tA 
10 3 SREREEAAEARARARAARAAREREEEREREEAEAEEAERAAAREEERAEEEERAREREEEEEEEAEREEEEEEREEEEEEE 
11 § SREAAEAAAAARAERAKEAAEAETEAEAAAAAEEAAEARAAAAAAAEAAREAREEAARAEEAEEEEEEEEEEEAEEEEEEEEEEEE 
12 $ SREAAAAAAAARAERAAAAEAAEEEAEKEEEEAEAAAAEAAAARAERAEARAEREREREEEEEEREEEREEEREREREEEEE 
13 ; 
is 
19 000016 ERCOV - CHKECC+1 
29 : ERROR RECOVERY AND RETRIES 
31 .ENABL LSB 
32 004413 024163 CALL ‘ENABLE ; ENABLE ERROR RECOVERY 
33 004414 104657 000010 MOV U.RRTY(RS),RO GET NUMBER OF RETRIES ALLREADY ATTEMPTED 
34 004416 054455 BNE i$ : IF NOT ZERO (FIRST TIME) 

35 004417 104651 000021 MOV U.NSEC(RS) R10: G ER OF SECTORS READ 

36 004421 105651 000024 ADD U.CSEC(R5).R1  : ADD NUMBER OF SECTORS PREVIOUSLY HANDLED 
37 004423 100651 000024 MOV R1,U.CSEC(R5) : SAVE 
38 004425 104651 000021 MOV U.NSEC(RS),R1  : GET NUMBER CF SECTORS READ 

39 004427 105641 000010 ADD S.MEGR(R4).R1 =: ADD TO MEGABITS WRITTEN 
40 004431 100641 000010 MOV R1,S.MEGR(R4) : SAVE 
41 004433 104651 000021 MOV U.NSEC(RS),R1 : GET NUMBER OF SECTORS READ 
42 004435 114003 CLR R3 : TO SETUP VALUES 
43 004436 100653 000021 MOV R3,U.NSEC(RS) : NO SECTORS READ 
44 004440 113405 INC R ; ERS ONE 
45 004441 100653 000022 V R3,U.MSEC(RS) : READ ONE SECT 
46 004443 105651 000053 ADD U-CBN(RS),R1 es: ADUUST U.CBN TO SECTOR WITH ERROR 
47 004445 100651 000053 MOV R1,U.CBN(RS) 3 SAVE 
48 004447 044455 BCC 1$ 3 IF _NO CARRY, BRANCH 
49 004450 104651 000054 MOV U.CBN+1(R5),R1 ; GET CURRENT BN 

50 004452 115401 INC Ri : PROPOGATE CARRY 

1 004453 100651 000054 MOV R1,U.CBN¢1(R5) : SAVE 

52 004455 106657 000030 1$: CMP U.RTRYCRS),RO — COMPARE MAXIMUM COUNT WITH RETRIES ATTEMPTED 
53 004457 014473 BEQ NLEV : IF RETRIES EXHAUSTED, BRANCH 

54 004460 115407 INC R : INCREMENT RETRY COUNT 

55 004461 100657 000010 MOV RO,U.RRTY(RS) ; SAVE TIMEOUT 

56 004463 104207 177777 MOV -i, ; START READ RETRIES AT ZERO 

57 004465 100657 000012 MOV RO,U.RWTO(RS) +: SAVE 

58 004467 104207 000007 MOV #BUILDP,RO ; BUILDP I$ NEXT MODULE 

59 004471 104051 MOV ; DELAYED CALL TO READ 
60 004472 004504 BR EREXT + BRANCH 
61 004473 104207 000017 NLEV: MOV #NEWLEV,RO > NEW LEVEL OF ERROR RECOVERY WILL BE TRIED 
62 004475 104653 000047 MOV U.RCOV(RS),R3 —; GET ERROR RECOVERY PARAMETERS 
63 004477 101203 010000 BIS #NXTLEV,R3 : GO TO NEXT LEVEL 
64 004501 100653 000047 V R3,U.RCOV(RS) : SAV 
65 004503 114001 CLR R1 : IMMIDATE CALL TO NEXT MODULE 
66 004504 114002 EREXT: CLR R2 + NO ERROR 
67 004505 003231 BR JMPRET + RETURN TO SEQNCR 
£8 -DSABL L 

72 “IF LE ,BUFARA-. 

73 BUFARA = | 

7% .ENDC 

IF LE ,MAXADR-. 


MAXADR = +4 





SEQ 1008 | 


I 
UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 108-1 SEQ 1009 | 
weeeeeteee OVERLAY MODULE ERCOV = DATA ERROR RETRIES AND LEVEL 


77 -ENDC 





TEE. OE ORES SE FE ST a ee 


|UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 109 SEQ 1010 


eeeeererer OVERLAY MODULE NEWLEV = SEND DRIVE ERROR LEVEL 


1 «SBTTL tteeeeenee OVERLAY MODULE NEWLEV = SEND DRIVE ERROR LEVEL 
5 004506 DMOVLY NL,AREAO 
004506 000105 .WREDC :OUTPUT EDC FOR THIS OVERLAY 
9 eeeeeReeeeeeeeeeeeereLeeeeeeeeeeenaaeeeeeaedeeeeeeeeedeenteeeeneeeeereeeeeee 
10 fs SRAAAAAAAAEAEAEEAEEEEEEEEEEE EEA AERA AERERERAERAEREEEEEEEEEEEREEEEAEREREEREEEEEEE 
11 fF RRRAEREEAAAAEEAEAEEEETEAAE EEE EEE EERE EREAAEEEEREEEEAEEREEEAEREEAEEEEEEEREEEE 
12 FARRAR ERAAEAAAAEREAEEEEEERE EEE AAEEAAEAEEEEEREEAEREEEEAEAEEEEREREEAREREEEEEEEEE 
13 3 
i : 
19 000017 NEWLEV = ERCOV+1 
$3 3 INITIATE A NEW LEVEL OF ERROR RECOVERY 
38 -ENABL LSB 
39 004413 104653 000047 MOV U.RCOV(RS),R3 =; GET RECOVERY WORD 
40 004415 102203 010000 BIT ANXTLEV,R3 : GO TO NEXT LEVEL? 
41 004417 054424 BNE $ : IF SO, BRANCH 
42 004420 104657 000027 MOV U.ELEV(RS),RO : GET CURRENT ERROR RECOVERY LEVEL 
43 004422 115407 INC RO : GO UP ONE LEVEL 
44 004423 004531 BR LEVNZR 
45 004424 104657 000027 3$: MOV U.ELEV(RS),RO =; GET CURRENT ERROR RECOVERY LEVEL 
46 004426 054531 BNE LEVNZR : IF NONE ZERO, ANCH 
47 004427 024172 CALL DSABLE : DISABLE ERROR RECOVERY 
48 004430 HARDER 11,<S.LETR(R4),U. CBNCRS) UL CBN+1(R5)> 
004430 104200 001044 001107 MOV #ER11,HRO.04 
004433 104640 000005 001110 MOV S.LETR(R4) ,HRO.05 
004436 104650 900095 001111 MOV U.CBN(RS) A 
004441 104650 000054 001112 MOV u.¢ CBNS1 CRE) HRO 07 
004444 104202 107653 MOV #11 ERHARD+4000. ,R2 
004446 104020 001105 MOV R2,HRO.02 
004450 104200 004450 001104 MOV . HRQ.01 
004453 104200 060014 001103 MOV #ERRMC ,HRO.RO 
49 004456 ERRORC <U.PARM(RS) ,#RBNTXT,U.RBN(RS) ,U.RBN¢+1(R5) ,U. CGRP(RS)> 
004456 104650 001113 MOV U-PARM(RS) -HRQ.08 
004461 104200 005472 001114 MOV #RBNTXT,HRQ. 
004464 104650 000055 001115 MOV U.RBN(R5) ,HRQ.10 
004467 104650 000056 001116 MOV U.RBN+1(R5),HRQ.11 
004472 104650 000 001117 MOV U.CGRP(RS) ,HRQ.12 
50 004475 ERRORC <U.CCYL(R5),U.CCYL+1(R5)> 
004475 104650 001120 MOV U.CCYL(RS) ,HRO.13 
004500 104650 000065 001121 MOV U.CCYL+1(R5) ,HRQ.14 
51 004503 ENDERR 0 
004503 114000 002230 CLR ERRPOS : CLEAR THE POSITION 
52 004505 104653 000 MOV U.PARM(RS).R3_—; GET UNIT PARAMETERS 
53 004507 104200 177777 002220 MOV #-1,SCR : FLAG AS BAD SECTOR 
54 004512 102203 BIT #REVEC,R3 : SEE IF FINDING A REVECTORED SECTOR 
55 004514 014520 BEQ 1 : IF NOT, BRANCH 
56 004515 104207 000022 MOV #REVCT,RO : GO TO REVCT ROUTINE NEXT 
57 004517 004571 BR NEWEXT : BRANCH 
58 004520 102203 000002 1$: BIT #DATCMP,R3 : SEE IF DATA COMPARE REQUESTED 
59 004522 014526 BEQ : IF NOT, BR 
60 004523 104207 000020 MOV #CMPDAT,RO + COMPARE DATA NEXT MODULE 
61 004525 004571 BR NEWEXT : EX 
62 004526 104207 000021 2s: MOV #LSTMOD, RO : LAST MODULE NEXT MODULE 
63 004530 004571 _ NEWEXT : EXIT 





65 004531 
66 004533 
67 004535 
68 004536 
69 004537 
70 004540 
004540 
71 004543 
72 004544 
73 004546 
74 004550 
75 004551 
76 004553 
77 004555 
78 004557 
79 004561 
80 004562 
81 004564 
82 004566 
83 004567 
84 004571 
85 004572 
89 
90 
91 
92 
93 
er) 


104070 


o-oo 
ZR rave 


o-oo 
cozsee 
SWEAUESR 

MMVI VUTY WUO— 
SsozouNS ES VS 
NNENNNSO Brww 


SRSNoS 


=S2ss=ssss5 
nm 
oO 

<= NNNNNS 


S=5= 
MSS 


No 
Wwouvl 


001677 
001643 


004726 001110 


000047 
010000 


010000 


000027 
000007 


000010 


LEVNZR: 


2$: 


NEWEXT: 
B 


SNDEX: 
BUF ARA 


MAXADR 


MOV 
MOV 
CALL 
TST 
BEQ 
CERROR 
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UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 109-1 
sweeteners OVERLAY MODULE NEWLEV = SEND DRIVE ERROR LEVEL 


RO,ERRLEV 
#CR.ERR,RS 
TALK 


1$ 
5, #SERG 

SNDEX 
U.RCOV(RS) ,RO 
#NXTLEV,RO 
ANXTLEV,RO 
#LEVUSD, RO 
RO,U.RCOV(RS) 
U-ELEV(RS) .RO 
RO,U.ELEV(RS) 
#BUILDP,RO 
R2.U.RRTY(RS) 
JMPRET 

LE ,BUFARA™. 


i. ao 


.+ 


C 
E IF AN ERROR OCCURRED 
IF NOT, BRANCH 
REPORT ERROR 
MOV #SER4 ,HRO.05 


BRANCH 
; GET RECOVERY PARAMETERS 


DID THIS GO TO THE NEXT LEVEL? 
IF NOT, BRANCH 

CLEAR NEXT LEVEL BIT 

enue AS LEVELS USED 

GET ERROR RECOVERY LEVEL 
DECREMENT 


AVE 
BUILDP IS NEXT MODULE CALLED 
NO ERRORS 


START RETRIES AT 0 
IMMIDATE CALL TO NEXT MODULE 
RETURN TO SCQUENCER 


SEQ 1011 


ee 


L 14 
UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:02:53 PAGE 110 SEQ 1012 | 
weeeeeeeee OVERLAY MODULE CMPDAT = DATA COMPARISON ON READ BUF 


1 .SBTTL ‘*eeeeeeee OVERLAY MODULE CMPDAT = DATA COMPARISON ON READ BUFFER(S) 
5 004573 DMOVLY (CD,AREA 
004573 000105 -WREDC sOUTPUT EDC FOR THIS OVERLAY 
9 PITTITITILITIIIIIIITITITITT LITT TT LITLITiTii Titi TiTiTiTi LT LiiTTTT Tei 
10 SERA AARAEAEEERAEEEEERE EERE RETA EREAEEAAEEEEAAEREAAEEEEREEEEEEEEEREEEREREEEREEE 
11 FERRARA ARE EERE AREER EEE AEE EEE EEREREEAAEEEEEAREEEEEEEEEEEREREEEEEEKEEEEEE 
12 FREER EAE EEEE REAR EEE EEE ER AARER EEA EEEREEEEREEEEEEEEEEEEEEEEEE 
13 ; 
is 
R 000020 CMPDAT = NEWLEV+1 
44 3 CMPDAT COMPARES THE PATTERN WITH THAT READ FROM THE SECTOR 
38 .ENABL LSB 
39 004413 PUSH  <R4,R5> : SAVE R4,R5 
004413 100464 MOV R4,=(SP) 
004414 100465 MOV RS.=(SP) 
40 004415 104307 002232 mov CHAINS ,RO : RO POINTS TO LINK 
41 004417 104677 000001 MOV RW. BUF (RO), RO : RO POINTS TO BUFFER 
42 004421 104172 MOV ; R2 HAS PATTERN NUMBER (IN EACH NIBBLE) 
43 004422 103202 177760 BIC aBLONS, R2 : CLEAR UNUSED BITS 
44 004424 054431 BNE 1$ : IF NOT PATTERN 16, BRANCH 
45 004425 104200 000020 002221 MOV #16.,PNUM : REPORT PATTERN 16 
46 004430 004433 BR 2$ : BRANCH 
47 004431 104020 002221 1$: MOV R2,PNUM : SAVE PATTERN NUMBER 
48 004433 104021 2$: MOV R2,R1 3 _— PATTERN NUMBER WORD IN R1 
004434 110702 SWAB ORR : MOVE PATTERN NUMBER TO HI BYTE 
50 004435 101021 BIS R2,R1 : SET HI BITS 
004436 110202 ROL : ROTATE TO HI NIBBLE 
52 004437 110202 ROL R2 
53 004440 110202 ROL R2 
54 004441 110202 ROL R2 
55 004442 103202 007777 BIC #HBHINB,R2 : CLEAR UNUSED BITS 
56 004444 101021 BIS R2,R1 : SET BITS 
57 004445 110702 SWAB —- R2 : MOVE TO LO BYTE 
58 004446 101021 BIS R2,R1 : SET BIT 
59 004447 106271 CMP (RO)+,R1 : SEE IF REDUNDANT PATTERN OK 
60 004450 054514 BNE FWRD : IF NOT, BRANCH 
61 004451 104302 002221 MOV NUM, R2 + RESTORE R2 
62 004453 103202 177760 BIC #LBLONB,R2 + MAP PATTERN 16, To PATTERN 0 
63 004455 104622 002236 MOV PATPTR(R2) ,R2 : POINT TO PATT 
64 004457 115402 INC R : SKIP 
65 004460 104201 000001 MOV ai Rt : R1 HAS OFFSET INTO BUFFER 
67 004462 104024 XOPLPO: MOV 2R4 : R4 POINTS TO LENGTH OF PATTERN 
68 004463 104243 MOV (R4)+,R3 3 R3_ CONTAINS LENGTH OF PATTERN 
69 004464 106203 000001 CMP 1,R3 : SEE’ IF PATTERN IS 1 WORD LON 
004466 014501 BEQ ONEPA : IF SO BRANCH, 
71 004467 104245 XOPLP1: MOV (R4)+,R5 : RS GETS 1 WORD OF THE DATA PATTERN 
72 004470 106275 CMP (RO) +. R5 : COMPARE PATTERN WORD TO SECTOR AREA 
73 004471 054515 BNE CMPERR 3 IF OMATCH, BRANCH 
74 004472 115401 INC R1 ; INCREMENT OFFSET 
75 004473 106201 900400 CMP #SCTWRD+1,R1  $ SEE IF ENTIRE BUFFER COMPARED 
76 004475 014510 BEQ CSCEXT : IF ALL WORDS COMPARED, BRANCH 
77 004476 117403 DEC R : DECREMENT COUNT OF WORDS IN PATTERN 
78 004477 054467 BNE XOPLP1 : IF DATA PATTERN UNFINISHED, BRANCH 
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RS 
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021725 


104267 
044707 
104303 


104200 


104200 
115000 
054554 


oS 

RR 
AO 
wv 
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R32 Om a ob 


ooo 


000400 


002232 
001113 


001326 
002220 


001354 
000005 
000002 
000003 


000046 
005472 


000367 
000003 


001107 


001104 
001103 


001110 


o 


os 


0 


ooo oS 
ooo oc oo 

—— 
O33 ot sates es 
ono US Wh 


oooo 
oooo 
Ss 
Rononory 
fewn— 


ONEPAX: 
XOPLP2: 


CSCEXT: 


FWRD: 


CMPERR: 


4$: 


BCC 
HARDER 


CERROR 
TST 
BNE 
CERROR 
ERRORC 
ERRORC 


ERRORC 


ERRORC 





UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 110-1 
weeeeeteee OVERLAY MODULE CMPDAT = DATA COMPARISON ON READ BUF 


mE 


R1 
#SCTWRD+1,R1 
XOPLP2 


R2 
<R5,R4> 
CMXEX 
R1 
<R5,R4> 


RO 


R3,RO 
BLKCHK 
RO 


CMXEX 
CHAINS,,R3 
12 

5 .#SER24 


pene 
5, #SER25 


EFT LEADED SESS 


M14 





Be Ge Ge Ge Ge Se Ge Ge Ge 


CH 
T 1 WORD OF DATA PATTERN 


- 8 H 
NUMBER OF WORDS TO COMPARE 
E IF ALL WORDS COMPARED 


SE 

; IF INCOMPLETE, BRANCH 
NO ER 

; RESTORE R5,R4 


MOV (SP)+,R5 
MOV (SP)+,R4 


BRANCH 
ZERO OFFSET 
RESTORE R5,R4 
MOV (SP)+,R5 
MOV (SP)+,R4 
SAVE POINTER TO BUFFER 
MOV RO,-(SP) 


MOVE POINTER TO READ CHAIN TO RO 
SEE _IF ms IS A KNOWN BAD BLOCK 


RESTORE R 

MOV (SP)+,RO 
IF KNOWN BAD BLOCK, EXIT 
R3 POINTS TO LINK 


#ER12,HRQ.04 
#12! ERHARD+4000. ,R2 
MOV R2,HRQ.02 


MOV eHRQ. 

MOV #ERRMC ,HRO.RQ 
ECC/EDC HAD DETECTED ERROR 

MOV #SER24 ,HRQ.05 


i IF ERROR DETECTED 


F SO, NCH 
ECC/EDC DID NOT DETECT ERROR 
#SER25 ,HRQ.05 


S.LETR(R4), —_ 06 


<U.PARM(RS) ,#RBNTXT> 


MOV 
eta ccoennanticiee mmmcean ieee 


MOV 
<RW.CMD(R3) ,U.CGRP(RS) ,U. CCVLERS) Be CCYL+1(R5)> 


#266. A 


neil R3 


MOV RW. LOW(R3) ,HRQ.07 
MOV RW.HI(R3), fina. 08 
MOV U.PARM(RS) ,HRQ.09 


#RBNTXT,HRQ.10 
U.RBN(R5) ,HRQ.11 


MOV U.RBN+1(R5),HRO.12 
RW.ANG(R3) ,HRQ.13 
RW. CMD (R3) -HRO..14 
MOV U.CGRP(R5) .HRQ.15 
MOV U.CCYL(R5) .HRQ.16 
MOV U.CCYL#1(R5) ,HRQ.17 
; SEE IF IN LAST 9 WORDS 
: IF NOT, BRANCH 
: TO COMPUTE OFFSET OF ERROR 
HAS UNADJUSTED ERROR POSITION 
HAS ADJUSTED ERROR POSITION 


SEQ 1013 


111 Soser0 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


NNN 
NO OONOULS wr 


03 
124 Roe one 
125 peter 
126 711 


S85 


MEW 


13 
13 
13 
13 
13 
136 





107037 


oo 
tee 
mr 
SN 
oo 


SEee 
SUuS 8 
oooo oO 


Somat td ot od 
= 
™ 


000004 


000004 
000003 


WwW FSS 


o 


0022 
000021 


001125 


1$: 


2$: 


CMXEX: 


BUF ARA 


MAXADR 


D 
ERRORC 


ERRORC 


ENDERR 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 110-2 
weeeeweree OVERLAY MODULE CMPDAT = DATA COMPARISON ON READ BUF 


R3,RO 
RO 


3$ 
#4,R1 
2$ 
#4,RO 
3 


° 


R1,R0 
R1,R3 
R 


0° 
<PNUM,R1,R3, (RO)+ 
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Pte Se Se Se Ge Ge Ge Ge Ge Ge Se 


ADJUST POINTER 


imine SO ADJUST 


PRINT 


IF $ 


0, BRAN 
LOOK BACK F 


BACK UP POIN 


TER 


E 
SEE IF IN NG 4 WORDS 


WORDS 
hh A OF ERROR IN PRINTOUT IS 3 


R3 M AY OF ERROR 7 PRINTOUT 


TO 


TO POINT BUFFER 
»(RO)+, (RO) +, = (RO)+, (RO) +, et le 2 (RO) +> 


<(RO)+, (RO)+, CRO) +, (RO) +> 


0 
lied RO 


PRET 
ve BUF ARA-. 
+i 


LE ,MAXADR-. 


+i 


START OF 

,HRQ. 
mov 1,HRQ.19 
MOV HRQ.20 
MOV (RO) +,HRO.21 
MOV (RO) +,HRO.22 
MOV (RO) +,HRQ.23 
MOV (RO)+,HRQ.24 
MOV (RO)+,HRO.25 
MOV (RO) +,HRQ.26 
MOV (RO) +, HRO.27 
MOV (RO) +, HRQ.28 
MOV (RO) +,HRO.29 
MOV (RO)+,HRQ. 30 
MOV (RO)+_HRQ.31 
MOV (RO) +, HRQ. 32 
CL 


R ERRPOS 
; LAST MODULE WILL BE CALLED 
; CALL IMMIDATELY 
; RETURN TO SEQUNCR 


SEQ 1014 


: CLEAR THE POSITION) 


| B81 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 111 


weeeeeeeee OVERLAY MODULE LSTMOD - 


004713 
004713 000105 


000021 


WWNIR 2 2 2S oe es 
OOOViEWN—0O”O U— 


-o 


000021 


000021 
175607 


074434 
103201 170000 


002232 
000013 


000046 
000200 
00653 000046 
10564? 000010 
003642 


000010 
000001 


001105 


CLEANUP MODULE BEFORE SETUP 
teenennene OVERL AY MODULE LSTMOD = CLEANUP MODULE BEFORE SETUP 
;OUTPUT EDC FOR THIS OVERLAY 


TITITIII LILLE LILE LLL TLL LITTLE TELL TTT TITTLE TTT TTT TTT 
SERRE AERERERAEREREEEEEEEE AEE EEEEEREEEEEEAEEREREEEEEERAEREREEEEAEAEEEEEEEEEEEE 
RARER EEREREEEEEEEEE EEE EEEEERAEAEREAEEEEEEEAEEEEEEEEREEEEEEEREREEEEEEEEEE 
SERRE AEREEERAEEEEEEEEEEEEEEEEAEEEEEEEEEEEEEREEEEEEEEREEEEEEEEEEEEAEEEEEEEE 


- SBTTL 
DMOVLY LM,ARE 
»WREDC 


BeBe Se Ge ("Se Ge Ge Se Ge Ge Se 


i STMOD : CMPDAT+1 

LOOP CONTROL FOR ECC, EDC AND DATA COMPARE MODULES. ALSO LAST 
MODULE BEFORE SETUP (USUALLY) 
.ENABL LSB 
CLR R : ASSUME NO ERRO 
MOV U.NSEC(RS),RO : GET NUMBER OF SECTORS HANDLED SO FAR 
INC R + INCREMENT COUN 
MOV RO,U.NSEC(RS) : SAVE 
MOV @CHAINS,R1 : SEE IF LAST BUFFER LAST pREAD 
ASSUME RW.STAT.O + ASSUME STATUS FIRST WORD 
BMI 5 : IF SO, BRANCH 
ASSUME E0C,100000 t ASSUME END-OF=CHAIN SIGN BIT 
BIC #UNADDR,R1 : CLEAR UNUSED ADDRESSING BITS 
MOV R1, CHAINS : CHAINS NOW POINTS TO NEXT LINK 
MOV #SECCHK,RO : SECTOR CHECK NEXT MODULE 
CLR R1 + IMMIDATE CALL 
BR 4$ + EXIT 

1$: MOV U.PARM(RS),R3 : GET UNIT PARAMETERS 
BIC #RBNBN, : IF HANDLING AN RBN, CLEAR IT 
MOV RS. ue PARH(RS) + SAV 
ADD >,RO  : GET MEGABYTE COUNT 
CMP sine ar : SEE IF ONE MEGABYTE TRANSFERED 
BPL 3 : : IF NOT, BRANCH 
SUB #1954. ,R0 : ZERO COUNT 
MOV #1, HRQ.02 : REPORT 1 MEGABYTE READ 
CLR HRQ. 3 NO WRITE MEGABYTES REPORTED 
MOV #TGMXFR,R2 + SET UP FOR MEGABIT REPORT 
MOV R2,HRQ.RQ : FLAG AS SONCERR 0 

3$: MOV RO.S.MEGR(RG) : SAVE COUNT 
MOV #SETUP,RO : SETUP IS NEXT MODULE CALLED 
MOV ; ; DEFERRED CALL TO NEXT MODULE 

4$: BR JMPRET : RETURN TO SEQUENCER 
.DSABL LSB 
“IF LE ,BUFARA-. 

BUFARA = +1 
.ENDC 
IF 


LE ,MAXADR-. 
+4 


MAXADR = 





> 


SEQ 1015 | 


| 
| 
| 
: 
| 


- 
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UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 112 SEQ 1016 
eteteeeeee OVERLAY MODULE REVCT = REVECTORED SECTOR HANDLING 


«SBTTL steeeeneee OVERLAY MODULE REVCT = REVECTORED SECTOR HANDLING 


1 
5 004470 DMOVLY RV,AREAO 
004470 000105 WREDC sOUTPUT EDC FOR THIS OVERLAY 
9 ITTIIITTITITILILILILI LITTLE TILL T ELT LITT TELE T TTT TTT Tet ie 
10 FERRE AAAEEREEEEREREEEEEEEEEEEEEEEREREEEEREREREREEREREEEEEEEEEEEEEEEEEEEEEEEREED 
11 FERRARA ERRERAEEEEEEEEEEEEEEEEEEAAEEAERAEREREAEREEEREEEREEEEEEEEEREEREEREEEEEE 
12 FRRAAARAEREAREEEEAEEEEEEEEEEREREEEREEEAEEAEREREREEEEEEEEREREEEEEEEREEEEEEEEEEED 
13 5 
is 
19 000022 REVCT = LSTMOD+1 ; REVECTOR OVERLAY 
28 : REVECTOR A SECTOR WITH A HEADER NOT FOUND OR A SECONDARY REVECTOR 
37 004413 104657 000046 MOV U.PARM(RS),RO ; GET UNIT PARAMETERS 
38 004415 102207 000400 BIT #REVEC,RO SEE IF REVECTOR ALLREADY IN PROGRESS 
39 004417 054475 BNE 1$ ; IF SO, BRANCH 
40 .SBTTL REVSUP - SETUP THE REVECTOR OPERATION tTo READ RCT) 
re sREVSUP 
43 ; INITILIZE ALL PARAMETERS FOR READING THE RCT TO FING THE RBN THAT 
a : A HEADER HAS BEEN REVECTORED TO 
46 004420 101207 000400 BIS #REVEC,RO : FLAG AS. REVECTOR IN PROGRESS 
47 004422 100657 000046 MOV RO,U.PARM(RS) ; SAVE PARAMETER 
48 004424 104207 005523 MOV # . : POINT or RCT LBN STRING 
100647 000005 MOV RO,S.LETR(R4) =: SAV 
50 004430 104657 000061 MOV U.RWER(RS),RO : GET READ/WRITE ERROR TYPE 
51 004432 100657 000062 MOV RO,U.RVER(RS) : SAVE ofr REVECTOR INFORMA TION 
52 004434 104641 000007 MOV S.SCHR(R4),R1: até NTS TO SUBUNIT CHARACTERISTICS 
3 004436 114007 CLR RO 3 USE PRON TO INITILIZE VALUES 
54 004437 100657 000055 MOV RO,U.RBN(RS) §: START WITH R 
55 004441 100657 000056 MOV RO,U.RBN+1(R5) = START WITH RBN ZERO 
004443 100657 000060 MOV RO,U.CCOP(RS) 3 ON ORIGINAL COPY OF RCT 
57 004445 115407 INC : RO IS NOW 7 
58 004446 100657 000022 MOV RO,U.MSEC(RS) : ONLY READ 1 SECTOR AT A TIME 
: 59 004450 115407 INC R : ROIS N 
004451 105617 000012 ADD LBNHST(R1),RO : RO POINTS TO 1ST REVECTOR INFORMATION SECTOR 
61 004453 100657 000053 MOV RO,U.CBN(R5) : SAV 
004455 104617 000013 MOV CBNHST#1 (Ri), RO : RO HAS HI FIRST REV INFO SECTOR 
63 004457 044461 BCC 5$ : IF NO CARY, BRANCH 
004460 115407 INC RO ; PROPOGATE CARRY 
65 004461 103207 170000 5$: BIC #*CHBHINB,RO =; CLEAR SUBUNIT BITS 
004463 100657 000054 MOV RO,U.CBN¢1(R5) : 
67 004465 114002 CLR R2 : NO ERRORS 
004466 104201 177777 MOV #=-1,R1 : START READ ATTEMPT RETRIES AT 0 
69 004470 100651 000012 MOV R1,U.RWTO(RS) : SAV 
70 004472 104207 000023 MOV #SEEK,RO : SEEK IS NEXT MODULE 
71 004474 0045246 BR $ 3 EXIT 
72 004475 104651 000024 1$: MOV U.CSEC(RS) R11: GET NUMBER OF SECTORS R/W SO FAR 
004477 105651 000051 ADD U.MBN(RS),R1 ADD STARTING SECTOR OF OPERATION 
74 004501 104010 002175 MOV R1,CURBN + MOVE TO TEMP STORA 
75 004503 104651 52 MOV U.MBN+1(R5),R1 ; GET HI STARTING SECTOR 
76 004505 044507 BCC 2$ : IF NO CARRY, BRANCH 
77 0064506 115401 INC R1 ; PROPOGATE CARRY 
78 004507 104010 002176 2s: MOV R1,CURBN+1 3 SAVE 
79 004511 104301 002220 MOV SCR2,R1 : SEE IF SECTOR READ IS Ok 
80 004513 014516 BEQ 6$ : IF SO, BRANCH 
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REVSUP = SETUP THE REVECTOR OPERATION (TO READ R 


024525 
4 


81 004514 
82 004515 
83 004516 
84 004517 
85 004520 
86 004521 
87 004522 
88 004523 
34 004524 


6$: 


4$: 


CALL REVSOK 
BR 


ST 
BEQ 4$ 

TST R2 
BNE 4$ 
CALL NXTRCT 
BR JMPRET 


RE 
-DSABL LSB 


D 15 


ein NEXT COPY TO READ 


SEARCH THE A TO FIND THE LBN 
SEE IF LBN FOUND 

LBN FOUND, BRANCH AND READ RBN 

SEE IF NULL FLAG FOUND (REVECTOR NOT FOUND) 
IF NOT, BRANCH 

READ NEXT RCT SECTO 

RETURN CONTROL TO SEQUENCER 


SEQ 1017 | 


COWONOUS Ww 
wn 
nN 
w 


SOSESE PEP EEESEEEREEESEEEEESE «Ok 


aad et a ed 
Nn Ou fiat 


— 
VMAAMAVMAAMM MIU LI UII 
Minn 


SSNS SELES RADAR EEE Bulan 


o~- — 


18 
6 

19 004602 
20 004603 
21 604 
22 004606 
23 004610 
24 004612 
25 004614 
26 004616 
27 004617 
28 004621 
29 004622 
30 004624 
31 004625 
32 004627 
33 004631 
34 004633 
35 004634 





UDATS DISK EXERCISER DMACR 
REVSOK = SEE IF THE REVECTO 


ne 
eo 


o=— 
ES 
wmowvrl 
— —) 


Cos as a es MHS 
FREER S 


ww 
™ 
mM WUONMMONN AO 


S SS2SSSNS FR 


2 


004564 
104200 


n= 2 
S 


— Sscooo 
SeRseareens 


223202-> 
aEeee 
SSascan 
MNWUaS 





000060 
000057 


000003 


003035 


177777 
000012 
000023 


X04.01 
R INFO 





001107 
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SECTOR JUST READ IS OK 


E 15 


aiucoe REVSOK = SEE IF THE REVECTOR INFO SECTOR JUST READ IS Ok 


2$: 


36$: 


6$: 


7$: 


GO TO THE NEXT RCT COPY 
U.CCOPC(RS) ,R1 
U.COPY(RS) ,R1 
5$ 


BPL 
HARDER 


MOV 
CMP 


BNE 
CERROR 
BR 
CERROR 
ERRORC 


40 


U.RVER(RS) ,R1 
#3,R1 


5 .#SER26 


36$ 
5 ,#SER32 


MOV 
sorenanntetiiceanenittehatee ence ~~: 


0 
RVFAIL 
7$ 


U.CBNC(RS 
R 


0,U.CBN(RS5) 
U.CBN+1(R5),RO 


RO,U.CBN+1(R5) 
NABLE 


#-1 R35 
R3,U.RWTO(RS) 
#SEEK RO 


GET NUMBER OF 

TRY ANOTHER CO 
CHECK AGAINST MA 
IF ALL COPIES UN 


oT, 
AG ERROR 


INCREMENT COUN 
SAVE 


MOV 


BRANCH 


X 
TRIED, BRANCH 


tha TRIED SO FAR 


#ER4O,HRQ.04 
yh a iene ten 


oH Q. 


#. /HRQ. 1 

. _#ERRMC ,HRO.RQ 

ORIGINAL ERROR TYPE 
IF REVECTORED BLOCK 
T, BRANCH 

#SER26,HROQ.05 


EXIT 
; FLAG ERROR HEADER COMPARE ERROR 
#SER3S2,HRQ.05 


U.CBN(RS) ,HRO.06 


U. CBN+1(R5) ,HRO.07 


CURBN,HRQ 


LR ERRPOS 
; ue ALL BITS AND DO A FAIL EXIT 
; SAVE COPY COUNT 
; RO POINTS TO ere PARAMETERS 


RO IS RCT COP 
; pre CURRENT SECTOR 


VE 
IF _NO CARRY, 
GET HI CURRENT 


Dates NUMBER 


great READ ATTEMPT RETRIES AT 0 


SEEK IS NEXT MODULE 
RROR 


NO E 
RETURN TO CALLING PROGRAM 


08 


CURBN+1,HRQ.09 


SEQ 1018 


: CLEAR THE POSITION 





mon 
~ 


1 

¢ 004635 
4 

5 

6 004635 
? 004637 
8 004641 
9 004642 
10 004644 
11 004645 
12 004647 
13 004650 
14 004652 
15 004654 
16 004655 
17 004657 
18 004660 
19 004662 
20 004664 
21 004665 
22 004667 
23 004670 
24 004672 

0046 

26 004676 
27 0047 
28 004701 
29 004702 
30 004703 
31 004705 
32 06 
33 10 
34 11 
35 13 
36 1s 
37 15 
38 17 
39 21 
40 22 
41 24 
42 5 
43 7 
hs 


COUNMN =| NUN NU 


ssepssseseesessassseaccess 


MUM 


104657 


re eee er ere 
VMELOULLSOUM &euo— 
NM SOONMOONUS 
NWN] 


We Sa W ea NN = 


SEREFE 
Amvonny 
YSSSxs 


002232 
000001 


000001 
020000 


170000 
002176 


002175 


000055 
000055 


000056 
000056 


(00046 
000021 


000002 
000200 


001107 
001104 
001103 
001110 


001110 


1$: 


2$: 


5$: 


6$: 


32$: 
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UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 114 
SEARCH = TRY TO FIND THE LBN IN THE RCT SECTOR JUST READ 


PE yb SARCH = TRY TO FIND THE LBN IN THE RCT SECTOR JUST READ 


SEARCH THE RCT SECTOR JUST READ TO FIND THE LBN OR THE NULL ENTRY 


MOV CHAINS ,RO 
yee Same oe 


oat 1(RO) ,R2 
BIT #020000 ,,R2 
5$ 


BIC #*CHBHINB,R2 
CMP CURBN+1 ,R2 


$ 
CMP (RO) , CURBN 
5$ 


ADD U.RBNC(R5S) ,R1 
MOV R7,U.RBN(R5S) 


MOV og NPR 


R1,U.RBN+1(R5) 
POV Ta! a 


RBNBN,RO 
MOV RO,U.PARM(RS) 
RVFAIL 


CLR 

CLR R2 

MOV R2,U.NSEC(RS) 
BR 7$ 

A0D #2,R0 

INC 

CMP #128. ,R1 

BNE 1$ 

CLR R2 

ADD U.RBN(RS) ,R1 
aoe R1,U.RBN(RS) 
ane U.RBN+1(R5),R1 
= Gi Ramet CRS) 


B 
HARDER 41 


MOV U.RVER(RS) ,R1 
$3 R1 
CERROR 5,#SER26 


BR 12$ 
CERROR 5,#SER32 


R1 
; GET RCT CODE 

IF NULL POINTER, ENTIRE TABLE EXHAUSTED. BRANCH 
; SEE IF IT IS A USED RBN 


RO POINTS TO LINK (NODE) IN READ CHAIN 
RO NOW POINTS TO BUFFER 
IS ws NUMBER OFFSET WITHIN THE SECTOR 


IF NOT, BRANCH 
CLEAR CODE 
SEE IF HI ORDER MATCHES 


IF NOT, BRANCH 
: SEE IF LO ORDER MATCHES 
: ADD RUNNING RBN TO OFFSET 


SAVE 

IF_NO CARRY, BRANCH 
GET HI ORDER RBN 
PROPOGATE CARRY 
SAVE 


; GET UNIT PARAMETERS 


FLAG ALL ROUTINES THAT THIS IS AN RBN 


SEQ 1019 


SAVE 
FAIL EXIT DOES WHAT WE WANT, JUST CLEAR R1 AND R2 
FOUND IT 


NO ERRORS 
SAVE 


EXIT 
; POINT TO NEXT RBN RECORD 
; INCREMENT RBN OFFSET 

; SEE IF ALL RECORDS TRIED 

; IF NOT, BRANCH 

; TO SIGNAL CALLING ROUTINE TO READ NEXT SECTOR 
; yt OLD RBN TO 128 


E 
IF NO CARRY, EXIT 
GET HI ORDER RBN 
PROPOGATE CARRY 
SAVE 
EXIT 
MOV #ER41,HRO.04 
MOV #41 ERHARD+4000. .R2 
MOV R2,HRO.02 
#. .HRO.O1 
#ERRMC .HRO.RO 
GET ORIGINAL ERROR 
SEE IF REVECTORED BLOCK 


IF NOT, BRANCH 
REVECTORED SECTOR 
MOV 


#SER26,HRQ.05 


3; EXIT 
3; REPORT HEADER COMPARE ERROR 
MOV #SER352,HROQ.05 





' 
See | 
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SEARCH = TRY TO FIND THE LBN IN THE RCT SECTOR JUST READ 


51 004761 
61 


55 004773 


002175 001111 
002176 001112 


002230 


128: 


9$: 
7$: 


ERRORC <CURBN,CURBN+1> 
ENDERR 0 

CALL RVFAIL 

MOV R5,R1 

RETURN 


aii aa 


SEQ 1020 | 

MOV CURBN, HRO.06 
MOV CURBN+1 ,HROQ.07 
ERRPOS ¢ CLEAR THE POSITION| 


CLR 
; CLEAR ALL BITS, FAIL EXIT 
3 FLAG AS 
: RETURN TO CALLING PROGRAM 


| 
| 
| 
| 
| 
| 
i 
| 
| 
| 
| 
| 
| 
| 
| 
| 
i 
| 


nm 
~ 
& 


RALRR 
seesss. 
fou 


Os 
WNWNNUSW awn 


RS 
fo 
oo-— 


-—Oo-—— 
ou 
Ss 


§ 
VMVIiViIiMininun 


&on 
SAOe na 


Sssssssssoss 


[SO OVONOUESWN $9 OONOUS wi 
MVIMIMMMIMIMI 
S s 
= 


PADIS ed et ed et ed os os 2 et 


vw 
oo 
rr 
= 
oe 


——O 
3 


Ww NSP 


2298 


® 


So 

Or 

—— 

N= 

MEUSOLYUN CONN 


Mtaaaaae 
™m 


2 we 
N 






000053 
000054 
000060 


000007 
000014 
000001 


000053 


000000 


003035 


003051 
002175 
Bosace 
00005 

000054 


002202 
002201 


001107 
001104 
001103 
001110 
001110 
001111 
iN 

11 
14 


001 
001 
0011 
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UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 115 
NXTRCT = GET THE NEXT RCT SECTOR TO SEARCH 


~SBTTL NXTRCT = GET THE NEXT RCT SECTOR TO SEARCH 
NXTRCT: 


INCREMENT CBN BY 1 AFTER SUBTACTING THE NUNMBER OF COPIES*RCT SIZE 


THAT WAS SEARCHED THROUGH ON THE LAST PASS 


MOV U.CBN(RS),R2 s_R2 HAS LO ORDER RCT BN 
MOV U.CBN+1(R5),R3 : R3 HAS HI ORDER RCT 
MOV U.CCOP(RS),RO : GE 

BEQ 3$ : IF NO COPIES, & 

MOV S.SCHR(R4),R1  ; R1 POINTS TO SUB 
SUB RCTCSZ(R1),R2  : SUBTRACT FROM LO 
BCC 2$ : IF NO BORROW, BR 
DEC R3 + PROPOGATE BOR 

DEC RO + DECREMENT COUNT 

BNE 1$ : IF NO CARRY, BRANCH 
ADD #1,R2 : INCREMENT CBN 

BCC 4$ : IF NO CARRY, BRANCH 
INC R3 : PROPOGATE CAR 

MOV R2,U.CBN(RS) =; SAVE LO ORDER 

MOV R3,U.CBN+1(R5) : SAVE HI ORDER 

MOV R2.CURBN : MOVE TO CALC AREA 
MOV R3.CURBN+1 : MOVE TO A 


MOV S.SCHR(R4),RO  ; POINT TO SUBUNIT 

CMP HICYL(RO),CYL*1 ; SEE IF IN XBN ARE 

BCS 5$ + IF SO, BRANCH 

BNE 6$ ; IF NOT, BRANCH 

CMP LBNCYL(RO),CYL ; SEE IF IN XBN AREA 

BEQ 5$ : IF SO, BRANCH 

BCC 6$ : IF NOT, BRANCH 

CALL RVFAIL : REVECTOR FAILED 

HARDER 4 : REPORT CORRUPTED RCT 
MOV 
MOV 
MOV 
MOV 
MOV 


MOV YU RVERCRS) 


CMP 3,R1 SEE IF REVECTOR 
IF RANCH 


BNE NOT, Bi 

CERROR 5,#SER26 REPORT REVECTOR . 

BR 8$ 3; BRANCH 

CERROR 5,#SER32 3; REPORT HEADER covers 

ERRORC SCORER LURES 0. CHOERTD 0. CRO CES 
MOV 
MOV 


BR 9$ ; REPORT ERROR 
NO 


BN 
T NUMBER OF yt THAT HAVE BEEN READ 
UNIT CHARACTERISTICS 
ORDER BN 


CALC AREA 
NOTE RO MUST BE ZERO FOR CALC SETUP 
; FIND CYL THAT NEXT SEC IS O 


ERWARD+4000. .R2 


#ERRMC.HRQ.RQ 
GET ORIGINAL ERROR 


#SER26,HRQ.05 


U 
CURBN+1 ,HRQ.07 


R2 ; ERRORS 
CALL ENABLE : ENABLE ERROR RECOVERY 


S piciiinennbeataedapmndmaaamnin 


SEQ 1022 
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NXTRCT = GET THE NEXT RCT SECTOR TO SEARCH 


45 005116 104203 177777 MOV #=1,R3 : START READ ATTEMPT RETRIES AT 0 
46 005120 100653 000012 MOV R3,U.RWTO(RS) =: SAVE 

47 005122 104207 000023 MOV #SEEK,RO : NEXT MODULE IS SEEK 

48 005124 000000 9$: RETURN 
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RVFAIL = CLEAR ALL REVECTOR BITS, AND CALL SETUP NEXT 


S 
uw 
= 
™ 
uw 


Ssosoooeseeossess 
MAA AMAMAMAUIMAAMUIUIUIUIUT 
ee ek ke ed ed ed ed ad od dd 
QUMMUNI  & & SW 
—NVIW = ON VIW SS NYIW es 


PRIPRIDIR) ad at td et ot ot os od ot 
ONAN OO OONAUSWN$ODONOUS wr 


Wrenn 
oo 


51 


o 
pte ts 
VIMne 
aad a 


oo 


[ree ee ee 
= 23sSes 
LYSE 
AAO 
oumMMVU! 

a od od od 


—) 
SRSF 
™~m 


000046 


Ph He RVFAIL = CLEAR ALL REVECTOR BITS, AND CALL SETUP NEXT 


1$: 


BUF ARA 


MAXADR 


J 15 





CLEAR ALL REVECTOR BITS, AND RESTORE U.CBN TO WHAT IT WAS 


U.PARM(R5) ,R1 
#REVEC,R1 

RI .U. PARMCRS) 
R1.U.NSEC(RS) 


U.CSEC(R5),R1 
U.MBN(RS) ,R1 


R1 
R1,U.CBN#1(R5) 


RO,S.LETR(R4) 
#SETUP,RO 


LE ,BUFARA-. 
+4 


LE ,MAXADR-. 
+i 


; GET UNIT PARAMETERS 
; CLEAR ALL REVECTOR BITS 


SAVE 
SAVE THAT A SECTOR HAS BEEN READ (SKIPPED) 


GET NUMBER OF SECTORS 

ADD STARTING SECTOR NUMBER 
RESTORE CBN 

GET HI MBN 

IF NO CARRY, BRANCH 
PROPOGATE CARRY 

SAVE HI IN CBN 

GET LBN STRING 


SETUP NEXT ROUTINE 
RETURN TO CALLING PROGRAM 
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UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 117 
weeeeeeees OVERLAY MODULE SEEK = IF NECESSARY, ISSUE SEEK 


-SBTTL steeeeeeee meaner MODULE SEEK = IF NECESSARY, ISSUE SEEK 
DMOVLY SK,BUFA 
»WREDC ROUTPUT EDC FOR THIS OVERLAY 


SEERA AEAAAEREAAAEAEEEAEEERAEEEEAEEAAAAAEEEEAEAEEEEEEEAEEEEEAEEEEEEKEREEREREEEEE 
SEERA ERA REREEEEE EERE EEEEAEAAEEEEEEAEAEEEEEEEEEAAAEEEEEREEEEEEEEREEEEEE 
SAREE RAAAEEAEAEAEE EERE EREE EEE EERE AEREREEEAEREEEAEEEEAREREEEEEEEEEREEEEEEEEE 
SERRA ERAAEAEAAE EE EEEE EEE REE EERE AEAAEAAARERAEEAEREREEAEEREREREEEEEEEEEEEEEE 


REVCT+1 : SEEK OVERLAY 


SEEK ISSUES A SEEK TO THE CYLINDER SPECIFIED IN U.CCYL(RS) (2 WORDS) 
AND GROUP GIVEN IN U.CGRP(RS) (1 Ww 

IT THEN RETURNS WITH A DEFERED CALL TO SEKTST (TEST SEEK) TO SEE IF 
THE SEEK “COMPLETED SUCCESSFULLY. IF SO, THE READ WRITE MODULE IS 


Be Ge Ge Ge Ge Ge Ge C/Fe Ge Se Ge Ge Ge Se 
m 
nm 
x 
iT 


THEN CAL 
-ENABL LSB 
MOV U.PARM(RS),.R3 =; GET UNIT PARAMETERS 
BIT #SEKINP,R3 SEE IF SEEK Oe ALLREADY IN PROGRESS 
BNE 3$ IF SO, BR 
MOV #-1,R1 FOR ZEROING FOLLOWING WORDS 
MOV RI. SRTY (RS) SAVE 
3$: MOV U.RCOV(RS),R3 |; GET RECOVERY 


BIT #RCBREQ,R3- 
MOV #RECALB,RO 
R2 


WORD 
TF NOT, RECAL IBRATION REQUESTED 
RECALIBRATE NEXT MODULE 


CLR 
BR SEKOUT XIT 
4$: MOV U.SRTY(RS) ,R2 GET SEEK RETRIES 
INC R2 ADJUST FOR TEST 
BEQ 5$ IF FIRST TIME, BRANCH 
CMP we eRe SEE a TRIED MAX NUM OF TIMES 


BCC IF NOT, BRANCH 

DEVFTL 14,<S.LETR(R4),U.CBN(RS) .U.CBN¢1(R5)> 
MOV #ER14,HRO.04 
MOV S. PETRERGI. HRQ.05 
MOV U. CBN(RS) ,HRQ. 
MOV U. CBNST CRE) HRQ.07 
MOV #14! FTLDEV+4000. ,R2 
MOV R2,HRQ.02 
MOV #. .HRQ.01 


MOV #ERRMC ,HRQ.RQ 
ERRORC <U.PARM(RS) ,#RBNTXT,U.RBN(RS) ,U.RBN+1(R5), GROUP, Eyl. CYL+1> 
MOV U.PARM(RS) ,HRQ.08 


MOV #RBNTXT HRO 
MOV U.RBN(R5) ,HRO. 10 
MOV -RBN+1(R5) HRQ.11 
MOV GROUP ,HRQ. 12 
MOV CYL,HRO.13 
MOV CYL+1,HRQ. 14 
ENDERR 0 
MOV U.PARM(RS),.R3 =; GET UNIT PARAMETERS 
BIC #SEKINP,R3- : CLEAR SEEK IN PROGRESS BIT 
MOV R3,U.PARM(RS) : SAVE 


ERRPOS ; CLEAR THE POSITION 





a 
3 
rs 
~ 
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90 
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53 
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Noon. 
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0 
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weeeeetene OVERLAY MODULE SEEK = IF NECESSARY, ISSUE SEEK 


GORCLB 
R5,R1 

SEKEXT 
» SEEK 


TSTNEC 
R3 


NOSEEK 
ISUSEK 
R2 


SEKEXT 

i ET 
R1,U.SRTYC(RS) 
U.MSTO(RS) ,RO 
RO,U. TIMH(RS) 


R2 IS ZERO HERE 
R2,U.TIML(RS) 


R5.R 
#SEKTST,RO 
DSABLE 
SEKEXT 
#BUILDP,RO 
R2 


R1 
JMPRET 
LSB 


; RECALIBRATE DRIVE 
; 4 Aa CALL 


EX! 
; REPORT SEEK wt 


HRO.02 
HRO.03 
MOV #1,HRO.04 
MOV RO,-(SP) 
MOV U.UNUM(R5) ,RO 
ADD U. SUBUC(R5) RO 
MOV RO,HRQ.01 
MOV #T4SOFT,RO 
CALL §_HOSTRQ 
MOV (SP)+,RO 
SEE IF SEEK IS NECESSARY 
SEE IF SEEK IS NECESSARY 
IF ZERO (NO SEEK NECESSARY), BRANCH 


ISSUE SEEK 
SEE_IF ERROR OCCURPED 
ANCH 


E 
INCREMENT CGUNT 
AVE 


MOVE TIMEOUT TO PARAMETERS 
INITILIZE TIMEOUT VALUE 


SAVE 
; DEFERRED CALL TO SEKTST 
; SEKTST NEXT TO CALL 
; DISABLE ERROR RECOVERY DURING SEEK 


BRANCH 

READ/WRITE ROUTINE NEXT 
NO ERRORS 

IMMIDATE CALL 

RETURN TO CALLING PROGRAM 


SEQ 1025 | 


| 


! 
| 
| 
j 
! 
} 
| 





005424 


30 005472 


104657 


104650 


Ouro 
Nw 


ono 4 Ooo 
NOUV 
mwNn~ 


—— 
RRRARAUR REE 
mr Sento 


7 
055472 


000046 
000200 


000055 
000056 


000053 
000054 


002201 
000047 
004000 
000064 


000003 


002175 
002176 


002175 
002176 


i 


2$: 
3$: 


4$: 


TSTNEC TESTS TO SEE IF A SEEK IS NECESSARY. 
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TSTNEC = TEST TO SEE IF SEEK IS NECESSARY 


a TSTNEC = TEST TO SEE IF SEEK IS NECESSARY 


IF NOT, R3 IS RETURNED 


AS ZERO, NONZERO OTHERWISE. 


CLR 
RETURN 


Ener e? me 
#RBNBN, 


RO 


U.RBN(RS),CURBN : 
*RBN+1(R5), CURBNS 


$ 
U.CBN(R5) 


U.CBN+1(R5), CURBN* 1 
RO 


CALC 


#CYL,R3 
U.RCOV(RS) ,RO 
#SEKREQ,RO 


$ 
#U.CCYL,R2 
a R2 


#3.R1 
(Rese, RO 
(R2)+, RO 


as 
R 


: GET UNIT PARAMETERS 
; SEE IF BLOCK REVECTORED 


: IF NOT, BRANCH 
Move REN TO CALCULATION AREA 
; MOVE RBN TO CALCULATION AREA 


8 
; MOVE LBN TO CALCULATION AREA 
MOVE LBN TO CALCULATION AREA 
TELL cALc righ TO SET UP PARAMETERS 
CALCULATE CYL AND GROUP 
R3_POINTS TO CALCULATED CYLINDER 
GET UNIT PARAMETERS 
SEE IF SEEK MANDATORY 
IF SO, BRANCH 
R2 WILL POINT TO CURRENT CYL 
ag Mg TG CURRENT CYLINDER 


ET 


WORD 
; Fen i. CYL ag GROUP THE SAME 
; DECREMENT 


COUNT 
IF COUNT INCOMPLETE, BRANCH 
FLAG AS SEEK NOT NECESSARY 
RETURN TO SEEK 


SEQ 1026 
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002201 


002202 001674 
002203 001675 
001636 


000064 
000003 


000067 


002201 


000046 
002000 
000046 


005050 001110 





mos 
AWM 
oe ee 


: RETURN 
IF 
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ISUSEK = ISSUE SEEK COMMAN 


1 
2 
3 
4 
5 
6 
? 
8 
G 
0 
1 
2 
3 
4 
5 
6 


ISUSEK = ISSUE SEEK COMMAND 
USEK: 


ISUSEK ISSUES THE SEEK TO THE DRIVE 


MOV CYL, INS+1 ; MOVE LOW CYL_TO SEEK COMMAND 
; SET LOWER BITS 


MOV GROUP, INS+5 : MOVE wk TO SEEK COMMAND 

MOV #CR.SEK,R3 : SET UP FOR TALK 

CALL LK : SEND SEEK 

TST ; SEE IF pe, OCCURRED 

BNE 10$ : IF SO, BRANCH 

MOV #U.CCYL,RO ; RO WILL POINT TO CURRENT CYLINDER 
ADD R5,R0 ; RO POINTS TO CURRENT CYLINDER 

MOV #3,R1 : MOVE THREE WORDS 


PUSH  <RO,R1> : SAVE POINTER AND COUNT 
MOV RO,-(SP) 
MOV R1,=(SP) 

R2 WILL POINT TO LAST CYLINDER 

Re POINTS TO LAST CYLINDER 


AVE 

DECREMENT COUNT 

IF COUNT INCOMPLETE, BRANCH 
RESTORE 


MOV #U.LCYL,R2 


MOV (RO)+,R3 
MOV RS, (R2)+ 


POP cR2.RO> 
MOV (SP)+,R2 
MOV (SP)+,RO 

MOV #CYL,R1 : R2 POINTS TO NEW CYL 

MOV (R1)#,R3 : GET WORD 

MOV R3, (RO)+ > SAVE 

R2 : DECREMENT COUNT 

; IF COUNT INCOMPLETE, BRANCH 

: GET UNIT PARAMETERS 

: MARK SEEK IN PROGRESS 


A 
; BRANCH (NOTE THAT =. zs ZERO = NO ERRORS) 
; REPORT SECONDARY ERR 

OF YSERD, HRQ.05 


MOV 
RETURN TO CALLING PROGRAM 


2$ 
MOV Pear abit Ee oR3 
MOV R3, - PARM(RS) 
BR ISUEXT 
CERROR 5, #SERO 


@ 
= 
m 
TRIE TELE TE SETS. 


° LE ,MAXADR-. 
2 +1 
-ENDC 
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weeeenreeee OVERLAY MODULE SEKTST = SEE IF THE SEEK IS COMPLETE 


aeeenenanre hry MODULE SEKTST = SEE IF THE SEEK IS COMPLETE 
output EDC FOR THIS OVERLAY 


- SBTTL 
DMOVLY TS,BUFAR 
REDC 


oW 
seeReeeReREReeeeeAeeeeeeeHeeeeeAHeReeeeeeeeeeeeeeneeetenenereeeeeeeneeeeeerete 


Be Se Se Se Se CMSs Se Ge Se Be Ge Ge 


SEKTST = SEEK+1 
SEKTST TESTS TO SEE IF 
R2 RETURNED AS ZERO IF 
POSITIVE NON-ZERO IF A 
-ENABL LSB 
CALL RTDS 
TST R2 
BEQ 1$ 
MOV #SEKTST,RO 
MOV R5,R1 
BR STSEXT 

1$: CALL ENABLE 
TST 
BPL STSERR 
ASSUME RWRDY,100000 
MOV U.PARM(RS) RO 
BIC #SEKINP, RO. 
MOV RO,U.PARM(RS) 
MOV Aas hyp l Ta 
BIC #SEKREQ,RO 
MOV oe U.RCOV(RS) 
MOV SEEK(R4) ,RC 
DEC RO 
BNE SEKCNT 
MOV U.UNUM(R5), 
ADD ve SUBU(R5), 
MOV T4SEEK, 
CALL HOSTRO 
MOV #1000. ,R0 
-DSABL L 

SEKCNT: rg RO,S.SEEK(R4) 
MOV U.SRTY(RS) RS 
BEQ 
REPSFT SOFT 





R 
S 


oO 


Sete Se abate Ge Ge Ge Fe Ge Se Fe Se Ge Ge Ge Be Be Se Be 


SEERA AEEAEAARAAEEEEEREEAEEEEEEEAEAAREARAARAEREEREEEEEAREEEEEEEEEAEEREREREEEEEE 
SERRA ARAEEEAEAEAEEE EA EEEEAREREEAEAREEREEAEEEEEEAEEEEEEEREREEEEEEEEAEEEEEEEE 
SREAAAEAAAAAAEEAAAEEEEEEEEEAEEAAEREEAAAEEAREAERAEEEEEEEEEEEEEEEAEEEEEEREREEEED 


; SEEK COMPLETE TEST OVERLAY 


Saget ys READY ATTENTION IS HIGH 
ERROR WAS DETECTED 


K WAS SUCESSFUL, -1 IF SEEK INCOMPLETE 


GET REAL TIME DRIVE STATE 
SEE IF IF ERROR 0 OCCURRED 

se aRy "588 MODULE 

DEFERRED CALL 


XIT 
ENABLE ERROR RECOVERY 
SEE IF R/W - ASSERTED 
IF NOT READY, BRANCH 
ASSUME a A Rby IS SIGN BIT 
GET UNIT P. 
SEEK NO i PROGRESS 


ERY 
tt NO LONGER. REQUIRED 
ER OF 1: es 


GET NUMB 
DECREMENT SEEK 
IF NO REPORT NEEDED, BRANCH 


: GET STARTING SUBUNIT NUMBER 

+ ADD OFFSET 

MOVE SEEK REPORT NUMBER TO RO 

REPORT TO HOST 

SET UP FOR NEW COUNT 

SAVE COUNT 

NO ERRORS 

GET RETRY COUNT 

IF NO RE’SIES, BRANCH 

REPORT Sufi ERROR 
MOV #1, HRO.02 
CLR HROQ.03 
CLR HROQ.04 


MOV RO,-(SP) 
5).RO 


MOV U.UNUM(RS) R 
ADD U. SUBU(RS) -RO 
MOV 0,HRO.0 

MOV #T4SOFT,RO 
CALL _ HOSTRO 


SEQ 1028 


abe ee, Be OE AST RE ah ee 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 120-1 SEQ 1029 
weweeeeree OVERLAY MODULE SEKTST = SEE IF THE SEEK IS COMPLETE 
71 005325 SOFTER 15,<R3,S.LETR(R4),U.CBN(RS) ,U.CBN+1(R5)> 
005325 104200 001503 001107 MOV #ER15,HRO.04 
005330 104030 001110 MOV R3,HRQ. 
005332 104640 000005 001111 MOV S.LETR(R4) ,HRO.06 
005335 104650 000053 001112 MOV U.CBN(R5) ,HRO.07 
005340 104650 000054 00111 MOV U. CBN+1(R5) ,HRO.08 
005343 104202 147657 MOV #15 'ERSOFT+4000. ,R2 
005345 104020 001105 MOV R2,HRO.02 
005347 104200 005347 001104 MOV . RQ. 
005352 104200 060013 001103 MOV RRMES,HRO.R 
72 005355 ERRORC <U.PARM(RS) ,@RBNTXT,U.RBN(R5),U.RBN+1(R5° ,U. CGRP(RS) ,U.CCYL(R5)> 
005355 104650 000046 001114 MOV “PARM(RS) ,HRQ.} 
005360 104200 005472 001115 MOV #RBNTXT ,HRO. 10 
005363 104650 000055 001116 MOV U.RBN(R5) ,HRO.11 
005366 104650 000056 001117 MOV U.RBN+1(R5) ,HRQ.12 
005371 104650 000066 001120 MOV U.CGRP(RS) ,HRO.13 
005374 104650 000064 001121 MOV U.CCYL(R5) .HRQ.14 
73 005377 ERRORC U.CCYL+1(R5) 
005377 104650 000065 001122 MOV U.CCYL+1(R5) ,HRO.15 
74 005402 ENDERR 0 
005402 114000 002230 CLR ERRPOS : CLEAR THE POSITION 
75 005404 104207 000007 23: MOV #BUILDP,RO ; BUILD THE READ/WRITE CHAIN NEXT 
005406 104653 000047 MOV U.RCOV(RS).R3 : GET RECOVERY WORDS 
7 005410 102203 030000 BIT #LEVUSD !NXTLEV,R3 3 SEE IF ERROR RECOVERY LEVELS IN USE 
78 005412 015415 BEQ 1$ 3 IF NOT, BRANCH 
79 005413 104207 000017 MOV #NEWLEV,RO 3; ISSUE ERROR RECOVERY COMMAND NEXT 
80 005415 114001 1$: CLR R1 : IMMIDATE CALL TO NEXT MODULE 
81 005416 003617 BR STSEXT + BRANCH 
82 005417 102201 000100 STSERR: BIT WAVAIL,R1 : SEE IF DRIVE TIMEOUT HAS EXPIRED 
83 005421 015433 BEQ 1$ : IF NOT, CH 
84 005422 104653 000046 MOV U.PARM(RS) ,R3 ; GET UNIT PARAMETERS 
85 005424 103203 002000 BIC ASEKINP,R3 : MARK AS SEEK NOT IN PROGRESS 
86 005426 100653 000046 MOV R3,U.PARM(RS) = SAVE 
87 005430 104207 000023 MOV #SEEK,RO : SEEK AGAIN 
88 005432 005617 BR STSEXT : EXIT 
89 005433 102201 000002 1$: BIT #ATIN,RI1 : SEE IF ATTENTION ASSERTED 
005435 015527 BEQ : IF NOT, BRANCH 
91 005436 REPSFT SOTT,,SEEK 3; REPORT SEEK AND SOFT ERROR 
5436 104200 000001 001105 MOV #1, HRQ.02 
005441 114000 001106 CLR HRO.03 
005443 104200 000001 001107 MOV #1,HRO.04 
005446 100467 MOV RO,-(SP) 
005447 104657 000063 MOV U.UNUM(RS) ,RO 
005451 105657 000050 ADD U. SUBU(RS) RO 
005453 104070 0011 MOV RO,HRQ. 
005455 104207 060007 MOV #T4SOFT,RO 
005457 021053 CALL §_HOSTRO 
005460 104267 MOV (SP)+,RO 
92 005461 SOFTER 1,<U.LGRP(RS),U.LCYL(R5) ,U.LCYL#1(R5) ,U.CGRP(RS) ,U.CCYL(R5)> 
005461 104200 000000 001107 MOV #ER1,HRQ. 
005464 104650 000071 001110 MOV U.LGRP(RS5) ,HRO.05 
005467 104650 000067 001111 MOV U.LCYL(R5) .HRO.06 
005472 104650 000070 O01112 MOV U.LCYL#1(R5) ,HRO.07 
005475 104650 000066 00111 MOV *CGRP(RS) ,HRQ. 
5500 104650 000064 001114 MOV U.CCYL(R5) .HRO.09 
005503 104202 147641 MOV #1 'ERSOF T+4000. .R2 
005505 104020 001105 MOV R2.HRO.02 
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eeeeeeeeee OVERLAY MODULE SEKTST = SEE IF THE SEEK IS COMPLETE 


ERRORC 
ENDERR 


B 
SOFTER 


ERRORC 


ENDERR 


CALL 
BR 
IF 


ENDC 





SEQ 1030 


CCYL+1(R5) ,HRO.10 


MOV #.,HRQ.01 
MOV WERRMES ,HRO.RQ 
U.CCYL+1(R5) 
U. 
; REPORT ATTN ASSERTED DURING SEEK 
#SER22,HRO.11 
MOV #11+1,ERRPOS 
STSEXT : EXIT 
DSABLE 
MAKE R1 NON-ZERO FOR DEFERRED CALL 


R5,R1 
R2” IS ZERO AT THis POINT 
ST,RO 


SET THE POSITION 


: SET THE POSITION 


#SEKT : SEEK TEST IS EXT MODULE 

U.TIML(R5),R3 : GET TIMEOUT VALUE 

#i,R : DECREMENT TIMEOUT VALUE 

R3,U.TIML(RS) : SAVE TIMEOUT VALUE 

STSEXT : IF NON-ZERO BRANCH 

U.TIMH(RS),R3 =; GET HI ORDER TIMEOUT 

#1,R3 : DECREMENT COUNT 

R3,U.TIMH(RS) : SAVE 

STSEXT 

3,<U.LGRP(RS) ,U.LCYL(RS5) ,U.LCYL#1(R5)> 
MOV #ER3,HRO.04 
MOV ULGRPURS). HRO.05S 
MOV U.LCYL(R5) .HRO.06 
MOV U.LCYL+1(R5) ,HRO.07 
MOV #3! ERSOFT+4000. .R2 
MOV R2, HRQ.02 
MOV HRO.01 
MOV FERRMES_HRO.RO 

<U.CGRP(R5) ,U.CCYL(R5) ,U.CCYL4+1(R5)> 
MOV U.CGRP(RS), HRQ. 08 
MOV U.CCYL(R5) 09 
MOV U. “CeVL#1 (RS). HRO.10 
MOV #SER22,HRO.11 
MOV #11+1, ERRPOS 

GOSEEK 

MPRET : RETURN TO SEQUENCER 
LE, MAKADR-. 


005620 
005620 000105 


INNING 3 te 
@OOViSWH-0O”0oO ue 


@OoOwo 


SSSooSo SoomooolS 
SLaRAR SSS ESR 
Nm ONL OWRnNw 
ASSASS WNASWASASS 
POPS pet poet byt tt 


s 


= NNN WWw 


92-222-2e-— 
+x 

Wwe 

MNO 

WOQOuMuri 








001655 


147747 


000100 
001661 


005010 





|< 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 121 
weeneeeeee OVERLAY MODULE RECALB - RECALIBRATION 


SBTTL *tteeenene eka MODULE RECALB = RECALIBRATION 
DMOVLY RC,BUFA 
-WREDC R*OUTPUT EDC FOR THIS OVERLAY 


PUTT IIIT TET LILE LLL TLE LITT TTI T TTT LL ITIL T TTT tit 
SERRE AAAEEAAEREREEEEEREREEEAEAAAAEAEREAERAAEREREAEAEAEAEREEEEEREREREEAEEEEEEE 
SERRA RRAEAAEEEEEAEEEAAAEEAAEAERERAAAEAAEREEEEREREEEEAEEREEEEEEHEEETEEERE 
iia mac i ttn aa aa iain aan laa dala 


RECALB = SEKTST+1 3 RECALIBRATION MODULE 
-ENABL LSB 
MOV #CR.INR,RS ; POINT TO THE INITIATE oe COMMAND 
CALL TALK : SEND-RECEIVE SDI COMMA 
TST ; SEE IF ANY ERRORS OCCURRED 


BEQ 1$ : IF NOT, BRANCH 


FROM HERE TO THE LABEL ‘5$° IS CODE THAT SEES IF THE HOST WAS 
HALTED LONG ENOUGH FOR THE DRIVE TO GC OFFLINE DURING THE RECEIVE 
ee fe oe (NOTE THAT LONG TIMEOUTS TALK TO THE HOST <<DURING>> 


THE T 
CMP #71. !ERSOFT+4000..R2 _; SEE IF TIMEOUT OF RECEIVE 
BNE 5$ ; IF NOT, BRANCH 
CALL RTOS : GET STATE 
TST R2 : SEE IF ERROR 
BEQ 4$ 3 IF NOT, BRANCH 
CALL GORTRY : RETRY THIS MODULE 
4$: BIT WAVAIL,R1 ; SEE IF DRIVE IS AVAILABLE 
BEQ % : IF NOT, BRANCH 
MOV CR. INR+L2.E0F ,R3 : GET INR OFFSET 
ADD : POINT TO RECALIBRATE ERROR COUNT 
MOV (R3),R1 : 
DEC R1 : DECREMENT COUNT 
MOV R1,(R3) : SAVE 
BR 33° 3 
6$: MOV R5,R2 > FLAG ERROR 
5$: CERROR . #SER7 : REPORT SECONDARY ERROR 
suche MOV #SER7,HRO.05 
1$ MOV U.RCOV(RS).R3 =: GET RECOVERY PARAMETERS 
BIC #RCBREQ,R : CLEAR RECALIBRATION REQUESTED FLAG 
BIS #SEKREQ.R3 : MARK SEEK AS REQUIRED 
MOV R3,U.RCOV(RS) : SAVE 
3$ CLR + NO ERRORS 
MOV Re, U.CCYL(RS) ; ZERO CYLINDER 
MOV “U. cCYL #1 (RS) 
MOV 4 -U.CGRP(RS) 
CLR R1 > IMMIDATE CALL 
“OV #SEEK,RO : SEEK IS NEXT MODULE 
2$: BR JMPRET + RETURN TO SEQNCR 


LSB 
LE MAXADR=. 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 121-1 
weeeteeees OVERLAY MODULE RECALB - RECALIBRATION 


83 
84 


MAXADR 


«ENDC 





SEQ 1032 
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weeeeeeeee OVERLAY MODULE DRPALL - DROP ALL SUBUNITS ON THIS D 


-SBTTL *tteeeeeee OVERLAY MODULE DRPALL = DROP ALL SUBUNITS ON THIS DRIVE 


DMOVLY DA,AREAO 

~WREDC OUTPUT EDC FOR THIS OVERLAY 
PITITIIILTTISTIIITITITTI Iti litiiitiiitititreririririiittitTitiiriiTiT iii ti tTiT i 
PTT Ti iT i iii irri ttt irri rir iii rir iti iiiririiiiiiititiiititit 
TT Ti Titi Titi iSite ttt irri rir irri iri ii iitiiiiiiiiiiiiititiiit 
TTI TiT iii iit PtP PPP irri iri rir iii it ii iii iiiititiiiiiiiitit 


DRPALL = RECALB+1 
DROP ALL SUBUNITS ON THIS DRIVE AND REPORT 


NOTE: 
THIS IS A VERY UNSTRUCTURED PIECE OF CODE -- IT HAS SEVERAL 
JUMPS DIRECTLY INTO SEQNCR AT SEVERAL DIFFERENT PLACES. 


-ENABL LSB 
PUSH R4 3 SAVE R4 (JUST IN CASE) 


MOV #MS2,HRQ.02 3 POINT TO MESSAGE 
MOV #HRQ.04,R0 : POINT TO WHERE TO PUT UNITS 
MOV R5 RS : GET POINTER TO UNIT DATABASE 


MOV R4,-(SP) 


INC ; POINT TO SUBUNIT POINTERS 
ASSUME U.SUBP,1 
CLR R1 : CLEAR INDEX 
CLR R4 : CLEAR NUMBER OF SUBUNITS COUNT 
1$: MOV (R3)+,R2 : GET POINTER 
BMI : IF_NO SUBUNIT, BRANCH 
MOV U.UNUM(R5),R2 ; GET are UNIT NUMBER 
ADD oR 3 ADD OFFSET 
MOV R2,(RO)+ : MOVE TO OUTPUT BUFFER 
MOV R2,HRQ.01 : MOVE TO UNIT NUMBER 
INC R4 : INC SUBUNIT C 
2$: INC R1 : INC 
CMP #3,R1 : SEE IF EXPIRED 
BCC : IF NOt, BRANCH 
MOV SER18F-1(R4),RO ; POINT TO DRIVE LIST 
MOV RO,HRQ.03 : POINT TO CORRECT ERROR MESSAGE 
MOV #MESSAG,RO : MESSAGE TO RO 
CALL HOSTRQ 3 REPORT 
MOV U.PARM(RS),R1 ; GET UNIT open ene 
BIS # P : SET DROP BIT 
MOV R1,U.PARM(RS) ; SAVE 
POP R4 
MOV (SP)+,R4 
BR NOSUB 
SER18F: .WORD SER18A 
-WORD SER18B 
- WOR SER18C 
WORD SER18D 
-DSABL LSB 


IF LE ,MAXADR=. 
MAXADR = +4 





SEQ 1033 
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75 ~ENDC 
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UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 123 
weeteneeee OVERLAY MODULE INSET = SET UP UNIT FOR INITIALZATIO 


-SBTTL steeeeneee OVERLAY MODULE INSET = SET UP UNIT FOR INITIALZATION 


DMOVLY IN,AREAI 

- WREDC OUTPUT EDC FOR THIS OVERLAY 
eeeeReeReeeeeeeeeeeeeeeeeeeeeeeeeeaeeeneaeeedeeeteneeeeerereeereeeeeeeeeres 
SERA AAEAAAEEAAAAAAEEAAEEAE TERE EEAAAAEERERARERERTEREHEREAEREREKEREERAREEEEEEE 
FERRARA AEAERAEEETE SAAT EAAEAAAAAAAAEAEEHEEREREREREEEEEERHERERAEKEREEEE 
SERRE AAAAEAAAEERAAAAAAEAETEREEAAERAAEEAEREEEAAAAEEREEEREREREEAEEEREREREEEREEEEE 


Se Se Se beets Ge Se Ge Ge Ge Se 


inseT = DRPALL+1 
INSET WILL SET UP EACH UNIT BEFORE IT STARTS RUNNING 
.ENABL LSB 
MOV U.PARM(RS),RO  ; GET UNIT PARAMETERS 
BIC #NEWSUB,RO- : NO LONGER NEW SUBUNITS 
MOV RO,U.PARM(RS) =: SAVE 
CLR R2- : NO ERRORS 
MOV R2,U.CCYL(RS) : CLEAR CYL+GROUP 
MOV R2.U.CCYL#1(R5) 
MOV R2,U.CGRPC(RS) 
CLR R1 : IMMIDATE CALL 
MOV #COMCHR, RO : COMMON CHARACTERISTICS NEXT MODULE CALLED 
JMPRET : RETURN TO SEQUENCER 
.DSABL LSB 
wIF LE ,MAXADR-. 
MAXADR = +1 
.ENDC 


SEQ 1035 


J 16 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 124 SEQ 1036 
weetenteee OVERLAY MODULE COMCHR = SET UP COMMON CHARACTERISTI 


1 .SBTTL *eeeeeeee OVERLAY MODULE COMCHR = SET UP COMMON CHARACTERISTICS 

5 004722 DMOVLY CC,AREAI 

004722 000105 WREDC sOUTPUT EDC FOR THIS OVERLAY 

9 I TIITITILI TTT IIIIIIITITITT LILI TiTLi TTL Titi i TTT TTT Tee TTT 
10 FRR EEEAEEEAEEEEEEERAAERAEEAERAEREREEEEREEEEEEEEEEEAEEEEEEEREEE EEE 
11 FARRAR EAAAEERAEEEEEE EEE AEEEEAAAAERARAEAAAEEEEAAEREEAEEAEEEEEREEEEEEEEEEEE 
12 FEAR AREAEAEEEEAE EER AEE EEA AERA AEEEEEEEEEREEERAEEEEEREEREEEEEEEEEEEEEEE 
13 : 

is : 
9 000030 COMCHR = INSET+1 
29 : GET COMMON CHARACTERISTICS AND SET UP THE ERROR RECOVERY LEVEL, 

30 ; RETRIES, LONG TIMEOUT, AND SHORT TIMEOUT 
32 .ENABL LSB 

33 004701 104203 004453 MOV #CR.GCR,R3 ; POINT TO GET CHARACTERISTICS DATA 3LOCK 

34 004703 021173 CALL _—«*TALK : GET CHARACTERISTIC 

35 004704 115002 TST : SEE IF ANY AERRORS OCCURRED 

36 004705 014723 BEQ 1$ + IF NOT, BRANC 

37 004706 CERROR 5,#SER8 + REPORT SECONDARY ERROR 

706 104200 005027 001110 MOV #SERB,HROQ.05 

38 004711 103200 100000 001105 BIC #C2DFTL,WRQ.02 =; CHANGE TO HARD ERROR 

39 004714 104200 060014 001103 MOV #ERRMC, HRA. Ra : COUNT ERROR 
40 004717 101200 000002 002223 BIS #D01E,M.PARM : FLAG INITIALIZATION ERROR 

41 004722 005027 BR 2$ ; BRANCH TO EXIT 
42 004723 104300 001706 004516 1S: MOV ST+DRVID,DSERNM = SAVE DRIVE SERIAL NUMBER 

43 004726 104300 001707 004517 MOV ST+DRVID+1 ,DSERNM+1 ; SAVE DRIVE SERIAL NUMBER 

44 004731 104300 001710 004520 MOV ST+DRVID+2, DSERNM+2 SAVE | DRIVE SERIAL NUMBER 

45 004734 104307 001703 MOV ST+RETS,RO ; GET NUMBER RETRIES ALLOWED 

46 004736 110607 ROR RO t ROTATE TO CORREET POSITTON 

47 004737 110607 ROR RO 

8 004740 110607 ROR RO 
49 004741 110607 ROR RO 

004742 103207 177760 BIC #LBLONB, RO : CLEAR UNUSED BIT Ts 

51 004744 100657 000030 MOV ROU RTRYCRS) : SAVE IN UNIT PARAMETERS 

52 004746 104307 001704 MOV ST+ERLEV,RO : GET ERROR RECOVERY LEVELS 

53 004750 103207 177400 BIC #H ? : cl LEA AR UNUSE® BITS 

54 004752 100657 000031 MOV RO,U.MLEV(RS) : SAVE IN UNIT PARAMETERS 

55 004754 104307 001704 MOV ST+ECCRSH,RO 3: oeY ECC THRESHOLD 

56 004756 110707 SWAB RO : MOVE ECC THRESHOLD TO LOWER BYTE 

57 004757 103207 177400 BIC YTE,RO : CLEAR UNUSED BITS 

58 004761 100657 000032 MOV RO. i ECCT(RS) : SAVE 

59 004763 104307 001703 MOV ST+LONGTO,RO : GET LONG TIMEOUT 

60 004765 103207 177760 BIC #LBLONB,R i : CLEAR UNUSED BITS 

61 004767 025031 CALL TO + CALCULATE TIMEOUT 

62 004770 100657 000034 MOV RO,U.SDIL(R5) |: SAVE IN UNIT PARAMETERS 

63 004772 104307 001702 MOV ST+SHRTTO,RO ; GET SHORT TIMEOUT 

64 004774 103207 177760 BIC #LBLONB, RO : CLEAR BITS 

65 004776 025031 CALL TO + CALCULATE TIMEOUT 

66 004777 100657 000033 MOV RO,U.SDIS(RS) : SAVE SHORT TIMEOUT IN UNIT PARAMETERS 

67 005001 114001 CLR R1 : CLEAR LO SEEK TIMEOUT 

68 005002 114002 CLR R2 : CLEAR HI TIMEOUT 
69 005003 105201 025762 4$: ADD #11250.,R1 : ADD 9 SEC TIMEOUT TO LO ORDER TIMEOUT * 
70 005005 045007 BCC 3$ : IF NO CARRY, BRANCH 

71 005006 11540 INC R2 + PROPOGATE CARRY 

72 005007 11740 3$: DEC RO : DECREMENT TIMEOUT 





73 005010 


92 005033 


000011 
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UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 124-1 
weereeeteee OVERLAY MODULE COMCHR = SET UP COMMON CHARACTERISTI 


BNE 4$ : IF UNEXPIRED, BRANCH 

INC R2 : ROUND U 

MOV R2,U.MSTO(RS) ; SAVE SEEK MASTER TIMEOUT 
MOV ST+RCTCPS,RO ; GET NUMBER 7 = COPIES 
SWAB RO : MOVE TO LOW 
BIC #LBLONB RO ; CLEAR UNUSED “BIT Ss 

DEC R : ADJUST FOR TEST 4 INTERNALS 
MOV RO,U.COPY(RS) ; SAVE 
MOV #SPINUP,RO : SPINUP NEXT MODULE 

CLR R2 : NO ERRORS 

CLR R1 : IMMIDATE CALL TO NEXT MODULE 
BR JMPRET ; RETURN TO SEQUNCER 

-DSABL LSB 


SAL ATE THE TIMEOUT IN 9SEC INTERVALS (UDA SDI RECEIVE XFC TAKES 


MOV #1,R1 : a UP LOG2_SHIFTEP 

ADD R1,R1 : DOUBLE _ TIMEOUT VALUE 

DEC RO : DECREMENT COUNT 

BNE 1$ ; IF COUNT IN te he BRANCH 
INC RO : INCREMENT 9 S 

SUB #9. ,R1 3 SUBTRACT 9 sec. FROM Lb a on 
P 2$ : IF MORE TIME TO GO, BRANCH 
RETURN : RETURN TO CALLING PROGRAM 


PF LE ,MAXADR-. 
= +4 


SEQ 1037 





1 
5 005043 
005043 000105 


000031 


104203 


C03231 


004465 


000032 


004770 


000002 


-SBTTL 





L 16 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 125 
weeeeeeeee OVERLAY MODULE SPINUP = SPIN THE DRIVE UP 


eeeeneeeee OVERLAY MODULE 
DMOVLY SP,AREAI 
WREDC 


SPINUP = SPIN THE DRIVE UP 


OUTPUT EDC FOR THIS OVERLAY 


TITIIIIITILITI TILL LLL LL TTT LILE TELE LETTE TTT TTT TTT TTT TTT TTT TTT Tee 


SPINUP 


Be Se Ge Cte Ge Ge Ge Ge Ge Ge 


1$: 


2$: 


MAXADR 


BIC #C2DFTL,HRQ.02 
MOV 
BIS #D1E,M.PARM 


= COMCHR+1 
SPINUP WILL SPIN THE DRIV 
.ENABL LSB 

MOV #CR.RUN,R3 ; 
CALL _—*TALK : 
TST : 
BNE 1$ : 
MOV #SORT,RO : 
CERROR 5,#SER6 ; 


#ERRMC ,HRQ.RQ 


R1 
JMPRET 
IF as 


SERRE AEEEEEERERERERER EEA EREEREEEEEREEEEEEEEAEEEEEREEEEEEEEEAEEEEEEEE 
SERRE EEAEAEREEEEEE EERE EERE EAEREREREREEEAEEEEREEREEAEREEEEAEEEREREEEEEREEEE 
SRR EREREEE EERE EAE EERE EEREREEEEEEEEEEEEAEEREREEEEEREEE EE 


UP IF SPUN DOWN 


; POINT TO RUN COMMAND 

; SEND C 

; SEE IF ERROR OCCURRED 
; IF SO, BRANCH 

; eet NEXT MODULE 

; REPORT a pone 


#SER6,HRQ.05 
CHANGE TO HARD ERROR 


COUN OR 
FLAG INITIALIZATION ERROR 


IMMIDATE CALL 
RETURN TO SEQNCR 






OOOVIEWN—ONO uN 












NN 2 es 


30 


004727 
004727 000105 


000032 


100464 
100465 
115405 


104204 
104257 
074724 


100464 
100465 
104171 


102201 
0 


025025 


104265 
104264 
117404 
054706 


000004 


000040 


000033 





- SBTTL 


SEERA EEA REERE EEE EEE EEE EERE EEE EEEEEEAEREAREEEREREEEEEREE EES 
SRE EAEEAAREEEEEEE EEE EEE EEE EEE EERE ERE EREREEEEEREEEEEEEEEEEEEEEEEE EEE 
SEERA EERE E REE REE EEE EEA EAE EEEEEREEEEEERETEREEEEEEEEE 


4$: 


BeBe Se Se Cte Se Ge Se Se Oe Be 
oO 
z 
pan 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 126 
weeeeeneee OVERLAY MODULE SORT = SORT ALL CYLINDERS, BEGIN/SET 


DMOVLY SO.Ax OVERLAY MODULE SORT = SORT ALL CYLINDERS, BEGIN/SETS, AND BAD BLOCKS 
EDC 


SO,AREAI 








OUTPUT EDC FOR THIS OVERLAY 


oW 
TTTTITIITILETI TILL LLL LTT TTT TT LITLE TELE T LTT TT TTT TTT TTT TTT TTT Tete 


SPINUP+1 


SORT WILL SORT ALL BEGIN/END SETS, BAD BLOCKS AND TRACKS/GROUPS IN 
ASCENDING ORDER 


- ENABL 
PUSH 


oDSABL 


LSB 
<R4,R5> 


RS 
U.SUBP,1 
a 
(R5)+,RO 
<R4,R5> 
RO) , R1 
S.PARM,0 
#BEUSED, a1 
SORTTG 
2s 
SORTBE 
SORTBB 
<R5,R4> 
RG 
4$ 
<R5,R4> 


R1 


R2 
#SCHARO,RO 
JMPRET 

LSB 


SAVE R4 AND R5 


POINT TO SUBUNIT POINTERS 


XIMUM OF % SUBUNITS 
RO POINTS TO mg DATABASE 


; IF NO SUBUNIT 
: SAVE R4 AND R5 


GET SUBUNIT PARAMETERS 


re. if Aa SETS USED 
SORT THE TRACKS/GROUPS 


BRANCH 
SORT THE BEGIN/END SETS 


SORT THE BAD BLOCKS 
RESTORE R5, R4 


er COUNT 

IF ges ah F) BRANCH 
RESTORE R5, 

IMMIDATE CALL TO NEXT MODULE 


N 0 
SCHARO NEXT MODULE 


MOV 


R4,-(SP) 


V R5,-(SP) 


MOV 


MOV 
MOV 


MOV 


a 


R4,-(SP) 
R5,-(SP) 


(SP)+,R5 
(SP)+,R4 


(SP)+,R5 
(SP)+,R4 





N 16 
UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:02:53 PAGE 127 
SORTBE = SORT THE BEGIN/END SETS IN ASCENDING ORDER 


1 .SBTTL SORTBE = SORT THE SEGIN/END SETS IN ASCENDING ORDER 

2 004735 SORTBE : 

4 : SORT THE BEGIN/END SETS IN ASCENDING ORDER 

6 004735 104672 000016 MOV $.BESS*3(RO),R2 ; SEE IF ONLY ONE BEGIN END SET 

7 004737 074774 BMI 4$ : IF $O, EXIT (ALLREADY SORTED) 

8 004740 104202 000013 MOV #S.BESS,R2 : RO WILL POINT TO START OF BEGIN/END SETS 
9 004742 105072 ADD RO,R2 : Re POINTS TO BEGIN/E ND SETS 

10 004743 104023 1$: MOV R2,R3 : R3 WILL POINT TO NEXT BEGIN/END SET 
1 004744 105203 000004 2$: ADD #4 R3 + R3 POINTS OM BEGINTEND SETS 

13 ; 28 BIT COMPARE FOR BEGIN/END SET SORTING 

15 004746 104634 000003 MOV 3(R3),R4 ; GET WORD THAT R3 POINTS TO 

16 004750 103204 170000 BIC #*CHBHINB,R4 : STRIP OFF UNUSED BITS 

17 004752 104625 000003 MOV 3(R2),R ; GET OTHER WORD TO COMPARE 

18 004754 106045 CMP R4,RS ; COMPARE 

19 004755 054762 BNE 10$ : IF DIFFERENCE IS FOUND, BRANCH 

20 004756 104625 000002 MOV 2(R2),R5S ; GET OTHER WORD TO COMPARE 
21 004760 106635 000002 CMP 2(R3).R5 > COMPARE 
22 004762 044764 10$: Bcc 3$ > IF R2->B/E <= R3=>B/E THEN ALLREADY IN ORDER 
23 004763 024775 CALL  SWAPB : SWAP TE BEGIN/END SETS 

34 004764 104635 000003 3$: MOV siase RS ; SEE IF R3->END-OF “LIST 

25 004766 034744 BPL 2$ ; IF NOT, BRANCH 
26 004767 105202 000004 ADD #4 ,R2 : R2=>NEXT BEGIN/END SET 

27 004771 104625 000003 MOV 3(R2) RS > SEE IF R2=>END-OF =LIST 

28 004773 034743 BPL 1$ ; IF NOT. BRANCH 

29 004774 000000 48: RE TURN : RETURN TO COPYSU 


SEQ 1040 


| B 1 
UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:02:53 PAGE 128 
SWAPBE = IF BEGIN/END SETS OUT OF ORDER, SWAP 


004775 


° Ni 
S333SS 555 
ww uw 
ore SO SS SO OS St SS oS 


5005 


S 
CVUWN—ON 


NSO VONOULSWN—0O 00 
vw 
So 
— 
N 


NNN) eS es 
Ww 
atatototatatatototaotatot=) 
wviw w 
ooo 
MorPofnofrorngd 
Who 


i=) 
sss 
vm 
oo 
Nm 
nm 


24 005024 


R 
G 


oooo 
ooo 

SOMNWwWwNA 
RVLUERAR LOS 


=u 


5 


NW—NNOVIWING 


MN BVZOONO=S=ORNU=aURERE 
W WRSR=@ 


See Sessererccssse 


AO 
=~ 


oS 
So 


0000 


000003 


177400 


-SBTTL SWAPBE = IF BEGIN/END SETS OUT OF ORDER, SWAP 
SWAPBE : 


1$: 


SWAP THE BEGIN/END SET POINTED TO BY R2 WITH THE BEGIN/END SET 
POINTED TO BY R3, KEEPING THE END-OF=LIST FLAG INTACT 


PUSH 


RETURN 


<R1,R2,R3> 


RG. (R3) 
R5,(R2) 
<R3,R2,R1> 


SAVE POINTERS 
MOV R1,-(SP) 
MOV R2,=(SP) 
MOV R3,-(SP) 

SET UP LOOP COUNT 

GET WORD FROM SET 

GET yA ena OTHER SET 


; GET WORD FROM SET 


GET WORD FROM OTHER SET 


; MOVE TO TEMP STORAGE 
; STRIP OFF END-OF=LIST FLAG, IF ANY 
; R1 CONTAINS END-OF=LIST FLAG, IF ANY 


R& NOW HAS END-OF-LIST FLAG, IF ANY 

SWAP WORD (AND EOL FLAG, IF ANY) 

SWAP R 

RESTORE THE REGISTERS 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 

RETURN TO SORTBE 


SEQ 1041 


ED 


osahbl DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 129 SEQ 1042 
ORTBB - SORT THE BAD BLOCKS IN ASCENDING ORDER 


1 -SBTTL SORTBB = SORT THE BAD BLOCKS IN ASCENDING ORDER 
¢ 005025 SORTBB: 
: $ SORT THE BAD BLOCKS IN ASCENDING ORDER 
6 605025 es 143 000012 MOV $.BADP(RO),R2 ; GET THE BAD BLOCK POINTER 
7 005027 01507 BEQ 4$ 3; IF NO BAD BLOCKS, BRANCH 
8 005630 104625 000001 MOV [ine). R5 3; SEE IF ONLY ONE BAD BLOCK 
9 005032 075073 BMI 3; IF SO et (ALLREADY SORTED) 
10 005033 104023 1$: MOV a, R3 3; R3 WILL POINT AT NEXT BAD BLOCK 
11 005034 105203 000002 2$: ADD #2,R3 3; R3 POINTS TO NEXT BAD BLOCK 
12 005036 624623 CALL CBB2 : COMPARE THE TWO BLOCKS 
13 005037 045063 BCC 3$ ;_IF IN yg doe ORDER, BRANCH 
14 -SBTTL SWAPBB = IF BAD BLOCKS OUT OF ORDER, SWA 
; 2 3 SWAPBB 
+4 4 SWAP THE BAD SLOCKS, RETAINING THE END-OF-LIST POINTER AT THE END 
19 005040 PUSH R1 3 SAVE R1 
005040 100461 MOV R1,-(SP) 
20 005041 104124 MOV (R2) ,R4 ; GET LO ORDER BAD BLOCK OF 1ST SET 
21 005042 104135 MOV (R3),R5 ; GET LO ORDER BAD BLOCK OF 2ND SET 
22 005043 100134 R4,(R3) 3 SWAP 
23 005044 100125 MOV RS, (R2) 3 SWAP 
24 005045 104624 000001 MOV 1(R2),R4 3 GET HI ORDER BAD BLOCK OF 1ST SET 
25 005047 104635 000001 MOV 1(R3),R5 3; GET HI ORDER BAD BLOCK OF 2ND SET 
26 005051 104051 MOV R5,R1 3; MOVE TO R1 
27 005052 103205 177400 BIC #HIBYTE,RS ; STRIP OFF END-OF-LIST FLAG, IF ANY 
28 005054 107051 SUB R5,R1 3 R1 CONTAINS END-OF-LIST FLAG, IF ANY 
29 005055 101014 BIS R1,R4 2 si wnat FLAG IN R4, if ANY 
30 005056 100634 000001 MOV R4,1(R3) 3: SWA 
31 005060 100625 000001 MOV R5,1(R2) 3 SWA 
32 005062 POP R1 g RESTORE R1 
005062 104261 MOV (SP)+,R1 
33 005063 104635 000001 3$: MOV 1(R3),R5 ; SEE IF END-OF-LIST 
34 005065 035034 BPL 2$ 3: IF NOT, BRANCH 
005066 105202 000002 ADD #2,R2 ; ote POINTS TO NEXT BAD BLOCK 
005070 104625 000001 MOV 1(R2),R5 3; SEE IF END-OF-LIST 
37 005072 035033 BPL 1$ 3 1 NOT, BRANCH 
38 005073 000000 4$: RETURN 3 RETURN. TO COPYSU 








UDAT4 DISK EXERCISER DMACR X04.01 23=AUG-82 12:02:53 PAGE 130 
SORTTG = SORT THE TRACK/GROUPS IN ASCENDING ORDER 


geattt SORTTG = SORT THE TRACK/GROUPS IN ASCENDING ORDER 


S 

: 

QRRAVLSNe e 
onwm—— 
GRERBRARSE 
oOnNeo]f£0o—--onw 
MOVING —WN— NO 
Surf VNN Su 


“"ONOUSWN—ONV 


S 
S 


OO 2 Oo es 

ow o 
SooNwn.]-2—— 
“NEMS 


SSsssessssssssesesss 
S 


MAMAN MUI 


“OOS WN $0 ODDBNOUSWN OC V0ONOUFWwrR— 
ROR) at ot ot ot 2 oe es 


WWWRINININININYUN a tt 2 es 


SORTTG WILL SORT THE TRACKS OR GROUPS IN ASCENDING ORDER 

MOV #5. 1GSS.R1 : R1 WILL POINT TO TRACK/GROUP START 
: R1 POINTS TO TRACK/GROUP START 

MOV a, RS T OF List 

MOV RI .R2 

MOV (R2) RS 

BIC #HIBYTE RS 

UB 4 

CMP (R1) RS 


F NEGAT 
; R2 WILL POINT “TO. NEXT LIST 
NTS TO NEXT MEMBER 


0 R4 
CLEAR END-OF=LIST FLAG (IF ANY) 
SAVE END-OF=LIST FLAG (IF ANY) 
SEE IF THE MEMBERS ARE IN ORDER 
IF SO, BRANCH 
Sup START OF LIST TO R4, RETAINING EOL FLAG 


MOV R4, (R2) SWA 

MOV (RO) ,R5 GET MEMBER THAT SORT POINTER POINTS TO 
BPL 2$ IF NOT END=-CF-LIST, BRANCH 

INC R1 POINT TO NEXT START OF LIST 

BR 1$ LOOP 

RETURN RETURN TO CALLING PROGRAM 

IF <” eet 

= * 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 131 SEQ 1044 | 
weeteeeene OVERLAY MODULE SCHARO - SET UP SUBUNITS, CHECK THAT 


1 SBTTL teeeeeeeee OVERLAY MODULE SCHARO = SET UP SUBUNITS, CHECK THAT ALL PARAMETERS ARE WI’ 
5 005122 DMOVLY SO,AREAI 
005122 000105 WREDC sOUTPUT EDC FOR THIS OVERLAY 
9 FERRARA REEAEREAREREEEE AEE E EEE ERE AEEAERAAEREREREEEEAEEAEEEEEEEEEEEEEEEEEE 
10 FRERAAAEAAEEEAERAEAEREEEEE TEESE EEE AAEAAEERERAEREAEEAEEEEEWEEEAEEEEEEEEEEEEE EEE 
11 FRREAAERAAEEEEAEREERERE EE AEEEEEEEEREAAAEEEEEEEEEEEEEREREEEEEEEEEEEREREEEEEEEEEE | 
12 SERRA AEAAAEREAEREEREEEE EEE EEE REAR AERERAEREEEEEEAEEEEREEEAEEEEEREEEEEEEEEE ! 
13 ; 
13 | 
19 000033 SCHARO = SORT+1 | 
29 ; INSCHR WILL GET THE SUBUNIT CHARACTERISTICS AND INITILIZE THE | 
3 3 SUBUNIT PARAMETERS | 
32 .ENABL LSB 
33 004701 PUSH RG ; SAVE R4 (SUBUNIT) POINTER 
004701 100464 MOV R4,=(SP) 
34 004702 104041 MOV R4,R1 : R1 POINTS TO SUBUNIT | 
35 004703 104657 000050 MOV U.SUBU(R5),RO _; GET SUBUNIT OFFSET 
.SBTTL SMASK = CALCULATE THE SUBUNIT MASK 
37 3 SMASK 
39 : SMASK TAKES THE UNIT OFFSET (0 = 3) IN RO AND CHANGES IT TO THE 
40 : SUBUNIT MASK (0001 = 1000) 
42 004705 PUSH R11 ; SAVE R1 | 
004705 100461 MOV R1,-(SP) 
3 004706 104071 MOV RO,R1 : MOVE RO TO R1 
44 004707 104207 000020 MOV #20,R0 + SUBUNIT 0 MASK 
45 004711 115001 TST R1 : SEE IF SUBUNIT MASK SHIFTED TO CORRECT POSITION 
46 004712 014716 SMASKL: BEQ SMASKX : IF $0, BRANCH 
47 004713 110207 ROL RO + SHIFT MASK 
48 004714 117401 DEC R1 : DECREMENT COUNT 
49 004715 004712 BR SMASKL : H 
50 004716 SMASKX: POP R1 : RESTORE R1 
004716 104261 MOV (SP)+,R1 
51 004717 104070 004475 MOV RO, SUBUNT : MOVE TO SDI BUFFER 
52 004721 104203 004460 MOV #CR.SCR,R3 : POINT TO COMMAND 
53 004723 PUSH RI + SAVE R1 
004723 100461 MOV R1,-(SP) 
54 004724 021173 CALL _—s«*TALK : SDI EXCHANGE 
55 004725 POP R1 : RESTORE R1 
004725 104261 MOV (SP)+,R1 
56 004726 115002 TST 2 : SEE IF ERROR OCCURRED 
57 004727 055135 BNE : IF SO, BRANCH 
58 004730 100612 000010 MOV R2,S.MEGR(R1) : ZERO MEGABIT COUNT 
59 004732 10061 0011 MOV S.MEGW(R1) : ZERO MEGABIT COUNT 
60 004734 104203 001702 MOV »R3 : R3 POINTS TO SUBUNIT CHARACTERISTCS 
61 004736 106205 007702 CMP #F IRSTU,RS + IS RS => FIRST UNIT? 
62 004740 014754 BEQ : IF SO, BRANCH 
63 004741 104202 007702 MOV #FIRSTU,R2 + R2 => FIRST UNIT 
64 004743 PUSH = <R1,R3,R4> ; SAVE REGS | 
004743 100461 MOV R1,-(SP) 
004744 100463 MOV R3.-(SP) 
004745 100464 MOV R4.=(SP) 
65 004746 025156 CALL —s TRAV ; TRAVERSE THE UNITS TO FIND IF SUBUNIT CHAR ARE EQUAL 


| 
| 





Ff 1 } Ei 
UDAT4 DISK EXERCISER DMACR XO4.01 23-AUG~82 12:02:53 PAGE 131-1 SEQ 1045 
SMASK = CALCULATE THE SUBUNIT MA 


66 004747 POP <R4,R3,R1> : RESTORE REGS 
004747 104264 MOV (SP)+,Ré4 
004750 104265 MOV (SP)+.R3 
004751 104261 MOV (SP)+.R1 
67 004752 115007 TST RO : WERE ANY CHARS EQUAL? 
68 004753 054767 BNE 3$ : IF SO, BRANCH (RO WiLL BE NONE ZERO IF MATCH) 
69 004754 104207 000023 1$: MOV #19.,RO : MOVE WORD COUNT TO RO 
70 094756 PUSH RO + SAVE COUNT 
004756 100467 MOV RO,=(SP) 
71 004757 024616 CALL GETMEM : GET SOME MEMORY 
2 004760 100617 000007 MOV RO,S.SCHR(R1) : STORE POINTER TO IN SUBUNIT PARAMETERS 
73 004762 POP R2 : RESTORE COUNT IN R2 
004762 104262 MOV (SP)+,R2 
74 004763 104234 2$: MOV (R3)+,R4 : MOVE ONE WORD OF S$ CHAR TO RO 
75 004764 100274 MOV R4, (RO)+ ; MOVE TO SUBUNIT CHAR AREA 
76 004765 117402 DEC R2- : DECREMENT WORD COUNT 
77 004766 054763 BNE 2$ : IF COUNT UNEXPIRED, BRANCH 
78 004767 104117 3S: MOV (R1),RO : GET S IT PARA 
79 004770 ASSUME S.PARM,O + ASSUME THAT S.PARM IS ZERO 
80 004770 102207 020000 BIT #OCYLS.RO ; SEE IF DIAGNOSTIC CYLINDERS ARE USED 
81 004772 015002 BEQ 4$ : IF NOT, BRANCH 
82 004773 104202 005521 MOV #0$,R2 ; MOVE THE CHARACTER "D* (TO MAKE DBN) TO R3 
83 004775 104303 001706 MOV STERBATRK.R : GET RBN'S PER 
84 004777 103203 177600 BIC SHIBT Yes 0G. R3 ; CLEAR UNUSED eins 
85 005001 005005 BR 5$ + BRANCH 
86 005 104202 005517 4$: MOV #LS,R2 ; MOVE THE CHARACTER 'L' (TO MAKE LBN) TO R3 
87 005004 114003 CLR R3 ; FOR LBN'S, NO RBN'S PER TRACK ADDED 
88 005 100612 000005 5$: MOV RD, S.LETR(RI)  : SAV 
89 005007 105303 001713 ADD ST¢LBNTRK,R3 : ADD LBNS PER TRACK (TO ZERO IF LBN AREA) 
90 005011 103203 177400 BIC #HIBYTE RS ; CLEAR UNUSED BITS 
91 005013 104030 004504 MOV R3, SECTRK : SAVE IN SECTORS PER TRACK 
92 005015 100613 000006 MOV RS. S.TRKL(R1) : SAVE IN TRACK LENGTH 
93 005017 025710 CALL MPSC : COMPUTE SECTORS/GROUP AND SECTORS/CYL 
94 005020 025737 CALL CLOMAX ; CALCULATE MAXIMUM DBN NUMBER (IN CASE NEEDED) 
95 005021 104117 MOV (R1),RO ; GET SUBUNIT PARAMETERS 
96 005022 ASSUME $.PARM,O : ASSUME THAT S.PARM IS ZERO 
97 005022 102207 000040 BIT #BEUSED, RO ; SEE IF BEGIN/END SETS ARE CUSED 
98 005024 015030 BEQ & : IF NOT, BRANCH 
99 005025 102207 000200 BIT #ONLYCL RO : SEE IF “we ALLREADY HAVE BEGIN/END SETS 
100 005027 015033 BEQ £ : IF SO, BR 
101 005030 025234 6$: CALL  CHKCYL : CONVERT THE CYLS TO BN'S 
102 005031 115002 TST R2 : SEE IF AN ERROR OCCURRED 
103 005032 055056 BNE 9$ : IF SO, BRANCH 
104 005033 025411 7$: CALL  CHKBES ; CHECK THE BEGIN/END SETS FOR ERRORS 
105 005034 115002 TST R2 F SEE IF AN ERROR OCCURRED 
106 005035 055056 BNE 9$ : IF $0, BRANCH 
107 005036 104302 00170 ST+LBNCYL,R2 0s: RD CONTAINS LO LBN CYLS 
108 005040 105308 00172 ADD ST+XBNCYL.R2 : ADD LO XBN CYLS TO R2 
109 005042 100612 00000 MOV R2,S$.SDCL(R1) : MOVE TO LO STARTING DIAG CYL 
110 005044 104302 00170 MOV ST#+LBNCYL#+1,R2 ; GET HI ORDER CYLS 
111 005046 045050 BCC 8$ ; IF NO CARRY, SRANEH 
112 005047 115402 INC R2 ; PROPOGATE CA ARRY 
113 005050 100612 000003 8$: MOV R2,S.SDCL*1(R1) ; STORE HI STARTING DIAG CYL 
114 005052 114002 CLR R : NO ERR 
115 005053 104207 000034 MOV #SCHAR1,RO : SCHAR1 IS NEXT MODULE 
116 005055 005153 BR 15$ : EXIT 
117 005056 104650 000063 001106 9$: MOV U.UNUM(RS) ,HRO.03 ; GET STARTING UNIT NUMBER 









UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 131-2 
SMASK = CALCULATE THE SUBUNIT MASK 


118 005061 105650 000050 001106 ADD U. SUBU(RS) ,HRO.03 : ADD OFFSET 
119 005064 104307 001103 MOV HRQ.RO,RO 3 SET UP TO REPORT ERROR 
120 005066 021053 CALL §_HOSTRO + REPORT 
121 005067 101200 000002 002223 ‘BIS #01E,M.PARM > FLAG INITIALIZATION ERROR 
122 005072 104201 000001 MOV #U.SUBP,R1 : R1 WILL POINT AT SUBUNIT POINTERS 
123 005074 105051 ADD RS, : R1 POINTS AT SUBUNIT POINTERS 
124 005075 105651 000050 ~ ADD U.SUBU(RS),R1 =; R1 POINTS AT POINTER TO SUBUNIT BEING HANDLED 
125 005677 104117 MOV (R1) ,RO : RO POINTS TO SUBUNIT BEGING HANDLED 
126 005100 104203 100000 . MOV #DROP,R3 : MOVE DROP FLAG TO R3 
127 005102 100173 MOV R3, (RO) : DROP THIS SUBUNIT 
128 005103 ASSUME S.PARM,O 
129 005103 114002 CLR R2 : NO ERRORS 
130 005104 104653 000050 10$: MOV U.SUBU(RS),R3 ; GET SUBUNIT OFFSET 
131 005106 115403 INC 3 + NEXT SUBUNIT 
132 005707 100653 000050 MOV R3,U.SUBU(R5) : SAVE 
133 005111 106203 000003 CMP #3.R3 : SEE IF VALID OFFSET 
134 005113 Bs Ss ; IF NOT, BRANCH 
005115 045115 BCC +2 
005114 005125 BR 11$ 
135 005115 105203 000001 ADD #U.SUBP,R3 ; WILL POINT TO NEXT SUBUNIT POINTER 
136 005117 105053 ADD R : ADD POINTER TO UNIT DATABASE 
137 005120 104133 MOV (R3) ,R3 + GET POINTER 
138 005121 075104 BMI : IF NO SUBUNIT, BRANCH 
139 005122 104131 MOV (R3) ,R1 : GET SUBUNIT PARAMETERS 
140 005123 ASSUME $.PARM,O 
141 005123 075104 BMI 10$ : IF DROPPED, BRANCH 
142 005124 ASSUME DROP,100000 
143 005124 005130 BR 12$ : EXIT 
144 005125 114003 11$: CLR R : NO SUBUNITS 
145 005126 100653 000050 MOV R3,U.SUBU(R5) =: SAVE 
146 005130 115003 12$: TST R3 : ANY? 
147 005131 055151 BNE 14$ ; IF SO, BRANCH 
148 005132 104207 000035 MOV #GETSER,RO : GETSER NEXT MODULE 
149 005134 005153 BR : EXI 
150 005135 13$:  CERROR 5,#SERS : REPORT SECONDARY ERROR 
005135 104200 004747 001110 v #SERS,HRO.05 
151 005140 103200 100000 001105 BIC #C2DFTL,HRQ.02 ; CHANGE ERROR TO HARD ERROR 
152 005143 104200 014 001103 MOV #ERRMC,HRQ.RQ ; COUNT ERROR 
153 005146 101200 000002 002223 BIS #01E,M.PARM : FLAG INITIALIZATION ERROR 
154 005151 104207 000033 14$: MOV #SCHARO, RO : THIS MODULE IS NEXT 
155 005153 114001 15$: CLR R1 : IMMIDATE CALL TO NEXT MODULE 
156 005154 POP RG + RESTORE R4 
005154 104264 MOV (SP)+,R4 
157 005155 003231 BR JMPRET : RETURN TO SEQNCR 
158 .DSABL LSB 





SEQ 1046 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 132 SEQ 1047 | 


TRAV = TRAVERSE THOUGH THE UNITS TO FIND SUBUNIT CHARS THAT MA 





1 +SBTTL TRAV = TRAVERSE THOUGH THE units TO FIND SUBUNIT CHARS THAT MATCH 
2 005156 TRAV: PUSH Re ; R2 => 
005156 100462 MOV R2,-(SP) 
3 005157 025167 CALL  SUBTRV ; GO TRAVERSE SUBUNITS 
4 005160 POP R2 : RESTORE R2 
005160 104262 MOV (SP)+,R2 
5 005161 115007 TST RO : FOUND A MATCH 
6 005162 055166 BNE 1$ + IF SO, BRANCH 
7 005163 104122 MOV (R2) ,R2 + ELSE, CHECK NEXT UNIT 
8 005164 106052 CMP R5,R2 : ARE WE POINTING 1o. SAME UNIT? 
9 005165 055156 BNE TRAV : IF NOT, CONTINUE 
10 005166 000000 1$: RETURN : ELSE, EXIT 
12 .SBTTL SUBTRV = TRAVERSE THROUGH SUBUNITS TO FIND SUBUNIT CHARS THAT MATCH 
13 005767 104204 000004 SUBTRV: MOV #4 RG ; R1 IS COUNTER TO END 
14 005171 115402 INC + R2 => SUBUNIT PARAMETER POINTER 
15 005172 ASSUME U.SUBP,1 
16 005172 104223 1$: MOV (R2)+,R3 : R3 HAS ADDRESS OF SUBUNIT PARAMETER 
17 005173 075205 BMI 2 : IF MINUS, NOT A GOCD SUBUNIT 
18 005174 104637 000007 MOV S.SCHR(R3),RO +: RO => SUBUNIT CHA 
19 005176 PUSH <R4,R2> 
005176 100464 MOV R4,-(SP) 
005177 100462 MOV R2.-(SP) 
20 005200 025210 CALL  SCHRCP : CHECK SUBUNIT CHARACTERISTICS 
21 oteay POP <R2,R4> 
005201 104262 MOV (SP)+,R2 
005202 104264 MOV (SP)+.R4 
32 005203 115007 TST RO : FIND A MATCH? 
23 005204 055207 BNE 3$ : IF 
24 005205 117404 2$: DEC R4 t ELSE, ARE ALL SUBUNITS DONE FOR THIS UNIT? 
25 005206 055172 BNE : IF NOT, BRANCH 
26 005207 000000 38: RETURN 
28 .SBTTL SCHRCP - SUBUNIT CHARACTERISTICS COMPARE 
29 : se RO = 0 IF NO MATCH OR RO -> SUBUNIT CHAR IF THERE IS A MATCH 
30 005210 SCHRCP: PUSH <RO,R1> 
005210 100467 MOV RO,-(SP) 
005211 100461 MOV R1.-(SP) 
31 005212 104204 001702 MOV #ST,RG : R4 => CHARACTERISTICS 
32 005214 104201 000023 MOV #19. ,R1 : R1 = # OF WORDS TO COMPARE 
33 005216 104242 1$: MOV (R4)+,R2 > COMPARE CHARACTERISTICS 
34 005217 106272 CMP (RO) +-R2 ; EQUAL? 
35 005220 055230 BNE 2$ : EF NOT, EXIT 
36 005221 117401 DEC R1 : ELSE, "tHE CR NEXT WORD 
37 005222 055216 BNE 1$ : IF NOT DONE WITH COMPARISON, SRANCH 
38 005223 POP <R1,R0> : RESTORE REGS 
005223 104261 MOV (SP>+, R1 
005224 104267 MOV (SP)+.RO 
39 005225 100617 000007 MOV RO,S.SCHR(R1) ; AND STORE POINT TO CHAR INTO SUBUNIT PARAM 
40 005227 005233 BR : AND EXIT WITH MATCH 
41 005230 2$: POP <R1,R0> 
005230 104261 MOV (SP)+,R1 
05231 104267 MOV (SP)+.RO 
42 005232 114007 CLR : RO = 0 (NO MATCH) 
005233 000000 3$: RETURN 
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UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 133 
CHKCYL = CHECK VALIDITY OF STARTING AND ENDING CYLS, CONVERT T 


Pad A CHKCYL = CHECK VALIDITY OF STARTING AND ENDING CYLS, CONVERT TO BEGIN/END SET 


© 
a 
o 
° 
. 
o 
° 
e 


2$: 


3$: 


4$: 


5$: 
6$: 


9$: 
10$: 





CALCULATE THE STARTING AND ENDING BN'S FROM THE GIVEN STARTING 
AND ENDING CYLS 


PUSH = RS ; SAVE R4, RS 
MOV R5,=(SP) 

MOV = §. BESS#2(R1),R4 ; R4 HAS LO STARTING CYL 

MOV §§ §.BESS+3(R1),R5 ; R5_HAS HI STARTING CYL 

BIC  #100000,R5 ; CLEAR EOL FLAG (IF ANY) 

CALL = CYL ; CALCULATE STARTING BN ON THAT CYL 

TST = R2 ; SEE IF ANY ERROR OCCURRED 

BNE 10$ ; IF SO, BRANCH 

MOV =- RO, S.BESS+2(R1) ; SAVE LO ORDER STARTING BN 

BIS #100000, ; SET END-OF-LIST FLAG 

MOV R3,S.BESS+3(R1) ; SAVE HI ORDER STARTING BN 

MOV = §.BESS#1(R1),R5 ; GET HI ORDER ENDING CYL 

CMP 2 #=1,R5 ; SEE_IF SHOULD DEFAULT TO HIGHEST LON 

BEQ ; IF SO, BRANCH 

MOV = §.BESS(R1),R4 ; GET LO ORDER ENDING CYL 

ADD —s- #1, R4 ; FIND STARTING BN OF NEXT CYL 

BCC OS ; IF _NO CARRY, BRANCH 

INC —RS ; PROPOGATE CARRY 

CALL  CYLBN ; CACULATE STARTING BN OF NEXT CYL 

TST =—s_ RR ; SEE IF ANY ERRORS 

BNE 10$ ; IF SO, BRANCH 

SUB #1,RO ; GET LAST BN OF PREVIOUS CYL 

Bcc 3 ; IF NO CARRY, BRANCH 


R3 
MOV RO,S.BESS(R1) 
MOV R3,S$.BESS+1(R1) 


; SAVE LO ORDER ENDING BN 
; ant HI ORDER ENDING BN 


XI 
; GET SUBUNIT PARAMETERS 
; ASSUME THAT S.PARM IS ZERO 
; SEE IF —-_ CYLINDERS USED 


+ PROPOGATE CARRY 


BIT #DCYLS.RO 

BNE 6$ : IF SO, B 

MOV ST+LANHST,RO =: GET LO ORDER ENDING LBN 
SUB #1, ; LAST LBN IN LBN AREA 
MOV RO.S.BESS(R1) SAVE LO ORDER 

MOV ST+LBNHST+1,RO ET HI ORDER 

BCC 5$ IF NO CARRY, BRANCH 
DEC RO > PROPOGATE CA 

MOV RO,S.BESS+1(R1) : SAVE HI ORDER 

BR 9$ : EXIT 

MOV MAXDBN, RO : GET LO ORDER MAX DBN 
MOV RO,S.BESS(R1) : SAV 

MOV MAXDBN+1 ,RO : GET HI ORDER 

MOV RO,S.BESS+1(R1) : SAVE 

CLR R2 : NO ERRORS 

POP R5 : RESTORE 


MOV (SP)+,R5 
RETURN 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 134 
CYLBN = GIVEN A CYLINDER, CALCULATE STARTING BN ON THAT CYLIN 


1 
¢ 005337 C 
& ; TAKING THE CYL GIVEN 
5 3 CYL AND RETURN IN 
§ 3 ERROR 
8 005337 114007 CLR RO 
9 005340 114003 CLR R3 
10 005341 115004 TST R4 
11 eh og 055345 BNE 1$ 
12 005343 115005 TST R5 
13 005344 015407 BEQ 5$ 
14 005345 107204 000001 1$: SUB #1,R4 
15 005347 045351 BCC 2$ 
16 005350 117405 DEC R5 
17 005351 105307 004506 2$: ADD SECCYL,RO 
18 005353 045355 BCC 3$ 
19 005354 115403 INC R3 
20 005355 106203 007777 * 3B: CMP #HBHINB,R3 
21 005357 045401 BCC 
22 005360 DEVFTL 57,#SER20 
005360 104200 003644 001107 
005363 1042 004047 001110 
005366 104202 047731 
005370 104020 001105 
005372 104200 005372 001104 
005375 104200 0014 001103 
23 005400 005410 BR 6 
005401 107204 000001 4$: SUB #1,R4 
25 005403 045351 BCC 
005404 107205 000001 SUB #1,R5 
27 005406 045351 BCC 
28 005407 114002 5$: CLR 
29 005410 000000 6$: RETURN 





J 


2, 


R4,R5 
IF 


Bete Se Be Se Se Be 


; REPORT LBN GVERFLOW 
MOV 


SEQ 1049 


tap, CYLBN = GIVEN A CYLINDER, CALCULATE STARTING BN ON THAT CYLINDER 


ALCULATE THE FIRST BN ON THAT 


CALC 
BN EXCEEDS 28 BITS, REPORT 
CLEAR THE PRODUCT AREA 
CLEAR THE PRODUCT AREA 
SEE IF LO ORDER IS ZERO 
IF NOT, BRANCH 
SEE IF HI ORDER IS ZERO 
IF SO, BRANCH AND EXIT 
J COUN 


OW 
ADD LO SECTORS/CYL TO LO ORDER PROD 
BRANCH 
E CARRY 
SEE IF HI ORDER TOO BIG 
IF NOT, BRANCH 


#ERS7 ,HRO.04 


MOV #SER20,HRQ.05 
MOV #57! FTLDEV+4000. ,R2 
MOV R2,HRQ.02 
MOV #.,HRQ.01 
EXIT MOV #ERRMC ,HROQ.RQ 
DECREMENT LO ORDER COUNT 
IF INCOMPLETE, BRANCH 


DECREMENT HI ORDER COUNT 
IF INCOMPLETE, BRANCH 


NO 
RETURN TO CALLING PROGRAM 


UDATS DISK EXERCISER DMACR X n0s,9 


K 
1 fn Ves. 12:02:53 PAGE 135 SEQ 1050 — 
CHKBES = CHECK THE BEGIN/END SETS FOR | 


1 .SBTTL CHKBES = CHECK THE BEGIN/END SETS FOR ERRORS 

é 005411 CHKBES: 

4 ; CHECK THAT THE BEGIN BLOCK <= END BLOCK IN EACH BEGIN/END SET, 

5 : T THE END BLOCK < THE BEGIN BLOCK OF THE NEXT BEGIN/END SET, 

: ; AND THAT THE LAST END BLOCK IS A VALID LBN OR DBN FOR THAT DRIVE. 

8 005411 PUSH = RS 
005411 100465 MOV R5,-(SP) 

9 005412 104203 000013 MOV #S.BESS,R3 : R3 WILL POINT TO ENDING BLOCK NUMBER 

10 005414 105013 ADD R1,R + R3 POINTS TO ENDIN 

11 005415 104202 000015 MOV #S.BESS+2,R2 : R2 WILL POINT TO STARTING BN 

12 005417 105012 ADD R1,R2 + R2 POINTS TO STARTING BN 

13 005420 024623 1$: CALL  CBB2 * COMPARE 

14 005421 045473 BCC 2$ : IF NO ERROR, BRANCH 

15 005422 10411? MOV (R1) ,R2 : GET SUBUNIT PARAMETERS 

16 005423 ASSUME t PARM,0 

17 005423 102202 000040 BIT #BEUSED,R2 : SEE IF BEGIN/END SETS USED 

18 005425 015431 BEQ : IF NOT, H 

19 005426 102202 000200 BIT #ONLYCL,R2 : SEE IF ONLY THE CYLINDER IS SPECIFIED 

20 005430 015452 BEQ 1 : IF NOT, BRANCH 

21 005431 20$:  DEVFTL 55,#SER20 : REPORT BEGIN CYL > ENDING CYL 
005431 104200 003552 001107 MOV #ERSS,,HRO.04 

5434 104200 004047 001110 MOV #SER20,HRO.05 
005437 104202 047727 MOV #55! F TLDEV+4000. ,R2 
5441 104020 001105 MOV R2,HRO.02 

005443 104200 005443 001104 MOV #..HRQ.01 
005446 104200 001103 MOV #ERRMC,HRO.RO 

22 005451 005706 BR 7$ ; BRANCH TO ERROR EXIT 

23 005452 21$: DEVFTL + 50,#SER20 : REPORT BEGIN > ENDING BN 
005452 104200 003315 001107 MOV #ERSO,HRO.04 
005455 104200 004047 001110 MOV PSER2O HRA O5 
005460 104202 047722 MOV #50!F TLDEV+4000. ,R2 
005462 104020 001105 MOV R2. HRO .02 
005464 104200 005464 001104 MOV #. HRQ.01 
005467 104200 060014 001103 MOV SERRMC. HRQ.RQ 

24 005472 005706 BR 7$ : BRANCH TO ERROR EXIT 

25 005473 104625 000001 2s: MOV 1(R2),R5 > SEE IF THE END-OF=LIST HAS BEEN FOUND 

26 005475 075527 BMI 4$ : IF SO, BRANCH 

27 005476 105202 000004 ADD #4,R2 : POINT TO NEXT BEGIN SET 

28 005500 024623 CALL  CBB2 : COMPARE 

29 005501 BCS 3$ + BRANCH 
005501 045503 BCC +2 
005502 005524 BR 3$ 

30 005503 DEVFTL 51,#SER20 : STARTING BN <= PREVIOUS ENDING eM 
005503 104200 003362 001107 MOV WERS1 RQ.04 
005506 104200 004047 001110 MOV #SER R26 HR 0.05 
005511 104202 047723 MOV #51 {FTLDEVS4000. .R2 
005513 104020 001105 MOV R2,HRQ.02 
005515 104200 005515 001104 MOV #..HRO.01 
005520 104200 06 001103 MOV PERRMC. HRQ.ROQ 

31 005523 005706 BR 7$ : ERROR EXIT 

32 005524 105203 000004 3S: ADD #4,R3 3: R3 oo POINTS TO NEXT END SET 

33 005526 005420 BR 1$ + LOOP 

34 005527 104112 4$: MOV (R1),R2 : GET SUBUNIT CHARACTERISTICS 

35 005530 ASSUME §.PARM,0 + ASSUME THAT S.PARM RO 

36 005530 102202 020000 BIT #OCYLS.R2 ; SEE IF DIAGNOSTIC CYLINDERS ARE IN USE 





UDATS DISK aa ties DMACR X04. 


BEGIN/END SE 


055613 
10420 
02462 


001714 


000040 
000200 


005517 
005517 
000001 
001715 


004502 


000040 
000200 


005521 
005521 
003765 


060014 


003405 


004503 


CERROR 
CERROR 
BR 

SUB 
BCC 


DEC 
DEVFTL 


BEQ 

CERROR 
CERROR 
DEVFTL 


BR 
DEVFTL 








23-AUG=82 12:02:53 PAGE 135-1 
FOR ERRORS 


5$ 
#ST+LBNHST,R2 
CBB2 


(R1) ,R2 
#BEUSED,R2 
WONLYCL ,R2 
11$ 

6,4L$ 
7,#L$ 


14$ 
#1,ST+LBNHST 
9s" 


ST+LBNH 


IF SO, BRANCH 
rz 2 POINTS TO LBNS IN HOST AREA 


EXIT 
BCC +2 
6$ 


; GET SUBUNIT acon gg iy 
; ASSUME THAT S.PARM IS ZERO 

; SEE IF TRACKS/GROUPS IN USE 

; IF SO, BRANCH 

; SEE IF s a COMPUTED BY CYLINDERS 
ae 


; LBN ERROR 


MOV #L$,HRQ.06 
MOV #L$,HRQ.07 


EXI 
DECREMENT LO LBN = BY 1 
i mente ae BRANCH 


OPOGAT E BORROW 
52, CPSERZO. ST+LBNHST. ST+LBNHST+1> ; LAST ENDING BN > MAX 
MOV #ERS2,H 


R3,R2 
#MAXDBN,R3 
CBB2 

6$ 

(R1),R2 
S.PARM, 
#BEUSED ,R2 
12$ 
WONLYCL ,R2 
13$ 

6,4#0$ 
7,40$ 

62 ,#SER20 


; IF 
; DBN ERROR 


MOV WSERDO" HRQ. 05 

MOV ST+LBNHST ,HRO.06 
AOV STsLBNHSTS1 wy 07 
MOV #52! F TLDEV+4000. .R2 
MOV R2.HRQ..02 


e Q.01 
FERRMCHRO.RO 
ERROR EXIT 
R2 POINTS TO LAST END SET 
R3 POINTS TO MAXIMUM DBN 
COMPARE 


EXIT 

pf SUBUNIT CHARACTERISTICS 
ASSUME THAT S.PARM IS ZERO 

SEE IF TRACKS/GROUPS IN USE 


IF SO, BRANCH 
SEE If B/E SET COMPUTED BY CYLINDERS 
NOT, BRANCH 


MOV #D$.HRO.06 

MOV #0$,HRQ.07 

MOV #ER62,HRO. A 

MOV #SER20, HRO.05 

MOV #62 FTLDEVS4000. .R2 
MOV R2,HROQ.02 


#.,HRQ.01 
MOV #ERRMC |HRO.RO 


DBN ERROR 
REPORT ERROR 


EXIT 
3 <#SER20, MAXDBN, MAXDBN+1> ; LAs) Same BN > MAX 


#ERS2,HRO.U4 
MOV eecRoO" HRO.05 


MAXDBN,,HRQ.06 
MOV MAXDBN+1 ,HRO.07 





UDATS DISK bog Bia DMACR x04.01 fz0 Vette 12:02:53 PAGE 135-2 
CHKBES = CHECK THE BEGIN/END SETS FOR 


202 047724 


a8 
ANNO 
FARGO 
sazee & 
oO 


om = 
oo -— 
ae 
™m 
w 


So 
= 


06 
73 005707 0000 


MOV #52! FTLDEV+4000. ,R2 
#.,HRO.01 

#ERRMC ,HRO.RO 

ERROR EXIT 

FLAG AS NO ERROR 

RESTORE REGISTER 


; RETURN TO INSCHR 


MOV (SP)+,R5 


SEQ 1052 


| UDATS DISK EXERCISER DMACR X04.01 23-AUG=-82 12:02:53 PAGE 136 
| COMPSC = COMPUTE SECTORS/GROUP AND SECTORS/CYLINDER 


| 


005710 


ooo 
ww 
N 
= 
— 


PRD INS st sk a st at et es 
$9 OONOUSWN 0 OONOUFS WR 
Soooooooooo 
“ 
Nm 
w 


oooo 
So 
= 


001705 
177400 
004504 


004505 
001704 


177400 
004505 


004506 


Sete te te He 


1$: 


2s: 





rere COMPSC = COMPUTE SECTORS/GROUP AND SECTORS/CYLINDER 


COMPUTE HOW MANY SECTORS/GROUP AND SECTORS/CYLINDER 
GIVEN HOW MANY SECTORS/TRACK IN SECTRK 


; CLEAR RUNNING TOTA 
; GET NUMBER OF TRACKS PER GROUP 


RO 

ST+TRKGRP,R 
#HIBYTE, a 
SECTRK, “RO 


1$ 
RO,SECGRP 
RO 


ST+GRPCYL ,R2 


#HIBYTE, 
SECGRP,RO 
R2 


2$ 
RO,SECCYL 


¢ DECREMENT 
IF COUNT 


; SAVE SEC 
; CLEAR RU 
; GET GROU 


CLEAR UNUSED BITS 

; ADD SECTORS/GROUP TO RUNNING TOTAL 
; DECREMENT COUNT 

; IF COUNT INC 
; STORE SE 


; RETURN T 


; CLEAR UNUSE 
; ADD aoa TO RUNNING TOTAL 


INCOMPLETE, BRANCH 
TORS/GROUP 
INNING TOTAL 
PS/CYLINDER 


NCOMPLETF, BRANCH 
CTORS/CYLINDER 
O CALLING PROGRAM 


S 
uw 
~“ 
Ww 
~N 


MAMA MAMUIMA MUI 
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sssssssssssssess 
SESS 


NM—ODBNOULSWN OOM NOufwrno— 
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001724 


177400 
004506 


001724 
177400 
004505 


000001 


004502 
004503 


5$: 


MAXADR 





-SBTTL 
CLCMAX: 


UDAT4 DISK EXERCISER DMACR x04.01 macy em 12:02:53 PAGE 137 
CLCMAX = CALCULATE THE MAXIMUM WRITEABLE D 


CLCMAX = CALCULATE THE MAXIMUM WRITEABLE DBN 


CALCULATE THE MAXIMUM DBN NUMBER ALLOWED, AND PLACE IT IN MAXDBN 
FOR BEGIN/END SET GENERATION AND TESTING (BAD BLOCKS TOO) 


PUSH R1 : SAVE REGISTER 
MOV R1,-(SP) 
CLR RO : CLEAR PRODUCT AREA 
CLR R1 + CLEAR PRODUCT AREA 
MOV ST+DBNCYL,R2  : GET DIAG CYL COUNT 
SWAB ss R2 : MOVE TO LO ORDER BYTE 
BIC #HIBYTE ,R2 : CLEAR UNUSED BITS 
ADD SECCYL, RO + ADD SECTORS/CYL TO TOTAL 
BCC 2$ : IF NO CARRY, BRANCH 
INC R1 : INCREMENT HI WO 
DEC R2 : DECREMENT C if 
BNE 1$ : IF NO CARRY, BRANCH 
MOV ST+DBNCYL R2 : GET NUMBER OF READ ONLY GROUPS 
BIC #HIBYTE RO : CLEAR UNUSED BITS 
SUB SECGRP,RO : SUBTRACT NUMBER OF SECTORS/GROUP 
BCC 4$ : BORROW, BRANCH 
DEC R1 + PROPOGATE BORROW 
DEC R2 + DECREMENT T 
BNE 3$ : IF INCOMPLETE, BRA 
SUB #1,R0 : ADJUST FOR DBNS START ING AT ZERO 
BCC 5$ : IF NO BORROW, BR 
DEC R1 + PROPOGATE BORROW 
MOV RO,MAXDBN t SAVE LO ORDER WORD 
MOV R1.MAXDBN¢1 : SAVE HI ORDER WORD 
POP R1 : RESTORE REGISTERS 
MOV (SP)+,R1 
RETURN ; RETURN TO INSCHR 
IF LE ,MAXADR-. 


= 
-ENDC 


SEQ 1054 





UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 138 


eteeeeeeee OVERLAY MODULE SCHART = SET UP 


= 


000105 
9 
10 
‘3 
i§ 
14 
15 
19 000034 
28 
44 
0 
31 
32 
33 004701 
004701 100464 
34 004702 104141 
35 00470 
36 004703 102201 004000 
37 004705 014753 
38 004706 102201 002000 
39 004710 014727 
40 004711 
004711 104200 002415 001107 
004714 104202 047674 
O06 718 1968 0 $0139? 
004720 104 720 001104 
004723 104200 060014 001103 
41 004726 004766 
$$ 9g Us 102201 040000 
43 004731 014753 
44 004732 103201 040000 
45 004734 100141 
46 004735 
47 004735 
004735 104200 005701 001105 
004740 100467 
004741 104650 000063 001104 
004744 105650 000050 001104 
004747 104207 060015 
004751 021053 
004752 104267 
48 004753 
49 
50 
51 
38 
53 004753 104041 
54 004754 963005 
55 004755 11500 
2$ ope] 0547 
57 004757 10411 
58 004760 
59 004760 102207 000040 
60 004762 055014 


UP SUBUNITS, CHECK TRAC 


- SBTTL 


SCHAR1 


Be Se Se Se CFe Ge Ge Se Se Se Se 


6$: 


5$: 


37$: 


weeeneenee OVERLAY MODULE SCHAR1 = SET UP SUBUNITS, CHECK TRACK/GROUP PARAMETERS 


DMOVLY 
WREDC 


$1,AREAI 


SEQ 1055 


OUTPUT EDC FOR THIS OVERLAY 


PTTTITITITITITILI LLL LL LITT LIT LLTTLi TITTLE 


SCHARO+1 


SCHAR1 WILL INITILIZE THE 





LSB 
R4 


(R4),R1 


4$ 
#INITW,R1 
4 ay bs R1 


(R45 
$-PARH.0 


#OCYLS,R1 
zs 


Bete Ge Ge Ge 


SRAEARAAAAAAAAAAAEEAAERAKEHEAAEAREEAAAAARAERAAEAAEAAAAEAEAERAARAAAAAEARERAAAEEEEE 
SRAERHAAAAAARAAAAAAEEAEREEAAAETEAEARAAAAARAAEAARAERERAREEAEEEAEREREEEEAREERERAEREE 
SRAARAAEAAAAAAAAAEREAAEEEEEEAEEEAEAEAAAEAAAAAAAAEARERAAAAEAAAEREAAEAAAEEEEEEAEEE 


SUBUNIT PARAMETERS (TRACK/GROUP ONLY) 


SAVE SUBUNIT POINTER 
GET SUBUNIT PARAMETERS 
SEE IF READ ONLY 

RANCH 


MOV R4,-(SP) 


IF NOT, BRAK 

SEE IF WRITE ONLY IS SET TOO 
IF NOT, CH 

SETUP ERROR 


Vv ER28,HRO.04 
MOV #587 TLDEV+4000. .R2 
PERAMC_HRO.RO 
BRANCH TO REPORT 

SEE wif INITIAL WRITE 


IF BRANCH 
aay th WRITE 
SAVE PARAMETERS 


REPORT NO INITIAL WRITE 
MOV #MS4,HRQ.02 
MOV RO,-(SP) 
MOV U.UNUM(R5) ,HRQ.01 
ADD U. SUBU(RS) ,HRQ.01 
#MESSAG,RO- 


MOV 
CALL HOST 
MOV (SP)+,RO 


i IF IN DIAGNOSTIC AREA 


NOT, H 
; REPORT ASSUMPTION 


R1_ NOW POINTS TO SUBUNIT DATASTRUCTURE 
CHECK BAD BLOCK KS 
ANY ERRORS ? 
IF SO, BRANCH 
GET SUBUNIT CHARACTERISTICS 


SEE IF BEGIN/END SETS WERE USED 
IF SO, SKIP EVERYTHING 


ee ee 


; Sera aioe ae ——— , 
lean DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 138-1 SEQ 1056 


eeeeeeeree OVERLAY MODULE SCHAR1 = SET UP SUBUNITS, CHECK TRAC 


61 004763 025223 CALL  CHKTG : COMPUTE TRACK/GROUP DATABASE 
62 004764 115002 TST R2 : SEE IF ANY ERRORS 
63 004765 015014 BEQ > IF NOT, BRANCH 
64 004766 104650 000063 001106 4$ MOV .UNUM(RS) ,HRO.03 : GET STARTING UNIT NUMBER 
65 004771 105650 000050 001106 ADD U. SUBU(R5) -HRO.03 : 0 
66 004774 104307 001103 MOV HRQ.RO,R 3 SET UP TO REPORT ERROR 
67 004776 021053 CALL §HOSTRO + REPORT 
68 004777 101200 000002 002223 BIS #O1E,M.PARM : FLAG INITIALIZATION ERROR 
69 005002 104201 000001 MOV #U.SUBP,R1 : R1 WILL POINT AT SUBUNIT POINTERS 
70 005006 105051 ADD R5,R1 : R1 POINTS AT SUBUNIT POINTERS ° 
71 005005 105651 000050 ADD U.SUBU(RS),R1 =; R1 POINTS AT POINTER TO SUBUNIT BEING HANDLED 
72 005007 104117 MOV R1),RO : RO POINTS TO SUBUNIT BEGING HANDLED 
73 005010 104203 100000 MOV #DROP,R3 + MOVE DROP FLAG TO R3 
74 005012 100173 MOV 3, (RO) : DROP THIS SUBUNIT 
75 00501 ASSUME S.PARM, 
76 005013 114002 CLR R : NO ERRORS 
77 005014 104653 000050 1$: MOV U.SUBU(RS),.R3 =; GET SUBUNIT OFFSET 
78 005016 115403 INC R : NEXT SUBUNIT 
005017 100653 000050 MOV R3,U.SUBU(R5) =: SAVE 
80 005021 106203 000003 CMP #3.R3 : SEE IF VALID OFFSET 
81 005023 BCS 23$ 3 IF NOT, BRANCH 
005023 045025 BCC +2 
005024 005035 BR 23$ 
82 005025 105203 000001 ADD #U.SUBP,R3 ; WILL POINT TO NEXT SUBUNIT POINTER 
83 005027 105053 ADD 5.R3 + ADD POINTER TO UNIT DATABASE 
005030 104133 MOV (R3),R3 : GET POINTER 
85 005031 075014 BMI 1$ : IF NO SUBUNIT, BRANCH 
00905¢ 104131 V (R3),R1 : GET SUBUNIT PARAMETERS 
$.PARM,0 
1$ : IF DROPPED, BRANCH 
DROP, 100000 
223 3 EXIT 
R3 : NO SUBUNITS 
R3,U.SUBU(RS) : SAVE 
R3 3: ANY? 
23 : IF $0, BRANCH 
#GETSER,RO : GETSER NEXT MODULE 
#SCHARO,RO : GO BACK TO FIRST CHARACTERISTICS MODULE 
R1 : IMMIDATE CALL 
R4 : RESTORE 


MOV (SP)+,R4 
RETURN TO SEQUENCER 


JMPRET 
LSB 





= CHECK THE BAD BLOCKS FOR ERRORS 
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-SBTTL CHKBB = CHECK THE BAD BLOCKS FOR ERRORS 
CHKBB: 


1$: 


7$: 


2$: 


3$: 


4$: 


i. BAD BLOCKS TO ASSURE THEY DON'T EXCEED THE MAXIMUM BLOCK 


PUSH 





R5 


$.BADP(R1) ,R3 


1(R3) ,R2 
2$ 

R3,R2 
#2,R2 
CBB2 

7$ 

#2,R3 
53,#SER20 


6$ 
(R1),RO 
$.PARM,0 
#OCYLS,RO 


3$ 
S.SCHR(R1) ,R2 
#LBNHST,R2 


SAVE THE REGISTERS 


GET POINTER TO BAD BLOCKS 
IF NO BAD BLOCKS, BRANCH 
IS THIS THE LAST BAD BLOCK? 
IF SO, BRANCH 


MOV R5,-(SP) 


: R2 WILL POINT TO NEXT BAD BLOCK 
: R2 POINTS TO NEXT BAD BLOCK 
COMPARE 


IF ERROR 


~_ BRANCH 
; POINT TO NEXT BAD BLOCK 


LOOP 
DUPLICATE BAD _* 


MO #ERS3,HRO.04 
MOV #SER20,HRO.05 
MOV #53!F TLDEV+4000. .R2 


MOV R2,HRQ.02 
#. HR -01 
V #ERRMC ,HRO.ROQ 
BRANCH 
ot SUBUNIT PARAMETERS 


ASSUME THAT S.PARM IS ZERO 
SEE IF DIAGNOSTIC CYLINDERS IN USE 


; IF SO, BRANCH 


R2 POINTS TO SUBUNIT CHARACTERISTICS 
Re POINTS TO NUMBER OF LBNS IN HOST AREA 


; IF ERROR, BRANCH 
; EXIT WITH NO ERROR 


sg 

(R2) RS : GET LO ORDER MAX LBN 

#1,R5 DECREMENT COUNT 

RS, (R2) : SAVE 

IF NO CARRY, BRANCH 

1(R2),R5 GET HI ORDER 

R5 : PROPOGATE CARRY 

R5,1(R2) : SAVE 

54. <#SER20,(R2)+.(R2)> =; BAD BLOCK > MAXIMUM 
MOV #ERS4,HRO.04 
MOV #SER20,HRO.05S 
MOV (R2)+,HRO.06 
MOV (R2) ,HRO.07 
MOV #54 'FTLDEV+4000. .R2 
MOV R2,HRO.02 
MOV #. .HRO.01 
MOV #ERRMC ,HRO.RO 


R3,R2 
#MAXOBN,R3 
CBB2 


ERROR EXIT 

R2 POINTS TO LAS BAD BLOCK 
R35 POINTS TO MAXIMUM DBN 
COMPARE 


cc 2 3 IF NO ERROR, BRANCH 
DEVFTL 54,<#SER20,MAXDBN,MAXDBN+1> ; BAD BLOCK > MAXIMUM 


SEQ 1057 





UDAT4 DISK acre tite DMACR X04.01 23-AUG=82 12:02:53 PAGE 139-1 


CHKBB = CH 


221 
46 005222 


THE BAD BLOCKS FOR ERRORS 
Ho 364 003502 0 


00 
005221 BR 6$ 
14002 5$: CLR R2 
6$: POP R5 


265 
00000 RETURN 


o- -— 
R 


MOV #ERS4,HRO.04 
MOV #SER20,HRO.05 
MOV MAXDBN, HRO.06 
MOV MAXDBN+1,HRO.07 
MOV #54! FTLDEV+4000. ,R2 
#. -HRQ. 1 
#ERRMC ,HRO.RO 
BRANCH TO EXIT 
FLAG AS NO ERRORS 
RESTORE THE REGISTERES 
MOV (SP)+,R5 


; RETURN TO INSCHR 


SEQ 1058 


CHKTG 
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= CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN° 
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005505 


005505 


-SBTTL CHKTG 
KTG: 


Be Se Se Se Se Se tees 


~ CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN'S 


CONVERT a TRACKS/GROUPS TO SECTOR COUNTS, AND FIND THE MAXIMUM 
NUMBER "LOOPS' THAT SETUP CAN RUN THROUGH TO TEST ALL 
TRACKS ON THE TESTED CYLINDERS ONLY 


FIRST COPY THE TRACKS/GROUPS TO A 
PUSH = RS : 
MOV #TGS,RO 
#S.TGSS,R2 
R1_R2 

MOV (R3)+,R5 
MOV RS. » (RO)+ 


TEMP LOCATION 
SAVE R5 

MOV_R5S,-(SP) 
POINT TO ve tet ers LOCATION 
R2 WILL POINT TO T/G L 
ne POINTS TO i: list 


GET WORD 
SAVE IN _TEMP LOCATION 


BPL COPY ENTIRE LIST 

NOW MOVE THE STARTING CYLINDER TO THE INITIAL OFFSET AREA 
MOV S.TGOF+1(R1) ,R2 : GET HI ORDER Ha CYL 
BIC #*CHBHINB,R2_ 3 CLEAR UNUSED BITS 

MOV R2,S.TGOF+#1(R1) 3 SAVE 


CHECK THAT THE MAXIMUM TRACK/GROUP IS VALID 


MOV (R1),RO 
ASSUME S$.PARM,O 

MOV S.SCHR(R4) ,R2 
BIT #TRACKS,RO 
BNE 2$ 

MOV GRPCYL (R2).RO 
MoV #GRPS, TGS 


MOV TRKGRP(R2) RO 
MOV #TRKS, TGS 

BIC #HIBYTE,RO 
MOV #TGS,R2_ 

MOV (R2) +83 


BR 17$ 3 





; REPORT ER 
MOV 


; : ASS SUBUNIT PARAMETERS 


SSUME THAT S.PARM IS ay 
R2 POINTS TO SUBUNIT CHAR 
: SEE TRACKS. BRANCH GROUPS OR TRACKS 


; IFT 
; GET GROUPS PER CYLINDER 
; onan *GROUP* IF ERROR 


; BRANCH 
; GET TRACKS PER GROUP 


BITS 
; POINT TO TRACK/GROUP LIST 
; SEE IF THIS WORD IS END-OF-LIST 
; IF NOT eu 


BIC #HIBYTE,R3 > CLEAR EOL FLAG 

CMP R3,RO : SEE IF Orrin LIMITS 
BMI : IF SO, 

DEC RO : ADJUST T/G MAX FOR O-N 
DEVFTL 58,<#SER20,1G$,RO> ROR 


0.04 
MOV FEE ROO ARG OS 
MOV TG$,HRO.06 


RO, HRO.07 
MOV #56! F TLDEV*4000. .R2 
R2,HRO.O 


#. .HRO.01 
MOV #ERRMC .HRO.RO 
EXIT 
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CHKTG = CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN’ 


NOW COMPUTE HOW MANY SECTORS FROM 


wit R5 

S.PARM,0 

Be SCHR(R1) ,R2 
#TRACKS,R5- 


9$ 
GRPCYL(R2) ,R2 
TRKGRP(R2) ,R2 
TGS,R 


#HIBYTE ,R2 
#HIBYTE RG 


Be Se Ge Ge Ge Ge Fe Fe Be Fe Fe Se Be Se 


COMPDP 
R5,(R3)+ 


1 3 
¢ ; NOW COMPUTE THE NUMBER OF SECTORS FROM THE START OF THE CYLINDER/GROUP 
: : TO THE FIRST TRACK/GROUP TO TEST 
5 005324 104207 004507 S$: MOV #TGS,RO : RO POINTS TO TRACK/ GROUP LIST 
6 005326 104203 000015 MOV #8. 1GOF RS : R3 WILL POINT TO T/G INITIAL OFFSET 
7 005330 105013 ADD R1_R + R3 POINTS TO T/G INITIAL OFFSET 
8 005331 104172 MOV (RO) ,R2 : GET FIRST T/G 
9 005332 103202 177400 BIC #HIBYTE, R2 + CLEAR UNUSED BITS 
10 005334 025506 CALL COMP : COMPUTE SECTORS FROM CYL TO INIT T/G 
11 005335 105135 ADD (R3), ORS : ADD TO INITIAL OFFSET 
12 005336 100235 MOV as (R3)+ : MOVE BACK 
13 005337 045343 BCC 6$ : IF NO CARRY, BRANCH 
14 005340 104135 MOV (R3),R5 + GET HI ORDER WORD 
15 005341 115405 INC 5 + PROPOGATE CARRY 
16 005342 100135 MOV R5,(R3) + SAVE 
7 005343 115403 6$ INC R3 : POINT TO NEXT AREA 
19 : NOW COMPUE HOW MANY SECTORS FROM THE LAST TRACK/GROUP TO TEST TO THE 
20 : NEXT TRACK/GROUP TO TEST 
22 005344 104174 7$: MOV (RO) ,R4 : GET TRACK/GROUP 
23 005345 075404 BMI 8$ : IF EOL, CH 
24 005346 104672 000001 MOV 1(RO) ,R2 : GET NEXT TRACK 
25 005350 103202 177400 BIC #HIBYTE ,R2 : CLEAR EOL FLAG, IF 
26 005352 107272 SUB (RO)+,R2 : GET HOW MANY T/G'S BETWEEN LAST/NEXT 
27 005353 015355 BEQ 20$ : IF ZERO, ERROR 
28 005354 035401 BPL 18s : SHOULD GE AT LEAST 1 1/6 BETWEEN 
29 005355 20$:  DEVFTL 59,<#SER20,1G$> : REPORT ERROR 
005355 104200 003750 001107 MOV #ERS9, HRO.04 
005 104200 004047 001110 MOV ase Ron HRO.O5S 
005363 104300 0055 01111 MOV TGS.H HRQ. 
5 104202 047733 MOV #591 F TLDEV+4000. .R2 
005370 104020 001105 MOV R2,HRQ.02 
005372 104200 005372 001104 MOV #..HRQ.01 
005375 104200 060014 001103 MOV #ERRMCHRO.RO 
005400 005503 BR 17$ : 
31 005401 025506 18$: CALL = COMPDP : COMPUTE HOW MANY SECTORS TO NEXT T/G 
32 005402 100235 MOV RS, (R3)+ : STORE THE OFFSET 
33 005403 005344 BR 7$ : LOOP 


THE LAST T/G TO TEST TO THE FIRST 


pH SUBUNIT PARAMETERS 

SSUME hs ot PARM IS ZERO 
a POINTS TO SUBUNIT CHAR 
SEE_IF USING GROUPS OR TRACKS 
IF TRACKS, BRANCH 
GET GROUPS/CYL 


BRANCH 
A TRACKS/GROUP 


CLEAR T 
oy UNUSED BITS 

FIND HOW MANY T/G°S TO SKIP 
COMPUTE HOW MANY SECTORS 
STORE IN LIST 












51 005430 114005 
26 005431 100235 
54 
55 
56 
57 005432 104207 
58 0054 105017 
59 005435 104674 
60 0054 104675 
61 005441 

0054 100461 
62 005442 114002 
63 005443 114003 

0054 104201 
65 005446 105071 
66 0054 100464 
67 005450 104214 
68 005451 055456 
69 005452 104071 
70 005453 105201 
71 005455 104214 
72 005456 105264 
73 005457 045461 
74 005460 115405 

5 005461 106675 

76 005463 

005463 045465 

005464 005476 
77 005465 055471 
78 005466 106174 
79 005467 

005467 045471 

0054 005476 
80 005471 105202 
81 005473 045447 
82 005474 115403 
83 005475 005447 
84 005476 

005476 104261 
85 005477 100172 
86 005500 100673 
87 005502 114002 
88 005503 

005503 104265 
44 005504 000000 

00 


000013 
000002 


000003 


000004 


000004 


000001 


000001 


000001 


13$: 


14$: 


15$: 


11$: 


16$: 


17$: 
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CHKTG = CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN’ 


CLR 
MOV 


NOW SEE 
WITHOUT 


RETURN 
-BLKW 







R5 
R5,(R3)+ 


: SET UP FOR MARKING EOL 
; STORE EOL 


HOW MANY TIMES THE SETUP ROUTINE CAN GO THROUGH THE LIST 
EXCEEDING THE MAXIMUM SECTOR NUMBER 


#S.BESS RO 


S$. TGOF=$.BESS(RO) ,R4 
S-TCOF~S. -BESS#1(RO) RS 


R2 
R3 
#S.TGSS-S.BESS,R1 


Se Se te 


; RO WILL POINT TO THE MAX SEC NUMBER 
; RO POINTS TO THE MAX SECTOR NUMBER 
; R4 HAS LO ORDER INITIAL OFFSET 

; iy Be ORDER INITIAL OFFSET 


MOV R1,-(SP) 
CLEAR LO ORDER MAX COUNT 


‘os X COUNT 
R1 WILL POINT TO SECTOR gd AREA 
R1 POINTS TO SECTOR OFFSET AREA 
SAVE LO ORDER TOTAL ON STACK 
GET LO ORDER SECTOR OFFSET 

IF NOT EOL. BRANCH 

R1 WILL POINT TO START OF OFFSET LIST 
R1_ POINTS Ny START OF OFFSET LIST 
GET NEW OFFSET 
ADD TO . ORDER SECTOR TOTAL 

IF NO CARRY, BRANCH 
PROPOGATE CARRY 
SEE IF MAX EXCEEDED 

BRANCH 


IF So, 
BCC +2 
BR 16$ 
IF YOUR SURE IT'S OK, BRANCH 
SEE IF MAX EXCEEDED 
IF SO, BRANCH 
BCC -+2 
BR 16$ 
; ADD 1 TO COUNT 
IF NO CARRY, BRANCH 
; PROPOGATE CARR Y 
BRANCH 
; RESTORE R1 
MOV (SP)+,RI 


STORE LOW ORDER MAXIMUM COUNT 
stone HI MAXIMUM COUNT 
CLEAR R2 
RESTORE 
MOV (SP)+,R5 








geeks DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 142 
OMPDP = CALCULATE SECTORS/TRACKS OR SECTORS/GROUPS 


ssour COMPDP = CALCULATE SECTORS/TRACKS OR SECTORS/GROUPS 


1 

. 005506 C 

& 3 

2 : PASSED IN 

7 005506 114005 CLR RS 

8 005507 104114 MOV (R1),R4 

9 005510 ASSUME §$.PARM,0O 
10 005510 005521 BR $ 

11 005511 102204 000020 1$: BIT MTRACKS,R4 
12 005513 055517 BNE 

13 005514 105305 004505 ADD SECGRP,RS 
14 005516 005521 BR 

15 005517 105305 004504 2$: ADD SECTRK,R5S 
16 005521 117402 3$: DEC Be 

17 005522 035511 BPL 1$ 

18 005523 000000 RETURN 

22 IF LE ,MAXADR-. 
23 MAXADR = +1 
24 -ENDC 


COMPUTE oy pence SECTORS ARE IN THE NUMBER OF TRACKS OR GROUPS 


; CLEAR RUNNING TOTAL 


A 
SEE_IF USING GROUPS OR TRACKS 
IF TRACKS, B 

ADD SECTORS/GROUP TO RUNNING TOTAL 
BRANC 


H 
ADD Ay Ay a TO RUNNING TOTAL 
EMENT COUNT 


IF INCOMPLETE. BRANCH 
RETURN TO CALLING PROGRAM 


SEQ 1062 


K | 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG=82 12:02:53 PAGE 143 SEQ 1063 
weeneeeene OVERLAY MODULE GETSER - GET THE HDA AND DRIVE SERIA 


-SBTTL ‘*eeeeeeeee OVERLAY MODULE GETSER = GET THE HDA AND DRIVE SERIAL NUMBER 


5 005524 DMOVLY GS,AREAI 
005524 000105 .WREDC sOUTPUT EDC FOR THIS OVERLAY 
9 PITTIIIIITI LITT TILIILITITILITL ITE LLTTLITTTT TTT TTT TTT TTT TTT tite 
10 FRRAEEAEEAEEAEEREEEEEEEEEEEREEEEEEREEREREEEEEEEEERAAREREEEEEEEEEEEEEEREEEEEEEE 
11 FERRARA RAEEEREREEEEEEEEAEEAEEEEEEERAEEEEREEAEKEAEEEEEREEEEEEEEEEEEEERERREEEEEE 
12 FRRRAAAREAEEAAEEREEEEEEEAEEEEEEEEAERAAEARAEEEREREREREEEEEEEEREEEEEEEEEREEEEEEEE EEE 
13 3 
is 
9 000035 GETSER = SCHAR1+1 
23 : GET HDA AND DRIVE SERIAL NUMBER (IF POSSIBLE) AND RETURN TO HOST 
31 .ENABL LSB 
32 004701 PUSH RG ; SAVE SUBUNIT POINTER 
004701 100464 MOV R4,-(SP) 
33 004702 104650 000063 005342 MOV U.UNUM(R5) , SUNIT 7 SAVE UNIT NUMBER 
34 004705 104651 000063 MOV U.UNUM(R5) .R1 : R1 HAS UNIT NUMBER 
35 004707 105201 000003 ADD #3,R1 + R1 HAS LAST UNIT NUMBER 
36 004711 104207 000001 MOV #U. SUBP,RO : RO WILL POINT TO SUBUNIT POINTERS 
37 004713 105057 ADD : RO FOINTS TO suBUNIT POINTERS 
38 004714 104274 11$: MOV iy R4 + R4 POINTS TO SUBUNIT 
39 004715 075326 BMI 125 ; IF NO SUBUNIT, BRANCH 
40 004716 104203 001750 MOV R3 : INITILIZE SEEK COUNTER 
41 004720 100643 000001 MOV +4 S. = BEEK (RA) : SAVE SEEK COUNTE 
42 004722 PUSH  <RO,R : SAVE POINTER AND COUNT 
004728 100467 MOV RO,-(SP) 
004723 100461 MOV R1.=(SP) 
43 .SBTTL REPSER - FIND AND REPORT DRIVE AND HDA SERIAL NUMBER 
4a ;REPSER 
46 : FIND AND REPORT DRIVE AND HDA SERIAL NUMBER. IF ERROR OCCURRS, 
‘7 : REPORT SERIAL NUMBER AS ZERO. NO ERROR IS RETURNED FROM THIS ROUTINE 
49 004724 021777 CALL _ BULDUM : BUILD DUMMY SDI BLOC 
50 004725 104641 000007 MOV S.SCHR(R4),R1 :-R1 POINTS TO SUBUNIT CHARACTERISTICS 
51 004727 104610 000000 002173 MOV LBNCYL(R1) .STACYL : MOVE LO STARTING CYL 
52 004732 104610 000001 002174 MOV LBNCYL+1(R1),STACYL#1  : MOVE HI STARTING CYL 
53 004735 104617 000004 MOV RBNTRK(R1) RO : Ger RBNS/TRACK 
54 004737 103207 177600 BIC #HIBYTE !206,R0 : CLEAR UNUSED BITS 
55 004741 105617 000011 ADD LBNTRK(R1),RO : ADD LBNS/TRAC 
56 004743 103207 177400 BIC #HIBYTE RO : CLEAR UNUSED BITS 
57 004745 104070 002177 V RO, LRDTRK : MOVE TO SECTORS PER TRACK 
58 004747 114000 002200 CLR RBNFLG : NO RBN FLAG 
59 004751 104657 000057 MOV U.COPY(RS) ,RO : GET NUMBER OF XBN COPIES 
60 004753 105077 ADD : : DOUB 
61 004754 104070 005343 MOV RO, SERRTY ; RET RY 2 TIMES THE NUMBER OF COPIES 
62 004756 114007 1$: CLR RO : TO SET UP COPIES AND SETUP CALC 
63 004757 100657 000060 MOV RO,U.CCOP(RS) : 
64 004761 104641 000007 MOV S$. SCHR(R4) ,R1 ; GET POINTER TO SUBUNIT CHARACTERISTICS 
65 004763 114000 002175 CLR CURBN : PUT LO ORDER XBN IN CURBN 
66 004765 114000 002176 CLR CURBN¢1 + PUT HI ORDER N CURBN¢1 
67 004767 104207 002173 2s: MOV #CALCSC,RO : POINT TO CALCULATION AREA 
68 004771 104641 000007 MOV S$. SCHR(R4) ,R1 : POINT TO SUBUNIT CHARACTERISTICS 
69 004773 060020 KFC vT > CONVE 
70 004774 023700 CALL  RECOVR ; CLEAR ALL POSSIBLE ERRORS 








L 2 


UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02: 53 PAGE 143-1 SEQ 1064 
REPSER = FIND AND REPORT DRIVE AND HDA SERIAL NUMBER 
71 004775 115002 TST R2 : SEE IF ERROR OCCURRED 
72 004776 055214 BNE 8$ : IF SO, BRAN 
004777 104203 001655 MOV #CR.INR,R3 : SET UP FOR RECAL IBRATE 
74 005001 021173 CALL _—*TALK : RECALIBRAT E DRIVE 
5 005002 115002 TST : SEE IF ERROR OCCURRED 
76 005003 055214 BNE 8$ : IF SO, BRANCH 
005 104300 002201 001673 MOV CYL,LOCYL : MOVE LO CYL TO SEEK COMMAND 
78 005607 104300 002202 001674 MOV CYL+1,LOCYL#1 : MOVE TO SEEK COMMAND 
005012 104300 002203 001675 MOV GROUP, LOCYL+2 : MOVE GROUP TO SEEK COMMAND 
80 005015 104205 001636 MOV #CR.SEK,R3 : POINT TO SEEK C 
81 005017 021173 CALL _—«iTALK : SEND SEEK 
82 005020 115002 TST R2 : SEE IF ERROR OCCURRED 
83 005021 055214 BNE 8$ ; IF SO, BRANCH 
84 005022 104651 000011 MOV U.MSTO(RS) ,R1 : GET MASTER SEEK TIMEOUT 
85 005024 100651 000005 MOV R1,U. TIMH(RS) : SAVE 
86 005026 114001 CLR + FOR LOW ORDER TIMEOUT 
87 005027 100651 000006 MOV R1,U.TIML(RS) 
88 005031 104201 000310 3$: MOV #200. ,R1 ; INNER LOOP TIMEOUT 
89 005033 117401 i$: DEC R1 t DECREMENT INNER COUNTER 
90 005034 055033 BNE 4$ t IF UNEXPIRED, BRANCH 
91 005035 020775 CALL = RTDSL : GET REAL TIME DRIVE STATE 
92 005036 115002 R2 : SEE IF ERROR OCCURRED 
93 005037 055214 8$ : IF SO, 
005 115001 TST R1 3 SEE IF READ/WRITE READY IS ASSERTED 
95 005041 075075 BMI 5 : IF SO, BRANCH 
96 005042 ASSUME RWRDY, 100000 
97 005042 114000 001105 CLR HRQ.02 : SETUP TO TALK TO HOST 
98 005044 114000 001106 CLR HRQ.03 + SETUP TO TALK TO HOST 
99 005046 114000 00110 CLR HRQ.04 : SETUP 10 TALK TO HOST 
100 005050 104300 005342 001104 MOV SUNIT,HRQ.01 : MOVE UNIT NUMBER INTO SEND BUFFER 
101 005053 104207 060007 MOV #T4SOFT,RO : MOVE SNOUEST NUMBER TO RO 
102 005055 021053 CALL HOSTROQ : TELL THE HOST I'M ALIVE 
103 005056 104651 6 MOV U.TIML(RS),R1 : GET TIME 
104 005060 107201 000001 SUB #i, : DECREMENT TIMEOUT 
105 005062 100651 000006 MOV R1.U.TIML(RS) + SAVE 
106 005064 045031 BCC : LOOP IF INCOMPLETE 
107 005065 104651 05 MOV U.TIMH(RS) ,R1 : GET HI ORDER TIMEOUT 
108 005067 107201 000001 SUB #1,R t DECREMENT TIMEOUT 
109 005071 100651 000005 MOV R1.U. TIMH(RS) + SAVE 
110 005073 045031 BCC 3$ : IF aa {nour UNEXPIRED, BRANCH 
111 005074 005214 BR &$ : ERR 
115 005075 104200 100000 005344 5$: MOV #RSTOP, SERCHNGRU. STAT : ROVE Rast CHAIN FLAG TO CHAIN 
124 005100 104300 002175 005346 MOV CURBN, SERCHN+RW. LOW + MOVE TO OUTPUT 
125 005103 104641 000007 MOV S.SCHR(R4), : R1 POINTS TO SUBUNIT CHARACTERISTICS 
126 005105 104611 000002 MOV HIXBN(R1) ,R1 : GET HI XBN BITS 
127 005107 110601 ROR R1 : ROTATE TO CORRECT POSITION 
128 005110 110601 ROR R1 : ROTATE TO CORRECT POSITION 
129 005111 110601 ROR R1 : ROTATE TO CORRECT POSITION 
130 005112 110601 ROR R1 t ROTATE TO CORRECT POSITION 
131 005113 103201 170377 BIC #HBLONB,R1 : CLEAR UNUSED BITS 
132 005115 101201 120000 BIS #HD.XBN.R1 : MAKE A XBN 
133 005117. 105301 002176 ADD CURBN+1._R1 : SET IN HI XBN BITS 
134 005121 104010 005347 MOV R1,SERCHN¢RW.HI F 
135 005123 104300 002204 005350 MOV TRACK, SERCHN¢RW. CMD : MOVE TRACK 19 CHAIN 
136 005126 101200 013400 005350 BIS #RREAL, SERCHN+RW. CMD SET IN REAL TIME C 
137 005131 104200 002207 005351 MOV #DUMSDL SERCHNERU. SDI : POINT 10 DUMMY SDI BLOCK 
138 005134 104652 000025 MOV OO HASK CR : R2 HAS UDA PORT MASK 
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REPSER = FIND AND REPORT DRIVE AND HDA SERIAL NUMBER 

139 005136 104207 005344 MoV #SERCHN,RO : RO POINTS TO CHAIN 

140 005140 060012 KFC WAITSI : WAIT FOR SECTOR OR INDEX 

141 005141 115001 TST + SEE IF ERROR OCCURRED 

142 005142 055214 BNE aS : IF $0, BRANCH 

150 005143 060002 XFC XREAD : READ THE SECTOR 

151 005144 106201 000004 CMP #4,R1 : SEE IF XBN HEADER COMPARE FAILURE 

152 005146 01517 BEQ 7$ : IF SO, TRY NEXT COPY 

153 005147 115001 TST R1 : SEE IF AN ERROR OCCURRED 

154 005150 055214 BNE 8$ : IF SO, BRA 

158 005151 102200 010000 005344 BIT #ECCFLG,SERCHN¢RW.STAT : SEE IF BUFFER HAS AN ECC ERROR 

167 005154 015165 BEQ : IF NOT, BRANCH 

168 005155 104207 005344 MOV #SERCHN,RO : POINT TO CHAIN 

169 005157 060015 XFC ECC + CORRECT THE BUFFER 

170 005160 115001 TST R1 ; SEE IF ERROR 

i71 005161 055173 BNE 7$ ; IF SO, BRANCH 

17 005162 106657 000032 CMP U.ECCT(RS) RO : SEE IF CORRECTIONS EXCEED THRESHOLD 

174 : NOTE: I ALLOW 1 ERROR MORE THAN SPEC"D ECC THRESHOLD 

176 005164 075173 BMI 7$ 3 IF SO, BRANCH 

177 005165 104207 005352 6$: MOV #SERSEC,RO + RO POINTS TO BUFFER 

178 005167 021146 CALL  CMPEDC : COMPUTE EDC OVER BUFFER 

179 005170 106020 005752 CMP R2,SERSEC+BF .EDC : SEE IF EDC'S H 

180 005172 015230 BEQ : IF SO, YOU'VE GO IT!!itistereens 

181 005173 104651 000060 7$: MOV U.CCOP(RS) ,R1 : GET CURRENT COPY NUMBER 

182 005175 115401 INC Ri : INCREMENT COUNT 

183 005176 100651 000060 MOV R1,U.CCOP(RS) + SAVE 

184 005200 106651 000057 CMP U.COPY(RS) ,R1 : SEE IF ALL COPIES TRIED 

185 005202 015214 BEQ 8$ : IF $0, 

186 005203 104647 000007 MOV S.SCHR(R4),RO 3; R1 POINTS TO SUBUNIT CHARACTERISTICS 

187 005205 105670 000010 002175 ADD FCTSIZ(RO),CURBN ; ADD TO CURRENT BN 

188 005210 044767 BCC 2$ : CALCULATE AND TRY NEXT SECTOR 

189 005211 115400 002176 INC CURBN¢1 : PROPOGATE CARRY 

190 005213 767 BR 2$ + BRANCH 

191 005214 117400 005343 8$: DEC SERRTY + DECREMENT RETRY COUNT 

19 005216 054756 BNE 1$ ; IF UNEXHAUSTED, BRANCH 

194 ; COULDN'T GET THE SERIAL NUMBER == REPORT 0°S AND 512 DRIVE 

196 005217 114 005354 CLR SERSEC+2 : ZERO HDA SER # 

197 005221 114000 005355 CLR SERSEC+3 : ZERO HDA SER # 

198 005223 114000 005356 CLR SERSEC +4 : ZERO HDA SER # 

199 005225 114000 005357 CLR SERSEC+5 : ZERO HDA SER # 

200 005227 005271 BR 10$ : ASSUME 512 DRIVE 

201 005230 106200 126736 005352 9$: CMP #M0D512, SERSEC : SEE IF 512 BYTE MODE DRIVE 

202 005233 015271 BEQ 10$ : IF SO, BR 

203 005234 104147 MOV (R4) RO : GET UNIT PARAMETERS 

04 005235 ASSUME $.PARM,O 

205 005235 102207 020000 BIT #OCYLS.RO : SEE IF USING THE DIAGNOSTIC AREA 

206 005237 055271 BNE : IF $0, OK TO TEST, BRANCH 

207 005240 DEVFTL 21,SERSEC : SET UP REPORT 
005240 104200 002106 001107 MOV #ER21,HRO.04 
005243 104300 005352 001110 MOV SERSEC ,HRO.05S 
005246 104202 047665 MOV #211 F TCDEV*4000. .R2 
005250 104020 001105 MOV R2,HRQ.0 
005252 104200 005252 001104 MOV , -HRO.O1 
005255 104200 060014 001103 MOV #ERRMC ,HRO.RC 





—— 
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AND HDA SERIAL NUMBER 


REPSER = FIND AND REPORT DRIVE 


208 005260 104300 005342 
209 005263 104307 001103 
10 005265 021053 
11 005266 101200 00000 
12 005271 104300 00534 
13 005274 104300 004516 
14 Bosh 104300 004517 
15 005302 104300 004520 
16 005305 104300 005354 
17 005310 104300 005355 
18 005313 104300 005356 
19 005316 194300 005357 
20 005321 104207 060004 
21 005323 021053 
22 005324 
005324 104261 
- 005325 104267 
223 005326 115400 005342 
224 005330 106010 005342 
225 005332 044714 
226 005333 
005333 104264 
227 005334 114002 
228 005335 114001 
229 005336 104207 000036 
230 005340 024172 
$3) 005341 003231 


_- Ronorononononoronorornenory 


001106 


Sooooooooo 
ooQoooocoo 
WN ONOUEW 


10$: 


12$: 


MOV SUNIT,HRQ.03 
MOV oie 


CALL HOST 
BIS #O01E,M.PARM 
MOV SUNIT,HRQ.01 
MOV DSE RQ.02 


MOV SERSEC+5 ,HRO.08 
MOV #TGUPRM,RO 

CALL HOSTRQ 

POP <R1,R0> 


INC SUNIT 
CMP R1,SUNIT 
BCC 11$ 

POP R4 

CLR R2 


R1 
MOV #INITD,RO 


BR PR 
-DSABL LSB 


Be Ge Be Ge Ge Se Ge Ge Ge Ge Se Se Be Ge Se 


MOVE UNIT NUMBER TO MESSAGE 


; GET fe NUMBER 
HOST 


MOVE DRIVE SERIAL NUMBER TO BUFFER 


MOVE HDA SERIAL NUMBER TO BUFFER 
at” REQUEST 


REPO 
RESTORE POINTER AND COUNT 
MOV (SP)+,R1 
MOV (SP)+,RO 
INCREMENT ACTIVE SUBUNIT 
iF wt IF i * —" REPORTED 
RESTORE SUBUNIT POINTER 
MOV (SP)+,R4 
NO ERRORS 


; IMMIDATE CALL 
; INITD NEXT ROUTINE 


DISABLE ERROR RECOVERY 
RETURN TO SEQUENCER 


SEQ 1066 





B 3 ae, 
UDAT4 DISK EXERCISER DMACR X04.01 23~AUG~82_ 12:02:53 PAGE 144 SEQ 1067 | 
ASSOCIATED VARIABLES FOR GETTING THE HDA SERIA | 


goete lm VARIABLES FOR sectlitgnes? se: me SERIAL NUMBER 


| 
1 | 
005342 000000 SUNIT: .WORD THE ACTIVE UNIT NUMBER 
¢ Boescs Bhb00 ae : RETRY COUNT 
4 005344 SERCHN: 
5 ; THE CHAIN FOR READING SECTOR 0 (RCT) | 
13 005344 900000 * WORD 
14 005345 00535 "WORD  SERSEC : POINTER TO THE SECTOR | 
15 005346 000000 "WORD 0 
16 005347 000000 “WORD (O 
17 005350 00000¢ “WORD 0 | 
18 005351 000000 "WORD 0 
22 005352 SERSEC: ; 269 WORD BUFFER FOR READ 
23 IF LE ,MAXADR=<.+269.> 
24 MAXADR = +369, 
55 SENDC 
| 
| 


C 3 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 145 SEQ 1068 
eeeeeeeeer OVERLAY MODULE INITD = INITILIZE THE DRIVE PARAMET 
1 .SBTTL *#eeeeeeee OVERLAY MODULE INITD = INITILIZE THE DRIVE PARAMETERS FOR TESTING 
5 005352 DMOVLY ID,AREAI 
005352 000105 .WREDC sOUTPUT EDC FOR THIS OVERLAY 
9 PPITITITITITITITIITITITITTITI TTT ITT TTT ili titi ii iii iii titi titi iitii titi iit 
10 FERRARA AEAAERERE AEE AEEERAREREAAAARAERRARAEAEAAEAEAEAAAAEEAAEAREE AERTS 
11 SRR AAAAAAAAEAEEEAEEEEEEEEEER ER EEAAAAAAAERAERAARAEEEREREAEEAEEEAAEREERERREEEEEE 
12 ines at daa car enaci te sia. igi tata ania incase enie datas lige: 
13 : 
is 
19 000036 init . GETSER+1 
4 ; BRING DRIVE ONLINE, CLEAR ALL ERRORS (IF ANY) AND CHANGE THE 
30 ; MODE TO THE REQUIRED VALUES 
32 .ENABL LSB 
33 004701 104207 000004 MOV /RO : MAXIMUM OF 4 SUBUNITS 
34 004703 104201 01 MOV #U.SUBP,R1 + R1 WILL POINT TO SUBUNIT POINTERS 
35 004705 105051 ADD RI + R1 POINTS TO SUBUNIT POINTERS 
36 004706 104212 1$: MOV (R1)+,R2 : GET POINTER TO SUBUNIT INFO 
37 004707 074725 BMI $ : IF UNIT NOT TESTED, BRANCH 
38 004710 104123 V (R2),R3 : GET SUBUNIT PARAMETER 
39 004711 ASSUME $.PARM,C t ASSUME THAT S.PARM IS ZERO 
40 004711 102203 000100 BIT WSEQSEK,R3 : SEE IF SPOUENTIAL SEEKS 
41 004713 054717 BNE 7$ : IF $0, BRANCH 
42 004714 114000 002217 CLR SCRI + FLAG As RANDOM LBNS 
43 004716 004722 BR By : BRAN 
44 004717 1042 177777 002217 7$: MOV #-1,SCR1 + FLAG as SEQUENTIAL LENS 
45 004722 102203 040000 8$: BIT #INITW,R3 : SEE IF SUBUNIT WILL BE INITALLY WRITTEN 
46 004724 054730 BNE 3$ : IF $0, BRANCH 
47 006725 117407 2s: DEC RO : DECRERENT COUNT 
48 004726 054706 BNE 1$ : IF NOT ALL SUBUNITS CHECKED, BRANCH 
49 004727 004741 BR 4$ ; BRANCH 
50 004730 104657 000046 3$: MOV U.PARM(RS),RO  : GET UNIT PARAMETERS 
51 004732 101207 040000 BIS #INITW,RO : FLAG UNIT AS SUBUNITS GET INITIALLY WRITTEN 
52 004734 100657 000046 MOV RO,U.PARM(RS) : SAV 
53 004736 101200 100000 002223 BIS #IWIPRG,M.PARM : FLAG MASTER PARAMETERS AS INITIAL WRITE TO BE DONE 
54 004741 104207 000004 4$: MOV #4, + MAXIMUM OF FOUR SUBUNITS 
55 004743 104201 000005 MOV #U.SUBP+4,R1 : R1 WILL POINT TO AFTERS SUBUNIT POINTERS 
56 004745 105051 ADD R5,R1 $ R1 POINTS TO AFTERS SUBUNIT POINTERS 
57 004746 114003 CLR ; INITILIZE SUBUNIT PROTECTION FLAGS 
58 004747 110203 5$: ROL ; 
59 004750 105203 000001 BIC #1,R3 : CLEAR LO BIT 
60 004752 10441 MOV =(R1),R2 : GET SUBUNIT POINTER 
61 004675 075028 BMI 6 : IF NO SUBUNIT, BRAN 
62 004754 1041 MOV (R2),R2 : GET SUBUNIT TATUS 
63 004755 ASSUME §$.PARM,O + ASSUME THAT S.PARM IS ZERO 
64 004755 102202 000100 BIT #SEQSEK,R2 : SEE IF SEQUENTIAL SEEKS 
65 004757 054764 E $ : IF S 
66 0047 115000 002217 TST SCRI : SEE If ALL SUBUNITS RANDOM SEEKS 
67 004762 05476 10$ : IF NOT, BRANCH 
68 004763 905015 11$ : B 
9 004764 115000 002217 9$: TST ScR1 : SEE IF ALL SUBUNITS SEQUENTIAL SEEKS 
004766 05501 BNE 11$ : IF $0, BRANCH 
71 006767 TE DEVFTL 56,#SER20 ; REPORT ERROR 
004772 192309 tires 001110 MOV Aes Ta HRQ. %s 








<_< acme a CC CC CC CC CEC CL LLL LLL LLL LL LLL LLL LLL 


004775 
004777 
005001 
005004 
72 005007 
005007 
73 005011 
74 005614 
75 005015 
76 005017 
77 005020 
78 005022 
79 005023 
80 005024 
81 005025 
82 005026 
83 005027 
84 005030 
85 005032 
86 005034 
87 005036 
88 005037 
89 005040 
90 
9% 
95 
96 
113 005041 
005041 
114 


rx 
orm 
MO 
orn 


33 
S 


ome ws O30 
WOOOCO FN & 


RRS 


S= 
ws 
~ 
Ww 


000105 
00000 


2230 
00002 


004000 
000001 


177417 


118: 


6$: 


DRVEXT: 


MAXADR 
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weeeeeteee OVERLAY MODULE INITD = INITILIZE THE DRIVE PARAMET 


047730 


ENDERR 0 

BIS #DIE,M.PARM 
BR DRVEXT 

BIT #RONLY,R2 
BEQ 6$ 

BIS #1,R3 

DEC RO 

BNE 5$ 

ROL R3 

ROL R3 

ROL R3 

ROL R3 

BIC #LBHINB,R3 
MOV R3,U.WPRT(RS) 
MOV #SETUP,RO 
MOV R5,R1 

CLR 

BR JMPRET 
.DSABL LSB 

“IF LE ,MAXADR=. 
ps +4 

ENDC 

DMEND 

 WREDC ; OUTPUT 
“END 


#56! FTLDEV+4000. ,R2 
R2,HRO.02 


SEQ 1069 
#..HRQ.01 
#ERRMC ,HRO.RO | 
ERRPOS : CLEAR THE POSITION 


LR 
pte INITIALIZATION ERROR 
SEE IF READ ONLY DRIVE 


a 


F NOT READ ONLY, BRANCH 
SET READ ONLY BIT 

DECREMENT COUNT 
IF COUNT UNEXPIRED, BRANCH 
: ROTATE MASK TO CORRECT POSI 
: ROTATE MASK TO CORRECT POS! 
: ROTATE MASK TO CORRECT POS! 
: ROTATE MASK TO CORRECT POS! 

CLEAR UNUSED BITS 


TION 
TION 
TION 
TION 


| 

! 

| 

1 

| 

| 

SETUP NEXT ROUTINE CALLED 
MAKE Ri NON-ZERO (DEFERRED CALL) 
| 

| 

| 

} 

| 

| 

| 


Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se 


NO_ERRO 
RETURN TO SEQUENCER 


EDC FOR THIS OVERLAY 


r 


| E 3 
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SYMBOL TABLE 
AFTOP 004632 COPLPO 004550 d$ 0055 ER44 003127 GE TSUB= 000619 
AFTWRT= 000011 COPLP1 004555 D.LIMT= 000001 ER45 003162 TU 004755 
ALLOCM 004674 COPLP2 004565 D.SCHR= 00000 ER47 003214 GMPARM 004701 
AREAL = 004701 OUNTD 005055 ECC = 00001 ER48 003243 GOINIT 004223 
AREAO = 004413 CPYBEX 005775 ECCCHK= 010000 ER49 003270 E 003202 
AREA1 = 00460 CR.CLR 001624 ECCFLG= 010000 ERS 000365 GORCLB 004215 
AREA2 = 00504 CR.DIS 001650 ECCRSH= 000002 ER5SO 003315 GORTRY 201 
TIN = 000602 CR.ERR 001643 ECHO = 000010 ERS1 003362 GOSEEK 004207 
AVAIL = 000100 CR.GCR 004453 ECHOC = 00035 ER3¢ 003405 GOTOBE 005074 
005741 CR.GST 001617 EDCLOP 00115 ERS 003465 GOTOFS 005077 
BEEXT 005251 CR.INR 001655 ENABLE 004163 ERS4 003502 GO4I1T 003214 
005134 CR.MOD 001631 EOC = 100000 ERSS 003552 GR 002203 | 
BESUP 005250 CR.ONL 001612 ERCOV = 000016 ERS6 003604 GRPCYL= 000002 
BEUSED= 000040 CR.RUN 004465 ERECOV= 000006 57 003644 GRPOFF= 000011 
BF .DAT= 000000 CR.SCR 004450 4504 ERS8 003717 GRP’ 005513 
F.ECC= 000401 CR.SEK 001636 ERHARD= 100000 ERS9 003750 GST 001670 
BF .EDC= 000400 CSCEXT 4510 ERLEV = 000002 ER6 000562 HBHINB= 007777 
LOBB_ 005546 CU 002175 ER = 100000 ER6 003765 HBLONB= 170377 
BLDOUNT 00536 CvT = 000020 ERMODE 002226 R6 004115 HDRPRE= 000005 
BLKCHK 001725 CYL 01 ERR 001676 R64 004145 HD.BAD= 110000 
= cY 3 ERRLEV 001677 ER68 004175 HD.DBN= 140000 
006 CYLSCR 005575 ERRMC = 060014 ER69 004220 HD.LBN= 009000 
BUFARA= 005230 C2DFTL= 100000 ERRMES= 060013 ER? 000615 D.PRV= 050000 
FFLG= 04 C2HARD= 040000 ERRPOS 002230 R70 004261 HD. RBN= 
BUFSIZ= 000043 DATCMP= 000002 ERSOFT= 140000 ER71 004275 HD.REV= 030000 
BUILDP= 000007 DATPRE= 000005 ER1 0 ER? 004312 HD.XBN= 1 | 
BULDUM 001777 DBNCYL= 000022 ER10 000770 ER? 004342 IBN 2172 
Cc 2 EXT 743 ER1000 8 ER74 B0076 HIBYTE= 177400 | 
CALCSC 002173 DCLOCK= 000004 ER11 0104 ER75 0441 HICYL = 
DCLR 001667 ER1 001113 ER76 004444 HIDBN = 000003 
CHAINS 002232 DCMPAL= 000001 ER1 dees ER77 004523 HILBN = 000002 
CH = 000201 DCMPYS 004737 ER14 00143 ER78 004557 HIMEM = 007774 
CHKBB 005052 DCREAD 004731 ER15 00150 ER8 00063 HI = 3 
CHKBES 005411 DCYLS = 020000 ER16 155 ERO 000745 HISEED 002225 
CHKCYL 005234 DE = 000090 ER17 001604 EXIT = 00002 HIXBN = sige | 
004064 DIE = 000002 ER17A 001634 FB.DAT= 000000 HOSTRA 00105 
CHKECC= 000015 DINIT = 000011 ER18 001702 FB.EDC= 000400 HRDREV= 000003 
CHKEDC= 000014 DIREC = 010000 ER19 001754 FCTSIZ= 000010 HRQ.RQ 001103 
CHKTG 005223 DIS 001662 ER 000117 FIRSTU= GA HRQ.01 001104 
K 004114 DISCON= 0002 ER20 002056 FIXPAT 00467 ° 001105 
002234 DONE 06001 ER21 0021 FNDBES 005266 ° 001106 
CHRRES= 000170 DOWNG 005 ER23 00215 NDLOP 005276 . 001107 
CLCLBN 005144 DOWNT 005200 ER24 00 ats FNDRER 004641 -05 001110 
CLCMAX 005737 DRC 0016 ER25 00233 FORMAT= 000001 Q. 001111 
Cc T= 0000 DRINIT= 040000 ER26 2 FSTOP = 100000 HRQ.07 petits | 
CMPEDC 001146 DROP = 1 enee 00241 = 001000 HRQ.08 00111 
00451 DRPALL= 00002 ER 1 FTLDEV= 040000 HRQ.09 Soltis 
CMP2 001765 DRTYPE= 00000 ER33 4 F 00000 HRQ.10 1115 
CMXEX 004707 DRVCLR= 000005 ER 00254 FT.BUF= 000000 HRQ.11 got tis 
CNTLOP 005047 DRVEXT 005040 ER35 00256 FT.HI 00001 mete gaits 
= 000030 DRVID = 000004 ERS: 00261 FT.LOW= st s'¢4 HRQ.1 1120 | 
COMPAR= DRVONL= 000213 ERS 002634 004514 HRQ.14 001121 | 
Cc 5506 DRVRUN= 14 ER38 002660 ent HRQ.15 0011 § | 
COMPLT= 000176 DSABLE 004172 ER4 $ 1 GETCHR= Bees ne. 18 boy) 
COMPSC 005710 DSERNM Boe3i8 ER4O 00 9 GETMEM 616 HRQ.1 1124 
COPBB 00276! DUMSDI 00220 ER41 0027 GETSER= Boo ne 18 001125 
COPFIN 004570 DUPPKT= 060000 ER42 00 GETSTA= 000011 HRQ.19 001126 
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SYMBOL TABLE 
HRQ.20 001127 L2.SLN= 000001 ONL 01700 OVL.SB= 000537 PAT1 002454 
HRQ.21 oT 180 SK 005025 ONLYCL= 000200 OVL.SC= 000615 PAT1 002476 
me -ae 001131 MAXADR= 006024 OTABLE sie 44 OVL.SK= 000323 PAT14 002520 
HRO.2 IE MAXDBN 004502 OUT 5304 OVL.SO= 000222 PAT15 002525 
HRQ.24 00113 MAXMSK= 177774 OVE .AW= 004413 OVL.SP= 000027 PAT 002303 
HRQ.25 001134 XMUM 305 OVE .BP= 004413 OVL.ST= 000471 PAT 002306 
HRQ.26 001135 MAXSEC 002235 VE.CC= 004701 OVL.SU= 000167 PATS 002311 
HRQ.27 001136 MAXSND= 001750 OVE.CD= 004413 OVL.SO= 001101 PATS 002333 
HRQ.28 001137 XSUB= 10 VE.CK= 004413 VL.S1= 000624 PAT6 02355 
HRQ. 001140 MEDTYP= 0000 OVE .DA= 004413 -TS= 000371 PAT? 002377 
HRQ, 001141 MPOL 2 eEC= 004413 -W = 000 PAT8 002402 
HRQ.31 001142 MESSAG= 060015 OVE .ED= 004413 OVL...= 026746 PAT9 002424 
HRQ.32 001143 MICREV= 000003 OVE.GS= 004701 OVSTRT= 007774 PHYSA = 001000 
HRQ.33 001144 MINADR= 006232 OVE.ID= 004701 OVS.AW= 035400 PLOAD 003211 
RQ.34 001745 MKLOOP 004642 OVE.IN= 004701 OVS.BP= 033606 PNUM 1 
D 005556 MOD 001664 OVE.LM= 004413 OVS.CC= 050424 PREVBE 005325 | 
INCODT= 000000 MODS12= 126736 VE.MN= 000714 OVS.CD= 043764 PTABLE 004245 
INDEX 002206 MOD576= 074161 OVE.MS= 000000 OVS.CK= 042174 Q@DA = 000000 
INITD = 000036 MORE 004713 OVE .NL= 004413 OVS.DA= 050232 RANDOM 004764 
INITW = 040000 MOVDBN 002123 OVE .NO= 006608 OVS.EC= 043232 RBLOCK 004537 
INR 001671 MOVOUT 002164 OVE.R = 00441 -ED= 041216 RBNBN = 0002 
INS 00167 move 005420 -RB= 0 3 VS.GS= 055326 RBNFLG 002200 | 
INSEEK= 000012 MRD 00016 OVE.RC= 005230 OVS.ID= 056452 RBNTRK= 00 
= 00002 MSSG$ = 000000 OVE.RT= 005043 OVS.IN= 050360 RBNTXT 005472 
INTEDC= 000105 MS1 05527 OVE .RV= 004413 OVS.LM= 044566 RBUFLN= 5 | 
= 000001 MS2 5545 OVE.SB= 005043 VS.MN= 001040 RCBREQ= 002000 
RECLB= 000216 MS3 5616 ~SC= 004413 OVS.MS= 013260 C = 
ISUEXT 005551 MS4 005701 OVE .SK= 005 30 VS.NL= 0434 RCTCPS= 
SUSEK 005473 = 000017 -SO0= 004701 OVS.NO= 0275 RCTCSZ= 14 
IW = 100000 M.PARM 002223 OVE.SP= 004701 OVS.R = 037010 RCTL$ 005523 
JMPRET 003231 NEWDNT 005424 -ST= 005043 OVS.RB= 030236 RCV = 000005 
LASTU 004477 NEWEXT 004571 OVE.SU= 004413 OVS.RC= 050072 RCVERR= 000400 | 
INB= 177617 NEWLEV= 000017 OVE.SO= 004701 OVS.RT= 032074 RCVRDY= 000001 | 
= 177760 EWOP = 000002 OVE.S1= 004701 VS.RV= 064722 RDSTAT 001007 
LBNCYL= 000000 NEWSUB= 004000 OVE.TS= 005230 OVS.SB= 030576 = 900012 
LBNHST= 000012 NEWUPT 005376 OVE.W = 004413 VS.SC= 037564 RECALB= 0000 
TRK= 000011 NEXTBE 005361 OVL.AW= 000604 VS.SK= 046242 RECOVR 0037 
LEVNZR 004531 NLBEXT 005135 OVL.BP= 000271 OVS.SO= rata REDWRT= 000100 
LE = 020000 NLEV 004473 OVL.CC= 000143 OVS.SP= 05073 RETRY = 001000 
LINKLN= 000007 005773 -CD= 000301 OVS.ST= 032424 ETS = 000001 | 
LNCONT 002107 © 005111 OVL.CK= 000417 OVS.SU= 027156 REVCT = 000022 
LNCYL 002101 NOEXTR 005756 OVL.DA= 000053 OVS.SO= 051454 REVEC = 000400 
OADED 00317 NOSEEK 005417 L.EC= 000074 OVS.S1= 053656 REVS = 000007 
LOBYTE= 000377 NOSUB 003675 OVL.ED= 000367 OVS.TS= 047110 REVSOK 004525 
LOCYL 001673 NOSUN 006004 OVL.GS= 52 OVS.W = 034370 RM = 000004 
L = 0016 NOU ieee OVL.ID= 000141 OV... = 027366 R = 000003 
NOUNIT 0025 L.IN= 000028 PARTI 004255 RNDTG = 000005 
LOSEED 002224 004501 VL. LM= PARTO 004245 RNDO 004667 
RD 0021 NUE oSe 000010 VL.MN= 00511 PART1 004247 Y = 004 
LSTMOD= 0000 NUMOVL= 000037 OVL.MS= 00573 PART 004251 T bose 
LSTOVL 002222 NUMPTR= 000006 OVL.NL= 000161 PART 004 33 ROOTLP 53 
LSTTRK 005511 NXTLEV= 010000 OVL.NO= 000241 PATEXT 00467 RREAL = 013400 
NXTRCT 606778 OVL.R = 000. $8 PATPTR 99 36 TOP = 100000 
Lg-£0F= 000004 NXTTRK 5433 OVL.RB= 16 PATO 02256 RTDS 74 
L2.ERS= 000003 OCNT$ = 000037 OVL.RC= B08 0 PATI 00 RTDSL 77 
L2.0PC= 000000 ONEPAT OVL.RT= 154 PAT10 96 $e RTRIES= 1999 
L2.RLN= 000002 ONEPAX 004501 OVL.RV= 000550 PAT11 02451 0044 








G 3 
UDAT4 DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE 145-4 SEQ 1072 
SYMBOL TABLE 
RVFAIL 005125 SER15 005311 STACYL 002173 TG$ 005505 U.MASK= 0000 
RWRDY = 100000 SER1 005333 START 004521 THREBE 005071 U.MBN = 000051 
= 000006 SER1 005356 STATUS= 000007 TLEN.U= 000072 U.MLEV= 000031 
RW.BUF= 000001 SER18 poet ys T 002573 KHST 001031 U.MSEC= 000022 
RW.CMD= 000004 SERI8A 00543 STSERR 005417 TMEMPL 004701 U.MSTO= 000011 
RW.HI = 000003 SER1 005426 STSEXT 005617 005031 U.NEXT= 00 
RW .LOW= 000002 SER18C 005422 STSRES= 00036 K 002204 U.NFUN= 00001 
-SDI= 000605 SER18D 005416 ST.C_ = 00000 TRACKS= 000020 U.NSEC= 000021 
= 000000 SER18E 005341 ST.CON= 00000 005156 U.PARM= 000046 
SBCRES= 000167 SER18F 004461 ST.DB = 001000 TRKGRP= 000003 U.PAT = 00001 
CHARO= 33 SER19 000470 ST.DE = 000200 $ 005507 U.PCTG= 000017 
SCHAR1= 000034 SER2 004665 ST.DF = 000020 ROOT 004 U.RBN = 00005 
SCHRCP 005210 SER20 004047 ST.DR = 000040 TRYAGN 00505 U.RCOV= 00004 
474 SER21 000661 ST.EL = 000010 TNEC 00542 U.RRTY= 000010 
SCR1 002217 SER22 000051 ST.ERR= 000002 TIMSIZ= 060000 U.RTRY= 000030 
SCR2 = 002220 SER24 001326 ST.FO = 002000 CMD = 06000 U.RVER= 000062 
SCTWRD= 000377 SER25 001354 ST.MOD= 000001 T2DLL = 060001 U.RWER= 
SDIVER= 000000 anes 003035 ST.MSK= 000000 T4881 = 06000 U.RWTO= 000012 
SDIS = 000003 SER 004707 ST.OA = 000200 T4882 = 0600 U.SDIL= 0000 
SEARCH 004635 SER32 003051 ST.PE = 000040 T4MPRM= 06000 U.SDIS= 000033 
SECCHK= 000013 SER36 004242 ST.PS = 000002 T4MXFR= 060011 U.SDI2= 000035 
SECCYL 004506 SER39 002477 ST.RE = 000100 T4SEEK= 06001 U.SRTY= 000007 
SECGRP 004505 SERS 004726 ST.REQ= 000001 T4SOFT= 060007 U. SUBP= 1 
SECMAX 002233 SER4O § = G05435 ST.RR = 000100 T4UPRM= U. = 000050 
SECPTR 004702 SER41 005457 ST.RTY= 000003 UCURSR 004476 U.TIMH= 000005 
SECTOR 002205 SEF42 002200 ST.RU = 000001 UDADM4= 001000 G U.TIML= 000006 
a a a a ee mm 
= e = = '. 
SEC576= 000440 SER4S 009945 ST.UNT= ULOP U.WPRT= bones 
SEEK = 000023 SERS 004747 ST.WE = 000010 UMASK 004500 U.WRIT= 000026 
SEKCNT 005275 SER6 004770 SUBTRV 005167 UNADDR= 10008 VALBIT= 077177 
SEKEXT 005423 SER7 005010 SUBUNT 004475 UNITS 005345 VALID = 100000 
SEKINP= 002000 SERB 005027 IT 5342 UNSSUC= 000175 WAITSI= 00001 
SEKOUT 5422 SER9 005050 SUSETL sek | UP 005154 WBLOCK 00463 
SEKREG= SETSEC 005500 77 UPG 005262 WBUFLN= 000401 
SEKTST= 000024 SETUP = 000001 $.BADP= \¢ UPT 005121 WCHECK= 000010 
s = SHRTTO= 000000 $.BESS= 00001 UREAD = penn t3 WCHKAL= 
SEQBE = SLOP 005507 S.LETR= 000005 UTOTST= 06001 WCONT = 040000 
SEQLP 002601 SMASKL 004712 S.MCNT= 000013 UWRITE= 000014 WONLY = 002000 
SeQNCR 002577 SMASKX 004716 -MEGR= 000010 U.CBN = 00005 WREAL = 122400 
SEQSEK= 100 SNDAGN 207068 -MEGW= 000011 U.CCNT= 000015 WRITBT 001665 
SEQTG = SNDEX 004572 P 000000 U.CCOP= 000 WRITE 10 
SERCHN 005344 SNDONE= oa 8i8 S.PAT = 000004 U.CCYL= 000064 WSTOP = 140000 
SERRTY 3 SORT = 00003, -SCHR= 000007 U.CGRP= 00 XBNCYL= 000021 
SERSEC 005352 SORTBB 005025 $.SDCL= 000002 U.COPY= 000057 XFERRT= 
630 SORTBE 004735 $.SEEK= 000001 U.CSEC= 000024 OPLPO 
R SORTTG 005074 $.TGOF= 000015 U.CTRK= 0000 OPLP1 004 
SER10 005205 SPINUP= 000031 $.TGSS= 000017 U.ECCT= 0000 XOPLP2 00450. 
SER11 005220 ss = S.TRKL= Baanoe U.ELEV= 00002 AD = 
ante 005236 ST eee TALK 0011 U.LCYL= es XWRITE= 
SER1 005250 STACK 00074 TGS 004507 U.LGRP= 000071 ZEREDC 001165 
SER14 005265 
- ABS. 056754 


000000 001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 25264 WORDS ( 99 PAGES) 








DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
»B: UDAT4 .L50/C=SDMACRO,[30,27JUDATS 


Cigpiiig dy a agg gO = _— = —_ 7 
UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:02:53 PAGE 145-5 SEQ 1073 
SYMBOL TABLE 





UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:02:53 PAGE S=1 
CROSS REFERENCE TABLE (CREF V04.00 ) 


AFTOP 65- m4 74-68 75-145 tae 4 86-65 


AFTWRT 62- 99-129 101-194 102-19 
ALO ey 96-17 96-40 zene! 98-24 
REAO 62= 62-578 63-5 63- 95-5 95-5 99-5 99-5 
106-3 106-5 107+5 107-5 108-5 108-5 109-5 109-5 
122-5 122-5 
AREA1 62-11 63-1274 64-5 64-5 
AREA2 62-13 72-2 73-5 73-5 75-5 75-5 82-5 82-5 
AREAI 62-17 62-674 123-5 123-5 124-5 124-5 125-5 125-5 
143-5 143- 145=5 145-5 
ATTN 8-234 35-18 51-49 53-18 53-25 53-27 55-18 55-77 
AVAIL 8-264 35-18 51-49 53-16 53-23 55-41 62-67 120-82 
L 2-67 62-674 
BEEXT 75-86 75-138 75-1404 
5-5 75-768 


BE SUP 

BEUSED "o-368 62-67 62-67 62-67 64-36 64-42 126-42 131-97 
BF .ECC 

BF.EDC 5-894 99-114* 106-85 106-112 107-71 107-97 143-179+ 
BLOBB 

BLKCHK 42-24 101-89 105-58 106-60 110-93 


7 62-67 98-15 100-57 101-186 > a 


6 
111-76) =6116-25 117-5 117=5 120-5 120-5 121-5 - 

BUFFLG 3-6 & rgd 191-63 104-13 105-56 
BUFSIZ 37-1 37-20 414 
BUILDP 62-37 95-19% 99-19 108-58 109-81 117-86 120-75 
BUL 44-24 99-6 102-68 143-49 
C2DFTL 8-654  40- 124-38 125-39 131-151 
C2HARD 8 106-123 107-106 

Cc 45-24 81-17 81-29 95-45 115-25 118-16 
CALCSC 45-60 46-34 143-67 

2 62-674 129-12 135-13 135-28 135-39 135-57 139-14 139-26 


CBB 
CHAINS 46-37# 95-44% 96-7 Dy at 99-79 100-7 101-49 103-6 


1 
CHKDN 
CHKECC 62-4 106-71 107-194 108-19 
CHKEDC Ge~se 105-165 106-194 107-19 
CHKTG 1 1 140-24 


oOo 
se 


“60 110-194 111-19 
178 


RR 11 
CMXEX 110-88 110-9 





106-104 107-39 





J 


UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:02:53 PAGE S=2 


CROSS REFERENCE TABLE (CREF V04.00 ) 


CNTLOP 73-374 73-41 
R 62-59 125-40 124-198 125-19 


R 6-98 
COMPDP 141-10 141-31 141-49 142-24 
3# 4) 41-9 41-10 


1 
1 
CR.SEK 41-118 119-9 143-80 
110-864 
CURBN 46-5# 81-13* 81-15* 81-57 
97-44 97-73" 97-75% 112-748 
115-41 118-10" 118-11* 118-13* 
6 45-62 9 
CYL 46-84 81-19 81-31 95-46* 


81-30 81-824 
62-844 131-82 135-65 135-66 
D.LIMT 10-44 44-15% 
D.SCHR 10-5# 44-18 
DATCMP 10-57# 62-67 65-14 69-6 
DATPRE 7=32# 100-10 


DBNCYL 7=41# 137-10 137-18 
DCEXT 69-7 69-11 69-16 69-194 


DCMPAL 10- 62-67 69-12 
DCMPYS 69-13 69-174 
DCREAD 69-9 69-124 
DCYLS 10-448 44-8 45-17 62-67 
2-504 3- 48-3 51-55 
106-35. 107-32 109-32 110-32 
DIE 10-108 62-67 124-40 125-41 


DIREC 10-174 50-16 50-116 58-23 


90-24 
DOWNT 86-39 88-2# 90-23 


81-59 
112- 


1 


41-11 


78* 


18-14* 
95-48* 


69-17 


59-35 


41-12 


81-72 
113-17 
143-65* 


115=27* 


106-98 


97-49 
$e~ 7 
117- 

131-153 
75-33 


41-13 


81-74+ 
113-17 
143-66 


115-30 


106-125 


101-122 
135 ? 
18-68 


81-54 


41-15 


81-76% 
114-14 
143-124 


117-60 


107-117 


103-8? 
131-33 
143-211 

81-70 


62-67 


81-78* 
114=-16* 
143-133 


117-60 


109-58 


131-80 
63-35 


145-73 
86-55 


95-37% 95-38% 95-40% 95-41% 97-42 
114-51 114-51) -115-22* =115-23* 115-41 
143-187" 143-189 


118-17 = 119-6 119-7 119-24 143-77 


133-35 135-36 139-22 143-205 
63-47 = 99-32 101-35) 102- 105-35 


SEQ 1075 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE S-3 
CROSS REFERENCE TABLE (CREF V04.00 ) 


DRC 41-9 41-244 
55-28 


DRINIT 10-324 55-30 60-58 
DROP at Ed 8-30 48-39 50-28 50-84 50-109 
131-126 131-142 138-73 138-89 
DRPALL 56-37 - 122-194 123-19 
TY 7-154 


DRVID = 7=14 «124-42 124-463 124-44 


364 62-67 
DSABLE 56-32 60-124 99-39 102-39 109-47 117-84 
DSERNM 62-674 124-42 124-43 124-44% 143-213 143-214 
DUMSDI 44-15% 44-18% 46-144 46-28 46-30 97-38 
DUPPKT 8-5 8-6 8-7 


8-34 8-4 8-8 
8-17 8-18 
ECC 6-164 107-49 143-169 
106-69 


CCFLG 5-63" 106-55 143-158 


6 
ENABLE 60-34 60-25 60-34 60-43 63-115 108-32 
5-71 96-33 96-41 10 





56-43 58-17 


8-13 8-14 


59-18 


8-15 


SEQ 1076 | 


122-59 


8-16 | 


SEQ 1077 
114-44 


105-96 105-144 109-48 110-97 113-10 


L 3 


101-129 101-166 102-53 


40-75 99-50 


107-109 108-194 109-19 
8-64 





UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE S=4 


CROSS REFERENCE TABLE (CREF V04.00 ) 
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109-51* 
8-64 











101-114 


101-145 101-150 
106-107 107-53 
48-54 


143-187 


62-67 
76-24 


62-67 62-674 
138-95 


60-484 
101-146 
1-51 


117-60 
140-32 
45-38 


127-16 
45-33 


143-132 


45-59 


46-24 
44-12 45-11 


) 
101-15 
107+59 


62-67 


56-47 
35-9 
135-23 


119-8 


0 
45-58 


UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:02:53 PAGE S=5 
CROSS REFERENCE TABLE (CREF V04.00 


101-159 101-164 105-80 
107-92 120-71 120-92 
62-67 62-67 62-67 
59-33 62-67 62-67 
51-23 53-20 55-3 
135-30 135-53 135-67 

145-19 

101-155 101-160 105-81 
117-65 

121-54 

63-118 100-17 100-46 
143-79 

62-67 62-67 62-67 
140-22 

99-77 143-131 

60-54" 97-54 

45-20 45-44 55-81 


62-67 


55-5 
135-69 


105-133 


101-176 


62-67 


57-46 


105-11 

121-49 

131-61 137-63 

57-25 62-67 62-67 100-15 
138-40 1359-18 1359-36 159-42 
105-138 
103-13 =105-154 120-111 

75-68 75-96 78-26 79-27 
84-12 86-59 93-8 100-11 


100-44 
140-45 


80-11 


124-53 


SEQ 1078 


8 105-123 105-128 105-132 105-137 105-142 


103-11 
141-29 


110-55 


124-57 


| 


62-67 


SEQ 1079 
120-70 


62-67 
120-63 


141-9 
62-67 
117-68 


140-41 
62-67 
107-89 


140-37 
62-67 

107-86 
62-67* 

135-53" 


56-13 
5-122 106-92 
62-67* 


3-221 


137-19 
135-30* 


62-67* 


101=114* 101-129 101-144* 101-145* 101-150* 101-154* 101-159* 101-164* 101-166* 102-53* 


6-4 
105-114 105-118* 105-122* 105-123* 105-128 105-132" 105-137# 105-142* 105-144% 106-73* 


137=12 

5 

0 

4 
114-44% 
135-23 


N 3 


136-16 
135-21* 


136-9 
82-40 
62-67+* 


131-90 
74-23 


131-84 
62-67 
71=25* 
62-67* 


46-26 
62-67* 


71-19 
62-67 


UDATS D EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE S-6 
62-67 


ISK 
CROSS REFERENCE TABLE (CREF V04.00 ) 


| 


135-238 
143-207¢ 143-213 


40-75* 
62-67* 99-50 
05-142* 105-144* 106-73* 
135-218 


40-72 
62-67* 
0-97* 


40-68 
62-67 
1 
1 
1 
1 


101=-114% 101-129* 101-144* 101-145* 101-150* 101-154* 101-159* 101-164* 101-166* 102-53* 


105-114* 105-118* 105-122 105-123* 105-128% 105-132* 105-137* 


107-59* 


40-60* 
57-25% 


107-77* 


53-20* 


105-96* 


106-123" 107-53« 
117-598 
2 


50-77+ 
105-80« 


| 


40-106 | 


99-124 100-51* | 
101=114* 101-129% 101-1448 | 


62-67* 
131-117* 131-118* 138-64* | 


62-67% 
122-55* 


62-67 
120-91* 


62-67 
120-70* 


62-67 
117-68* 


56-13* 
111-65* 


56-2* 
107-89* 


51-24%  56-1* 
107-73* 


40-106* 
105-122* 106-92* 


143-208* 143-214* 


38-84 
143-98« 


101=144* 103-30* 


HRQ.03 36-7* 





135-21 
143=207* 143-2158 | 


40-82* 


105-114 105-118* 105-122 
107=92* 


40-75* 
107-89* 


143-99« 


40-72 
100-51* 
105-96« 
107=59« 
120-108* 122-38 
141-29 
62-67 


62-67* 


40-40* 

62-67+ 
01-164* 101-166* 102-53* 
5-142* 105-144* 106-73* 


7-59* 
5 


1 

10 
11 
13 


38-94 
56-13* 


53-28* 


101-145 101-150* 101-154" 101-159* 


36-7* 
105-123* 105-128% 105-132* 105-137 


| 


103-11* 
117-59* 
105=145* 
120-92 
107-89* 
110-103* 
110-103* 


115-418 
105-97* 
120-71* 
109=49* 
109-49 


106-108* 107-61* 


62-67* 
143=217* 
107-93* 
107-93* 


114=51* 
1035-11* 
117-59« 


106-107* 107-60* 
117+59* 


107-89* 


30* 101-166* 101-170* 102-53* 
107-89 


O2* 113-17* 


105-148* 106-74* 


120-109* 143-219* 
106-108* 107-61* 
106-108* 107-61* 


120-71* 120-92« 
105-148* 106-74* 
105-149* 106-74« 


139-42* 


-131* 101-170* 102-54* 


~41* 


57-35* 
6-107* 107-60+ 


5-53* 


53* 
14* 
-150* 134-22+ 
3-216* 145-71* 
135-65* 
99-50* 
107-92 
139-36* 
117-60* 


1-238 
~69+ 


7 
2 
3 
1 


120-109 


62-67 
135-66* 
120-72* 


40-83* 
106-107* 107-60* 


135-53* 
101-131* 101-171 


120-108* 135-47* 
120-93 


117-60* 


40-73* 
105-144* 105-148 106-73* 


120-92* 


40-77+* 


105-148* 106-73* 


120-108 135-48* 


HRQ.07 38-124 
HRO.08 38-134 





| 
| 
| 
| 
| 


SEQ 1080 


B 4 


—— 


UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:02:53 PAGE S-7 


CROSS REFERENCE TABLE (CREF V04.00 ) 
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UDAT4 DISK EXERCISER DMACR X04.01 eg-AuG~Se 12:02:53 PAGE S-8 SEQ 1081 | | 
CROSS REFERENCE TABLE (CREF V04.00 ) | 


L2.SLN -53# =54 40-15 55-48 62-67 
LASTU 62-67 62-67" 6267+ 
57-4 45-84 


$3 123 4s 110-43 110-62 = 12450 §3= 124-60 3=— 124-64 = 124-78 ) 
3-20 17¢-88 135-50* 135-52* 135-53 135-53 139-25 


09-4 
LEVUSD 10-33 63-116 63-119 109-76 120-77 
994 62-67 62-57 96-16 


LOCYL 41-294 143-77* 143-78 143-79« 
LONG 


LONGTO 7=6# 
LOSEED 46-234 71-8 71-16 $m Pa 74-18 82-36 
“47 105-163 106-65 106-100 106-129 107-121 109-62 110-125 111-19 112-19 
M.PARM 46-224 48-31% 48-47 48-50% 50-29% 50-71% 56-38% 59-19% 59-29%  62-67* 62-678 62-67%  77-7« 81-9 
B86-51* 124-40" 125-41 131-1218 131-153 1e-$5° 143-211 145-53" 145-73* 
MASK 72-28 74-2 74-29 82-39 82-46 84-21 85-10 
MAXADR -67 62 62-68 72-21 74-7) 81-89 Fa #4 94-22 98-18 100-6 101-189 104-32 105-176 106-142 | 
110-134 111-7 116-28 119- 120-116 121-82 122-7 123-46 124-102 125-48 130-29 


94 
135-56 135-69 135-69 «137-28 137-29% 139-39 139-42 139-42 


55-43 
MAXSUB 66-67 62-6 62-674 62-77 123-51 124-107 125-53 130-34 
MEDTYP -344 


MESSAG Ei + $6297 «185-85 183282" 138-8 





~128 
MINADR 62-67 62-67 62-67 62-678 62-7 “77 63-129 63-130 72-25 72-26 «74-80 «= 74-81 sB1-93 81-94 
an 94-26 a on ea 180-43 101-193 1012194 104-86 loans? Ibsaxbo 16en381 
veces ei eels ec le eee lee ee lied tee UI GK, Hee Hee 
130-48 130-341 Same a a oy aS og a $738 | 1g5-08  1ee-30 
MKLOOP 62-67 -678 | 
MOD 41-104 1-228 | 
MODST2 G-264 143-201 | 
MOD576 6-278 
“$7 62-678 | 
move -18 18 80-28 | 
MOVDBN 45-18 45-418 | 
T 45-7 65-40 45-608 | 
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CROSS REFERENCE TABLE (CREF V04.00 ) 
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4 
UDATS DISK EXERCISER DMACR X04.01 23=AUG=82 12:02:53 PAGE S-12 : SEQ 1085 
CROSS REFERENCE TABLE (CREF V04.00 ) 


OVL.IN ei 124-5 124-5 124-54 


OVL.LM 62-47 8112-5 1125 112-54 
L.MN -77 gnc? 62-84 62-84 62-844 
OVL.MS 62-30 63-5 63-5 63-54 
“NL 62-45 =110=5 110-5 110-54 
OVL.NO 62-32 73-5 =5 ~5a 
. 62-40 105-5 105-5 105-54 
OVL.RB 62-33 75-5 - -S4 
OVL.RC 62-51 122-5 122-5 122-54 
OVL.RT -35 86-5 6-5 86-54 
OVL.RV 62-48 117-5 1175 117-54 
OVL.SO 62-62 138-5 138-5 138-54 
OVL.S1 62-63 143-5 143-5 143-54 
OVL.SB 62- 82-5 82-5 82-54 
OVL.SC 62-41 106-5 106-5 106-54 
OVL.SK 62-49 120-5 120-5 120-54 
L.SO 62-61 131-5 131-5 131-5# 
-SP 62-60 126-5 126-5 126-54 
-ST 62-36 95-5 95-5 95-54 
OVL. 62-31 =5 64-5 45H 
OVL.TS 62-50 121-5 121-5 121-54 
° 62- 101-5 101-5 101-54 
OVS.AW 101-54 
OVS.BP 95-S# 
S.CC 124-54 
S$.CD 110-54 
OVS.CK 107-54 
OVS.DA 122-54 
OVS.EC 108-54 
S.ED 106-54 
-GS 143-5# 
OVS.ID 145-54 
OVS.IN 123-54 
-LM 111-54 
-MN 2-778 
OVS.MS 62-844 
S.NL 109-5# 
OVS.NO 64-54 
OVS.R 102-54 
OVS.RB 73-5# 
OVS.RC 121-54 
RT #e- 
oRV 112-54 
-SO 131-54 
-S1 138-5# 
Ss. 75-S# 
OVS.SC 105-54 
OVS.SK 117-S# 
S. 136-38 
OVS.SP 125-54 
$.$ 26-28 
S. -Sa 
OVS.TS 120-54 
Ss 99-54 


OVSTRT 5-138 7 62-67 
PARTO 62-88 $5-35 $5-3) 62-31 = 62-31 62-31 = 62-32. 62-33 62-340 62-35 62-36 62-37 Ss «2-37 —s«6 2= 37 








UDATS DISK EXERCISER DMACR X04.01 23=AUG-82 12:02:53 PAGE S-13 
CROSS REFERENCE TABLE (CREF V04.00 ) 


= 62- 62-39 62-39 62-40 62-40 62-41 62-41 62-42 62-42 eiet 

62-4 62-4 62-46 62-46 62-47 62-47 62-48 62-48 62-49 62-50 62-51 
62-58 62-59 62-60 62-61 62-62 62-63 62-64 62-65 

PARTI -10# 62-3 

PART 62-124 6 3 62-34 62-35 62-36 

PART “148 62-31 62-37 62-49 62-50 62-51 66-36 

PARTI 62-164  62- 62-59 62-60 62-61 62-62 62-6 62-64 62-65 

PATO 47- 47-218 62-67 


PATPTR 47-24 99-89 110-63 
PHYSA 2-77 2-77 2-77 2-77 2-778 
PLOAD 51-34 51-384 
46-208 110-45* 110-47* 110-61 110-122 
75-76 78-28 


PREVBE 

PTABLE 50-151 51-10 51-29% 51-36* 51-39 62-74 

QDA 2-424 $793 2-89 

RANDOM 66-1 67-12 68-14 69-14 71-24 73-44 74-16 74-56 82-34 84-22 85-11 


62-43 
62-52 


SEQ 1086 
62-44 62-44 
62-52 62-52 


9 
RBNBN 10-224 42-9 45-2 s3he8 63-93 65-14 95-35 97-45 99-54 101-84 101-124 101-136 102-57 105-92 


RBNFLG 45-8* 45-24% 46-7 143-58* 


RBNTRK 7=30# 44-11 4 “18 45-25 45-41 131-83 = 143-53 
RBNTXT 185-75 99-51 = 101-131 101-171 102-54 105-98 105-149 106-75 106-109 107-62 107-94 
RBUFLN 5-954 $267 97-20 
RCBREQ 10-364 6-22 60-44 117-49 121-68 
RCONT 5-664 
RCTC ? 124-71 
RCTCSZ 7-394 113-2 115-12 
RCTLS 62-844 Pt as 
RCV g-$¢ 40-4 55-58 62-67 
RCVERR mt 5-35 
RCVRDY 2 ¥ 2-3. 40-39 23°18 55-41 62-67 
RDSTAT 35-1 5- -67 62-6 62-67 
AD -40 97- 102-194 19 -19 
RECALB “51 9 117-51 ‘a 1 ¢-33 
RECOVR 50-43 14 7-28 143-70 
REDWRT 10-234 - 93-37 65-14 66-15 67-6 68-6 69-8 96-9 97-7 97-80 
RETRY 10-374 6-2 6-26 60-26 
RETS 7-74 =4 


124-45 
REVCT 62-48 101-126 102-65 105-94 105-109 106-96 107-115 109-56 112-19# 117-19 


109-49 


110-103 117-60 


I 4 
UDATS DISK EXERCISER DMACR X04.01 23=AUG=82 12:02:53 PAGE S-14 SEQ 1087 
CROSS REFERENCE TABLE (CREF V04.00 ) 


REVEC 10-214 Hat 65-14 96-11 97-9 97-82 102-51 102-63 105-90 106-58 106-94 106-115 107-104 107-113 
is © 112-38 112-46) =—116=7 


REVS ~16" 
REVSOK 112-81 113-24 
RM 2-318 
62-9. G7=12" 67-14 





RONLY 10-464 62-67 62-67 66-10 138-36 145-75 


5-684 
RTOS 35-24 40-32 51-46 53-13 57-6 120-3) 
RTOSL 35-2 35-16# 55-15 55-38 60-53. 143-91 
RTRIES 10-484 62-67 99-48 102-48 106-119 107-10 


RUN 5 me 4 62-674 

RVFAIL 113-19 8114-27 «6114-53 =: 115-33. 116-24 

RW.ANG 5-58# 97-41% 97-62% 101-132 101-172 105-99 105-150 106-76 106-110 107-63 107-89 107-95 110-104 
RW.BUF 5-534 5-54 97-37* 99-80 Hs 106-106 107-69 110-41 114-7 | 
Rw. CMD ~56# ~57 97-12e =97-17* 101-133 101-173 105-100 105-151 106-77 106-111 107-64 107-89 107-96 110-105 
RW.HI 5-554 5-56 97-56* 101-51* 101-130 101-170 104-11* 105-97 105-148 106-74 106-108 107-61 107-89 107-93 
RW.LOW 5-544 5-55 42-13 97-43* 101-50* 101-130 101-170 104-10* 105-97 105-148 106-74 106-108 107-61 107-89 


RW.SDI 3-208 -58 97-39 143-137% 


121-51 


RW.STA 3-5 $733 36-e8 =47 97-28 101-56 105-47 106-46 111-41 143-115" 143-158+ 
DY 28H 35-18 120-50 143- 

S.BADP 9-648 9-65 42-11 62-67* 62-67* 129-6 139-8 

S.BESS 9-654 9-70 -67 “67 62-67 65-97 73-35 73-56 75-37 75-89 ie? 127-6 127-8 133-8 
Fs ae n° 133-16* Fatt 133-20 = 135-30" 135-31" 133-39" 1335-43 13535-46% 133-48 135-9 135-11 9141-57 

S.LETR 9-59# 9-6C 50 0101-1 101-170 et 105-97 105-148 106-74 106-108 107-61 107-89 107-93 109-48 
110-102 112-49* 116-19* 117-59 120-71 131-88+ 

S.MCNT 70# 9-71 82-37 Sete 82-45 82-48 91-7 91-9 33-18 92-12 

S.MEGR 9-624 9-63 105-64 105-65" 105-158 105-160 3 106-64" 108-39 108-40" 111-60 111-68 131-58 

3: PARM Hat 9-5 tony is-1e- =36 "Sone. "30-7 : 50-1 56-4 56~45 8-15 59-1 62-67 -67 

-3 -7 a 7% 8-85 37-68 39-4 104-131 109-47 103- 106-68 106-118 187-100 

126-41 131-79 131- 1 at 131-140 135-34 135-1 135-35 135-4 135-60 1 5S 138-46 138-58 138-75 | 
138-87 139-21 140-2 141- 142-9 143-204 145-3 145-63 

S.PAT 9-59 962-67" 67-8 

S.SCHR 9-62 44-10 4-1 45-9 45-61 62-67* 84-10 86-57 93-6 100-9 A ey 113-22 9 115-11 
115-26 131-72 a 132-39" 139-24 140-29 141-39 143-50 1435-64 143-68 143-125 143-186 

$.SDCL 4 45-47 = 45-51: 131-109* 131-113 

SEEK  9-56# 9-5 120-57 120-66" 143-418 
GOF 9-714 9-7, 83-5 91-11 91-1 92-8 92-9 140-21 14 “33* 141-6 141-59 141-60 
62-6 - ?=2 ay-§° 91-15 26-13 92-21 130-6 Fant 141-64 141-70 
° 6 86-48 89-15 94-10 131-92e 


4 138-19 138-97 


Sc g 
SCR1 "2, 46-164 50-136* 63-77* 63-80" 75-35* 75-87* 77-10" 87-8 88-6* 89-6* 90-6* 97-59 145-42* 





£ Bm 


a 8 196-27" 
75 ~84 


63-70 
95-19 


115-38 


106=105* 106-112 106-114 107-41* 


ti “tee 


62-6 


111-54 
142-13 


113-33 
120-52 


60-44 
120-99 


64-34 








ERCISER DMACR X04.01 e5-AUG~62 12:02:53 PAGE S=15 
CE TABLE (CREF V04.00 ) 


tiat3 
62-674 


115-47 
120-85 


118-19 
121-19 


145-40 


135-53 
62-844 100-16 


101-167 101-175 103-12 105-145 105-153 120-94 





UDAT4 


CROSS REFERENCE TABLE (CREF V04.00 ) 


ao 
want 
3 

Baa 


62-844 
113-16 
101-166 


55-84 
55-80 


57-41 


57-23 
55-84" 
57-38 


57-23 


= 


114-50 
105-144 
emer 


115-40 


DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE S-16 


6% 143-1342 143-135* 143-136% 143-137* 143-139 143- - - 
“191% 144-34 3-139 143-158* 143-168 144-44 


a 143-197 143=198* 143-199% 143-201% 143-207 143-216 143-217 143-218 
105-107 


-2 4-6 
63-194 64-19 70-9 


126-194 131-19 


125-194 126-19 


56 55-71 
4-55 124-59 
5-50* 135-52 


55- 
124 
13 


57-45 


57-22 


57-26 


99-58 


55-84% 
124-76 
135-53 


101-86 101-94 


57-22 57-41 57- 
131-60 9131-83 = 131 
136-8 136-15 137 


101-140 102-61 


143-219 
111-69 


124-42 
131-110 


144-14 
116-20 


124-43 
32 


SEQ 1089 


144-224 
145-86 


124-44 
133-37 


UDATS DISK EXERCISER DMACR X04.01 23-AUG=82 12:02:53 PAGE S-17 SEQ 1090 
CROSS REFERENCE TABLE (CREF V04.00 ) 


ST.S7 6-584 
1 6-474 57-23 57-30 


& 
STACYL 45-36% 45-39% 45-48 45-52% 46-4 143-51% 143-52* 
STAR 27 & 


35-32 
48-48 S268 51-27 62-67 62-67 
STSEXT ay 120-81 120-88 120-95 120-103 120-107 120-1124 


~33* 143-100 143-208 143-212 143-223* 143-224 144-24 


4] 
Ge 
72) 
Bo 
~ 
amr = 
io 
— 
é 
oa 
N“N 
& 


T4SOFT hy 36-7 40-106 56-13 100-51 101-144 103-30 105-122 106-92 107-85 117-68 120-70 120-91 143-101 | 


TALK 40-24 48-41 57-1 21-38 57-53 57-63 = 109-67) 119-10) 121-40) = 124-34 = 125-33 131-54 9=—143+74 = 143-81 
TGS 140-33* 140-36* 140-4 141-2 dead 


TGS Se-r" 140-12 140-38 141-5 41-45 
THREBE , 73-514 
TLEN.U 7 9-79 62-67 
TLKHST 36-2¢ 40-50 95-32 
95-42 98-68 = 98-104 
T 124-61 124-65 124-864 
TRACK 46-10% 97-6 143-135 


TRACKS 10-534 62-67 84-8 86-37 86-43 86-54 140-30 141-40 142-11 


TRKS 6¢ 
—- -27# 84-11 86-58 93-7 136-8 140-35 = 141-44 


U.CBN Ww 63-57 63-59" 63-61 63-63* 63-85* 63-87" 70-2 70-4* 95-40 95-41 99-50 
101-46 =101-47 = 101-101 101-102" 101-104 101-106* 102-53 He ae 104-7 104-8 105-67 105-68* 105-70 105-72¢ 
108-46 =108-47* 108-49 108-51* 109-48 109-48 112-61% 112-66" 113-17 113-17 13-24 113-25" 113-27 13-29* 
115-7 115- 115-20* 115-21% 115-41 115-41 = 116-13# =116-17* 117-59 9117-59 =: 118-13: 118-14 0-71 120-71 

U.ccNT 9-204 9-2 87-12 87-14 87-16 87-23 38 oe} ® oR 18 88-21" 91-8 91-10" 92-11" 92-132 | 

U.CC 9-444 112-56* 113-6 113-21* 115-9 145-63* 1435-181 14 ~183° 

U.CCYL 84 =4 95-4 95-48 100-15 100-15 101-133 101-133 101-173 101-173 103-11 103-11 105-100 105-100 | 
105-151 105-151 106-7 196-78 106-111 106-112 107-64 107-65 107-89 107-89 107-96 107-97 109-50 109-50 | 
110-105 110-105 11 “3 1191 12 m{ 120-73. 120-92 120-93 120-109 150") 9 FS 121-73 123-36" 125-372 | 

U.CGRP of -50 95- 100-15 a 3 Hee tae 105-100 105-151 106-7 106-111 107-64 107-89 107-96 
109-49 110-105 120-7 120-92 1 9-139 121-74 125-38 

U.COPY 9-43# 44 113- 124-80* 143-59 143-184 

U.CSE. 9-26# 9-27 50-20* 50-68 635-43 63-56" 63-89" 63-91 70-6* 101-98 101-99" 105-61 105-62" 108-36 





SEQ 1091 


86-32 
101-119 101-1357* 101-171 | 


106-109 107-62 


99-57 


112=58« 

70-7* 

105-106* 108-35 
-149 106-57 

92-29% 

101-132 101-171 


93-9 

07 107-60 

74 105-101 
105-152 120-92 
63-112* 
105-74* 


55-45 
70-3 
63-58 


90-14% 
105-66 
105-104* 105 


101=-178* 105-156* 108-45* 


101-134 101-174 105-101 
124-75* 


112=-55* 114-18 


105-149 105-150 106-76 


UDATS DISK EXERCISER DMACR X04.01 23-AUG-82 12:02:53 PAGE S-18 
117-60 
123-34* 
9-194 
9-214 
9-424 
112-54 


CROSS REFERENCE TABLE (CREF V04.00 ) 





60-18" | 


120-54 


55-27 


60-16 
118-18 


60-9* 
117-48 
109-83* 


109-77* 
108-55* 


60-7 


56-21% 


109-72 


108-33 
50 
42e 103-28 105-148 108-57* 112-69% 113-32" | 


56-18 
109-39 
107-92 
112- 
102- 


55-31* 56-8 
108-64* 
107-74 
105-75 

101-170 102-40 


63-120* 108-62 
106-107 107-60 


115-35 
101-109 103-24 


100-49 


106-87 


41-11 41-12 41-13 41-15 50-48 62-67 62-67 62-67 


41-10 


131-122 131-135 


59-6 62-67 62-67 122-41 126-35 
50-78 


50-77 
* 143-85* 


* 143-87+ 


101-144 





UDAT4 DISK EXERCISER DMACR X04.01 23=AUG=82 12:02:53 PAGE S-19 





SEQ 1092 


CROSS REFERENCE TABLE (CREF V04.00 ) 


138-64 143-33 143-34 


72-18 
84-2 


131-117 138-47 


122-46 


120-91 


ete HK MMO 


so 





62-674 
69-10 


62-67 
68-17 


-134 


43-156 144-20 
5-102 


62-67 
68-8 


65-14 


63-82 


101-19 


————_—_ __ -——— ee 
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SEQ 1094 


UDAT4 4 , yo hn DMACR X04.01 23-AUG-82 12:02:53 PAGE M=2 


l 
CROSS REFERENCE TABLE (CREF V04.00 ) 


bata”) 
SN SESS 
we! TTCS 3 


= ee 


FEVER ER ER ER 


SeaNes PT i 
Soa 


SoQqxeceeceK—wrunm 
i deantudnaeieatataramdl 


#s8ee0es @ee0ee0s 
RASOMAROOUNOS 
SOK KK KK OUINUMIMmMss 


Ee ee 


Se rk att | 


wnnSnwowomon 
GDOORK——MOr-—- VOT 
eeseeseeeesese sé f 
LKR OOOWMR OOMMNO 
oor ee KK NNMMmM 


i counik deeeik Seeeiic aeeetic aati cei neat see aeeicamei aaa oe 


SpPSnngrEnesy 
SESSOSR SOM. 


i coli uel aneii eee cei uel eee ane eee ae oe amet 


$8 seeecesees 
r-rROOoOOrrOOMNN 





1 
5 


120-74 
101- 
7- 


101-175 102-55 
101-1 30 
107-33 10 


117-61 


62-67 
5 191= 18" 


120-91 


114<5 


62-67 


120-70 


62-67 


117-68 


41-15 
105-122 106-92 


41-13 


57-35 


106-113 107-66 
4 103-30 


53-29 


SOOO Se KK OUCUMMIM 2 


cet eel sel geal seme cee seek cee fee oe oi oe oc 


S118 105123 105-128 105-182 108-187 1 


3 


4 
0 


40-77 
Sains 1 


2 105-145 105-153 1 


110 145-72 


138-47 
40- 


7 


-? 


94 


w 64 


saan 





ee ee ee 





ONETIM 16-314 
OVTERM 








